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

[µo°Ý] InputBox¥\¯àªºµ{¦¡½X½s¼g¡C

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2016-11-25 10:20 ½s¿è

Sub W_TEST()
InputStr$ = "1,3-5,7"
For Each A In Split(InputStr, ",")
¡@¡@b = Split(A & "-" & A, "-")
¡@¡@For i = b(0) To b(1)
¡@¡@¡@¡@TT = Trim(TT & " " & i)
¡@¡@Next i
Next
If TT = "" Then Exit Sub
MsgBox TT

ar = Split(TT, " ")
For Each a In ar
¡@¡@MsgBox a
Next
End Sub

¥u¥Ü·N¥Î¡A¥i¦Û¦æ®M¬Ý¬Ý¡ã¡ã
¡@

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD