¦X­pµù¸Ñ¤º®e

myleoyes

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

GBKEE

¦^´_ 1# myleoyes

1. Sub Á`­p()
   
2.     Dim S As Variant, E As Variant, A As Long
   
3.     S = Split([g2].NoteText, vbLf)
   
4.     For Each E In S
   
5.         E = Replace(Replace(E, "¼W¸ê", ","), "¶×²v", ",")
   
6.         A = A + Val(Split(E, ",")(1)) * Val(Split(E, ",")(2))
   
7.     Next
   
8.     [g2] = A
   
9.     Application.OnTime Now + TimeValue("00:00:03"), "«ì´_"
   
10. End Sub

½Æ»s¥N½X

myleoyes

¦^´_ 2# GBKEE
¨}®v!ÁÂÁ¦A¤T!!
        ¦A³Â·Ð³o­ÓªþÀÉ¥i¯à¤ñ¸û½ÆÂø¨Ç
       ½Ð­@¤ß¬Ý¬Ý¨¯­WÅo!ÁÂÁ¦A¤T!!

GBKEE

¦^´_ 3# myleoyes

1. Sub ¤ÀªR()
   
2.     Dim ZZ As Integer, E As Range
   
3.     ZZ = Application.InputBox("¿é¤J¼Æ¦r", "        ½Ð¿é¤J¼Æ¾Ú", Type:=1)  '¼Æ¦rªºType:=1
   
4.     If ZZ = 0 Then Exit Sub
   
5.     For Each E In Selection   'Àˬd ¿ï¾Ü½d³ò ¬O§_¦b"Eøó" ¥B ¤£¬°ªÅ¥ÕªºÀx¦s®æ
   
6.         If Mid(E.Address(0, 0), 1, 1) <> "E" Or E = "" Then Exit Sub
   
7.     Next
   
8.     Range("AN3:AN" & Range("E3").End(xlDown).Row) = ""
   
9.     [G1] = Application.Sum(Selection.Offset(, 2))
   
10.     Selection.Offset(, 35) = ZZ
    
11.     [M1] = Application.Sum(Selection.Offset(, 8))
    
12. End Sub

½Æ»s¥N½X

myleoyes

¦^´_ 4# GBKEE
¨}®v!ÁÂÁ¦A¤T!!
     µ{¦¡¦b¨ú®ø¸Ü®Ø¿é¤J¼Æ¦r®É¦³»~
     ¤p§Ì­×§ï¦pªþÀÉ»¡©ú
     ¦Ü©ó'¼Æ¦rªºType:=1¬G·N§ï¬°Type:=2
     ¤è«K¨â¤â¨Ã¥Î©Ò¥H·íIf ZZ <= 0 Or ZZ = "" Then
     [G1] = Evaluate("=SUMIF($E$3:$E$400," & Selection.Address & ",$G$3:$G$400)")
     [M1] = Evaluate("=SUMIF($E$3:$E$300," & Selection.Address & ",$M$3:$M$400)")
     ¤£¦n·N«ä¦A³Â·Ð³o­ÓªþÀÉ
     ¨¯­WÅo!ÁÂÁ¦A¤T!!

GBKEE

¦^´_ 5# myleoyes
5# ªþÀÉ»P 5#ªº¤º®e(­×§ï«á¥i¦æ´N¦n),¨S¦³ÃöÁp

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.         '.NoteText .NoteText & IIf(.NoteText <> "", Chr(10), "") & µù¸Ñ
    
26.         .Comment.Shape.TextFrame.AutoSize = True
    
27.     End With
    
28. End Sub

½Æ»s¥N½X

myleoyes

¦^´_ 6# GBKEE
¨}®v!¨¯­W§AÅo¤£³Ó·P¿EÁÂÁ¦A¤T!!
     ¤p§Ì¦b¦¹¶¶¯¬§A»P®a¤H
     ¤¤¬î¸`§Ö¼Ö....¨Æ¨Æ¦p·N
     ¦P®É¤]¯¬ºÖ¦U¦ìª©¥D»P¦U¦ì«e½ú­Ì!
     ¤¤¬î¸`§Ö¼Ö....¬ü¹Ú¦¨¯u!!