找到今天之2

各位前輩你們好!
前輩!問題如附檔案說明
請知道的前輩,不吝賜教謝謝再三!!

Leov28.rar (13.84 KB)

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2010-8-26 20:41 | 只看該作者

回復 1# myleoyes
問題二複製至Sheet1的資料需求是數值(９)

Sub 資料()
With Sheet2
.Range("AL7") = 1
Sheet1.Range("A2") = .Cells(2, 3 + (Month(Date) - 1) * 3)
End With
End Sub

複製代碼

SHEET1 中說到  前輩!B8應該是數值９!! 不是A2嗎??

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Application.EnableEvents = False '工作表的觸動事件程序中宜加上此程式碼 停止物件的觸發事件
'
'
Application.EnableEvents = True    '恢復'物件的觸發事件
End Sub

TOP

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

3^#

發表於 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是找到今天的鈕?
   而不是答案的位置
      請再辛苦前輩囉,謝謝再三!!

TOP

GBKEE