Buka Program Defauld Windows Dengan UserForm VBA Excel "Cmd, Explorer, Notepad, Calculator"

Sebagaian orang meragukan kemampuan Excel yang sangat luar biasa. Sebagian lainnya bekerja dengan Excel namun tidak mengetahui dan tidak memiliki pengetahuan mendalam tentang Excel yang luar biasa.

Pengalaman Admin sendiri saat pertama mempelajari Excel secara otodidak menganggap Excel itu sulit dipahami dan tidak fleksibel sebagaimana Word. 
Program Defauld Windows Dengan UserForm VBA Excel
Tidak dapat membuat Paragraf dan tidak dapat mengatur spaci antar paragraf serta banyak kendala lainya yang admin temukan. 

Sehingga admin berkesimpulan Excel itu terlalu kaku dan tidak dapat diatur sesuai dengan keinginan user.

Namun setelah keseharian Admin bekerja yang harus menggunakan Excel mengharus Admin untuk menelusuri di internet cara-cara mudah bekerja dengan Excel.

Admin mendownload berbagai macam aplikasi yang dapat dipelajari. 

Dari file-file aplikasi Excel yang dibuat oleh programer profesional yang tersebar di internet membuat Admin tertarik untuk mempelajari Excel lebih dalam.

Membuka aplikasi mencoba membeda kode yang digunakan serta mencoba menerapkannya pada berbagai macam file percobaan.

Ikuti dan praktekkan kode yang admin sajikan pada artikel ini. Gunakan kode yang admin sajikan pada artikel ini. Tempat kodenya sesuai dengan point-point yang sampaikan agar aplikasi dapat berjalan normal.

Buka Program Defauld Windows Dengan UserForm VBA Excel "Cmd, Explorer, Notepad, Calculator" - Perhatikan gambar format gif diatas..!!! 

Cara Buka Program Defauld Windows Dengan UserForm VBA Excel "Cmd, Explorer, Notepad, Calculator" sebagai berikut :
  • Buka Excel - Developer - Klik Visual Basic 
  • Pada jendela Visual Basic Masukkan UserForm 
  • Selanjutnya Masukkan Label dengan Properties sebagai berikut 


Properties Label
"Label1" Ubah Caption "Cmd"
"Label2" Ubah Caption "Explorer"
"Label3" Ubah Caption "Notepad"
"Label4" Ubah Caption "Calculator"
  • Masukkan Kode berikut untuk Label1 Caption Cmd
Private Sub Label1_Click()
Dim Program As String
Dim TaskID As Double
On Error Resume Next
Program = "Cmd.exe"
TaskID = Shell(Program, 1)
If Err <> 0 Then
MsgBox "Cmd tidak bisa terbuka " & Program
End If
End Sub
  • masukkan Kode berikut untuk Label2 Caption Explorer
Private Sub Label2_Click()
Dim Program As String
Dim TaskID As Double
On Error Resume Next
Program = "explorer.exe"
TaskID = Shell(Program, 1)
If Err <> 0 Then
MsgBox "Explorer tidak bisa terbuka " & Program
End If

End Sub
  • Masukkan Kode berikut untuk Label3 Caption Notepad
Private Sub Label3_Click()
Dim Program As String
Dim TaskID As Double
On Error Resume Next
Program = "NotePad.exe"
TaskID = Shell(Program, 1)
If Err <> 0 Then
MsgBox "NotePad tidak bisa terbuka " & Program
End If
End Sub
  • Masukkan Kode berikut untuk Label4 Caption Calculator
Private Sub Label4_Click()
Dim Program As String
Dim TaskID As Double
On Error Resume Next
Program = "calc.exe"
TaskID = Shell(Program, 1)
If Err <> 0 Then
MsgBox "Kalkulator tidak bisa terbuka " & Program
End If
End Sub

Demikian Posting Buka Program Defauld Windows Dengan UserForm VBA Excel "Cmd, Explorer, Notepad, Calculator". Semoga dapat dikembangkan dengan cara sendiri untuk membuka program lainnya

Jika artikel ini dirasakan ada manfaat dan berguna mohon dapat dishare ke teman-teman lainnya melalui media sosial.

Sampaikan saran serta kritikan dan pertanyaan dengan bijaksana pada kolom komentar yang tersedia dibawah artikel ini.

Pelajari kode Vba Excel dengan cara membuat berbagai macam file perocbaan. Dengan dimikian anda akan lebih cepat memahami alur kerja serta fungsi sebuah kode yang diterapkan pada aplikasi.

Berlangganan update artikel terbaru via email:

0 Response to "Buka Program Defauld Windows Dengan UserForm VBA Excel "Cmd, Explorer, Notepad, Calculator""

Post a Comment

Komentar Anda Sangat Menentukan Kelangsungan Blog ini

Iklan Atas Artikel

Iklan Tengah Artikel 2

Iklan Bawah Artikel