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

[µo°Ý] ¨ú±o«ü©w½d³ò¤ºªº¦Uk­È

¦^´_ 10# ziv976688


½Ð¥ý½T»{¬O§_±zªº»Ý¨D¡A¦pªG¬O¥¿½TµL»~¡A³Ñ¤U¨ä¥¦¤u§@ªí´N²³æ¤F¡AÁÂÁÂ

¨ú±o«ü©w½d³ò¤ºªº¦Uk­È_0722.zip (252.03 KB)

TOP

Sub TEST()
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
            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)
         .NumberFormatLocal = "@"
         .Value = Brr
    End With
s01: Next
End Sub

»¡©ú¶Ã, ¤]¶Ã¼g¤@³q~~

TOP

¦^´_ 11# samwang
2016ª©¥´¤£¶}
¤£¦n·N«ä~µ¹±z²K³Â·Ð^^"

TOP

¦^´_ 12# ­ã´£³¡ªL
´ú¸Õ¦¨¥\
ÁÂÁ±z¤@¦AªºÀ°¦£©M«ü¾É¡C
·P®¦

TOP

¦^´_ 11# samwang
¨ú±o«ü©w½d³ò¤ºªº¦Uk­È_samwang.rar (82.83 KB)
§Ú§â¤G­Ó¶Q¸Ñµ{¦¡½X¤À§O©ñ¦bModule1©MModule3
¾ã²z«á¡AModule1ÁÙ¬OÅã¥Ü¤£¥XV2:AB26ªºµª®×¡FModule3ªºA4:A52ªºµª®×´NOK¤F!
¥i§_·Ð½Ð±z¦A½ç¥¿?
ÁÂÁ±z

TOP

¦^´_ 15# ziv976688


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

¨ú±o«ü©w½d³ò¤ºªº¦Uk­È_0722.zip (106.42 KB)

TOP

¦^´_ 12# ­ã´£³¡ªL


­ã¤j¼gªº«Ü¤Óºë²¡A¥u¥Î¤F¤@­Ó¼Æ²Õ©M¦r¨å´N·d©w¦h­Ó¤u§@ªí¸ê®Æ¡A¤§«e¤w¦³¬Ý¹L¦r¨å¦P®É¸Ë¤J¤£¤@¼Ëªº¸ê®Æ
³o¦¸¤S¾Ç¨ì¼Æ²Õ¤]¥i¥H³o¼Ë¨Ï¥Î¡A¯uªº¬O¤@­Ó«Ü¦nªº½d¨Ò¾Ç²ß¤F¡A·PÁ¤À¨É¡C

TOP

¦^´_ 16# samwang
´ú¸Õ¦¨¥\
ÁÂÁ±zªº­@¤ß«ü¾É©MÀ°¦£

TOP

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

¦^´_ 12# ­ã´£³¡ªL
¨ú±o«ü©w½d³ò¤ºªº¦Ux­È_(´îªk).rar (88.66 KB)   =>¥i«ö²M°£Áä~­«·s´ú¸Õ¡C
ª©¥D : ±z¦n!
½Ð±Ð±z~
Module 2
¦pªG­n§â¦C20  T = (Arr(k)(i, j) + x) Mod 49 & "|" & k
§ï¬° -x
µM«á¦³¤GºØ¤è¦¡ªº­pºâª¬ªp :
A¦¡ : ·í -x¤§«áªº®t­È¬°­t¼Æ®É¡A«hT¦Û°ÊÂର¥¿¼Æ(§Y¦p=µ´¹ï­È)
EX : ·Ç2¶i3!V2=
IF(OR(IF(MOD(ABS(AE2-x),49),MOD(ABS(AE2-x),49),49)=($AE$27:$AK$27))*OR(IF(MOD(ABS(AN2-x),49),MOD(ABS(AN2-x),49),49)=($AN$27:$AT$27)),x,"")
¥k©Ô¦A¤U©Ô¶ñº¡
EX :  W2=11¡FX2=37

B¦¡ : ·í -x¤§«áªº®t­È¬°­t¼Æ®É¡A«hb]T¦Û°Ê¦A+49Âର¥¿¼Æ(§Y¦p=¤@¯ëªº¨ç¼Æ­pºâ)
EX : ·Ç2¶i3!V2=
IF(OR(IF(MOD(AE2-x,49),MOD(AE2-x,49),49)=($AE$27:$AK$27))*OR(IF(MOD(AN2-x,49),MOD(AN2-x,49),49)=($AN$27:$AT$27)),x,"")
¥k©Ô¦A¤U©Ô¶ñº¡
EX :  V2=23¡FX2=48  

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

TOP

¦^´_ 19# ziv976688


1)
T = ABS((Arr(k)(i, j) - x) Mod 49) & "|" & k

2)
V=(Arr(k)(i, j) - x) Mod 49
IF V<0 THEN V=V+49
T=V & "|" & K

TOP

        ÀR«ä¦Û¦b : ¸Ü¦h¤£¦p¸Ü¤Ö¡A¸Ü¤Ö¤£¦p¸Ü¦n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD