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

[µo°Ý] ¨Ì®Æ¸¹¶ñ¤J¸ê®Æ

[µo°Ý] ¨Ì®Æ¸¹¶ñ¤J¸ê®Æ

¤j¤j¦n,

·s¤ë¤u§@ªíE:JÄæ,¥H®Æ¸¹¬°¨Ì¾Ú,­n§ì¨ú"¤ñ"¤u§@ªíªº¸ê®Æ
¤G­Ó¤u§@ªí¸ê®Æ³£·|¦³¼W¥[or´î¤Ö,¸ê®Æ±`­n§ó·s
"¤ñ"¤u§@ªí¬O¸ê®Æ¨Ó·½,·í¨ä¸ê®Æ¬°ªÅ¥Õ®É,"·s¤ë"¤u§@ªí¦P®Æ¸¹ªºÄæ¦ì=ªÅ¥Õ

¦p¦ó¼g¤G­Óµ{¦¡,¹F¦¨¦p"·s¤ë"¤u§@ªí E:JÄæ ¤w¶ñ¤J¸ê®Æªºµ²ªG?
¨Ì®Æ¸¹¶ñ¤J¸ê®Æ.rar (30.57 KB)

µ{¦¡I
"·s¤ë"¤u§@ªíE:G
AÄæ®Æ¸¹= "¤ñ"¤u§@ªíEÄæ®Æ¸¹®É,«h¥N¤J¥H¤U¸ê®Æ
"·s¤ë" EÄæ = "¤ñ" IÄæ
"·s¤ë" FÄæ = "¤ñ" JÄæ
"·s¤ë" GÄæ = "¤ñ" P

µ{¦¡II
"·s¤ë"¤u§@ªíI:J
¨ÌAÄæ®Æ¸¹= "¤ñ"¤u§@ªíEÄæ®Æ¸¹,«h
1)
"¤ñ"¤u§@ªíAKÄæ=1or3 ...«h  "·s¤ë" IÄæ="V"
"¤ñ"¤u§@ªíAKÄæ=2 ...«h  "·s¤ë" IÄæ="O"
2)
"¤ñ"¤u§@ªíANÄæ>0 ...«h  "·s¤ë" JÄæ="V"

¦^´_ 1# PJChen

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr, xD, T$, i&
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([¤ñ!an1], [¤ñ!e63356].End(3))
For i = 4 To UBound(Arr)
    T = Arr(i, 1)
    xD(T) = Array(Arr(i, 5), Arr(i, 6), Arr(i, 12), Arr(i, 16), Arr(i, 33), Arr(i, 36))
Next
With Sheets("·s¤ë")
Arr = .Range(.[j1], .[a63356].End(3))
For i = 4 To UBound(Arr)
    T = Arr(i, 1)
    If xD.Exists(T) Then
        Arr(i, 5) = xD(T)(0): Arr(i, 6) = xD(T)(1): Arr(i, 7) = xD(T)(2)
        If xD(T)(4) <> "" Then Arr(i, 9) = IIf(xD(T)(4) Mod 2, "V", "O")
        Arr(i, 10) = IIf(xD(T)(5) > 0, "V", "")
    End If
Next
    .[a1].Resize(UBound(Arr), 10) = Arr
End With
End Sub

TOP

¦^´_ 2# samwang

ÁÂÁÂSam
´ú¸ÕOK

TOP

Sub TEST_A1()
Dim Arr, Brr, xD, i&, j%, R&, V
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([¤ñ!an1], [¤ñ!e63356].End(3)(2))  '½d³ò--¦V¤U¦h¨ú¤@¦æªÅ¥Õ¦C, ­Y¤ñ¹ï¤£¨ì´N§Q¥Î³o¦æ¶ñ¤JªÅ¥Õ  
For i = 4 To UBound(Arr) - 1
    xD(Arr(i, 1) & "") = i:  V = Arr(i, 33)
    If V > 0 Then Arr(i, 33) = IIf(V Mod 2, "V", "O")
    Arr(i, 36) = IIf(Arr(i, 36) > 0, "V", "")
Next
Brr = Range([·s¤ë!j1], [·s¤ë!a63356].End(3))
For i = 4 To UBound(Brr)
    R = xD(Brr(i, 1) & ""): If R = 0 Then R = UBound(Arr)
    For j = 1 To 6
        Brr(i - 3, j) = Arr(R, Array(5, 6, 12, 16, 33, 36)(j - 1))
    Next j
101: Next i
[·s¤ë!e4].Resize(UBound(Brr) - 3, 6) = Brr
End Sub

TOP

¦^´_ 4# ­ã´£³¡ªL
­ã¤j¦n,
·s¤ë¤u§@ªíHÄæ"Âk¦ì"­ì¥»¬OªÅ¥Õ,
¦ý°õ¦æ«á·|¶ñ¤J¤@¨Ç¼Æ¦r,¤£¹L§Ú§ä¤£¨ì¼Æ¦rªº¥Ñ¨Ó,
½ÐÀ°¦£¬Ý¤U?
    ¨Ì®Æ¸¹¶ñ¤J¸ê®Æ.rar (25.62 KB)

TOP

¦^´_ 5# PJChen

¥¦¬O§ì"TÄæ"--"¦aÂI²Î­p", ­Y¤£­n, §ï¤U
For j = 1 To 6
     IF j <> 4 then  Brr(i - 3, j) = Arr(R, Array(5, 6, 12, "", 33, 36)(j - 1))
Next j

TOP

¦^´_ 6# ­ã´£³¡ªL

­ã¤j¦n,
§Ú·Q¦b·s¤ë!KÄæ ¶ñ¤J¸ê®Æ
KÄæ=¤ñ!OÄæ
½Ð°Ýµ{¦¡­n«ç»ò­×§ï?
¨Ì®Æ¸¹¶ñ¤J¸ê®Æ.rar (23.29 KB)

TOP

¦^´_ 7# PJChen


Brr = Range([·s¤ë!K1], [·s¤ë!a63356].End(3))
For i = 4 To UBound(Brr)
    R = xD(Brr(i, 1) & ""): If R = 0 Then R = UBound(Arr)
     For j = 1 To 7
         If j <> 4 Then Brr(i - 3, j) = Arr(R, Array(5, 14, 12, "", 33, 36, 11)(j - 1))
     Next
     Brr(i - 3, 4) = ""
Next i
[·s¤ë!e4].Resize(UBound(Brr) - 3, 7) = Brr

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD