kimbal

¦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