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

[µo°Ý] A¸ê®Æ®w¨Ì­ì«hÂà¸mB¸ê®Æ®w-°ÝÃD´M°Ý

[µo°Ý] A¸ê®Æ®w¨Ì­ì«hÂà¸mB¸ê®Æ®w-°ÝÃD´M°Ý

dear all ¤j¤j
1.¦p¹Ï¤@°ÝÃD.«e½ú¸Ñµª¦p¹Ï¤G
1.1 ¨Ò ¥HNET10¬°¨Ò  ²£¥Í  NET10:A01-A02    NET10:A01-A03   
            ¥HNET13¬°¨Ò  ²£¥Í  NET13:A01-A02    NET13:A01-A03   NET13:A01-A04
2.°ÝÃDÂI¦p¤U-¦p¹Ï¤T­YBÄæ«D A01  A02 A03«¬ºA. ¦Ó¬O¥þ³¡¬°A01
   ¦ý¤´¥H²Ä¤@²Õ  A01¬°°ò·Ç.»P¨ä¥L¦PNET A01¦P¹Ï¤T­ì«h.½Ð°Ý¹Ï¤Gµ{¦¡¦p¦ó­×§ï
1.1 ¨Ò ¥HNET10¬°¨Ò  ²£¥Í  NET10:­º²ÕA01-²Ä2²ÕA01    NET10:­º²ÕA01-²Ä3²ÕA01   
            ¥HNET13¬°¨Ò  ²£¥Í  NET13:­º²ÕA01-²Ä2²ÕA00    NET13:­º²ÕA01-²Ä3²ÕA01   NET13:­º²ÕA01-²Ä4²ÕA01
3.·Ð¤£§[½ç±Ð  THNKS*10000
¹Ï¤@
DEAR ALL ¤j¤j
1.A¸ê®Æ®w¨Ì­ì«hÂà¸mB¸ê®Æ®w-°ÝÃD´M°Ý »¡©ú¦p¤U (¤½¥q¹q¸£-µLªk¤W¶ÇÀÉ®×SORRY)
2.SHEET1 ¸ê®Æ¦p¤U
RANGE("A1")=NET10        RANGE("B1")=A01     RANGE("C1")=1        RANGE("D1")=1
RANGE("A2")=NET10        RANGE("B2")=A02     RANGE("C2")=2        RANGE("D2")=2  
RANGE("A3")=NET10        RANGE("B3")=A03     RANGE("C3")=3        RANGE("D3")=3  
RANGE("A6")=NET13        RANGE("B6")=A01     RANGE("C6")=4        RANGE("D6")=4  
RANGE("A7")=NET13        RANGE("B7")=A02     RANGE("C7")=5        RANGE("D7")=5  
RANGE("A8")=NET13        RANGE("B8")=A03     RANGE("C8")=6        RANGE("D8")=6  
RANGE("A9")=NET13        RANGE("B9")=A04     RANGE("C9")=7        RANGE("D9")=7  
2.1 ­ì«h1  AÄæ¦P¤º®e¬°¦P¤@²Õ (¨Ò :  NET10¬°¦P¤@²Õ NET13¬°¦P¤@²Õ )
      ­ì«h2  BÄæ A01¬°¥DKEY. »P «DA01 °t²ÕÂà¸m·sSHEET2.
¹Ï¤G
Sub TEST()
Dim Arr, Brr, xD, i&, T$, U, a, b, N&
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([Sheet1!d1], [Sheet1!a65536].End(3))
For i = 1 To UBound(Arr)
     T = Arr(i, 1) & IIf(Arr(i, 2) = "A01", "", "|")
     xD(T) = Trim(xD(T) & " " & i)
Next i
ReDim Brr(1 To 30000, 1 To 4)
For Each U In xD.keys
     If xD(U & "|") = "" Then GoTo 101
     For Each a In Split(xD(U), " ")
     For Each b In Split(xD(U & "|"), " ")
         N = N + 2
         For i = 1 To 4
             Brr(N - 1, i) = Arr(a, i)
             Brr(N, i) = Arr(b, i)
         Next
     Next
     Next
101:  Next
[Sheet2!A1:D1].Resize(N) = Brr
End Sub
¹Ï¤T
DEAR ALL ¤j¤j
1.A¸ê®Æ®w¨Ì­ì«hÂà¸mB¸ê®Æ®w-°ÝÃD´M°Ý »¡©ú¦p¤U (¤½¥q¹q¸£-µLªk¤W¶ÇÀÉ®×SORRY)
2.SHEET1 ¸ê®Æ¦p¤U
RANGE("A1")=NET10        RANGE("B1")=A01     RANGE("C1")=1        RANGE("D1")=1
RANGE("A2")=NET10        RANGE("B2")=A01     RANGE("C2")=2        RANGE("D2")=2  
RANGE("A3")=NET10        RANGE("B3")=A01     RANGE("C3")=3        RANGE("D3")=3  
RANGE("A6")=NET13        RANGE("B6")=A01     RANGE("C6")=4        RANGE("D6")=4  
RANGE("A7")=NET13        RANGE("B7")=A01     RANGE("C7")=5        RANGE("D7")=5  
RANGE("A8")=NET13        RANGE("B8")=A01     RANGE("C8")=6        RANGE("D8")=6  
RANGE("A9")=NET13        RANGE("B9")=A01     RANGE("C9")=7        RANGE("D9")=7  
2.1 ­ì«h1  AÄæ¦P¤º®e¬°¦P¤@²Õ (¨Ò :  NET10¬°¦P¤@²Õ NET13¬°¦P¤@²Õ )
      ­ì«h2  BÄæ²Ä¤@­Ó A01¬°¥DKEY. »P ¨ä¾lA01 °t²ÕÂà¸m·sSHEET2.
ù

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD