√ Vba Excel Instal Font Setting Dengan Rundll32

Font merupakan jenis goresan pena dengan aneka macam jenis variasi yang sesuai dengan desain si pembuat font tersebut. Font biasanya dipakai untuk mengganti jenis huruf. Font biasanya sudah terinstal pada windows dan anda tinggal menggunakannya, kemudian bagaimana jikalau Anda ingin menambahkan font?

Kali ini aku akan membahas bagaimana cara menginstal font memakai coding atau script VBA dimana jendela font setting atau font instal akan dibuka memakai tombol yang telah dibentuk dan dirancang oleh kita sendiri.

Coding untuk membuka Jendela Font

Private Sub CommandButton1_Click()
  On Error Resume Next
  Shell "Rundll32 Shell32.dll,SHHelpShortcuts_RunDLL FontsFolder", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Di dalam windows kita pernah mendengar yang namanya beberapa file Rundll32, nah untuk menampilkan jendela yang dijalankan melalui Runddl32 Anda dapat memakai fungsi Rundll32.Shell32.dll

Anda  dapat memanggil jendela font dengan memakai objek CommandButton menyerupai yang dicontohkan diatas dengan mekanisme klik yang artinya jikalau commandbutton1 diklik oleh User maka jendela font akan muncul dan disinilah Anda dapat menambahkan jenis font gres ke dalam jendela font tersebut.

Demikian, tutorial singkat bagaimana coding atau perintah untuk instal font dalam menambahkan jenis font gres kedalam kotak font. Semoga bermanfaat dan selamat mencoba.
Sumber http://www.excel-id.com/

√ Menambah Dan Menghapus Aplikasi / Add/Remove Program

Bagaimana cara menambah dan menghapus aplikasi atau prgram memakai coding VBA? sebuah pertanyaan yang mungkin belum aku jawab di blog ini, Ada cara untuk menambah dan menghapus agenda aplikasi yang sudah terpasang atau terinstal pada komputer Anda dan biasanya Apabila Anda ingin memakai aplikasi Ms. Excel tentunya komputer Anda harus terpasang aplikasi Ms. Office. Apabila Anda ingin mendesain gambar maka Anda harus menginstal agenda aplikasi CorelDraw.

Cara ini memang cara aku dalam menginstal aplikasi apapun memakai VBA jikalau banyak orang bagaimana cara menghapus atau menambah aplikasi dengan control panil lalu pilih Add/remove agenda maka aku menciptakan sebuah Form untuk menampilkan jendela tersebut dengan memakai VBA Excel.

Berikut screenshoot untuk menampilkan jendela Add/Remove Program

Jika Anda klik tombol "Tambah/Hapus Program" maka akan muncul jendela Add/Remove Program ibarat berikut

Pada jendela Add/Remove Program diatas Anda dapat menghapus ataupun menambah agenda atau aplikasi atau software yang akan dihapus.

Anda dapat menyebarkan coding ini untuk kebutuhan dalam pembuatan aplikasi berbasis VBA Excel. Saya kira ini akan lebih keren apabila untuk mengintasl aplikasi memakai desain Form sendiri sesuai dengan kreativitas seni Anda.

Demikian, supaya bermanfaat.
Sumber http://www.excel-id.com/

√ Buka Control Panel Dengan Coding Vba Excel

Control panel berfungsi untuk mengontrol windows, control panel ini biasa dipakai dan setting beberapa fungsi yang dapat dimanfaatkan pada sistem operasi Windows. Fungsi fungsi tersebut dapat berupa menambahkan atau menghapus program/software dan masih banyak lagi lainnya. Kali ini aku akan membahas bagaimana cara menampilkan jendela control panel melalui Userform dengan menambahkan coding VBA excel.

Gambar diatas merupakan tampilan UserForm yang telah didesain oleh aku sendiri dimana hanya ada 1 tombol ialah "Buka Control Panel" pada userform tersebut bila Anda klik tombol tersebut maka control panel akan terbuka dengan sendirinya ibarat terlihat pada gambar dibawah ini

Untuk dapat menampilkan jendela control panel ibarat diatas Anda harus menambahkan script coding VBA dibawah ini pada object CommandButton1 dan prosedure Klik

Private Sub CommandButton1_Click()
  On Error Resume Next
  Shell "RunDll32.exe shell32.dll, Control_RunDLL", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Silakan coba jalankan atau run aktivitas diatas maka Anda sudah dapat menampilkan jendela Control Panel melalui UserForm yang telah didesain dan dibentuk tadi.

Baca:
Cara Menambah dan Menghapus Aplikasi melalui UserForm Excel

Berikut Perintah yang dapat dipakai pada jendela Control Panel

1. Accessibility Options, ini berfungsi sebagai pengatur kerja sebuah komputer.
2. Add Hardware, berfungsi sebagai aktivitas untuk menginstal perangkat keras dalam sebuah komputer.
3. Add or remove Program, ialah berfungsi sebagai memasukkan dan menghapus aktivitas yang ada pada komputer.
4. Administrative Tools, ialah berisi options-options untuk mengkonfigurasi sistem pada OS Windows XP.
5. Automatic Updates, ialah berfungsi untuk mengupdate windows secara otomatis.
6. Date / Time, ialah berfungsi untuk  mengatur setting waktu pada komputer.
7. Display, ialah berfungsi mengatur, pengaturan yang bekerjasama dengan layar komputer seperti;  mengubah latar rahasia & screen saver.
8. Folder Option, ialah berfungsi menyesuaikan tampilan file dan folder mengubah asosiasi file dan menciptakan file jaringan yang tersedia offline.
9. Fonts, ialah berfungsi sebagai kawasan penampungan semua huruf, yang dipakai pada sebuah komputer untuk menulis.
10. Game Controller, ialah berfungsi untuk  mengatur stick game bila akan digunakan.
11. Internet Options, ialah berfungsi sebagai mengatur  internet yang akan digunakan.
12. Keyboard, ialah berfungsi sebagai mengatur kecepatan/refleks  keyboard yang digunakan.
13. Mail, ialah berfungsi untuk mengatur surat elektronik  (e – mail).
14. Mouse, ialah berfungsi sebagai pengatur kecepatan kerja pada mouse.
15. Network Connection, ialah berfungsi sebagai pengaturan untuk menghubung komputer ke komputer lain menggunakan  jaringan dan internet.
16. Phone and Modem Options, berfungsi untuk mengkonfigurasi hukum panggilan telepon dan pengaturan modem.
17. Power Options,  berfungsi sebagai menghemat energi konfigurasi pengaturan untuk komputer.
18. Printer and Faxes, berfungsi menunjukkan terinstal printer dan fax printer dan juga membantu menambahkan yang baru
19. Regional and Language, Options berfungsi sebagai pengaturan untuk menyesuaikan tampilan bahasa, nomor, waktu dan tanggal.
20. Scanners and Cameras, berfungsi untuk menambah, menghapus dan mengkonfigurasi scanner dan kamera.
21. Scheduled tasks, berfungsi untuk menjadwalkan kiprah untuk berjalan secara otomatis.
22. Security Centre, berfungsi untuk memonitor dan mengkonfigurasi keamanan komputer yang digunakan.
23. Sounds and Audio Devices, ialah berfungsi untuk mengubah denah suara, mengkonfigurasi pengaturan untuk speaker dan alat perekam.
24. Speech, berfungsi mengubah pengaturan text-to-speech dan untuk speech recognition
25. System, berfungsi melihat isu sistem komputer, dan mengubah pengaturan untuk hardware, kinerja dan pembaruan otomatis
26. Taskbar and Start Menu, berfungsi untuk menyesuaikan sajian start dan taskbar ibarat jenis item yang akan ditampilkan dan bagaimana mereka harus muncul.
27. User Account berfungsi untuk merubah dan mensetting password penggunaan computer.
28. Windows Firewall, ialah berfungsi untuk melindungi sebuah komputer yang terhubung ke jaringan dari saluran yang tidak dikehendaki.
29. Wireless Network Setup Wizard, berfungsi mengatur atau menambah jaringan nirkabel (tanpa kabel)
30. Date / Time, ialah berfungsi untuk  mengatur setting waktu pada komputer.

Demikian Semoga bahan Buka Control Panel Dengan Coding VBA Excel bermanfaat dan selamat mencoba biar berhasil.
Sumber http://www.excel-id.com/

√ Setting Date Time Dengan Coding Vba Excel

Begini cara setting tanggal dan waktu (Date Time) dengan memakai VBA. Artinya Anda tidak usah masuk ke jendela Control Panel kemudian mencari hidangan Date Time (Regional Setting) tetapi Anda sanggup eksklusif menuju jendela Date Time dengan sumbangan Script VBA Excel ini. Lalu untuk apa kegunaannya?

Ada beberapa manfaat dan saya yakin kalau Anda sudah memahami betapa pentingnya kegunaan VBA dalam membantu mengelola perhitungan data di Ms. Excel. Biasanya dipakai untuk kepentingan dalam pengelolaan keuangan pada aplikasi yang dibentuk berbasis VBA.

Baca :
Cara Membaca atau Membuka Control Panel melalui UserForm

Merubah format tanggal dan waktu biasanya dilakukan dikala jam atau tanggal yang ada di komputer Anda tidak sesuai dengan kenyataan hal ini akan  berakibat jelek pada aplikasi yang digunakan, sebab ada beberapa aplikasi yang mengaitkan jam dan tanggal sebagai salah satu pendukung semoga aplikasi sanggup dijalankan atau berjalan dengan normal.

Untuk mempermudah pemanggilan jendela Date Time sebaiknya kita memakai UserForm control semoga pengguna dengan gampang untuk mengeksekusi date time tersebut. Saya menambahkan 1 buah CommandButton sebagai mekanisme untuk memanggilnya. Biasanya untuk menu-menu windows memanggil jendela Dte Time memakai fungsi RunDll.

Berikut tampilan desain UserForm yang sudah saya rangcang.

Dari tampilan sederhana userform diatas Anda sanggup memanggil jendela Date Time. Oiya untuk yang belum sanggup cara menciptakan UserForm silakan

Baca:
Pengenalan Dasar Membuat Userform VBA Excel

Seperti Halnya cara membuka Font coding ini hampir menyerupai dengan Cara Menampilkan Font dengan VBA

Berikut Script untuk menampilkan jendela atau merubah Date/Time dengan VBA

Private Sub CommandButton1_Click()
On Error Resume Next
Shell "RunDll32.exe shell32.dll,Control_RunDLL timedate.cpl", vbNormalFocus
ShowControlPane4 = Err.Number = 0
End Sub

Dengan coding diatas terang kita akan menampilkan TimeDate.cpl maka kalau Anda mengklik tombol "Setting Tanggal dan Waktu" akan muncul jendela Date Time menyerupai gambar berikut

Benah kan, silakan Anda klik Change date and time untuk merubahnya. Sampai disini Anda sudah sanggup menciptakan coding bagaimana cara menampilkan Date Time dengan memakai VBA Excel. Semoga bermanfaat dan selamat mencoba.
Sumber http://www.excel-id.com/

√ Coding Rundll32 Untuk Para Programmer Vba Excel

Selamat Siang, Beberapa fungsi RunDLL32 yang biasa ditampilkan di Ms. Windows memang sudah tidak abnormal lagi namun bagi pemula rasanya nama RunDLL32 ini cukup asing. Fungsi RunDLL32 dipakai untuk menjalankan fungsi-fungsi perintah internal Windows. Lalu apa itu rundll32.exe? Itulah pertanyaan pertama yang harus kita pahami jawabannya sebelum kita dapat memperbaiki kerusakan pada file ini. Proses rundll32.exe yaitu bab dari OS Windows yang bertanggung jawab untuk menjalankan DLL dan menempatkan libraries dalam memori. Proses rundll32.exe dikenal sebagai jadwal utilitas command line, dan melaksanakan fungsinya terintegrasi bersama dengan file rundll.exe. Rundll32.exe bekerja dengan menerapkan suatu fungsi yang diekspor dari modul DLL yang spesifik yaitu 16bit atau -32-bit. Proses rundll32.exe yaitu pengembangan dari Run DLL.

Berikut daftar RunDLL32 untuk para programmer yang dapat dimanfaatkan terutama untuk para pengguna VBA Excel disertai dengan perintah untuk menampilkannya.

