½Ð°Ý¤@ӱƧÇÂà¸m¡]VBA¡^ªº°ÝÃD
- ©«¤l
- 102
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 137
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- 12
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-11-24
- ³Ì«áµn¿ý
- 2018-12-6
|
½Ð°Ý¤@ӱƧÇÂà¸m¡]VBA¡^ªº°ÝÃD
1.±q¸ê®ÆÀÉ(a1~a6)Âà¸m¦¨¿é¥XÀÉ(c1~c6)
2.¨Ò¦p¿é¥XÀɱqc1¹ïÀ³a1®É¡A¦^¥h´M§ä¸ê®ÆÀɹïÀ³Äæ¦ìµ¥©óa1b1¡A¦A¹ïÀ³¸ê®Æ®wªºÈ12¡AµM«áÅã¥Ü©óK7Äæ
3.¦bIÄæ²Îp¦U¦CȪºÁ`©M |
|
|
|
|
|
|
- ©«¤l
- 967
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 1001
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-11-29
- ³Ì«áµn¿ý
- 2022-5-17
|
¥»©«³Ì«á¥Ñ register313 ©ó 2011-12-6 23:06 ½s¿è
¦^´_ 1# tonycho33
ªì¾ÇªÌVBA- Sub zz()
- Sheets("Sheet1").Select
- Range("K6:Q17").ClearContents
-
- For I = 6 To 16 Step 2
- W = 11
- For J = 6 To 16 Step 2
- For K = 4 To 7
- If Cells(I, 10) = Cells(J + 1, K) Then
- Cells(I, W) = Cells(J, 3)
- S = Cells(J, 3) & Cells(J, K)
- Cells(I + 1, W) = WorksheetFunction.VLookup(S, Range("H22:I47"), 2, 0)
- W = W + 1
- GoTo 123
- End If
- Next K
- 123:
- Next J
- Next I
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 102
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 137
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- 12
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-11-24
- ³Ì«áµn¿ý
- 2018-12-6
|
¦^´_ 2# register313
½Ð°Ý¤§«e°Ñ¦Ò±zªºµ{¦¡¡Aµo²{¦n¹³¦pªG¥X²{«½Æ´NµLªk±Æ¡An¦p¦ó³B²z©O¡H
1.½Ð°Ý¦pªGn±q¸ê®ÆÀɤ¤ ¡A¥ý±qa1¡]c1,c1,c1,c1¡^¶¶§Ç¤U¨Ó¡A¦A¨Ó±Æa2±a¤J¿é¥XÀÉ
2.«½Æªº¤]¥i±Æ
3.vlookup¦pªG§ì¤£¨ìÈ¡A¥i¥H±a¤J0¶Ü |
|
Tony
|
|
|
|
|
- ©«¤l
- 967
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 1001
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-11-29
- ³Ì«áµn¿ý
- 2022-5-17
|
¥»©«³Ì«á¥Ñ register313 ©ó 2011-12-11 22:50 ½s¿è
¦^´_ 3# tonycho33
¦³µù¸Ñªº4ÓÀx¦s®æ ¦^¶ÇȤ£ª¾¬O§_¥¿½T- Sub zz()
- Sheets("Sheet1").Select
- Range("K6:AH17").ClearContents
- For I = 6 To 16 Step 2
- W = 11
- For J = 6 To 16 Step 2
- For K = 4 To 7
- If Cells(I, 10) = Cells(J + 1, K) Then
- Cells(I, W) = Cells(J, 3)
- S = Cells(J, 3) & Cells(J, K)
- For T = 22 To 47
- If S = Cells(T, 8) Then
- Cells(I + 1, W) = Cells(T, 9)
- W = W + 1
- GoTo 123
- End If
- Next T
- If Cells(I + 1, W) = "" Then
- Cells(I + 1, W) = 0
- W = W + 1
- End If
- End If
- 123:
- Next K
- Next J
- Next I
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|