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

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

¦^´_ 16# ziv976688


   ¬OÀx¦s®æ¸Ì­±ªº¼Æ¦r³á~~Num¥u¬O­ÓÅܼƦWºÙ¦Ó¤w
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

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

¦^´_ 20# singo1232001
ÁÂÁÂS¤j±zªº¸Ô²Ó»¡©ú~
§Ú¬ãŪ«á~¦³°ÝÃD¦A¦V±z½Ð±Ð¡C
ÁÂÁ±z

TOP

¦^´_ 21# n7822123
ÁÂÁÂn¤j±zªº¦^ÂÐ~ÁA¸Ñ¤F

TOP

¦^´_ 17# ziv976688

§Ú°õ¦æ¬OÁÙ¦n4.5¬í§¹¦¨¡A·íµM§ï¬°°}¦C

·Ç7¶i8 ªº V2:AB2 ¸ê®Æ¦³»~¡A§A­×§ï«á¦b°õ¦æ¬Ý¬Ý
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 17# ziv976688

°ÝÃD1¡GDATA!VB ¤U¦C©ñ¸m¦ì¸mÀ³¸Ó¦b °j°é¤§¥~
    For s = 1 To 6   '6­Ó¤u§@ªí
        Shrr = Array("·Ç2¶i3", "·Ç3¶i4", "·Ç4¶i5", "·Ç5¶i6", "·Ç6¶i7", "·Ç7¶i8")
.
.
    NEXT
            'Call °Ñ¼Æµn¿ý
            Call ¾l¼Æµn¿ý
            Call ¾l¼Æ¦U¨ú1
            Call ¼Ð¥Ü©³¦â

    °ÝÃD2¡G "·Ç7¶i8" °µ¥X¨Óªº¸ê®Æ¦³»~¡A§A¦A¬d¬Ý¬Ý
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 25# ML089
§ÚÁÙ¨S¦³ª`·N¨ì·Ç7¶i8 ªº V2:AB2 ¸ê®Æ¦³»~
§ï¬°°}¦C.....­×§ï«á¦b°õ¦æ¬Ý¬Ý~
4¼Óªº¶Q¸Ñ¨S¦³¬Ý¨ì­×§ïªº¦a¤è¡C
½Ð±Ð±z : À³¸Ó«ç»ò§ï?
ÁÂÁ±z
PS : ¤£¬O§Úªº¹q¸£¦³°ÝÃD´NOK¤F~´X¬í³£¨S¦³Ãö«Y

DATA!VB ¤U¦C©ñ¸m¦ì¸mÀ³¸Ó¦b °j°é¤§¥~
¨ºª©­±ªº³]©w¤£´N¥¢®Ä¤F

§Ú¦Û¤v¥ý¬ã²ß¤@¤U
¤£¦n·N«ä¨Æ¨Æ³Â·Ð±z¡C
©ú¤Ñ¦A»¡!
±ß¦w!

TOP

¦^´_ 26# ziv976688

ª©­±ªº³]©w¡AÀ³¸Ó¬O©ñ¨ì³Ì«á­±¡A¶¶§Ç¦p¤U

¸ê®Æ
­pºâ
±Æª©
¦C¦L
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 13# n7822123
¼Ð¥Ü©³¦â_n7822123.rar (101.78 KB)
¤£¦n·N«ä¡A¥i§_½Ð±zÀ°§Ú¬Ý¤@¤U~
¥u°õ¦æ"¼Ð¥Ü©³¦â"«ÜOK(¤£¨ì2¬í)¡A
¦ý¦pªG¦A¥[¤W"¾l¼Æµn¿ý"~ ´ú¸ÕN¦¸¡A«o³£­n¶]30¬í¤W¤U~
¬°¤°»ò·|¶]ªº³o»ò²§±`ªººC ?
¬O2003ª©¥»ªºÃö«Y¶Ü?
¯à§ïµ½¶Ü?
ÁÂÁ±z

TOP

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

¦^´_ 27# ML089
¼Ð¥Ü©³¦â_ML089_C1.rar (107.42 KB)
ªá¤F¥b¤Ñ~±N±z©Ò½ç±Ðªº¸ÑµªÀÉ¡A¥þ³¡ÀË´ú§¹²¦~
³ø§i¦p¤U¡G
1_±zªº­Ó§O¸ÑµªÀÉ => ¥þ³¡OK

2_¥H³Ì«á§¹¦¨ªºÀÉ®×(¼Ð¥Ü©³¦â_ML089_C1)´ú¸Õ~
Call °Ñ¼Æµn¿ý©MCall ¾l¼Æµn¿ý => °õ¦æ¡A
'Call ¾l¼Æ¦U¨ú1 => ¤£°õ¦æ => ²£¥ÍA2=""®É¡A¤]·|¼Ð¥ÜÂÅ©³¦â(¥u¦³"·Ç2¶i3"¥¿±`)

3_¥H³Ì«á§¹¦¨ªºÀÉ®×(¼Ð¥Ü©³¦â_ML089_C1)´ú¸Õ~
Call °Ñ¼Æµn¿ý©MCall ¾l¼Æµn¿ý©MCall ¾l¼Æ¦U¨ú1 => ¥þ³¡°õ¦æ¡A
"·Ç5¶i6"ªº¼ÐÃD¦C·|²¾¨ì²Ä4¦C =>½Ð¥ý±NDATA!VBªº¦C59¡A§ï¬°°õ¦æª¬ºA¡A
µM«á«ö°õ¦æÁä~´ú¸Õµ²ªG¡C
¦pªG­n­«·s´ú¸Õ~½Ð«ö²M°£Áä§Y¥i¡C

4_°õ¦æ¼Ò²Õµ{¦¡½XÀ³©ñ¸m¦bDATA!VB~
For s = 1 To 6   '6­Ó¤u§@ªí
¡G
NEXT
            Call °Ñ¼Æµn¿ý
            Call ¾l¼Æµn¿ý
            Call ¾l¼Æ¦U¨ú1
            Call ¼Ð¥Ü©³¦â
§ÚÁÙ·Q¤£¥X«ç»ò¸Ñ¨Mª©­±³]©w¥¢®Äªº°ÝÃD

¥H¤W   Àµ½Ð±z½ç±Ð¬O©¯¡I  ÁÂÁ±z

TOP

Sub ¾l¼Æµn¿ý()
Dim xS As Worksheet, R&, Arr, Brr, A
For Each xS In Sheets(Array("·Ç2¶i3", "·Ç3¶i4", "·Ç4¶i5", "·Ç5¶i6", "·Ç6¶i7", "·Ç7¶i8"))
    R = xS.[b65536].End(xlUp).Row - 1
    Arr = xS.[m2:ab2].Resize(R)
    ReDim Brr(1 To R, 1 To 7)
    For i = 1 To R
    For j = 1 To 7
        For Each A In Split(Arr(i, j + 9), ",")
            Brr(i, j) = Brr(i, j) & "," & Format((Arr(i, j) + Val(A)) Mod 49, "00;;49")
        Next A
        Brr(i, j) = Mid(Brr(i, j), 2)
    Next j
    Next i
    xS.[d2].Resize(R, 7) = Brr
Next xS
End Sub

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD