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

[µo°Ý] ¦p¦ó¦Û°Ê¿ï¨ú¬Û¦Pªº²Õ¦X

[µo°Ý] ¦p¦ó¦Û°Ê¿ï¨ú¬Û¦Pªº²Õ¦X

±NB²Õ»PA²Õ¦³¬Û¦PªºPT²Õ¦X(PT1-PT8)¿ï¥X¨Ó¡A¦A§âB²Õ¬ÛÃöªº¤À¼ÆÅã¥Ü¦bPÄæ¡A½Ð±Ð¤j¤j¦p¦ó¼g¤~¯à°µ¨ì?ÁÂÁÂ!
TEST A.rar (8.41 KB)

Åwªï·s¦P¾Ç¡I
  1. Sub test()
  2.     Dim d As Object, a As Range, b As Range, i%, x$
  3.     Set d = CreateObject("Scripting.Dictionary")
  4.     Set b = [r7:ac18]
  5.     For i = 1 To b.Rows.Count
  6.         x = Join(Application.Transpose(Application.Transpose(b(i, 5).Resize(, 8))), ",")
  7.         d(x) = b(i, 1)
  8.     Next
  9.     Set a = [h7:o18]
  10.     For i = 1 To a.Rows.Count
  11.         x = Join(Application.Transpose(Application.Transpose(a(i, 1).Resize(, 8))), ",")
  12.         If d.exists(x) Then a(i, 9).Value = d(x)
  13.     Next
  14. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ donod ©ó 2012-2-26 11:15 ½s¿è

¦^´_ 2# oobird


    ÁÂÁ¤j¤j¦^ÂÐ!
¹ê»Ú¤u§@®É¡A¦³¦h­Ó¤u§@­¶¡A¥i§_¨C­Ó¤u§@­¶¥[¤J¦h­Ó"¿ï¾Ü½d³ò«ö¶s"¡A½Ð°Ý¦p¦ó¼g¤~¥i¥H?ÁÂÁÂ!
TEST A2.rar (10.11 KB)

TOP

¦^´_ 3# donod
¹ê»Ú¤u§@®É¡A¦³¦h­Ó¤u§@­¶
§AÁ|ªº½d¨Ò¤£¬O¦h­Ó¤u§@­¶

TOP

¥»©«³Ì«á¥Ñ donod ©ó 2012-2-26 12:26 ½s¿è

¦^´_ 4# GBKEE


    ¹ï¤£°_!¬O§Ú»¡¤£²M·¡!
¬O«ü·|­«½Æ¼W¶}¤u§@­¶¡A¦Ó¤u§@¤º®e¤j¬ùÃþ¦P(½d¨Ò¥Î¤F¬Û¦P¤º®e)¡A³£¬O¦U²Õ°t¹ïA²Õ¡C½Ð±Ð¤j¤j¦p¦ó¼g¤~°µ¨ì¡C
TEST A3.rar (19.7 KB)

TOP

¦^´_ 5# donod
½Ð½Æ»s¨ìThisWorkbook¼Ò²Õ¤º
  1. 'ThisWorkbook ªº¹w³]¨Æ¥ó
  2. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  3.     Dim xX As Integer, Ar(), A As Range, B As Range, i As Integer, x As Variant
  4.     With Sh
  5.         If Target.Address(0, 0) = "P7" Then         '¿ï¾Ü¤F P7
  6.             Set B = .Range("T10:AE21")              '¨î­q B ²Õ(¤À¼Æ- PT8) ½d³ò
  7.             xX = 0                                  ' PÄæ
  8.         ElseIf Target.Address(0, 0) = "Q7" Then     '¿ï¾Ü¤F Q7
  9.             Set B = .Range("AH10:AS21")             '¨î­q C²Õ(¤À¼Æ-PT8) ½d³ò
  10.             xX = 1                                  ' PÄæ ¥k²¾¤@Äæ :QÄæ
  11.         ElseIf Target.Address(0, 0) = "R7" Then     '¿ï¾Ü¤F R7
  12.             Set B = .Range("AV10:BG21")             '¨î­q D²Õ(¤À¼Æ-PT8) ½d³ò
  13.             xX = 2                                  ' PÄæ ¥k²¾¤GÄæ :RÄæ
  14.         Else
  15.             Exit Sub                                 'Â÷¶}µ{§Ç
  16.         End If
  17.         Set A = .Range("H10:O21")                   '¨î­q A ²Õ(PT1-PT8) ½d³ò
  18.         A.Interior.ColorIndex = xlNone              '²M°£A ²Õ(PT1-PT8) ½d³ò¹Ï¼Ë
  19.         B.Interior.ColorIndex = xlNone               '²M°£B ,C , D. ²Õ ½d³ò¹Ï¼Ë
  20.         ReDim Ar(1 To A.Rows.Count)                 '­«·s«Å§i °}¦Cªººû¼Æ
  21.         For i = 1 To B.Rows.Count                   '¨ú±oB,C,D,²Õªº (PT1-PT8) ªº¤º®e  ¸m¤J°}¦C Ar
  22.             Ar(i) = Join(Application.Transpose(Application.Transpose(B(i, 5).Resize(, 8))), ",")
  23.         Next
  24.         For i = 1 To A.Rows.Count
  25.             x = Join(Application.Transpose(Application.Transpose(A(i, 1).Resize(, 8))), ",")
  26.             x = Application.Match(x, Ar, 0)         '¤u§@ªí¨ç¼ÆMatch ¦bAr´M§ä ¬Û¦P¦r¦ê
  27.             A(i, 9 + xX) = ""                       '²M°£
  28.             If Not IsError(x) Then                  '§ä¨ì¶Ç¦^¼Æ¦r
  29.                 B(x, 5).Resize(, 8).Interior.ColorIndex = 6
  30.                 A(i, 1).Resize(, 8).Interior.ColorIndex = 6
  31.                 A(i, 9 + xX) = B(x, 1)               'B,C,D,²Õªº¤À¼Æ
  32.             End If
  33.         Next
  34.     End With
  35. End Sub
½Æ»s¥N½X

TOP

¦^´_ 6# GBKEE


    ¥i¥H¤F!·PÁ¤j¤j²Ó¤ßÁ¿¸Ñ!

TOP

¥»©«³Ì«á¥Ñ donod ©ó 2012-2-27 17:13 ½s¿è

¦^´_ 6# GBKEE


   22.    Ar(i) = Join(Application.Transpose(Application.Transpose(B(i, 5).Resize(, 8))), ",")
½Ð±Ð¤j¤j¥H¤W¤½¦¡¬O¤°»ò·N«ä?B(i, 5)¬O«ü­þ¨Ç¦ì¸m?ÁÂÁÂ!

TOP

¦^´_ 8# donod
¦p Set  B=[B2]
B(2, 5) = B.Cells(2, 5) =B.Offset(1, 4) =[F3]
-> B.Cells(2, 5)  ->§tB2 ªº¦ì¸m    ¦V¤U¦ì²¾2¦C  :  ¦V¥k¦ì²¾5Äæ    =[F3]
-> B.Offset(1, 4)->¤£§tB2 ªº¦ì¸m  ¦V¤U¦ì²¾1¦C  :   ¦V¥k¦ì²¾4Äæ  =[F3]

TOP

¦^´_ 9# GBKEE


    ©ú¥Õ¤F¡AÁÂÁÂ!

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD