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

[µo°Ý] µL¥æ¶°¼Æ­Èªº¤u§@ªí

[µo°Ý] µL¥æ¶°¼Æ­Èªº¤u§@ªí

ªþ¥ó.rar (6.07 KB)
Dim Number, INnum()

    If Number = "1-49" Then
        ReDim Preserve INnum(48)
        For i = 0 To 48
            INnum(i) = i + 1
        Next
    ElseIf Number = 0 Then
        ReDim Preserve INnum(6)
        ReNumber = 1
    ElseIf Number = "" Then
        ReDim Preserve INnum(0)
        ReNumber = 0

    End If
ÂŦⳡ¤Àªºµ{¦¡½X~¥u¯à²£¥Í¦p»¡©úÀɪºJ12¡GP12©MR12¡GX12¦³>0­Óªº¥æ¶°¼Æ¦r(01~49)ªº¤u§@ªí~
EX¡GSheet1¦³¥æ¶°¼Æ¦r = 49      Sheet2¦³¥æ¶°¼Æ¦r = 16©M23

¦pªG·íJ12¡GP12©MR12¡GX12¨S¦³¥ô¦ó1­Ó¥æ¶°¼Æ¦r®É¡A¨ä¤u§@ªí¤]¯à²£¥Í~
EX¡GSheet3©MSheet4
¸Ô¦pªþ¥ó¡C

½Ð°Ý¡G¦pªG·Q¤£¨ü If Number = "1-49" Then ªº¼vÅT(­­¨î)®É¡AÂŦⳡ¤Àªºµ{¦¡½XÀ³¦p¦ó­×¥¿¡H
ÁÂÁ¡I

¦^´_ 1# papaya


    §Aªº±Ô­z¦³ÂI¼Ò½k
¤j­P¤W¥ý°Q½×¤@¤U
¦pªG§Ú¨S²q¿ù ¹ê»Ú¤W¬O
if Number = "1-49"  then ¼g¿ù ©Ò¥H¥Ã»·³o¦æ¤£·|°õ¦æ
³o¦æªº·N«ä¬O
¦pªGNumber ªº¤å¦r ¨Ã«D   ("1-49"  ³o­Ó4­Ó¦r¤¸¦r¦ê)  ªº±¡ªp¤U ´N¬Ofalse
¨º»ò®Ú¾Ú¥Ø«eªºª¬ªp¨Ó»¡
ªí¤¤¨Ã¨S¦³"1-49"ªº°ê¤å¦r¦ê

¥¿½T¼gªkÀ³¸Ó­n§ï¦¨
if --Number >= 1 and --Number <= 49 then
³o¼Ë¤~¬O§PÂ_ ·í«e¼Æ¦r¬O§_¤¶©ó1~49ªº¼Æ¦r


    if --Number >= 1 and --Number <= 49 then
        ReDim Preserve INnum(48)
        For i = 0 To 48
            INnum(i) = i + 1
        Next
    ElseIf Number = 0 Then
        ReDim Preserve INnum(6)
        ReNumber = 1
    ElseIf Number = "" Then
        ReDim Preserve INnum(0)
        ReNumber = 0
    End If

TOP

¥»©«³Ì«á¥Ñ papaya ©ó 2021-7-17 04:07 ½s¿è

¦^´_ 2# singo1232001
¤£¦n·N«ä¡A¨S»¡²M·¡~³o¬O§Ú¦bºô¤W¸`¿ýªº~       

   If Number = "1-49" Then
        ReDim Preserve INnum(48)
        For i = 0 To 48
            INnum(i) = i + 1
        Next
    ElseIf Number = 0 Then
        ReDim Preserve INnum(6)
        ReNumber = 1    '¦C8


    Else
        m1 = 0
        sta = 1
        For i = 2 To Len(Number) + 1
            If Mid(Number, i, 1) = "," Or i > Len(Number) Then
                ReDim Preserve INnum(m1)
                INnum(m1) = --Mid(Number, sta, i - sta)
                sta = i + 1
                m1 = m1 + 1
            End If
            If Mid(Number, i, 1) = "-" Then
                ReDim Preserve INnum(m1)
                INnum(m1) = --Mid(Number, sta, i - sta)
                m1 = m1 + 1
                For j = i + 1 To i + 3
                    If Mid(Number, j, 1) = "," Or j > Len(Number) Then
                    For k = Mid(Number, sta, i - sta) + 1 To Mid(Number, i + 1, j - (i + 1))
                    ReDim Preserve INnum(m1)
                    INnum(m1) = k
                    m1 = m1 + 1
                    Next
                    sta = j + 1
                    i = j
                    Exit For
                    End If
                Next


                If j > Len(Number) Then Exit For
            End If


        Next
    End If
¥H¤Wªºµ{¦¡½X¡A°õ¦æ¤@¤Á¥¿±`~³£¬O¯à²£¥Í¦³01~49¤§¦U=1­Ó¥æ¶°¸¹½Xªº¤u§@ªí¡C

¦]¬°§Ú·Q¥]¬A¨S¦³(§Y=0­Ó)¥æ¶°ªº¤u§@ªí¤]¯à¥þ³¡²£¥Í¡A©Ò¥H¤~¦b¦C9´¡¤J
    ElseIf Number = "" Then
        ReDim Preserve INnum(0)
        ReNumber = 0
¥u¬O´ú¸Õ«á¡AÁÙ¬O¥u·|²£¥Í¦³1~49¤§¦U>=1­Ó¥æ¶°¸¹½Xªº¤u§@ªí¡C

¦]¦¹¤W½×¾Â½Ð±Ð : ¦p¦ó­×¥¿§Ú¦Û¦æ´¡¤Jªºµ{¦¡½X ?
ÁÂÁÂ!

TOP

¥»©«³Ì«á¥Ñ papaya ©ó 2021-7-17 07:37 ½s¿è

¦^´_ 2# singo1232001

¥]¬A¨S¦³(§Y=0­Ó)¥æ¶°­×¥¿¬°¥]¬A¨S¦³(§Y>=0­Ó)¥æ¶°¸¹½X

¤£¹L¡A¥J²Ó¬ã¨s¸`¿ýªº­ìµ{¦¡½X :

If Number = "1-49" Then
        ReDimPreserve INnum(48)
        For i = 0 To48
           INnum(i) = i + 1
        Next
¬O­n§ì¦³1~49¤¤ªº¥ô=1­Ó¥æ¶°¸¹½X¤§¤u§@ªí



    ElseIf Number = 0 Then
        ReDimPreserve INnum(6)
        ReNumber =1   
'¦C8
¬O­n§ì¦³«ü©wªº¬Y7­Ó¸¹½X¤¤ªº
¥ô=1­Ó¥æ¶°¸¹½X¤§¤u§@ªí


¥Ø«e§Ú¦b¦C9´¡¤Jªºµ{¦¡½X~

ElseIf Number ="" Then

        ReDim Preserve INnum(0)
        ReNumber = 0

´ú¸Õ«á~·|¶]¥X¦³1~49¤¤ªº¥ô>=1­Ó¥æ¶°¸¹½X¤§¤u§@ªí


¦]¬°¬J¬O­n§ì¥æ¶°¸¹½Xªºµ{¦¡½X¡A©Ò¥H§Ú·Q±N´¡¤Jªºµ{¦¡½X~

­×¥¿¬°­n§ì¦³1~49¤¤ªº¥ô>=0­Ó¥æ¶°¸¹½X¤§¤u§@ªí~·|¤£·|¬OµL¸Ñ ?

TOP

¦^´_ 4# papaya


    ©êºp ¤£¬O«Ü²M·¡§A­nªº»Ý¨D
§Ú¥ýÀH«K°µ¬Ý¬Ý

ªþ¥ó.zip (15.47 KB)

TOP

¦^´_ 5# singo1232001
ÁÂÁ±z³o»ò¼ö¤ßªºÀ°¦£

§Ú¦C¥Xªº¥u¬O³]¥ßInputBox(¶ñ¤J¸¹½X)ªºµ{¦¡½X¡A
©Ò¥H¦pµLªk´N´¡¤J¦C9ªºµ{¦¡½X§@­×¥¿¡A
³o¤@ÃDÀ³¬OµL¸Ñ¤F~
¦A¦¸ÁÂÁ±z!

TOP

­×¥¿~
½Ð±Nªþ¥óªºSheet4!X12§ï¬°06~³o¼Ë¤~²Å¦X»¡©ú¡C
ÁÂÁÂ!

TOP

        ÀR«ä¦Û¦b : ¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤Hµh­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD