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

[µo°Ý] ¸ê®ÆÂà¸m¶K¤W

¦^´_ 1# ÅÚ½³ªd

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Sub test()
Dim Arr, Brr(1 To 1000, 1 To 3), Crr()
Dim i&, j&, n%, s%, m%, R%
Arr = [n13].CurrentRegion  '¨Ó·½¸ê®Æ1
For j = 1 To UBound(Arr, 2): For i = 1 To UBound(Arr)
    If Arr(i, j) <> "" Then
        If n < 7 Then n = n + 1 Else n = 1
        s = s + 1: Brr(s, 1) = n
        Brr(s, 2) = Arr(i, j): Brr(s, 3) = s
    End If
Next i: Next j
[j13].Resize(s, 3) = Brr   'Âà¶K¨ì2
R = Int(s / 7) + 1: ReDim Crr(1 To R, 1 To 7): k = 1
For i = 1 To s
    For j = 1 To 7
        m = m + 1: If m > s Then GoTo 99
        Crr(i, j) = Brr(m, 2)
    Next
99: Next i
Range("a13").Resize(R, 7) = Crr  'Âà¶K¨ì3
End Sub

TOP

¦^´_ 8# ÅÚ½³ªd

¤£¦n·N«ä¡A¤£¤Ó¯à²z¸Ñ±zªº»Ý¨D¡A¥i¯à»Ý­n¥t¥~¸Ô²Ó»¡©ú¸ÑÄÀ¡AÁÂÁÂ

TOP

¥»©«³Ì«á¥Ñ samwang ©ó 2021-11-4 08:09 ½s¿è

¦^´_ 10# ÅÚ½³ªd


