buka blank file excel, jalankan scrip ctrl+e
^e::
WinActivate, ahk_class XLMAIN
xl := ComObjActive("Excel.Application")
value := xl.Range("A1").Value
if value= apakah masih ada?
xl.Worksheets("Sheet1").Range("B1").Value := "ada, minat?"
else
MsgBox Error
exitapp
0 komentar:
Posting Komentar