GBKEE

¦^´_ 1# myleoyes

1. Sub ¶µ¥Ø()
   
2.        Dim Z, Msg As Boolean
   
3.        Z = Application.InputBox("½Ð¿é¤J¶µ¥Ø¦WºÙ", , "¦­¦w¡I", Type:=2)
   
4.        If Z <> False Then
   
5.             Msg = False
   
6.             For I = 1 To Len(Z)
   
7.                 If Mid(Z, I, 1) Like "[!0-9]" Then Msg = True: Exit For '§P©w¬O¦r¦ê
   
8.             Next
   
9.             If Msg Then
   
10.                 ActiveCell = Z
    
11.             Else
    
12.                 ActiveCell = ""
    
13.             End If
    
14.        ElseIf Z = False Then
    
15.             ActiveCell = ""
    
16.        End If
    
17.        ActiveCell.Offset(, 1).Select
    
18. End Sub
    
19. 
    
20. Sub µù¸Ñ()
    
21.         If ActiveCell.Comment Is Nothing Then ActiveCell.AddComment
    
22.         ZZ = InputBox("½Ð¿é¤Jªþµù", , ActiveCell.Comment.Text)
    
23.         If ZZ = "" Then ActiveCell.Comment.Delete: Exit Sub
    
24.         ActiveCell.Comment.Text Text:=ZZ
    
25. End Sub

½Æ»s¥N½X

GBKEE

¦³¥X¤J,·í¹ï¸Ü®Ø¿é¤J¼Æ¦r®É
         À³¸Ó¬OAgain ¦Ó«DExit
         «ö¨ú®ø¤~¬OÂ÷¶}myleoyes µoªí©ó 2010-7-22 22:11

À³¸Ó¬OAgain ¨º´N¨Ï¥Î Go To  Again
«ö¨ú®ø ->=False  §A¥i¥H¸ÕµÛ­×§ï°Ú

GBKEE

¦^´_ 6# myleoyes

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     With Target(1)
   
3.         If .Row >= 3 And .Row <= 200 And .Column >= 2 And .Column <= 100 Then
   
4.            If .Column Mod 3 = 0 And .Value = "" Then ¶µ¥Ø         'CÄæ
   
5.        If (.Column - 1) Mod 3 = 0 Then                        'DÄæ
   
6.           If .Value = "" Then ¼Æ¾Ú Else µù¸Ñ
   
7.        End If
   
8.         End If
   
9.     End With
   
10. End SubSub ¶µ¥Ø()
    
11.     Dim Z, Tile$, Msg As Boolean 'Msg ¹w³]¬O False
    
12.     Tile = "½Ð¿é¤J¶µ¥Ø¦WºÙ"
    
13. Again:
    
14.     Z = Application.InputBox(Tile, , "¦­¦w¡I", Type:=2)
    
15.     If Z <> False Then
    
16.         For I = 1 To Len(Z)
    
17.             If Mid(Z, I, 1) Like "[!0-9]" Then Msg = True: Exit For
    
18.         Next
    
19.         If Msg = True Then 'Msg = True ¬O¦r¦ê
    
20.             ActiveCell = Z
    
21.         Else               '§P©w«D¦r¦ê
    
22.             Tile = "½Ð¿é¤J¶µ¥Ø¦WºÙ -- ¥²¶·¬O¤å¦r "
    
23.             GoTo Again
    
24.         End If
    
25.     ElseIf Z = False Then  '«ö¤U¨ú®ø
    
26.         ActiveCell = ""
    
27.     End If
    
28.     ActiveCell.Offset(, 1).Select
    
29. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 8# myleoyes

1. Sub ³sÄò()
   
2.      Dim F As Range
   
3.      With Sheet1
   
4.         .Select
   
5.         Set F = .Rows(1).Find(Month(Date) & "¤ë", LookIn:=xlValues)
   
6.         If F(Rows.Count, 1).End(xlUp) <> Date Then F(Rows.Count, 1).End(xlUp)(2, 1) = Date
   
7.       End With
   
8.    ' ¤é´Á
   
9. End Sub
   
10. Sub ¤é´Á()
    
11.     If Month(Cells(1, Selection.Column)) = Month(Date) Then Selection = Date
    
12. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 11# myleoyes
F(Rows.Count, 1).End(xlUp)(2, 1) = Date   '  µ¹ª«¥ó­È
F(Rows.Count, 1).End(xlUp)(2, 1).Select     '  ª«¥óªº¤èªk