[µo°Ý] §Ú­n§ì¶i¥X¨÷°Óªº¸ê®Æ¡A¦ýexcel¤@ª½Åã¥Ü­I´º°õ¦æ§ó·s¤¤

kekl

¦U¦ì¦n
§Ú­è¶}©l¾Ç²ß¨Ï¥Îexcel¥¨¶°¨Ó§ìªÑ²¼ªº¸ê°T¡A³Ìªñ¹J¨ì¤@­Ó°ÝÃD¤@ª½µLªk¸Ñ¨M
§Ú¤@¦¸­n§ì50­ÓªÑ²¼ªº¨÷°Ó¶i¥X¸ê°T(¥Îfor & next)¡A¨÷°Ó¸ê®Æ¬O¶×¨ìexcel°µ§ó·sªº
¦ý¬O²Ä¤@µ§¸ê®Æ§ì§¹«á¡A´«¤U¤@µ§®É¨÷°Ó¸ê®Æªº­¶­±´NµLªk¦Û°Ê§ó·s¡A«ü¥O´N°±  "[¥D¤O¶i¥X!A5].QueryTable.Refresh BackgroundQuery:=False"¡Cexce«hl¬OÅã¥Ü  "§@·~µLªk°õ¦æ¡A¦]¬°¸ê®Æ¥¿¦b­I´º°õ¦æ§ó·s¤¤"
³Â·Ð¦U¦ìÀ°§Ú¬Ý³o¬O¬Æ»ò°ÝÃD......ÁÂÁ¤j®aªºÀ°¦£

kekl

¦^´_ 5# f3202


    ÁÂÁ«e½úªº«ü¾É:)

f3202

¦^´_ 4# kekl

¥D¦]À³¸Ó¬O
  Sheets("¨÷°Ó").Select
ActiveWorkbook.RefreshAll  
³o­Ó°Ê§@

kekl

¦^´_ 4# f3202


   ÁÂÁ«e½úªº­q¥¿¡Aµ{¦¡ok¤F¡A¸U¤À·PÁ¦]¬°¥d¦n¤[¤F
   ¦ý¬O·Q½Ð°ÝµLªk§ó·sªº°ÝÃD¥D­n¬O¦b­þ¸Ì?¬OªÑ²¼¥N½Xªº¨ú¥X¦³°ÝÃD¶Ü?

f3202

[code][/code]¦^´_ 3# kekl

°Ñ¦Ò
Public Sub ¿ïªÑ()
Dim I As Integer
Sheets("½æ¶W¿ïªÑ").Select
[b3:c53] = ""
For Z = 3 To 52
Cells(Z, 2).Value = Val(Cells(Z, 1).Value)
Next
For I = 3 To 52
Sheets("¥D¤O¶i¥X").Select
Range("A2").Value = Sheets("½æ¶W¿ïªÑ").Cells(I, 2).Value

[¥D¤O¶i¥X!A5].QueryTable.Refresh BackgroundQuery:=False
Sheets("¨÷°Ó").Select
For a = 2 To 28
Cells(a, 2).Select
ActiveCell.FormulaR1C1 = "=IFERROR(MATCH(RC[-1],¥D¤O¶i¥X!C[5],0),"""")"
Next a
Sheets("½æ¶W¿ïªÑ").Select
Cells(I, 3).Select
ActiveCell.FormulaR1C1 = "=COUNT(¨÷°Ó!C[-1])"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Next
End Sub

kekl

¦^´_ 2# sunnyso

ÁÂÁ«e½úªº¦^ÂÐ
¥D­n¬O¦b"¥D¤O¶i¥X"ªº¨º­Ó¤À­¶¡A¥u­n±NªÑ²¼¥N½Xcopy¹L¥h´N¨S¦³¿ìªk¦Û°Ê§ó·s