°Ñ·ÓÀx¦s®æµù¸Ñ¦WºÙ°µ¥[Á`

myleoyes

¦U¦ì«e½ú§A­Ì¦n!
         «e½ú!°ÝÃD¦pªþÀÉ®×»¡©ú
         ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

Hsieh

¦^´_ 1# myleoyes

1. Sub aa()
   
2. Dim A As Range
   
3.     Range("A1:A2") = ""
   
4.     Z = Application.InputBox("½Ð¿é¤J´M§ä¦WºÙ", "¶µ¥Ø¦WºÙ", "¬ì§Þ", Type:=2)
   
5.     If Z = 0 Or Z = "" Then End
   
6.     Range("A1") = Z
   
7.     For Each A In Cells.SpecialCells(xlCellTypeComments)
   
8.        If Replace(A.Comment.Text, Chr(10), "") = Z Then cnt = cnt + A
   
9.     Next
   
10.     Range("A2").Value = cnt
    
11. End Sub

½Æ»s¥N½X

myleoyes

¦^´_ 2# Hsieh
hsieh«e½ú§A¦n!
       °¸¹³«e½ú!¥i¥HÁÂÁÂ!!½Ð¦A³Â·Ð¤@¤U
       ·íµ{¦¡§ä¤£¨ìA1ªº¦WºÙ®É
       µ{¦¡¦Û°Ê´£¥Ü"§ä¤£¨ì¦WºÙ"½Ð­«·s¿é¤J
       ÁÂÁ¦A¤T!!

oobird

If Replace(A.Comment.Text, Chr(10), "") = Z Then cnt = cnt + A
Next
if cnt=0 then magbox "§ä¤£¨ì¦WºÙ½Ð­«·s¿é¤J":end
Range("A2").Value = cnt

myleoyes

¦^´_ 4# oobird
oobird«e½ú§A¦n!
      «e½ú!!¥i¥HÅo!
      If cnt = 0 Then MsgBox "§ä¤£¨ì¦WºÙ½Ð­«·s¿é¤J": GoTo Again
      ÁÂÁ¦A¤T!!