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

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

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-7-27 18:07 ½s¿è

¦^´_ 40# ML089
¤£¦n·N«ä¡A¬O§Ú¨S¦³ª`·N¨ì­n±N36¼Óªº¶Q½d¨ÒÀÉ¡A¦A¶K¤W37¼Óªº¶Q¸Ñ
·PÁ±z

TOP

¦^´_ 28# ziv976688

¼Ð¥Ü©³¦â¡B¾l¼Æµn¤J ³£¤w¸g¬O¶]¦U­Ó¤u§@ªí¤F

§A¦n¹³¤S§â³o¨â­Ó¼g¦b¥Dµ{¦¡ªºFor °j°é¸Ì­±¡A°õ¦æ¤FN¦¸¤@¼Ëªº¾Þ§@~
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 42# n7822123
¦hÁ´£¿ô~§Ú¦AÀˬd¬Ý¬Ý¡C
ÁÂÁ±z

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-7-28 06:25 ½s¿è

¦^´_ 4# ML089
´îºâ_¨ú¾l¼Æ(A¦¡©MB¦¡)_M1.rar (101.07 KB)    =>¥i«ö²M°£Áä~­«·s´ú¸Õ¡C
ª©¥D : ±z¦n !
½Ð±Ð±z~
Module 3
¥ý§â¦C7 SP = (SP + xV.Offset(, -9)) Mod 49: If SP = 0 Then SP = 49  'V2+M2 mod 49
½Õ¾ã¬°SP = (xV.Offset(, -9) + SP) Mod 49: If SP = 0 Then SP = 49  'M2+V2 mod 49
¥H§Q§@»Ý¨D»¡©ú¡C

»Ý¨D¡G
·Q±NSP = (xV.Offset(, -9) + SP) Mod 49: If SP = 0 Then SP = 49  'M2+V2 mod 49
§ï¬°SP = (xV.Offset(, -9) - SP) Mod 49: If SP = 0 Then SP = 49  'M2-V2 mod 49
µM«á¦³¤GºØ¤è¦¡ªº­pºâª¬ªp :
A¦¡ : ·í -SP¤§«áªº®t­È=­t¼Æ®É¡A«hSP¦Û°ÊÂର¥¿¼Æ(§Y¦p=µ´¹ï­È)
¥H¨ç¦¡§@²³æ»¡©ú~
EX : ·Ç2¶i3!........·Ç7¶i8!ªºD2=
=IF((V2<>"")*OR(IF(MOD(ABS(M2-V2),49),MOD(ABS(M2-V2),49),49)=($M$27:$S$27)),IF(MOD(ABS(M2-V2),49),MOD(ABS(M2-V2),49),49),"")
¥k©Ô¦A¤U©Ô¶ñº¡
EX :ªºA¦¡_Ans (·Ç2¶i3!)¡F¡K¡K.¨ä¾lÃþ±À¡C

B¦¡ : ·í-SP¤§«áªº®t­È=­t¼Æ®É¡A«hSP¦Û°Ê¦A+49Âର¥¿¼Æ(§Y¦p=¤@¯ëªº¨ç¼Æ­pºâ)
¥H¨ç¦¡§@²³æ»¡©ú~
EX : ·Ç2¶i3!........·Ç7¶i8!ªºD2=
=IF((V2<>"")*OR(IF(MOD(M2-V2,49),MOD(M2-V2,49),49)=($M$27:$S$27)),IF(MOD(M2-V2,49),MOD(M2-V2,49),49),"")
EX :  B¦¡_Ans (·Ç2¶i3!)¡F¡K¡K.¨ä¾lÃþ±À¡C  

¥H¤W ¤GºØªº­pºâ¤è¦¡¤§µ{¦¡½X~Àµ½Ð«ü¾É¡C
ÁÂÁ±z^^

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-7-28 06:53 ½s¿è

¦^´_ 30# ­ã´£³¡ªL
´îºâ_¨ú¾l¼Æ(A¦¡©MB¦¡)_Z1.rar (99.8 KB)     =>¥i«ö²M°£Áä~­«·s´ú¸Õ¡C
ª©¥D : ±z¦n !
½Ð±Ð±z~
Module 3
»Ý¨D¡G
·Q±N¦C10  Brr(i, j) = Brr(i, j) & "," & Format((Arr(i, j) + Val(A)) Mod 49, "00;;49")
§ï¬° Brr(i, j) = Brr(i, j) & "," & Format((Arr(i, j) - Val(A)) Mod 49, "00;;49")
µM«á¦³¤GºØ¤è¦¡ªº­pºâª¬ªp :
A¦¡ : ·í- Val(A)¤§«áªº®t­È=­t¼Æ®É¡A«hBrr(i, j)¦Û°ÊÂର[colorBlue]=¥¿¼Æ(§Y¦p=µ´¹ï­È)
¥H¨ç¦¡§@²³æ»¡©ú~
EX : ·Ç2¶i3!........·Ç7¶i8!ªºD2=
=IF((V2<>"")*OR(IF(MOD(ABS(M2-V2),49),MOD(ABS(M2-V2),49),49)=($M$27:$S$27)),IF(MOD(ABS(M2-V2),49),MOD(ABS(M2-V2),49),49),"")
¥k©Ô¦A¤U©Ô¶ñº¡
EX :A¦¡_Ans (·Ç2¶i3!)¡F¡K¡K.¨ä¾lÃþ±À¡C

B¦¡ : ·í- Val(A)¤§«áªº®t­È=­t¼Æ®É¡A«hBrr(i, j)¦Û°Ê¦A+49Âର¥¿¼Æ(§Y¦p=¤@¯ëªº¨ç¼Æ­pºâ)
¥H¨ç¦¡§@²³æ»¡©ú~
EX : ·Ç2¶i3!........·Ç7¶i8!ªºD2=
=IF((V2<>"")*OR(IF(MOD(M2-V2,49),MOD(M2-V2,49),49)=($M$27:$S$27)),IF(MOD(M2-V2,49),MOD(M2-V2,49),49),"")
EX :  B¦¡_Ans (·Ç2¶i3!)¡F¡K¡K.¨ä¾lÃþ±À¡C  

¥H¤W ¤GºØªº­pºâ¤è¦¡¤§µ{¦¡½X~Àµ½Ð«ü¾É¡C
ÁÂÁ±z^^

TOP

¦^´_ 44# ziv976688

SP = (xV.Offset(, -9) - SP) Mod 49: If SP = 0 Then SP = 49  'M2-V2 mod 49

A¦¡ : ·í -SP¤§«áªº®t­È=­t¼Æ®É¡A«hSP¦Û°ÊÂର¥¿¼Æ(§Y¦p=µ´¹ï­È)
SP = ABS(xV.Offset(, -9) - SP) Mod 49: If SP = 0 Then SP = 49  'M2-V2 mod 49


B¦¡ : ·í-SP¤§«áªº®t­È=­t¼Æ®É¡A«hSP¦Û°Ê¦A+49Âର¥¿¼Æ(§Y¦p=¤@¯ëªº¨ç¼Æ­pºâ)
SP = (xV.Offset(, -9) - SP + 49) Mod 49: If SP = 0 Then SP = 49  'M2-V2 mod 49
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 45# ziv976688

1)
Brr(i, j) = Brr(i, j) & "," & Format(ABS((Arr(i, j) - Val(A)) Mod 49), "00;;49")

2)
V= (Arr(i, j) - Val(A)) Mod 49
IF V<0 THEN V=V+49
Brr(i, j) = Brr(i, j) & "," & Format(V, "00;;49")

TOP

¦^´_ 46# ML089
¦^´_ 47# ­ã´£³¡ªL
¤G¦ìª©¥D :
¤£¦n·N«ä¡A¤½¦¡¼g¿ù¤F  
´ú¸Õ¦¨¥\
ÁÂÁ¤G¦ìª©¥DªºÀ°¦£©M«ü¾É~·P®¦

TOP

¦^´_ 48# ziv976688


B¦¡ : ·í-SP¤§«áªº®t­È=­t¼Æ®É¡A«hSP¦Û°Ê¦A+49Âର¥¿¼Æ(§Y¦p=¤@¯ëªº¨ç¼Æ­pºâ)
SP = (xV.Offset(, -9) - SP + 49) Mod 49: If SP = 0 Then SP = 49  'M2-V2 mod 49

­Y¬O
11-90 = -79¡A¦A+49Åܦ¨ -30 ¡AÁÙ¬O­t¼Æ«ç»ò¿ì?
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

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

¦^´_ 49# ML089
ª©¥D :
ÁÂÁ±zªº´£¿ô

For Each SP In Split(xV, ",")
:
:
Next
xV¤£¬O¤w­­¨î¦b0 To 48¤F¶Ü?
ÁÙ¬O§Ú¤S¿ù¤F
¦pªG§Ú¤S»~¸Ñµ{¦¡½Xªº·N²[~Àµ½Ð½ç¥¿¡C
ÁÂÁ±z

­ã¤jªº°Ñ¼Æµn¿ý(Module 2)
Sub °Ñ¼Æµn¿ý()
    Dim xS As Worksheet, xD, Arr(6), Brr, R&, i&, j%, k%, x%, N%, T$
    Set xD = CreateObject("Scripting.Dictionary")
    For Each xS In Sheets(Array("·Ç2¶i3", "·Ç3¶i4", "·Ç4¶i5", "·Ç5¶i6", "·Ç6¶i7", "·Ç7¶i8"))
        xD.RemoveAll
        R = xS.[ac65536].End(xlUp).Row - 1
        N = N + 1: If R < 1 Then GoTo s01
        ReDim Brr(1 To R - 1, 1 To 7)
        For k = 0 To N
            Arr(k) = xS.[ae2].Cells(1, k * 9 + 1).Resize(R, 7)
            For j = 1 To 7
                xD(Arr(k)(R, j) & "|" & k) = 1
            Next j
        Next k
        '--------------------------------------
        For i = 1 To R - 1
            For j = 1 To 7
                For x = 0 To 48
                    For k = 0 To N
                       ' T = (Arr(k)(i, j) + x) Mod 49 & "|" & k
                        V = (Arr(k)(i, j) - x) Mod 49
                        If V < 0 Then V = V + 49
                        T = V & "|" & k
                        If xD(T) = 0 Then GoTo x001
                    Next k
                    Brr(i, j) = Brr(i, j) & IIf(Brr(i, j) = "", "", ",") & x
x001:                     Next x
            Next j
        Next i
        '-------------------------------------
        With xS.[v2].Resize(R - 1, 7) 'µn¿ý¦ì¸m
            .NumberFormatLocal = "@"
            .Value = Brr
        End With
s01:         Next
End Sub

TOP

        ÀR«ä¦Û¦b : ¤ß¤¤±`¦sµ½¸Ñ¡B¥]®e¡B·P«ä¡Bª¾¨¬¡B±¤ºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD