AHK Excel Cara Copy Paste, select, insert, block dan isi CELL Range

AHK Excel Cara Copy Paste,  select, insert,  block dan isi CELL Range - Rumus AHK excel sengaja saya  kumpulkan ketika kami ingin mengunakanya saya hanya melihat tulisan ini sebagai rujukan untuk memecahkan problem dalam Code AHK tersebut, perlu di pahami code murupakan hal yang rumit bagi para pelajar namun sebenarnya adalah hal yang penting dalam efesiensi waktu karena hal tersebut kami mau tidak mau harus memecahakan code code tersebut demi efesiensi waktu dalam memechakan kode kode script tersebut.

setelah kita temukan masalah dalam AHK tersebut kami memecahkan code dasar excek dan membaginya menurut kriteria penting dalam code tersebut mari kita lihat beberapa kode penting ketika kita ingin menjalankan robot AHK sesuai dengan keinginan kita 

PENULISAN DALAM CELL RANGE 

^e::

WinActivate, ahk_class XLMAIN

xl :=	ComObjActive("Excel.Application")
value :=	xl.Range("A1").Value
if	value=

    xl.Worksheets("Sheet1").Range("B2").Value := "Test"

else

	MsgBox No

exitapp
exitappExitAppS↓

Kode di atas akan menulis di dalam range B2 denga isi ( value test )  hal ini terjadi jika range A1 terjadi blank atau kosong maka akan secara otomatis robot AHK akan menulis di cell B2 ketika A1 terisi maka akan terjadi pesan No

 PENULISAN IF KETIKA A1 BLANK

^e::

WinActivate, ahk_class XLMAIN

AHKxl :=	ComObjActive("Excel.Application")
value :=	AHKxl.Range("A1").Value
if	(value=""){

    AHKxl.Worksheets("Sheet1").Range("B2").Value := "Test"

}
else
{
	MsgBox jika tidak kosong di A1
}
exitapp
ExitAppS↓

Dalam methode ini nilai blank pada value bisa anda isi sesui dengan maksud dan perintah anda dalam menjalankan bot tersebut 

 PENULISAN KETIKA A1 TERISI TULISAN CODE

^e::

WinActivate, ahk_class XLMAIN

AHKxl :=	ComObjActive("Excel.Application")
value :=	AHKxl.Range("A1").Value
if	(value="code"){

    AHKxl.Worksheets("Sheet1").Range("B2").Value := "code"

}
else
{
	MsgBox jika di A1 bukan tulisan code
}
exitapp
ExitAppS↓

Dalam script di atas bisa kita gambarkan ketika A1 ada tulusa code maka akan secara otomatis cell B2 terisi dengan tulisan code dan ketika A1 kosong maka akan muncul pesan dari MsgBox

 PENULISAN BLOCK CELL RANGE SELEKSI

^e::

WinActivate, ahk_class XLMAIN

xl :=	ComObjActive("Excel.Application")
value :=	xl.Range("A1").Value
if	(value=""){

    xl.ActiveCell.Offset(-3, 3).Range("A1:C9").Select

}
else
{
	MsgBox jika A1 kosong maka akan menyeleksi g19 samapi i19
}
exitapp
ExitAppS↓

Dari code dimaksud tersebut bisa kita gambarkan seperti ini ketika A1 kosong maka akan terjadi seleksi di dalam range A1:C9 dengan offset yaitu -3,3 dan menghasilkan nilai seleksi data di cell tersebut 

 PENULISAN SINTAX COPY PASTE CELL

^e::

WinActivate, ahk_class XLMAIN

xl :=	ComObjActive("Excel.Application")
value :=	xl.Range("A1").Value
if	(value=""){

    xl.Range("B2").Select
    xl.Selection.Copy
    xl.Range("E2").Select
    xl.ActiveSheet.Paste

}
else
{
	MsgBox jika di A1 kosong maka akan terjadi copy di B2 dan paste di E2
}
exitapp
ExitAppS↓

Dari code tersebut kita akan melakukan eksekusi data dengan AHK yaitu akan mengcopy data di B2 dan paste di E2 itupun terjadi bila A1 sama dengan kosong atau BLANK data 

 PENULISAN BLOCK BARIS KE 2:2

^e::

WinActivate, ahk_class XLMAIN

xl :=	ComObjActive("Excel.Application")
value :=	xl.Range("A1").Value
if	(value=""){

xl.Rows("2:2").Select

}
else
{
	MsgBox jika di A1 kosong seleksi baris 2:2
exitapp
ExitAppS↓

Dari code di atas adalah sebuah Code AHK untuk melakukan seleksi masal yaitu baris 2 yang terblock secara keseluruhan 

  PENULISAN MENAMBAHKAN /MENYISIPKAN BARIS DI 2:2

^e::

WinActivate, ahk_class XLMAIN

xl :=	ComObjActive("Excel.Application")
value :=	xl.Range("A1").Value
if	(value=""){

    xl.Rows("2:2").Select
    xl.Selection.Insert 
    xl.Shift:=xlDown

}
else
{
	MsgBox jika di A1 kosong menyisipan baris di 2:2
exitapp
ExitAppS↓

Dari code dimaksud tersebut kita akan menyisipkan sebuah baris baru di 2:2 dengan ktriteria baris baris baru yang nantinya baris sebelumnya akan pindah kebawah 

PENULISAN SELEKSI KOLOM B:B

^e::

WinActivate, ahk_class XLMAIN

xl :=	ComObjActive("Excel.Application")
value :=	xl.Range("A1").Value
if	(value=""){

     xl.Columns("B:B").Select
}
else
{
	MsgBox jika di A1 kosong seleksi kolom B:B
exitapp
ExitAppS↓

Dari kode tersebut akan menyeleksi kolom yaitu kolom dari range B:B dan anda juga bisa mengganti B:B tersebut dengan misal B:D seleksinya dari B ke D dengan block semua nomer 

RANGKUMAN PENULISAN SEMUA NOMER DIMAKSUD

^e::

WinActivate, ahk_class XLMAIN

xl :=	ComObjActive("Excel.Application")
value :=	xl.Range("A1").Value
if	(value="ayam"){

    xl.Worksheets("Sheet1").Range("B2").Value := "Test"
    xl.Worksheets("Sheet1").Range("B10").select
    xl.ActiveCell.Offset(-3, 3).Range("A1:C9").Select
    xl.Range("B2").Select
    xl.Selection.Copy
    xl.Range("E2").Select
    xl.ActiveSheet.Paste
    xl.Rows("2:2").Select
    xl.Selection.Insert 
    xl.Shift:=xlDown
    xl.Columns("B:B").Select

}
else
{
	MsgBox No
}
exitapp
ExitAppS↓

Kode kode di atas sengaja saya kumpulkan di bawah untuk rujukan kami dalam olah data terutama ketika kita ingin menyelesaikan pekerjaan excel dengan cepat dengan media AHK, meskipun excel punya macro tetap AHK di butuhkan karena ruang VBA terbatas terutama ketika di sandingkan denga WEB atau data yang berkaitan dengan PC agar pekerjaan kita lebih mudah dan efesien 

oke cukup sekia Salam 

Share this post