Excel VBA ½Ð¯q II

zz0660

¤U¸ü (117.69 KB)

2021-7-24 16:48

¤U¸ü (206.28 KB)

2021-7-24 16:48

AAªí³æC1¬°¤U©Ô¦¡¿ï³æ¡A¸Ì­±¦³¤T­Ó¹Ï¥Ü·Q°µ¦¨«ö¶s¡A¤À§O¹ïÀ³QQªí³æªºT1 & T2 & T3¸ê®Æ¡C
¥D­n¬O¤µ¤Ñ·Q¦bQQªí³æªºT1¸ê®Æ¡A¿é¤J¼Æ¾Ú¡AµM«á¥u­n±qAAªí³æ«öT1ªº«ö¶s¡A´N¯àª½±µ¿é¤J¼Æ¾Ú¡A¦Ó¤£¥²¸õ¨ìQQªí³æ¤ºµM«á¿é¤J¸ê®Æ¡C

¦b¦¹´£¨ÑÀɮסC
BTT.rar (26.55 KB)

¤U¸ü¦¸¼Æ: 7

2021-7-24 16:54

samwang

¦^´_ 1# zz0660

¬O³o¼Ë¶Ü?

Sub test_T1()
Dim Arr, T, T1, i&, j&
T = Sheets("AA").Range("c1")
Ar = Sheets("AA").Range("b3:i19")
With Sheets("QQ")
     Arr = .Range("a1:h" & .[b65536].End(3).Row) 'T1   T1,T2,T3½Ð¦Û¦æ¿ï¾Ü§ó´«
    'Arr = .Range("j1:q" & .[k65536].End(3).Row) 'T2
     'Arr = .Range("s1:z" & .[t65536].End(3).Row) 'T3
     For i = 1 To UBound(Arr) Step 19
         T1 = Arr(i, 2): If T1 = "" Then GoTo 99
         If T1 = T Then
             .Cells(i, 1).Offset(1).Resize(16, 8).Value = Ar
             Exit Sub
         End If
99:   Next
End With
End Sub

zz0660

¦^´_ 2# samwang

µ{¦¡¥i¥H¡A¦ý¤µ¤Ñ·Q§â«ö¶s´«¦¨¤U©Ô¦¡¿ï³æªº¤è¦¡§e²{¡A¦pC1 & D1 ­Ó§O¬°¤U©Ô¦¡¿ï³æ¡C

¤U¸ü (12.54 KB)

2021-7-28 09:52

½Ð°Ý¸Ó¦p¦ó­×§ï©O?¡AÁÂÁÂ!

zz0660

¦^´_ 2# samwang

Sub test_T1()
Dim Arr, T,U ,T1, i&, j&
T = Sheets("AA").Range("c1")
U = Sheets("AA").Range("d1")
Ar = Sheets("AA").Range("b3:i19")
With Sheets("QQ")
     Arr = .Range("a1:h" & .[b65536].End(3).Row) 'T1   T1,T2,T3½Ð¦Û¦æ¿ï¾Ü§ó´«
    'Arr = .Range("j1:q" & .[k65536].End(3).Row) 'T2
     'Arr = .Range("s1:z" & .[t65536].End(3).Row) 'T3
     For i = 1 To UBound(Arr) Step 19
         T1 = Arr(i, 2): If T1 = "" Then GoTo 99
         If T1 = T Then
             .Cells(i, 1).Offset(1).Resize(16, 8).Value = Ar
             Exit Sub
         End If
99:   Next
End With
End Sub

±µ¤U¨Ó´N¤£ª¾¹D«ç»ò¥Î¡A¤£ª¾¹D¬O¤£¬O³o¼Ë§ï¡C

samwang

¦^´_ 4# zz0660

¤£¦n·N«ä¡A¥i§_½Ð¸ÑÄÀ¸Ô²Ó¤@ÂI¡AÁÂÁÂ

zz0660

¦^´_ 5# samwang


    ±z¦n¡A²{¦b·Q§â«ö¶s´«¦¨¤U©Ô¦¡¿ï³æªº¤è¦¡¡A·íd1Äæ¦ìŪ¨ú¨ì¿ï³æ¤º®e¬°T1¡A´N·|Åã¥ÜQQªí³æªº¬Û¹ïÀ³¦ì¸m¡C

samwang

¦^´_ 6# zz0660

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test_T1()
Dim Arr, T, xR, T1, i&, j&, xC%
With Sheets("AA")
    T = .Range("c1"): xR = .Range("d1")
    Ar = .Range("b3:i19")
End With
With Sheets("QQ")
    If xR = "T1" Then
        Arr = .Range("a1:h" & .[b65536].End(3).Row): xC = 0 'T1
    ElseIf xR = "T2" Then
        Arr = .Range("j1:q" & .[k65536].End(3).Row): xC = 9 'T2
    ElseIf xR = "T3" Then
        Arr = .Range("s1:z" & .[t65536].End(3).Row): xC = 18 'T3
    End If
     For i = 1 To UBound(Arr) Step 19
         T1 = Arr(i, 2): If T1 = "" Then GoTo 99
         If T1 = T Then
             .Cells(i, 1).Offset(1, xC).Resize(17, 8).Value = Ar
             Exit Sub
         End If
99:   Next
End With
End Sub

zz0660

¦^´_ 7# samwang


    ·PÁ±z¨ó§U³B²z°ÝÃD¡A¥Ø«e¨Ï¥Î¸Óµ{¦¡½X¡A¨S¦³¥ô¦ó¤ÏÀ³¡A¦b¦¹´£¨ÑÀɮסC
QQA.rar (25.51 KB)

¤U¸ü¦¸¼Æ: 4

2021-7-29 22:55

³Â·Ð±z¤F¡AÁÂÁÂ!

samwang

¦^´_ 8# zz0660

§Ú´ú¸Õ¨S°ÝÃD¦pªþ¥ó¡A¥i§_¦AÁ¿¸Ô²Ó¤@ÂI¡AÁÂÁÂ

zz0660

¦^´_ 9# samwang

½Ð°Ý±z§âµ{¦¡½X©ñ¦b­þ¸Ì?

¤U¸ü (159.71 KB)

2021-7-30 10:49

¬OAA¤u§@ªí¡AÁÙ¬O¥t¥~¶}¤@­Ó¼Ò²Õ©O?