Thursday, September 15, 2016

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. Tidak dapat membuat Paragraf dan tidak dapat mengatur spaci antar paragraf.



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.

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

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon