Tampilkan postingan dengan label msgbox if. Tampilkan semua postingan
Tampilkan postingan dengan label msgbox if. Tampilkan semua postingan

Kamis, 22 November 2012

Message box dengan timer pada AHK

Kegunaan message box pada AHK sebagai perantara loncatan dari windows ke windows berikutnya. Tapi msgbox biasa tidak bisa lanjut kecuali di tekan enter atau spasi. Eh ternyata ada msgbox dengan waktu atau timer. Jadi messagebox dengan waktu atau timer ini atau pendeknya kusebut saja msgbox timer ini berfungsi sebagai informasi di tengah jalannya program macro desktop. Info ditengah proses ini bukan informasi biasa tapi info dengan pilihan dan pernyataan, bahwa sudah selesai proses pertama mau dan akan dilanjutkan ke proses kedua lalu ada pertanyaan apakah semua bahan sudah siap kalau sudah siap klik OK atau biarkan msgbox 2 s/d 4 detik maka proses kedua akan lanjut otomatis. Dan ada alternative kalau belum siap dilanjutkan

Selasa, 20 November 2012

Menggunakan dim dan filename untuk referensi cell

Dim digunakan pada macro agar kode nama atau istilah tertentu bisa dimasukkan dan dikenali dalam macro. Pertama Dim kita tentukan dulu menjadi jenis apa, bisa string/huruf atau integer/bilangan atau lainnya. Kedua kita definisikan atau kita beri nilai mengacu kemana?

Untuk referensi cell dalam macro bisa menggunakan define name dan bisa juga

Selasa, 21 Juni 2011

Message box menentukan yes or no atau jalankan atau tidak.

Dalam suatu perhitungan atau penggunaan macro ada kalanya kita dihadapkan dengan dua kondisi yang memerlukan keputusan kita yes or no (jalankan atau tidak ). Sehingga walau proses macro otomatis dijalankan kita perlu menentukan apakah proses dilanjutkan atau tidak.

Bagaimana caranya membuat macro untuk message box dengan yes or no (jalankan atau tidak) :
Contoh macro :
Dim Answer As String

Dim MyNote As String



'Place your text here
MyNote = "Cek dulu apakah sudah benar atau belum, kalau sudah tekan yes ?"

'Display MessageBox
Answer = MsgBox(MyNote, vbQuestion + vbYesNo, "perhitungan belum benar, ulang lagi dari awal")



If Answer = vbYes Then

Application.Run _


"Lanjutkan_ke_tahap_ke_dua"



Else

'Code for No button Press

MsgBox "perhitungan belum benar, ulang lagi dari awal!"

End If

Page View