找到今天 之2

myleoyes

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

GBKEE

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

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

複製代碼

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

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

myleoyes

回復 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

回復 3# myleoyes

1. Sub 資料()
   
2.     Dim Rng As Range
   
3.     Set Rng = Sheet1.Cells.Find(Date, LookAt:=xlWhole)
   
4.     If Not Rng Is Nothing Then
   
5.         Sheet2.Range("AL7") = 1
   
6.         With Rng
   
7.             .Value = Sheet2.Cells(2, 3 + (Month(Date) - 1) * 3)
   
8.             .NumberFormat = "#"
   
9.         End With
   
10.     Else
    
11.         MsgBox "找不到今天"
    
12.     End If
    
13. End Sub

複製代碼

myleoyes

回復 4# GBKEE
GBKEE前輩你好!
　　　良師!謝謝!贊喔!簡潔有力
         辛苦囉,謝謝再三!!