- 帖子
- 396
- 主題
- 12
- 精華
- 0
- 積分
- 425
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2016
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台中
- 註冊時間
- 2013-7-2
- 最後登錄
- 2024-8-23
  
|
12#
發表於 2014-9-10 12:57
| 只看該作者
本帖最後由 owen06 於 2014-9-10 12:58 編輯
回復 11# patrickccs
如果想在其他工作表執行另一個工作表的內容，那就要在指令的範圍前面，加上明確的sheet名稱，才不會迷路。
例如
Private Sub CommandButton1_Click()
sheets("sheet1").[b15:G15].Clear
For Each mr In sheets("sheet1").Range("a2:a" & sheets("sheet1").[a1].End(4).Row)
If mr = sheets("sheet1").[a15] Then
tg = mr.Row
End If
On Error Resume Next
Next
For i = 2 To 7
sheets("sheet1").Cells(15, i) = sheets("sheet1").Cells(tg, i) - sheets("sheet1").Cells(tg - 1, i)
Next
End Sub |
|
