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

[µo°Ý] ¤½¦¡µ{¦¡½X¤Æ

¦^´_ 42# n7822123
¤w­×¥¿~
­×¥¿«á°õ¦æ¥¿±`(¤£¨ì2¬í)
ÁÂÁ±zªº«ü¾É©MÀ°¦£~·P®¦

TOP

¦^´_ 50# ziv976688

¤F¸Ñ¡A¼Æ¦r­Y¬O0~48´N¨S¦³°ÝÃD
¦]¬°¤§«e¼g¤½¦¡¦³°Ý¹L§A¡A¼Æ¦r¬O§_±±¨î¦b99¥H¤U¡A©Ò¥H¦³ÂI»~·|¡C
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-7-29 00:40 ½s¿è

¦^´_ 52# ML089
ª©¥D :
·PÁ±zªºÃö¤ß
¨º®É­Ô~¬O´£°ÝA4:A52=D2:J26ªº¾l¼Æ¦U¨ú1
±z­n½T©wAÄæ¬O§_¬°³Ì¦h¬O2¦ì¼Æªº¾ã¼Æ?

¨S¦³±z­@¤ßªºÀ°§Ú±Nµ{¦¡½X¬yµ{¥þ³¡­«·s¾ã²z¡A
§Ú¬OµLªk¶¶§Q§¹¦¨¥»¦¸¦U¤À©î¶µªº°ÝÃD»Ý¨D~·P®¦

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-7-29 02:50 ½s¿è

¦^´_ 13# n7822123
½Ð±Ð±z :
¦C9 ¾l¼Æ = (Arr(1)(R, C) + Num - 1) Mod 49 + 1  '¥[ºâMod(M2+V2,49)

¦pªG±N¶Qµ{¦¡½X§ï¬°´îºâ¡A¨Ã±N¨ä®t­ÈÂରµ´¹ï­È¡A¨Ï¨ä³£¬°¥¿¼Æ
¾l¼Æ = (Abs(Arr(1)(R, C) - Num) - 1) Mod 49 + 1    '´îºâMod(ABS(M2-V2),49)
¦ý³o¼Ë§ï~·|¦³¤@­Ó¤pBug : ·í¾l¼Æ=0 ®É¡A¤£·|¦Û°ÊÂର49
¥²¶·¦A¥[  If ¾l¼Æ = 0 Then ¾l¼Æ = 49

½Ð°Ý :¥H¶Q­ìµ{¦¡½X­n±N®t­È§ï¬°µ´¹ï­Èªº¥¿½T»yªk ?
ÁÂÁ±z

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-7-29 03:45 ½s¿è

¦^´_ 37# ML089
¾l¼Æ¦U¨ú1_0729.rar (100.88 KB)
ª©¥D :
¤£¦n·N«ä¡A¤S¦³¤@­Ó¤pBug~
·Ç5¶i6!A4=""
A4À³¸Ó=46 ¡C
Àµ½Ð±z½ç¥¿~ÁÂÁ±z

TOP

¥»©«³Ì«á¥Ñ ML089 ©ó 2021-7-29 13:54 ½s¿è

¦^´_ 55# ziv976688

¯u¤£¦n·N«ä¡A¤pBUG¤£Â_¡C
Sub ¾l¼Æ¦U¨ú1()
    Dim xD As Object, xS As Worksheet, xR As Range, SP, N
    Set xD = CreateObject("Scripting.Dictionary")
   
    For Each xS In Sheets(Split("·Ç2¶i3 ·Ç3¶i4 ·Ç4¶i5 ·Ç5¶i6 ·Ç6¶i7 ·Ç7¶i8"))    '¨úªí®æ
        For Each xR In xS.Range("D2:J" & xS.[B65536].End(xlUp).Row)    '¨úÀx¦s®æ
            For Each SP In Split(xR, ",")    '¤À¶}¼Æ¦r
                If Val(SP) > 0 Then xD(Val(SP)) = ""    '¦r¨å²Õ¦X
            Next
        Next
        N = xD.Count
        xS.[A2:A110].ClearContents    '²M°£Àx¦s®æ¤º®e
        xS.[A2] = IIf(N = 0, "", N & "­Ó")
        xS.[A3] = "¸¹½X"
       If N > 0 Then
            With xS.[A4].Resize(N)
                .Value = Application.Transpose(xD.keys)
                'N > 1®É¤~»Ý­n±Æ§Ç¡A¤£µM·|¿ù
                If N > 1 Then .Sort key1:=.Item(1), Order1:=xlAscending, Header:=xlNo
            End With
        End If
        xD.RemoveAll
    Next
End Sub
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-7-29 15:14 ½s¿è

¦^´_ 56# ML089
¯u¤£¦n·N«ä¡A¤pBUG¤£Â_¡C

ª©¥D :
±z¤£­n³o»ò»¡¡A±zÄ@·N«ü¾É¡A§Ú¤w¸g¬O·P¿E¤£ºÉ¤F

­n¤£¬O±z¤£¹½¨ä·Ðªº­×¥¿ Bug¡A§Ú¤]¨S¾÷·|¾Ç·|¥¿½Tªº»yªk~
¨Ò¦p³o¤@¦¸ªºBug¡A§Ú¬O¥J²ÓªººÝ¸Ô¾ã½gµ{¦¡½X¡A¦ý´N¬OÁ@¤£¥X Bug¬O¦b­þ¸Ì?
¤]´¿¸Õ±NN>1§ï¬°N>=1¡A¦ý¥¢±Ñ¤F~
µ²ªG¬O±NN>0©MN>1¤À§O§PÂ_´N¥i¥H¸Ñ¨M¡C

ÁÂÁ±zªº­@¤ß«ü¾É©MÀ°¦£~·P®¦

PS : 54¼Ó~ If ¾l¼Æ = 0 Then ¾l¼Æ = 49 ªº»yªk¤]¬O¦V±z¾Ç²ß¨Óªº

TOP

        ÀR«ä¦Û¦b : °µ¸Ó°µªº¨Æ¬O´¼¼z¡A°µ¤£¸Ó°µªº¨Æ¬O·Mè¡C
ªð¦^¦Cªí ¤W¤@¥DÃD