Code: Select all
#IfWinActive, ahk_class XLMAIN
!c::
try
{
Values := []
for Cell, in ComObjActive("Excel.Application").Selection
Values.Push(Cell.Text) ;
}
catch
{
clipsave := ClipboardAll ; Mảng Save
Clipboard := "" ; Clipboard data
send ^c
ClipWait, 2
clipcopy := Clipboard
Clipboard := clipsave
if (clipcopy)
Values := StrSplit(clipcopy, "`t", "`r`n")
clipsave := clipcopy := "" ; gán trường clipboard vào
}
if !(Values.length())
MsgBox, 48, No Selection, No cells copied!
return
#If
!v::
Loop{
if (Values.length())
{
SendInput, % Values.RemoveAt(1); THIS IS INPUTDATA WHEN PASTE IS SLOW
sleep 100
send {tab}
SendInput, % Values.RemoveAt(1); THIS IS INPUTDATA WHEN PASTE IS SLOW
sleep 100
send {tab 4}
sleep 500
send {Enter}
sleep 500
send {tab 5}
sleep 500
}
else
{
MsgBox, 48, End of Range, End of Data. ; Kết thúc dòng hiện thông báo
Values := ""
break
}
}
return
https://youtube.com/shorts/F1x5XblKan4?feature=share
Thank you guy !