¹ï¸Ü®Ø

myleoyes

¦U¦ì«e½ú§A­Ì¦n!
¡@¡@      «e½ú!°ÝÃD¦pªþÀÉ®×»¡©ú
          Sub µù¸Ñ()
             If Not ActiveCell.Comment Is Nothing Then
               ZZ = InputBox("½Ð¿é¤Jªþµù", , ActiveCell.Comment.Text)
             End If
               On Error Resume Next
               ActiveCell.AddComment
               ActiveCell.Comment.Text Text:=ZZ
          End Sub
          ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

myleoyes

¦^´_ 13# GBKEE
GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!ÁÂÁÂ!!¨¯­WÅo!!

GBKEE

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

myleoyes

¦^´_ 11# myleoyes
luhpro«e½ú§A¦n!
¡@¡@¡@¡@ «e½ú!ÁÂÁÂ!¯uªº¥i¥H­C!!
         ¤ï¶Õ!!¤j²´·ú¤@ª½¦b¦£¨S¦³ª`·N¨ì
         §Aªº³Ç§@ÁÂÁ¦A¤T!!

myleoyes

¦^´_ 10# GBKEE
GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!ÁÂÁÂ!µ{¦¡»Ý¨D
         Sub ³sÄò()
            Dim F As Range
              With Sheet1
              .Select
              Set F = .Rows(1).Find(Month(Date) & "¤ë", LookIn:=xlValues)
              F(Rows.Count, 1).End(xlUp)(2, 1) = Date
            End With
        End Sub
        ¦ýµ{¦¡¨Ã¨S¦³±N·Æ¹«¶¶«K±a¤W¤é´Áªº¦ì¸m
        ¦]¬°·Æ¹«ªº¦ì¸m¬O°õ¦æ¤U­Óµ{¦¡ªº«ö¶s
        ¦AªþÀɰѦҬݬݽЦA¨¯­WÅo!!ÁÂÁ¦A¤T!!

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

luhpro

¥u­n§ï¨º¦æ´N¥i¥H¤F :

.Range("AF" & Rows.Count).End(xlUp)(2, 1).Select

§ï¦¨

.Cells(Rows.Count, 2 + (Month(Date) - 1) * 5).End(xlUp)(2, 1).Select

myleoyes

¦^´_ 7# GBKEE
GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!ÁÂÁÂ!¨¯­W§AÅo!
         ¤ï¶Õ!!½Ð¦A¨¯­W¤@¤U³o­ÓÀÉ®×
         µ{¦¡¬°¦ó?½Ð¤£§[½ç±ÐÁÂÁ¦A¤T!!

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

myleoyes

¦^´_ 5# GBKEE
GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!ÁÂÁÂ!¤ï¶Õ°Õ!¤§«e¦³§ï¹L´N¬O¤£¦æ
         ¦]¬°³o­Ó(«ö¨ú®ø ->=False)ÃöÁäÅý¤p§Ì²×©ó·Q¨ì
         Sub ¶µ¥Ø()
          Dim Z, Msg As Boolean
          Again:
             Z = Application.InputBox("½Ð¿é¤J¶µ¥Ø¦WºÙ", , "¦­¦w¡I", Type:=2)
                 For I = 1 To Len(Z)
                If Mid(Z, I, 1) Like "[!0-9]" Then Msg = True: '§P©w¬O¦r¦ê
              Next
              If Z < False Then GoTo Again
              If Z >= False Then ActiveCell = Z
              If Z = False Then ActiveCell = ""
              ActiveCell.Offset(, 1).Select
          End Sub
          ÁÂÁ¦A¤T!!