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

½Ð°Ý¤@­Ó±Æ§ÇÂà¸m¡]VBA¡^ªº°ÝÃD

½Ð°Ý¤@­Ó±Æ§ÇÂà¸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

Âà¸m±Æ§Ç.rar (2.79 KB)

¥»©«³Ì«á¥Ñ register313 ©ó 2011-12-6 23:06 ½s¿è

¦^´_ 1# tonycho33
  
ªì¾ÇªÌVBA
  1. Sub zz()

  2. Sheets("Sheet1").Select
  3. Range("K6:Q17").ClearContents
  4.    
  5. For I = 6 To 16 Step 2
  6.   W = 11
  7.   For J = 6 To 16 Step 2
  8.     For K = 4 To 7
  9.       If Cells(I, 10) = Cells(J + 1, K) Then
  10.          Cells(I, W) = Cells(J, 3)
  11.          S = Cells(J, 3) & Cells(J, K)
  12.          Cells(I + 1, W) = WorksheetFunction.VLookup(S, Range("H22:I47"), 2, 0)
  13.          W = W + 1
  14.          GoTo 123
  15.       End If
  16.     Next K
  17. 123:
  18.   Next J
  19. Next I

  20. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# register313


    ½Ð°Ý¤§«e°Ñ¦Ò±zªºµ{¦¡¡Aµo²{¦n¹³¦pªG¥X²{­«½Æ´NµLªk±Æ¡A­n¦p¦ó³B²z©O¡H
1.½Ð°Ý¦pªG­n±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¶Ü

Âà¸m±Æ§Ç.rar (8.4 KB)

Tony

TOP

¥»©«³Ì«á¥Ñ register313 ©ó 2011-12-11 22:50 ½s¿è

¦^´_ 3# tonycho33


    ¦³µù¸Ñªº4­ÓÀx¦s®æ ¦^¶Ç­È¤£ª¾¬O§_¥¿½T
  1. Sub zz()
  2. Sheets("Sheet1").Select
  3. Range("K6:AH17").ClearContents
  4. For I = 6 To 16 Step 2
  5.   W = 11
  6.   For J = 6 To 16 Step 2
  7.     For K = 4 To 7
  8.       If Cells(I, 10) = Cells(J + 1, K) Then
  9.          Cells(I, W) = Cells(J, 3)
  10.          S = Cells(J, 3) & Cells(J, K)
  11.          For T = 22 To 47
  12.            If S = Cells(T, 8) Then
  13.               Cells(I + 1, W) = Cells(T, 9)
  14.               W = W + 1
  15.               GoTo 123
  16.            End If
  17.          Next T
  18.          If Cells(I + 1, W) = "" Then
  19.             Cells(I + 1, W) = 0
  20.             W = W + 1
  21.          End If
  22.       End If
  23. 123:
  24.      Next K
  25.   Next J
  26. Next I
  27. End Sub
½Æ»s¥N½X

Âà¸m±Æ§Ç1.zip (9.82 KB)

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD