- 帖子
- 463
- 主題
- 116
- 精華
- 0
- 積分
- 580
- 點名
- 0
- 作業系統
- Vista
- 軟體版本
- 2007
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-4
- 最後登錄
- 2017-11-13
 
|
回復 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是找到今天的鈕?
而不是答案的位置
請再辛苦前輩囉,謝謝再三!! |
|
發表於 2010-8-26 11:42
| 