Private Sub CommandButton1_Click()
'setting font
  On Error Resume Next
  Shell "Rundll32 Shell32.dll,SHHelpShortcuts_RunDLL FontsFolder", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton10_Click()
  On Error Resume Next
  Shell "RunDll32.exe user32.dll,LockWorkStation", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton11_Click()
  On Error Resume Next
  Shell "Rundll32 Shell32.dll,Control_RunDLL main.cpl @0,0", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton12_Click()
  On Error Resume Next
  Shell "RunDll32.exe shell32.dll,Control_RunDLL ncpa.cpl", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton13_Click()
  On Error Resume Next
  Shell "Rundll32 Shell32.dll,OpenAs_RunDLL Any_File-name.ext", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton14_Click()
  On Error Resume Next
  Shell "Rundll32 Printui.dll,PrintUIEntry /?", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton15_Click()
  On Error Resume Next
  Shell "Rundll32 Shell32.dll,SHHelpShortcuts_RunDLL PrintersFolder", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton16_Click()
  On Error Resume Next
  Shell "Rundll32 Shell32.dll,Control_RunDLL Intl.cpl,,0", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton17_Click()
  On Error Resume Next
  Shell "RunDll32.exe keymgr.dll,KRShowKeyMgr", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton18_Click()
  On Error Resume Next
  Shell "Rundll32 Shell32.dll,Control_RunDLL HotPlug.dll", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton19_Click()
  On Error Resume Next
  Shell "Rundll32 Shell32.dll,Control_RunDLL Mmsys.cpl,,0", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton2_Click()
  On Error Resume Next
  Shell "RunDll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,0", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton20_Click()
  On Error Resume Next
  Shell "Rundll32 Shell32.dll,Control_RunDLL Sysdm.cpl,,3", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton21_Click()
  On Error Resume Next
  Shell "RunDll32.exe shell32.dll,Options_RunDLL 1", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton22_Click()
  On Error Resume Next
  Shell "RunDll32.exe shell32.dll,Control_RunDLL nusrmgr.cpl", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton23_Click()
  On Error Resume Next
  Shell "RunDll32.exe shell32.dll,Control_RunDLL hotplug.dll", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton24_Click()
  On Error Resume Next
  Shell "RunDll32.exe shell32.dll,Control_RunDLL wscui.cpl", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton25_Click()
  On Error Resume Next
  Shell "RunDll32.exe shell32.dll,Control_RunDLL firewall.cpl", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton26_Click()
  On Error Resume Next
  Shell "RunDll32.exe shell32.dll,Control_RunDLL NetSetup.cpl,@0,WNSW", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton27_Click()
  On Error Resume Next
  Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 1", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton28_Click()
  On Error Resume Next
  Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 2", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton29_Click()
  On Error Resume Next
  Shell "rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1, Control_RunDLL", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton3_Click()
  On Error Resume Next
  Shell "RunDll32.exe shell32.dll, Control_RunDLL", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton30_Click()
  On Error Resume Next
  Shell "rundll32.exe shell32.dll, Control_RunDLL desk.cpl,, 1", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton31_Click()
  On Error Resume Next
  Shell "rundll32.exe shell32.dll, Control_RunDLL main.cpl @ 1", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton32_Click()
  On Error Resume Next
  Shell "rundll32.exe shell32.dll, Control_RunDLL main.cpl @ 1,, 1", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton33_Click()
  On Error Resume Next
  Shell "rundll32.exe shell32.dll, OpenAs_RunDLL {drive: \ path \ filename}", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton34_Click()
  On Error Resume Next
  Shell "rundll32.exe shell32.dll, Control_RunDLL intl.cpl,, 2", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton35_Click()
  On Error Resume Next
  Shell "rundll32.exe user.exe, restartwindows", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton36_Click()
  On Error Resume Next
  Shell "rundll32.exe user.exe, exitwindows", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton4_Click()
  On Error Resume Next
  Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 32", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton5_Click()
  On Error Resume Next
  Shell "RunDll32.exe shell32.dll,Control_RunDLL timedate.cpl", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton6_Click()
  On Error Resume Next
  Shell "RunDll32.exe shell32.dll,Control_RunDLL access.cpl,,3", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton7_Click()
  On Error Resume Next
  Shell "RunDll32.exe devmgr.dll DeviceManager_Execute", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton8_Click()
  On Error Resume Next
  Shell "RunDll32.exe shell32.dll,Options_RunDLL 0", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Private Sub CommandButton9_Click()
  On Error Resume Next
  Shell "RunDll32.exe keymgr.dll,PRShowSaveWizardExW", vbNormalFocus
  ShowControlPane4 = Err.Number = 0
End Sub

Demikian Semoga bermanfaat.
Sumber http://www.excel-id.com/