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

¤j¶q¸ê®Æ­pºâ

¤j¶q¸ê®Æ­pºâ

¥»©«³Ì«á¥Ñ oak0723-1 ©ó 2021-10-5 18:41 ½s¿è

¤j¶q¼Æ¤Q¸U¦C¸ê®Æ­pºâ
Àɮ׶}ÃöºC¥Î¨ç¼Æ³B²z¤S©ö·í¾÷
³Â·Ð¥ý¶i¯à¨ó§U
¥t¥~½Ð°Ý¦³¸û²Ê²Lªºvba°}¦C¬ÛÃö¤å³¹¥i¥H¾Ç²ß¶Ü
ÁÙ¦³
§Ú³o­Óªþ¥ó¬°¦ó·|¨º»ò¤j?¦p¦óÁY¤p

Image 1.jpg (241.27 KB)

Image 1.jpg

1101005-¤ñ¹ï&¦X­p.part001.rar (1 MB)

1101005-¤ñ¹ï&¦X­p.part002.rar (1 MB)

1101005-¤ñ¹ï&¦X­p.part003.rar (1 MB)

1101005-¤ñ¹ï&¦X­p.part004.rar (1 MB)

1101005-¤ñ¹ï&¦X­p.part005.rar (1 MB)

1101005-¤ñ¹ï&¦X­p.part006.rar (1 MB)

1101005-¤ñ¹ï&¦X­p.part007.rar (1 MB)

1101005-¤ñ¹ï&¦X­p.part008.rar (1 MB)

1101005-¤ñ¹ï&¦X­p.part009.rar (1 MB)

1101005-¤ñ¹ï&¦X­p.part010.rar (1 MB)

1101005-¤ñ¹ï&¦X­p.part011.rar (1 MB)

1101005-¤ñ¹ï&¦X­p.part012.rar (443.31 KB)

¦^´_ 1# oak0723-1

¤£¦n·N«ä¡A¬Ý¤£À´±z¯uªº»Ý¨D¬°¦ó? ¥i§_¦b¸Ô²Ó»¡©ú¤@¤U
«Øij²¾°£±zªº¤½¦¡³o¼ËÀɮפ~¤£·|¨º»ò¤j¡A
¥t¥~½Ð°Ý¦³¸û²Ê²Lªºvba°}¦C¬ÛÃö¤å³¹¥i¥H¾Ç²ß¶Ü>> ºô¸ô§ä¤@¤UÀ³¸Ó«Ü¦h
ÁÂÁÂ

TOP

¦^´_ 2# samwang
§A¦n
·PÁ§A¹ï§Úªº°ÝÃDÃöª`
§Ú©È²¾°£§Ú¦Û¤v©Ò¼gªº¨ç¼Æ¤½¦¡§ó·|µLªk§â°ÝÃDÁ¿²M·¡
§Úªº°ÝÃD´N¬O§Æ±æ¥Î¥¨¶°¨Ó§¹¦¨§Ú¨ç¼Æ·Q§¹¦¨ªº¤º®e
¥u¬O§Ú¡§¸ê®Æ®w¡§¤u§@ªíªº¸ê®Æ¼Æ¶q¬O¤£©T©wªº¡A
¡§¤ñ¹ï¡§¤u§@ªí²Ä¤T¦C¸Ìªº¤ñ¹ï¸ê®Æ¼Æ¶q¤]¬O¤£©T©w
¥u­n¨âÃ䦳¸ê®Æ´N¶i¦æ¤ñ¹ï,¤ñ¹ïµ²ªG¬O¤@¼Ëªº´NÅã¥Ü1¡A¤£¤@¼Ë´NÅã¥Ü0,¨S¸ê®Æ´NªÅ¥Õ

TOP

¦^´_ 2# samwang


    ¸É¥R¹Ï¤ù»¡©ú

8253011.jpg (195.84 KB)

8253011.jpg

TOP

¦^´_ 4# oak0723-1

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr, Drr, Brr(), Crr(), T, T1, T2
Tm = Timer
Arr = Range([¸ê®Æ®w!b6], [¸ê®Æ®w!b65536].End(3))
Drr = Sheets("¸ê®Æ®w").Range("i6:ama" & UBound(Arr) + 5)
[¤ñ¹ï!b6].Resize(UBound(Arr)) = Arr
ReDim Brr(1 To UBound(Arr), 1 To 1000)
ReDim Crr(1 To UBound(Arr), 1 To 1)
With Sheets("¤ñ¹ï")
    Arr = .Range("i3:alt3")
    For i = 1 To UBound(Drr)
        Crr(i, 1) = 0
        For j = 1 To UBound(Arr, 2)
            T = Arr(1, j): T1 = Drr(i, j): T2 = Drr(i, j + 6)
            If T = "" Or T1 = "" Then Brr(i, j) = "": GoTo 99
            If T = T2 Then
                Brr(i, j) = 1: Crr(i, 1) = Crr(i, 1) + 1
            Else
                 Brr(i, j) = 0
            End If
99:     Next j
    Next i
    .Range("h6").Resize(UBound(Crr)) = Crr
    .Range("i6").Resize(UBound(Brr), UBound(Brr, 2)) = Brr
End With
MsgBox Timer - Tm
End Sub

TOP

¦^´_ 5# samwang
°õ¦æµ²ªG¦³ÂI©Ç©Çªº
¦]¬°
¤u§@ªí"¸ê®Æ®w" i6Àx¦s®æ=1001
¤u§@ªí"¤ñ¹ï" i3Àx¦s®æ=1001,¬G¤u§@ªí"¤ñ¹ï" i6 Àx¦s®æÀ³¸Ó¬O 1 ¤~¹ï,¤£¬O 0

¬O§_§Ú¦³§@¿ù¬Æ»ò

Image 20.jpg (346.61 KB)

Image 20.jpg

Image 23.jpg (212.1 KB)

Image 23.jpg

1101005-¤ñ¹ï&¦X­p01.rar (118.41 KB)

TOP

¦^´_ 6# oak0723-1


    ¬°¤Fªí¹F§ó²M·¡
§Ú¬O¥Î¨ç¼Æ¼g¤Fªþ¥óÀÉ®×
³o­Ó¨ç¼ÆÀÉ®×´N¬O§Ú·Q¥Îvba§¹¦¨ªº

1101005-¤ñ¹ï&¦X­p01-1.rar (118.9 KB)

TOP

¥»©«³Ì«á¥Ñ samwang ©ó 2021-10-7 08:12 ½s¿è

¦^´_ 7# oak0723-1

­×§ï¦p¤U¡A½Ð¦A´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
If T = "" Or T1 = "" Then Brr(i, j) = "": GoTo 99
­×§ï¬°--> If T = "" Then Brr(i, j) = "": GoTo 99
If T = T2 Then
­×§ï¬°--> If T = T1 Then

TOP

¦^´_ 6# oak0723-1

±zªº#1¡B#7³W«h±ø¥ó¤£¤@¼Ë¦p¹Ï¤ù¡A#1±ø¥ó¤w¦^ÂÐ#5¡A#7±ø¥ó¤w¦^ÂÐ#8¡A½Ð¦A½T»{¡AÁÂÁÂ

1.PNG (57.62 KB)

1.PNG

TOP

¦^´_ 9# samwang
¥Ø«e¤w§¹¥þ²Å¦X§Úªº»Ý¨D
¦P¼Ë³W«h¥i§_¤ñ¹ï¦³¤W­­¤U­­¤G²Õ¼Æ¾Ú,¦pªþ¥ó
·P®¦

Image 28-02.jpg (209.29 KB)

Image 28-02.jpg

1101005-¤ñ¹ï&¦X­p02.rar (115.5 KB)

TOP

        ÀR«ä¦Û¦b : ¤p¨Æ¤£°µ¡B¤j¨ÆÃø¦¨¡C
ªð¦^¦Cªí ¤W¤@¥DÃD