µù¸Ñ¬°¦ó¦¸¼Æ¨ü­­©O?

myleoyes

¦U¦ì«e½ú§A­Ì¦n!!   
      ¦­¦w!
      ¬°¦ó?µù¸Ñ¥u®e³\9µ§©O?
      ¦pªþÀÉ»¡©ú
      ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!
     ¤W¯ZÅo!ÙTÙT!!

1. Sub ¼W¸êµù¸Ñ(µù¸Ñ As String)
   
2.     Dim S(), AR(), E As Variant, i As Integer, M As Variant
   
3.     With Range("G2")
   
4.         .NoteText .NoteText & IIf(.NoteText <> "", Chr(10), "") & µù¸Ñ
   
5.         i = 1
   
6.         For Each E In Split(.NoteText, vbLf)
   
7.              If E <> "" Then
   
8.                  ReDim Preserve S(1 To i)
   
9.                  S(i) = E
   
10.                  ReDim Preserve AR(1 To i)
    
11.                 AR(i) = CDbl(CDate(Split(E, "¼W¸ê")(0)))
    
12.                 i = i + 1
    
13.             End If
    
14.         Next
    
15.         For i = 1 To UBound(AR)
    
16.           M = Application.Large(AR, i)
    
17.           M = Application.Match(M, AR, 0)
    
18.             If i = 1 Then
    
19.                 .NoteText ""
    
20.                 .NoteText S(M)
    
21.             Else
    
22.                 .NoteText .NoteText & vbLf & S(M)
    
23.             End If
    
24.         Next
    
25.         .Comment.Shape.TextFrame.AutoSize = True
    
26.     End With
    
27.     [F2].Select '¼È­É¥Î
    
28. End Sub

½Æ»s¥N½X

myleoyes

¦^´_ 6# GBKEE
¨}®v!! ÁÂÁÂ!
         ¤£¦n·N«ä..¯uªº«Ü¤ï¶Õ°Õ!!
         ¤p§Ì²¨©¿Åo!¤SÅý§A¦£Ãa
         ²`·P©êºp....!!ÁÂÁ¦A¤T!!

GBKEE

¦^´_ 5# myleoyes
¦³¿ù·í§ï,¤£°÷²Ó¤ß

1. Dim S As Variant, E As Variant, A As Long
   
2.     S = Split([G2].Comment.Text, vbLf)

½Æ»s¥N½X

myleoyes

¦^´_ 4# GBKEE
¨}®v!!
     ÁöµMµù¸Ñ¥i¥H¼g¤J¦ý¥t¤@µ{¦¡ sub ¦X­p ( )ÁÙ¬O¨ü­­³Ì¦h9µ§
     ¦pªþÀÉLeoV73-2 »P LeoV73-2A»¡©ú
     ½Ð¦A­×§ïsub ¦X­p ( )¨¯­WÅo!ÁÂÁ¦A¤T!!

1. Sub ¼W¸êµù¸Ñ(µù¸Ñ As String)
   
2.     With Range("G2")
   
3.         If .Comment Is Nothing Then
   
4.            .NoteText .NoteText & IIf(.NoteText <> "", Chr(10), "") & µù¸Ñ
   
5.         ElseIf [G2] <> "" Then
   
6.            .Comment.Text .Comment.Text & IIf(.Comment.Text <> "", Chr(10), "") & µù¸Ñ
   
7.         End If
   
8.         .Comment.Shape.TextFrame.AutoSize = True
   
9.     End With
   
10. End Sub
    
11. Sub ¦X­p()
    
12.     [G1] = [G2].FormulaR1C1
    
13.     [G1].NumberFormatLocal = """¥x""""¹ô"""
    
14.     [G2].NumberFormatLocal = "#,##0_ ;[¬õ¦â]-#,##0 "
    
15.     Dim S As Variant, E As Variant, A As Long
    
16.     S = Split([G2].NoteText, vbLf)
    
17.     For Each E In S
    
18.         E = Replace(Replace(E, "¼W¸ê", ","), "¶×²v", ",")
    
19.         A = A + Val(Split(E, ",")(1)) * Val(Split(E, ",")(2))
    
20.     Next
    
21.     [G2] = A
    
22.     Application.OnTime Now + TimeValue("00:00:03"), "«ì´_"
    
23. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# myleoyes

­n·s¼W¨ìµù¸Ñ¤¤ªº¤å¦r (¤£¶W¹L 255 ­Ó¦r¤¸)
     ¹ê¤Ó¥i±¤¤]´N¬O»¡µL¸ÑÅo!
     ¥u¦n±N´NÂP!ÁÂÁ¦A¤T!!

«ç·|µL¸Ñ,¤£¬O§ï¦¨¦p¦¹

1.   .Comment.Text .Comment.Text & IIf(.Comment.Text <> "", Chr(10), "") & µù¸Ñ

½Æ»s¥N½X

myleoyes

¦^´_ 2# GBKEE
¨}®v!
     ­ìµ{¦¡¬O±N³Ì«á¼g¤Jªºµù¸Ñ©ñ¦b³Ì¤W­±
     ¥Øªº¬O¤è«K¤é«á¸ê®ÆÃe¤j®É
     ¤ñ¸û®e©ö¹ï±b¦ý
     «o¨ü­­ ¿ï¾Ü©Êªº Variant
     ­n·s¼W¨ìµù¸Ñ¤¤ªº¤å¦r (¤£¶W¹L 255 ­Ó¦r¤¸)
     ¹ê¤Ó¥i±¤¤]´N¬O»¡µL¸ÑÅo!
     ¥u¦n±N´NÂP!ÁÂÁ¦A¤T!!

GBKEE

¦^´_ 1# myleoyes
¸Ô¬Ý»¡©ú

1. NoteText ¤èªk
   
2. expression.NoteText(Text, Start, Length)
   
3. expression     ¥²¿ï¡C¸Ó¹Bºâ¦¡¶Ç¦^ Range ª«¥ó¡C
   
4. Text     ¿ï¾Ü©Êªº Variant¡C­n·s¼W¨ìµù¸Ñ¤¤ªº¤å¦r (¤£¶W¹L 255 ­Ó¦r¤¸)¡C

½Æ»s¥N½X

1. Sub ¼W¸êµù¸Ñ(µù¸Ñ As String)
   
2.     Dim S(), AR(), E As Variant, i As Integer, M As Variant
   
3.     With Range("G2")
   
4.         '.NoteText .NoteText & IIf(.NoteText <> "", Chr(10), "") & µù¸Ñ
   
5.         .Comment.Text .Comment.Text & IIf(.Comment.Text <> "", Chr(10), "") & µù¸Ñ
   
6.         .Comment.Shape.TextFrame.AutoSize = True
   
7.     End With
   
8.     [F2].Select '¼È­É¥Î
   
9. End Sub

½Æ»s¥N½X