GBKEE

¦^´_ 1# myleoyes
°ÝÃD¤G  ½Æ»s¦ÜSheet1ªº¸ê®Æ»Ý¨D¬O¼Æ­È(¢¸)   

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

½Æ»s¥N½X

SHEET1 ¤¤»¡¨ì  «e½ú!B8À³¸Ó¬O¼Æ­È¢¸!!    ¤£¬OA2¶Ü??

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     Application.EnableEvents = False   '¤u§@ªíªºÄ²°Ê¨Æ¥óµ{§Ç¤¤©y¥[¤W ¦¹µ{¦¡½X °±¤îª«¥óªºÄ²µo¨Æ¥ó  
    '
    '      
    Application.EnableEvents = True      '«ì´_'ª«¥óªºÄ²µo¨Æ¥ó
End Sub

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

½Æ»s¥N½X