ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó§Q¥Î®Ö¨ú¤è¶ô°µ¼Æ¶q¥[Á`­pºâ

¦^´_ 9# luke
·|¬O 2007 ª© ¤£±µ¨üÅܼƥΤ¤¤å³]©w¶Ü?
½Ð§A±N "°Ï°ì" ³o¤¤¤åÅÜ¼Æ §ï¦¨ ­^¤å "xlWord" ¸Õ¸Õ¬Ý

TOP

¦^´_ 10# Hsieh

ÁÂÁÂH¤j
   
­Ysheet1ªí®Ö¨ú¤è¶ô¤¤¦h¤F¥N½XE001©M¥N½XD01¦³·s¼Wªº®Æ¸¹¦WºÙ
¦pD0012, E0001©ME0002¨Ã¤£¦s¦bsheet1ªí¤¤®É

¦p¦ó±N³o¨Ç·s¼W®Æ¸¹/¦WºÙ/¼Æ¶q
°µ¤Ä¿ï¥[Á`®É,¤@¨ÖÂà¨ìsheet2ªí¤º

·Ð½Ð¥ý¶i ¤j¤j«ü¾É
TEST13C.rar (24.56 KB)

TOP

¦^´_ 12# luke
  1. Sub ex()
  2. Dim sp As Shape, A As Range
  3. Set d = CreateObject("Scripting.Dictionary")
  4. Set d1 = CreateObject("Scripting.Dictionary")

  5. With sheet1
  6. For Each sp In .Shapes
  7. If sp.Name Like "Check*" Then
  8.   If sp.OLEFormat.Object.Value = 1 Then d(sp.OLEFormat.Object.Caption) = 0
  9. End If
  10. Next
  11. For Each A In .Range(.[A10], .[A10].End(xlDown))
  12. If d.exists(A.Value) = True Then d1(A.Offset(, 1) & "," & A.Offset(, 2)) = d1(A.Offset(, 1) & "," & A.Offset(, 2)) + A.Offset(, 3)
  13. Next
  14. End With
  15. With sheet2
  16. For Each A In .Range(.[A2], .[A2].End(xlDown))
  17.   A.Offset(, 3) = A.Offset(, 2) + d1(A & "," & A.Offset(, 1))
  18.   d1.Remove A & "," & A.Offset(, 1)
  19. Next
  20. For Each ky In d1.keys
  21.   Set A = .Cells(.Rows.Count, 1).End(xlUp).Offset(1)
  22.   A.Resize(, 2) = Split(ky, ","): A.Offset(, 3) = d1(ky)
  23. Next
  24. End With
  25. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 11# GBKEE


    ¦^ÂÐG¤j

    ±N "°Ï°ì" ³o¤¤¤åÅÜ¼Æ §ï¦¨ ­^¤å "xlWord" ¤´µLªkµ²¨M


     ¥H¤W

TOP

TEST13D.rar (44.58 KB) ¦^´_ 13# Hsieh

ÁÂÁÂ H¤j

sheet1ªíFÄæ¥Ü·s¼W§@sheetªí§PÂ_
¥N½XA=sheet2ªí
¥N½XB=sheet3ªí
¥N½XC=sheet4ªí

·í¤Ä¿ï®Ö¨ú¤è¶ô«á, ·Q±qsheet1ªíFÄæ©Ò¹ïÀ³ªº¥N½X,
¦P®É¹ïsheet2ªí,sheet3ªí©Msheet4ªí
¶i¦æ¦X¨Ö¥[Á`¨Ã±N¸Ó®Æ¸¹/¦WºÙªº¼Æ¶q
¥H¬õ¦â¼Ð¥Ü
¦p¦Uªí©Ò¥Ü¦ì¸m

·Ð½Ð¥ý¶i ¤j¤j«ü¾É

TOP

¦^´_ 14# luke
¥i§_±N®M¥Î§Úªºµ{§ÇÀɮפW¶Ç¬Ý¬Ý

TOP

¦^´_ 15# luke
  1. Sub ex()
  2. Dim Mystr$, A As Range
  3. Set d = CreateObject("Scripting.Dictionary")
  4. With sheet1
  5. For Each sp In .Shapes
  6. If sp.Name Like "Check*" Then
  7.   If sp.OLEFormat.Object.Value = 1 Then Mystr = Mystr & "," & sp.OLEFormat.Object.Caption
  8. End If
  9. Next
  10. For Each A In .Range(.[A10], .[A10].End(xlDown))
  11. k = Asc(A.Offset(, 5)) - 63
  12.   If InStr(Mystr, A) > 0 Then
  13.     d(k & "," & A.Offset(, 1) & "," & A.Offset(, 2)) = d(k & "," & A.Offset(, 1) & "," & A.Offset(, 2)) + A.Offset(, 3)
  14.   End If
  15. Next
  16. End With

  17. For i = 2 To 4
  18. With Sheets(i)
  19. For Each A In .Range(.[A2], .[A2].End(xlDown))
  20.    A.Offset(, 3) = A.Offset(, 2) + d(i & "," & A & "," & A.Offset(, 1))
  21.    d.Remove i & "," & A & "," & A.Offset(, 1)
  22. Next
  23. End With
  24. Next
  25. For Each ky In d.keys
  26. ar = Split(ky, ",")
  27. With Sheets(CInt(ar(0)))
  28. Set A = .[A1].End(xlDown).Offset(1, 0)
  29. A = ar(1): A.Offset(, 1) = ar(2): A.Offset(, 3) = d(ky)
  30. End With
  31. Next
  32. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 16# GBKEE


    ¦^!ÂÐG¤j

     ­ì½Xµ{¦¡Àɧt¿ý»sªºGIF°Êµe¦pªþ¥ó
       TEST13-2.rar (385.43 KB)

TOP

¦^´_ 17# Hsieh

ÁÂÁÂH¤j

·ísheet2ªí¦Ü sheet4ªí¥ô¤@¤u§@ªí¤¤A:CÄ欰ªÅ¥ÕÄæ®É, ±j¨î°õ¦æ°Ê§@®É¶¡«×ªø¦p¤W¹Ïsheeet4ªí¬O¤@±iªÅ¥Õ¤u§@ªí®É, ¹q¸£¬O§_¯à°÷§PÂ_¥hÅã¥Ü¸Ósheet4ªí¬°ªÅ¥Õªí®æ¨Ãµ¹¤©´£¥Ü«H®§¦p"¥Ø«esheeet4ªíªÅ¥ÕµL¸ê®Æ".

­ìµ{¦¡¬qµ²§ô«e, ¤p§Ì¥[¤Fsheet2ªí¦Üsheet4ªí®Æ¸¹¦WºÙªº¼Æ¶q¤£¬Ûµ¥®É¸Ó¼Æ¦r¥H¬õ¦â¼Ð¥Ü, ¬O§_¥i¥H²¤Æµ{¦¡?

¦p¦ó¨¾¤îsheet2ªí¦Üsheet4ªíªÅ¥Õ¿ù»~©M²¤Æ¼Æ¶q¤£¬Û¦P®É¥Î¬õ¦â¼Ð¥Ü¥X¨Ó?
TEST13D-1.rar (23.44 KB)

TOP

¦^´_ 18# luke
½Ð°Ý ¨º¨Ç±±¨î¶µ §A¦³ ±N ¥¨¶° «ü©w¨ì³oµ{§Ç¶Ü?
¦p¹Ï ¡@

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD