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

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

¥»©«³Ì«á¥Ñ singo1232001 ©ó 2021-7-24 23:12 ½s¿è

¦^´_ 1# ziv976688
  1. Sub allsheet()   '<--°õ¦æ³o­Ó
  2. Dim s As Worksheet
  3. For Each s In Worksheets
  4. If s.Name <> "DATA" Then Call ¾l¼Æµn¿ý(s.Name)
  5. Next
  6. End Sub

  7. Sub ¾l¼Æµn¿ý(sN)
  8. Set s = Sheets(sN)
  9. n = s.Columns("v:ab").Find("*", , -4163, , 1, 2).Row
  10. Dim ar
  11. ReDim ar(1 To n, 1 To 7)

  12. For i = 1 To n
  13. For j = 1 To 7
  14. x = s.Cells(i + 1, j + 21)
  15. If x <> "" Then
  16. x = Split(x, ",")
  17.     For Each x0 In x
  18.     x0 = (x0 + s.Cells(i + 1, j + 12)) Mod 49
  19.     If ar(i, j) <> "" Then ar(i, j) = ar(i, j) & "," & x0
  20.     If ar(i, j) = "" Then ar(i, j) = x0
  21.     Next
  22. End If
  23. Next
  24. Next
  25. s.[d2].Resize(n, 7) = ar
  26. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# singo1232001
  1. Sub allsheet()   '<--°õ¦æ³o­Ó
  2. Dim s As Worksheet
  3. For Each s In Worksheets
  4. If s.Name <> "DATA" Then Call ¾l¼Æµn¿ý(s.Name)
  5. Next
  6. End Sub

  7. Sub ¾l¼Æµn¿ý(sN)
  8. Set s = Sheets(sN)
  9. n = s.Columns("v:ab").Find("*", , -4163, , 1, 2).Row
  10. Dim ar
  11. ReDim ar(1 To n, 1 To 7)

  12. For i = 1 To n
  13. For j = 1 To 7
  14. x = s.Cells(i + 1, j + 21)
  15. If x <> "" Then
  16. x = Split(x, ",")
  17.     For Each x0 In x
  18.     x0 = Format((x0 + s.Cells(i + 1, j + 12)) Mod 49,"00") <--§Ñ¤F¥[00
  19.     If ar(i, j) <> "" Then ar(i, j) = ar(i, j) & "," & x0
  20.     If ar(i, j) = "" Then ar(i, j) = x0
  21.     Next
  22. End If
  23. Next
  24. Next
  25. s.[d2].Resize(n, 7) = ar
  26. End Sub
½Æ»s¥N½X

TOP

¦^´_ 6# ziv976688

¤½¦¡µ{¦¡½X¤Æ_singo1232001.zip (117.49 KB)

TOP

¥»©«³Ì«á¥Ñ singo1232001 ©ó 2021-7-25 20:29 ½s¿è

¦^´_ 17# ziv976688

¤½¦¡µ{¦¡½X¤Æ_singo1232001_v2.zip (140.41 KB)

TOP

¥»©«³Ì«á¥Ñ singo1232001 ©ó 2021-7-25 21:34 ½s¿è
¦^´_  n7822123
´ú¸Õ¦¨¥\
ÁÂÁ±zªºÀ°¦£©M«ü¾É~·P®¦

¤£¦n·N«ä¡A½Ð±Ð¤@¤U :
  ¦C ...
ziv976688 µoªí©ó 2021-7-25 19:45


¤£¦n·N«ä¡A½Ð±Ð¤@¤U :
  ¦C8
  For Each Num In Split(Arr(2)(R, C), ",")
      ¾l¼Æ = (Arr(1)(R, C) + Num - 1) Mod 49 + 1
½Ð°Ý :
Num¬O«ü¶ñ¤J±±¨î½cªº´Á¶Z¼Æ  Num = "25" ¶Ü?
ÁÙ¬O¥u¬OÅÜ¼Æ ?
ÁÂÁ±z
'------------------------------------------
À°¦£¸ÑŪ¤@¤U
³o¬q¬OÁY¼g
»Ý­n¥ý©î¤À
¨Ã¥B¥ý±qsplitªº°ò¦¹B¥Î¤è¦¡ ¥ý¾Ç
x=Split(Arr(2)(R, C), ",")
­n¥ý¤F¸Ñ³o¬qªº·N«ä
´N¥²¶·¥ý¤F¸Ñ
Arr(2)(R, C)
¤S¬O¬Æ»ò·N«ä
Arr(1) ¸òarr(2)
§A´N·Q¹³¦¨ ¨â­ÓµêÀÀªº¤u§@ªí (¹ê»Ú¦WºÙ "°}¦C")
©Ò¥H
Arr(2)(R,C)
´N¥Nªí¦b²Ä¤G±iµêÀÀ¤u§@ªíªº ¬Y­ÓÀx¦s®æ¦]¬°¦³R¦CCÄæ­È
¦]¬°¦b°}¦C¤¤ ³B²z³t«×¤ñ¸û§Ö ¤]¤ñ¸û³æ¯Â
¨Ì·Ó·Ç2¶i3¤u§@ªí[V2]¶×¤J·í«eArr(2)µêÀÀ¤u§@ªíªº¦ì¸m
³Ì²× ´N¯à¨ú±o¤@²Õ¦r¦ê ¤ñ¦p "8,27"
¦ì¸mÀ³¸Ó¬OArr(2)°}¦Cªº(0,0)

¨º»ò§Ú­Ì¦^¨ì
x=Split(Arr(2)(R, C), ",")
·N«ä´N¬O
x=Split("8,27", ",")
³o¬O¤@ºØ§Aµ¹¥L¤À¹j­È ¦o´NÀ°§A¨Ì·Ó¤À¹j­È ¤Á¤Àªº¨ç¼Æ ¨Ã¥B·|­Ó§O¦s©ñ
¦p¤Wªº·N«ä
§Ú±N8,27 ¨Ì·Ó","²Å¸¹ ¤Á¤À
³Ì«á§Ú·|±o¨ì
8 »P27¨â­Ó­È  
¤À§O©ñ¦b
x(0)  <-¸Ì­±¬O8
x(1)  <-¸Ì­±¬O27
ªºùØ­±
¦pªG§Aµ¹¥Lªº¦r¦ê¬O5,4,3,2
¨º»ò§A´N·|±o¨ì
x(0) <-¸Ì­±¬O5
x(1) <-¸Ì­±¬O4
x(2) <-¸Ì­±¬O3
x(3) <-¸Ì­±¬O2

¦p¤W­z ¦pªG·Q­n¨ú±ox(1)¸ê®Æ
§Ú­Ì´N¥i¥H
y=x(1)
¨º»òyªº­È´N¬O4

±µµÛÁ¿
°j°é¤À¨âºØ
for i = 1 to 4  ³o¥Nªí³o¦^°é¬O 1 2 3 4
¥t¤@ºØ¬O
for each a In x
³o·§©À¤£¦Pªº¦a¤è«Ü²³æ

°²³] ²{¦b­±«e¦³40­Ó¤jÀY§L ¥L­Ì¬OA¯Z
²Ä¤@ºØ´N¬O §A»¡1¸¹ ¥L¥X¨Ó1¸¹
¦Ó¥B §A¥²¶·½T»{¸Ì­±¦³¦h¤Ö¤H ¤~¤£·|º|³ø ©ÎªÌ¦h³ø
²Ä¤GºØ«h¬O §A»¡ A¯Z³ø¼Æ
³oºØ¤è¦¡ ´N¤£¥Îª¾¹D³o¯Z¦³¦h¤Ö¤H¦s¦b
¤]´N¬O ´N±q·í«eªº¶¶¦ì²Ä¤@­Ó ¨ì³Ì«á¤@­Ó ¤@­Ó¤@­Ó¦Û¤v¯¸¥X¨Ó

³o¼Ë§Ú­Ì´N¯à¤F¸Ñ²Ä¤@¬q
  For Each Num In Split("8,27", ",")

§Ú­Ì­n¸Ì­±ªº 8,27 ½ü¬y¯¸¶i¥hNum¸Ì­±
¤è«K§Ú­Ì«áÄò¨Ï¥Î

·í8¶i¥hNum¤§«á
      ¾l¼Æ = (Arr(1)(R, C) + Num - 1) Mod 49 + 1
§Ú­ÌÄ~Äò°õ¦æ¤W­±³o¬q
Arr(1)(R,C) ¬O¤u§@ªí¤WM2ªº¦ì¸m ¤]´N¬O11
³Ì«á´NÅܦ¨
¾l¼Æ = (11+8-1) mod 49 +1
³Ì«áµª®×
¾l¼Æ= 18+1

µM«á ¦b¶i¦æ¤U¤@­Ó 27¯¸¥X¨Ó
¾l¼Æ = (11+27-1) mod 49 +1
¾l¼Æ= 38
³Ì«á¦A§â 19¸ò38µ²¦X¤@°_
´N·|Åܦ¨
19,38

TOP

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD