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

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

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

InputBox-1.rar (47.75 KB)
½Ð°Ý¡J¯à¶ñ¤J5­ÓÄæ¦ì¥N½Xªº¥ô·N²Õ¦X¤§InputBox(CrngA©M»PCrngB)µ{¦¡½X­n¦p¦ó½s¼g?ÁÂÁÂ!

³Æµù¡J10=1­ÓÄæ¦ì¡A20=2­ÓÄæ¦ì¡A30=3­ÓÄæ¦ì¡A40=4­ÓÄæ¦ì¡A50=5­ÓÄæ¦ì

CrngAªº¥\¯à =¥i¥H¶ñ¤J10,20,30,40,50µ¥5­ÓÄæ¦ì¥N½Xªº¥ô·N²Õ¦X~~~~~
EX1¡J10©Î20©Î30©Î40©Î50ªº³æ­Ó¥N½X²Õ¦X¡C
EX2¡J10-20©Î10-30©Î20,40©Î20,50©Î10-50©Î10,30-50©Î10-30,50©Î20-40©Î20-50©Î...µ¥²V©M«¬ªº¥N½X²Õ¦X(²Õ¦X¤§¶¡¥H","§@°Ï¹j)¡C

¥t¥H"-"ªí¹F³sÄò¦h­ÓÄæ¦ì¼Æªº¥N½X¡J  
10-20¥Nªí1­ÓÄæ¦ì©M2­ÓÄæ¦ìªº²Õ¦X¥N½X¡C
10-30¥Nªí1­ÓÄæ¦ì©M2­ÓÄæ¦ì©M3­ÓÄæ¦ìªº²Õ¦X¥N½X¡C
10-40¥Nªí1­ÓÄæ¦ì©M2­ÓÄæ¦ì©M3­ÓÄæ¦ì©M4­ÓÄæ¦ìªº²Õ¥N½X¦X¡C
10-50¥Nªí1­ÓÄæ¦ì©M2­ÓÄæ¦ì©M3­ÓÄæ¦ì©M4­ÓÄæ¦ì©M5­ÓÄæ¦ìªº²Õ¦X¥N½X¡C
10,30-40¥Nªí1­ÓÄæ¦ì©M3­ÓÄæ¦ì©M4­ÓÄæ¦ìªº²Õ¦X¥N½X¡C
.......¨ä¾lÃþ±À

CrngBªº¥\¯à = »PCrngAªº¥\¯à¬Û¦P¡C

¦^´_ 1# ziv976688

Äæ¦ì¤£¦h«Øij§ï¬°CrngA="1,3,4,5";CrngA="1,3"......µ¥µ¥

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2016-11-23 20:32 ½s¿è

¦^´_ 2# ¸­°ê¬w
·PÁ«Øij~

¦]¬°¦@¦³7­ÓÄæ¦ì¡A¥H1~5­ÓÄæ¦ì§@²Õ¦X¡C
1­ÓÄæ¦ì¦³7­Ó²Õ¦X~10="-1-2-3-4-5-6-7"

2­ÓÄæ¦ì¦³21­Ó²Õ¦X~20 = "-12-13-14-15-16-17-23-24-25-26-27-34-35-36-37-45-46-47-56-57-67"

3­ÓÄæ¦ì¦³35­Ó²Õ¦X~30 = "-1,2,3-1,2,4-1,2,5-1,2,6-1,2,7-1,3,4-1,3,5-1,3,6-1,3,7-1,4,5-1,4,6-1,4,7-1,5,6-1,5,7-1,6,7-2,3,4-2,3,5-2,3,6-2,3,7-2,4,5-2,4,6-2,4,7-2,5,6-2,5,7-2,6,7-3,4,5-3,4,6-3,4,7-3,5,6-3,5,7-3,6,7-4,5,6-4,5,7-4,6,7-5,6,7"

4­ÓÄæ¦ì¦³35­Ó²Õ¦X~40 = "-1,2,3,4-1,2,3,5-1,2,3,6-1,2,3,7-1,2,4,5-1,2,4,6-1,2,4,7-1,2,5,6-1,2,5,7-1,2,6,7-1,3,4,5-1,3,4,6-1,3,4,7-1,3,5,6-1,3,5,7-1,3,6,7-1,4,5,6-1,4,5,7-1,4,6,7-1,5,6,7-2,3,4,5-2,3,4,6-2,3,4,7-2,3,5,6-2,3,5,7-2,3,6,7-2,4,5,6-2,4,5,7-2,4,6,7-2,5,6,7-3,4,5,6-3,4,5,7-3,4,6,7-3,5,6,7-4,5,6,7"

5­ÓÄæ¦ì¦³21­Ó²Õ¦X~50 ="-1,2,3,4,5-1,2,3,4,6-1,2,3,4,7-1,2,3,5,6-1,2,3,5,7-1,2,3,6,7-1,2,4,5,6-1,2,4,5,7-1,2,4,6,7-1,2,5,6,7-1,3,4,5,6-1,3,4,5,7-1,3,4,6,7-1,3,5,6,7-1,4,5,6,7-2,3,4,5,6-2,3,4,5,7-2,3,4,6,7-2,3,5,6,7-2,4,5,6,7-3,4,5,6,7"

©Ò¥H¦b InputBox¶ñ¤J1,2,3,4,5,6,7ªí¥Ü¦U1­ÓÄæ¦ì©Î12,13,....,34567ªí¥Ü¨ä¥¦Äæ¦ì²Õ¦X~¤£¤Ó¾A¥Î¡C

¥t¥~·í²£¥Í¦UÄæ¦ì²Õ¦Xªº¸ê®Æ§¨©Î®ÄªGÀɤ]¥²¶·¨Ì«ü©wÄæ¦ì²Õ¦X¦Û°Ê¤ÀÃþ^^

TOP

¦^´_ 2# ¸­°ê¬w

©êºp!§Ú¦n¹³»~·|¤F±zªº·N«ä~~~~~~~

¥ý¸Õ¸Õ¬Ý¦A»¡^^

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ª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

¦^´_ 4# ziv976688


    §Ú¤]¤£ª¾¹D§A¨ú¦h¤Ö²Õ¦X,§Ú¬Ý§A¼Ó¤Wªº·N«ä¬O­n7¿ï1¨ì5Äæ
µM«á¦A¦C¥X©Ò¦³²Õ¦X¨ì·s¤u§@ªí¶Ü

TOP

¦^´_ 5# ­ã´£³¡ªL
·PÁ±zªº«ü¾É¡C

§Ú¸Õ¦æ¬Ý¬Ý!·P®¦!

TOP

¦^´_ 6# ¸­°ê¬w
§Úªº¶D¨D«Ü³æ¯Â
:CrngAªº¥\¯à =¥i¥H¶ñ¤J10,20,30,40,50µ¥5­ÓÄæ¦ì¥N½X(ÃѧO½X)ªº¥ô·N²Õ¦X~~~~~
EX1¡J10©Î20©Î30©Î40©Î50ªº³æ­Ó¥N½X(ÃѧO½X)²Õ¦X¡C
EX2¡J10-20©Î10-30©Î20,40©Î20,50©Î10-50©Î10,30-50©Î10-30,50©Î20-40©Î20-50©Î...µ¥²V©M«¬ªº¥N½X(ÃѧO½X)²Õ¦X(²Õ¦X¤§¶¡¥H","§@°Ï¹j)¡C

¬Ý¤F­ã´£³¡ªL¤j¤jªº´£¥Ü«á¡AÀ³¸Ó¬O§Úªº«ä¦Ò¤è¦V¿ù»~¡C
¥ý¨Ì¾Ú­ã´£ªº´£¥Ü¦Û¼g¬Ý¬Ý~~¦³°ÝÃD¦A¤W¨Ó½Ð±Ð¡CÁÂÁÂ!

TOP

        ÀR«ä¦Û¦b : ÀR§¤±`®¦¤v¹L¡B¶¢½Í²ö½×¤H«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD