ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¹ï¸Ü®Ø

¹ï¸Ü®Ø

¦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!!

Leov16.rar (15.11 KB)

¦U¦ì«e½ú§A­Ì¦n!
¡@¡@      «e½ú!°ÝÃD¦pªþÀÉ®×»¡©ú
          Sub µù¸Ñ()
             If Not ActiveCe ...
myleoyes µoªí©ó 2010-7-22 08:12



    °ÝÃD¤@:
§Aªº·N«ä¬O¦pªG¶µ¥Ø¦³ªF¦è, ´NÅã¥Ü­ì¨Óªº¹ï§a?
­º¥ý¦bWorksheet_SelectionChange¸Ñ°£¤@¤U
  1. If Target(1) = "" Then ¶µ¥Ø
  2. end if
½Æ»s¥N½X
ª½±µ¹B
  1. ¶µ¥Ø
½Æ»s¥N½X
µM«á§â¶µ¥Ø§ï¦¨¥H¤Uªº
  1. Sub ¶µ¥Ø()
  2.        Dim Z As string
  3.        If ActiveCell <> "" Then
  4.             z = ActiveCell
  5.         Else
  6.             z = "¦­¦w¡I"
  7.         End If
  8.        Z = ActiveCell.value
  9.        Z = Application.InputBox("½Ð¿é¤J¶µ¥Ø¦WºÙ", , z, Type:=2)
  10.        ActiveCell.value = z
  11.        ActiveCell.Offset(, 1).Select
  12. End Sub
½Æ»s¥N½X
°ÝÃD¤G: (¤p§Ì¤È¶º®É¶¡§Ö¹L , ¼È´£¨Ñ¥N½X, ¦³»Ý­nªº¸Ü¤µ±ß¦A¸ÑÄÀ¸ÑÄÀ)
  1. Sub µù¸Ñ()
  2.         If Not ActiveCell.Comment Is Nothing Then
  3.             ZZ = InputBox("½Ð¿é¤Jªþµù", , ActiveCell.Comment.Text)
  4.         Else
  5.             ZZ = InputBox("½Ð¿é¤Jªþµù", , "")
  6.             ActiveCell.AddComment
  7.         End If
  8.         ActiveCell.Comment.Text Text:=ZZ
  9. End Sub
½Æ»s¥N½X
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¦^´_ 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. Sub µù¸Ñ()
  20.         If ActiveCell.Comment Is Nothing Then ActiveCell.AddComment
  21.         ZZ = InputBox("½Ð¿é¤Jªþµù", , ActiveCell.Comment.Text)
  22.         If ZZ = "" Then ActiveCell.Comment.Delete: Exit Sub
  23.         ActiveCell.Comment.Text Text:=ZZ
  24. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# GBKEE
kimbal«e½ú§A¦n!
       «e½ú!ÁÂÁÂ!¶µ¥Øµ{¦¡§A¥i¯à»~¸Ñ,
       ³o¸Ì¬O¬ù§ô¹ï¸Ü®Ø¥u±µ¨ü¤å¦r¿é¤J!
       ¦Óµù¸Ñ¬O¦b©ó¤£¯d¥Õ
       ¦]¬°ªÅ¥Õµù¸Ñ¬OµL²§Ä³ªº
       ¦p¨}®vªºµ{¦¡´N¬O¤p§Ìªº»Ý¨D
       ÁÂÁ¦A¤T!!!

GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!ÁÂÁÂ!¶µ¥Øµ{¦¡»P¤p§Ìªº»Ý¨D
         ¦³¥X¤J,·í¹ï¸Ü®Ø¿é¤J¼Æ¦r®É
         À³¸Ó¬OAgain ¦Ó«DExit
         «ö¨ú®ø¤~¬OÂ÷¶}½Ð¦A¨¯­W¤@¤UÁÂÁ¦A¤T!!

TOP

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

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

TOP

¦^´_ 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!!

TOP

¦^´_ 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

TOP

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

Leov17.rar (14.44 KB)

TOP

¥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

TOP

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD