- 帖子
- 108
- 主題
- 23
- 精華
- 0
- 積分
- 140
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2013-11-2
- 最後登錄
- 2019-12-31
|
18#
發表於 2016-8-23 16:50
| 只看該作者
回復 14# 准提部林
大大不好意思 可以稍微在打擾一下問個小小問題嗎?
假設我原本顯示的儲存格(F:G)要改到別的儲存格(A:B)
是不是代表我只要改程式碼的紅色部份就好了呢?(如下)
Sub test()
Dim xF As Range, Shp As Shape, T$
[F:G].Clear
Set Shp = ActiveSheet.Shapes(Application.Caller)
T = Replace(Shp.TextFrame.Characters.Text, Chr(10), "")
Set xF = [工作表2!1:1].Find(T, Lookat:=xlWhole)
If xF Is Nothing Then MsgBox "找不到〔" & T & "〕櫃位資料！": Exit Sub
Range(xF, xF(65000, 1).End(xlUp)(1, 2)).Copy [F1]
End Sub |
|
發表於 2016-8-23 19:21
| 
