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

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

¦^´_ 1# ziv976688


«ÜÃø²z¸Ñ±zªº»Ý¨D¡A¥i¥H¸ÑÄÀ¸Ô²Ó¤@ÂI¶Ü? ÁÂÁÂ

TOP

¦^´_ 5# ziv976688


¬Ý¨ì±z¥i¥H¼g¨ì³o¼Ë¯uªº¦n¼F®`¡A¬Ý±o³£²´ªá¡A§Ú·|¸ÕµÛ¸ÑŪ±zªº·N«ä¡AÁÂÁÂ

TOP

¥»©«³Ì«á¥Ñ samwang ©ó 2021-7-22 11:46 ½s¿è

¦^´_ 7# ziv976688

½Ð¥ý´ú¸Õ¬Ý¬Ý¬O§_¬°±zªº»Ý¨D¡A¤U­±¥u¬O·Ç2¶i3¡A¦pªG¨S°ÝÃD½Ð±z¦Û¦æ­×§ïµ{¦¡µ¹¨ä¥¦¤u§@ªí¡A·PÁ¡C

Sub ·Ç2¶i3()
Dim Arr, Arr1, Brr, xD, xD1, T, T1, k%, i&, j&
Arr = Range([ae2], [ak65536].End(3))    '¸ê®Æ¸Ë¤J¼Æ²Õ
Arr1 = Range([an2], [at65536].End(3))   '¸ê®Æ¸Ë¤J¼Æ²Õ
ReDim Brr(1 To UBound(Arr), 1 To 7)     '¹w³]µª®×¼Æ²Õ
Set xD = CreateObject("Scripting.Dictionary")
Set xD1 = CreateObject("Scripting.Dictionary")
'±N¼Æ²Õªº³Ì«á¤@¦C¸ê®Æ¸Ë¨ì¦r¨å
For i = UBound(Arr) To UBound(Arr)
    For j = 1 To 7: xD(Arr(i, j) & "") = "": Next
Next
For i = UBound(Arr1) To UBound(Arr1)
    For j = 1 To 7: xD1(Arr1(i, j) & "") = "": Next
Next
'¶}©l¤ñ¹ï
For i = 1 To UBound(Arr): For j = 1 To UBound(Arr, 2)
    T = Arr(i, j): T1 = Arr1(i, j)
    For k = 0 To 48
        a = (T + k) Mod 49: a1 = (T1 + k) Mod 49            'a:MOD(AE2+k,49)ªº¾l¼Æ
        If xD.Exists(a & "") And xD1.Exists(a1 & "") Then   '2Ãä¾l¼Æ³£¦³¦b¦U§O¦r¨å
            If Brr(i, j) = "" Then                          '±Nk¸Ë¤JBrr
                Brr(i, j) = k
            Else
                Brr(i, j) = Brr(i, j) & "," & k
            End If
        End If
    Next
Next: Next
Range("V2").Resize(UBound(Brr), 7) = Brr
End Sub

TOP

¦^´_ 7# ziv976688

§ó·s#8¼Óµ{¦¡ -1 ¦]¬°³Ì«á¤@µ§¤£¥Î¤ñ¹ï¡AÁÂÁÂ
   
'¶}©l¤ñ¹ï
For i = 1 To UBound(Arr)-1

TOP

¦^´_ 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

¦^´_ 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

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD