faye59

¦^´_ 1# s13983037


    [µo°Ý] ¦p¦ó¹ê²{,Àx¦s®æ¤º®e§ïÅÜ,´N·|IJµoVBAµ{§Ç°õ¦æ
½Ð°Ñ¦Ò¡I

faye59

¦^´_ 3# s13983037


    §Ú¥ý¥Î¨ì³o¤F...
½Ð±Ð¨ä¥L¤j¯«¦£­×§ï§a...¹L´X¤Ñ§Ú¦b¹Á¸Õ¬Ý¬Ý...
¥ý¸Õ¸Õ¬Ý¬O¤£¬O³oÁ`Ãþ¦üªºµ²ªG¡A
¸õ¹LªÅ®æ§PÂ_³o­Ó§Ú¤]¤£¬O«ÜÀ´...

[µo°Ý] Calculate¡A¯à§_¦^¶Çµo¥ÍÅܰʪºÀx¦s®æªºÄæ¦ì
§ÚÁÙ¦b°Ñ¦Ò³o½g¤å³¹¬Ý­n«ç»ò§ï¡C

faye59

¦^´_ 3# s13983037


    ¤µ¤Ñ¬Ý¨ì¨ä¥L°ª¤âªº¼gªk¡A­×§ï«á¬Ý¬O¤£¬O§A­nªºµ²ªG¡C

faye59

¦^´_ 6# s13983037


    ¬O.rar¨S¿ùªü¡C
§ÚªºWinRARª©¥»5.60(64¦ì¤¸)

faye59

¦^´_ 6# s13983037

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Intersect(Target, [B5:K14]) Is Nothing Then Exit Sub
   
3.     ex
   
4. End Sub

½Æ»s¥N½X

1. Sub ex()
   
2. Dim Out As Variant
   
3. For n = 5 To 16
   
4. Out = Array(Cells(n, 3), Cells(n, 4), Cells(n, 5), Cells(n, 6), Cells(n, 7), Cells(n, 8), Cells(n, 9), Cells(n, 10), Cells(n, 11))
   
5. ub = UBound(Out)
   
6. For i = 0 To ub
   
7. If Out(i) <> "" Then: OutAll = OutAll & "." & Out(i)
   
8. Next
   
9. Cells(n, 13) = Mid(OutAll, 2, 99)
   
10. OutAll = ""
    
11. Next
    
12. End Sub

½Æ»s¥N½X