¤£¦n·N«ä¡A¥i¯à»Ý­n»¡©ú¤@¤U±zªº»Ý¨D¡A¤£µM¥ú¬Ý±zªºµ{¦¡½X´N...¡A
¥t¥~¡A¦pªGµ{¦¡½XµL°ÝÃD¥B¥i¥\¯à¥¿±`¡A«á¾Ç»{¬°³o¼Ë´N¦n¡A²¦³º±z¦Û¤v¼gªº­n­×§ï©Î·s¼W³£®e©ö
§O¤H¼gªº­n­×§ï©Î·s¼W´N­nªá®É¶¡¬ã¨s¥B¤£¤@©wª¾¹D¦p¦ó¤U¤â
ÁÂÁÂ

TOP

¦^´_ 10# ÅÚ½³ªd

¥u¦³§@¤@¨ÇÀu¤Æ­×§ï¦Ó¤w¡A³W«h±ø¥ó³£¨SÅܧó¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Sub »s§@ñ¨ìªí1()
Dim a%, sht, i%, j%
Set sht = Worksheets("µn¿ý(2)")
With Sheets("list")
    For i = 13 To 27
        For j = 1 To 7
            R = .Range("d1").End(xlDown).Row + 1
            If sht.Cells(i, j) <> "" Then
                .Range("d" & R) = sht.Cells(i, j)
                .Range("e" & R) = sht.Range("b7")
                .Range("f" & R) = sht.Range("h7")
                .Range("g" & R) = sht.Range("d7")
                .Range("h" & R) = sht.Range("c7")
                .Range("i" & R) = sht.Range("g8")
                .Range("j" & R) = sht.Range("f10")
                .Range("k" & R) = sht.Range("e8")
                .Range("l" & R) = sht.Range("b8")
                .Range("n" & R) = "¦X®æ"
               If WorksheetFunction.CountIf(Sheets("¤H­û¦W³æ").Range("a:a"), .Range("d" & R)) > 0 Then '¤j©ó0ªí¥Ü¦³§ä¨ì³o¦W­û¤u
                    .Range("b" & R) = WorksheetFunction.VLookup(.Range("d" & R), Sheets("¤H­û¦W³æ").Range("a:i"), 9, 0)
                    .Range("c" & R) = WorksheetFunction.VLookup(.Range("d" & R), Sheets("¤H­û¦W³æ").Range("a:i"), 2, 0)
                Else                    
                    .Range("b" & R) = "¯Ê"
                    .Range("c" & R) = "¯Ê"
                End If
                .Range("a" & R) = .Range("c" & R) & .Range("e" & R) & .Range("l" & R)
                If WorksheetFunction.CountIf(.Range("a:a"), .Range("a" & R)) > 1 Then
                   .Range("p" & R) = "­«½Æ"
                End If
                R = R + 1
            End If
        Next
    Next
End With


a = sht.Range("I9")
Select Case a
     Case Is > 50
         With Sheets("ñ¨ì°O¿ýªí (3±i)")
            .Range("A11:h48").ClearContents
            .Range("b3") = sht.Range("d7")
            .Range("b4") = sht.Range("b8")
            .Range("h4") = sht.Range("f9")
            .Range("b6") = sht.Range("e8")
            .Range("b7") = sht.Range("b9")
            .Range("a11:a24") = sht.Range("k13:k26").Value
            .Range("h11:h24") = sht.Range("k27:k40").Value
            .Range("a25:a38") = sht.Range("k41:k54").Value
            .Range("h25:h38") = sht.Range("k55:k68").Value
            .Range("a39:a48") = sht.Range("k69:k78").Value
            .Range("h39:h48") = sht.Range("k79:k88").Value
        End With
     Case Is > 24
        With Sheets("ñ¨ì°O¿ýªí (2±i)")
            .Range("A11:h35").ClearContents
            .Range("b3") = sht.Range("d7")
            .Range("b4") = sht.Range("b8")
            .Range("h4") = sht.Range("f9")
            .Range("b6") = sht.Range("e8")
            .Range("b7") = sht.Range("b9")
            .Range("a11:a24") = sht.Range("k13:k26").Value
            .Range("h11:h24") = sht.Range("k27:k40").Value
            .Range("a25:a35") = sht.Range("k41:k51").Value
            .Range("h25:h35") = sht.Range("k52:k62").Value
         End With
     Case Is >= 0
        With Sheets("ñ¨ì°O¿ýªí (1±i)")
            .Range("A11:h22").ClearContents
            .Range("b3") = sht.Range("d7")
            .Range("b4") = sht.Range("b8")
            .Range("h4") = sht.Range("f9")
            .Range("b6") = sht.Range("e8")
            .Range("b7") = sht.Range("b9")
            .Range("a11:a22") = sht.Range("k13:k24").Value
            .Range("h11:h22") = sht.Range("k25:k36").Value
        End With
End Select
End Sub

TOP

¦^´_  samwang


±z¦n¡A½Ð°Ý¦pªG­n¸õ¹L¨BÆJ1ª½±µ±N¦W³æ¶K¦b¨BÆJ2¶K¤W¡A
¦A¥Ñ¨BÆJ2ªº¶K¨ì¨BÆJ3§Ú¸Ó¦p¦ó ...
ÅÚ½³ªd µoªí©ó 2021-11-17 10:54


¤£¦n·N«ä¡A¤£¤Ó¯à²z¸Ñ¡A½Ðªþ¤WÀÉ»¡©ú¡AÁÂÁ¡C

TOP

¦^´_ 20# ÅÚ½³ªd

¤W¦¸¼gªº¬O±N¸ê®Æ¶K¤W¨BÆJ1>¨BÆJ2>¨BÆJ3
>> ¤W¦¸¼gªº¬O¥Ñ¨BÆJ1¸ê®Æ¡AÂন2ªº®æ¦¡¡A¥BÂন3ªº®æ¦¡¡A©Ò¥H¸ê®Æ¨Ó·½³£¬O¨Ó¦Û©ó "1"
­Y¸ê®Æ¬Oª½±µ¶K¤W¨BÆJ2¡A¦A¥Ñ¨BÆJ2Âন¨BÆJ3©O¡H
>>³o¤£´N¬O©M¤W¦¸¼gªºµ²ªG¤@¼Ë¶Ü?

TOP

¦^´_  samwang


¤£¦n·N«ä¡A§Ú¨S»¡²M·¡¡A
¦]¬°¨Ó·½·|¦³¨âºØ®æ¦¡¡A
¦p¬O¨BÆJ1ªº®æ¦¡¡A¬yµ{´N¬O¨BÆJ1>¨B ...
ÅÚ½³ªd µoªí©ó 2021-11-25 11:58


¦p¦ó§PÂ_¸ê®Æ¨Ó·½¬O 1 ÁÙ¬O 2 °Ï°ìªº¸ê®Æ?
¦pªG2 ­Ó°Ï°ì³£¦³¸ê®Æ®É­n¥H­þ­Ó¬°¥D ?

TOP

¦^´_ 22# ÅÚ½³ªd


  1.Ãö©ó&©Î$»P%¡AVBA®Ñ¤W¨S¥X²{¹L³o­Ó¡A¤£¾å±o¬O«ü¤°»ò·N«ä >>¥i¤Wºô§ä¤@¤U´N¦³¡A¨º¨Ç¬O Dim ªºÂ²¼g "&" = as Long
    2.
       Dim MyArray(1 To 10, 5 To 15, 10 To 20)    ' Declare array variables.
       Upper = UBound(MyArray, 1)    ' Returns 10.
       Upper = UBound(MyArray, 3)    ' Returns 20.
       ºô¸ô¤W¥u¬Ý¹L¤W­±³oºØ¥Îªk
      Arr = [n13].CurrentRegion      
       UBound(Arr, 2)>>>>³o¬O«ü¤°»ò·N«ä©O¡H >> ¨úArrªºÄæ¦ì¼Æ
   3.¸ê®Æ¨Ó·½¥Ø«e·|¦³¨âºØ¡A²Ä¤@ºØ¬O¨BÆJ1>¨BÆJ2>¨BÆJ3....³o±z¤W¦¸¦³À°§Ú¸Ñ¨M
      ­Y¬O²Ä¤GºØ¥iª½±µ¶K¤W¨BÆJ2¡A¨Ã¥Bµn°O¨ì¨BÆJ3......¥i¥H§ï¦¨¦pªG¨BÆJ1¬OªÅ®æª½±µ§ì¨BÆJ2¶K¤W¨BÆJ3¶Ü¡H >> 2°Ï³£¦³¸ê®Æ®É­n¥H­þ­Ó¬°¥D??

TOP

¤£·|¨â­Ó°Ï°ì³£¦³¸ê®Æ¡A¥u·|¦³¨ä¤¤¤@­Ó
ÅÚ½³ªd µoªí©ó 2021-11-25 13:34


½Ð¦A¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test2()
Dim Arr, Brr(1 To 1000, 1 To 3), Crr()
Dim i&, j&, n%, s%, m%, R%
If [n13] <> "" Then
    Arr = [n13].CurrentRegion  '¨Ó·½¸ê®Æ1
    For j = 1 To UBound(Arr, 2): For i = 1 To UBound(Arr)
        If Arr(i, j) <> "" Then
            If n < 7 Then n = n + 1 Else n = 1
            s = s + 1: Brr(s, 1) = n
            Brr(s, 2) = Arr(i, j): Brr(s, 3) = s
        End If
    Next i: Next j
ElseIf [k13] <> "" Then
    Arr = Range([k13], [k65536].End(3)) '¨Ó·½¸ê®Æ2
    For i = 1 To UBound(Arr)
        If Arr(i, 1) <> "" Then
            s = s + 1: Brr(s, 2) = Arr(i, 1)
        End If
    Next
End If

R = Int(s / 7) + 1: ReDim Crr(1 To R, 1 To 7): k = 1
For i = 1 To s
    For j = 1 To 7
        m = m + 1: If m > s Then GoTo 99
        Crr(i, j) = Brr(m, 2)
    Next
99: Next i
Range("a13").Resize(R, 7) = Crr  'Âà¶K¨ì3
End Sub
   

TOP

½Ð°ÝVBA¬O­þ­Ó¬ì¨t·|¾Ç¨ì©O¡H
§Ú¥H«e¨S¾Ç¹L¥u¬O¤u§@¤W»Ý­n¡A¥Ø«e§Ú³£¬O¦Û¤v¶R®Ñ¦^¨Ó¾Ç²ß¡A
«ÜÃø¾Ç·|«ç ...
ÅÚ½³ªd µoªí©ó 2021-11-25 13:37


§Úª¬ªp¤]¬O©M±z¤@¼Ë¡A¦]¬°¤u§@»Ý­n¶R®Ñ¦^¨Ó¬Ý¡A¦ý¬O­nÀ³¥Î´N¦³ÂIÃø«×
³Ì«á¦Û¤v¦b¦¹ºô¯¸¬Ý¨ä¥L«e½úªº¼gªk«á¡A¦Û¤v­n¹Á¸Õ¼g¡B¦h½m²ß¡B¹J¨ì°ÝÃD¦A¸ß°Ý
¥[ªo ¥[ªo¡AÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD