狀況:
因為常常要打估價單,該excel裡面有兩個sheet分別叫[估價單]、[單價]
由於每個客人的需求都有不一樣,常常要複製來複製去
目前作法是:
打開 單價sheet,滑鼠選取,複製,回到 估價單sheet貼上
過程實在有點繁瑣
今天嘗試使用最簡單的ahk寫法
先把 sheet單價需要的欄位複製起來,然後貼上
::c1::
(
品名 尺寸 單價 數量 折數 ....
)
開開心心的把十幾個品項都設定好hotkey...
但是事情沒有憨人想得這麼簡單,因為這樣輸入回去後,公式全部不見了
=====================================================================
上網估狗後,有看到一篇如下
#a::
; Gets a reference to the workbook
; Change the path to the path of your workbook
wbk := ComObjGet("C:\MyFolder\Book1.xlsx")
; Gets the value of cell 1, 1 (also known as cell A1) from Sheet1
A1Val := wbk.Sheets("Sheet1").Cells(1, 1).Value
SendInput, % A1Val
return
他這個方法試用過後是可以的,他讀取後存到一個變數,然後再貼上
但是最大問題是他讀取的只有 單個cell。可是我必須要有多個CELL
例如: 整行,或是A1-O1的值存到變數後再貼上
希望版上有人可以協助,感激不盡