Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False '工作表的觸動事件程序中宜加上 此程式碼 停止物件的觸發事件
'
'
Application.EnableEvents = True '恢復'物件的觸發事件
End Sub作者: myleoyes 時間: 2010-8-26 22:20
回復 2#GBKEE
GBKEE前輩你好!
良師!謝謝! 你誤解不是A2
A2是找到今天的按鈕
所以資料程式有誤,應該這樣解釋
按資料鈕將X2的文字變成
屬於今天的總和數字,再複製
到Sheet1工作表屬於今天的位置
也就是B8的位置,所以B8=9
但是小弟拼湊的程式執行後B8=數據
所以Sub 數字()
ActiveCell.Copy
Sheet1.Select
Range("A2").Select
ActiveSheet.Paste
End Sub
應該是這樣子Sub 數字()
ActiveCell.Copy
With Sheet1
Set Rng = .Cells.Find(Date, LookAt:=xlWhole)
.Select
If Not Rng Is Nothing Then Rng.Select Else MsgBox "找不到今天"
End With
ActiveSheet.Paste
End Sub
因此Range("A2").Select是找到今天的鈕?
而不是答案的位置
請再辛苦前輩囉,謝謝再三!!作者: GBKEE 時間: 2010-8-27 07:01