- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2018-6-25 15:08 ½s¿è
¦^´_ 11# Airman - Option Explicit
- Private Sub CommandButton1_Click()
- Dim UpRow As Variant, E As Variant, i As Integer, Msg As String
- 'NUM = "10" ' InputBox("½Ð¿ï¾Ü¤½¦¡ªº°_¨´§Ç¸¹", "§Ç¸¹10-99")
- 'Nrange = "200" ' InputBox("½Ð¿é¤J¹Bºâªº°_¨´´Á¼Æ", "¿é¤J´Á¼Æ")
- UpRow = InputBox("½Ð¿ï¾ÜSÄæ³Ì«ánÓÈ", "¿é¤J1Ó-239Ó", "5,8,9")
- Msg = "¿ï¾ÜSÄæ³Ì«ánÓÈ,®æ¦¡ ¼ÆÈ ¦³»~"
- 'Ttim = Timer
- '[B2] = ""
- '[B3] = ""
- '[F2] = ""
- 'numx = NUM
- If InStr(UpRow, "-") Then
- For Each E In Split(UpRow, "-")
- If Not IsNumeric(E) Or i > E Then MsgBox Msg: End 'Àˬd¬O§_¬°¼Æ¦r©Î¤p©ó¤W¤@ӼƦr
- i = E
- Next
- E = Split(UpRow, "-")(0) '²Ä¤@ӼƦr
- ReDim UpRow(E To Split(UpRow, "-")(UBound(Split(UpRow, "-")))) '«¸m°}¦C¼Æªº¤j¤p
- 'ReDim ³¯z¦¡ ¦bµ{§Ç¼h¦¸¤¤¥Î¨Ó«·s°t¸m°ÊºA°}¦CÅܼƪºÀx¦sªÅ¶¡¡C
- 'Split ¨ç¼Æ ¶Ç¦^¤@Ó³¯¦C¯Á¤Þ±q¹s¶}©lªº¤@ºû°}¦C¡A¥¦¥]§t«ü©w¼Æ¥Øªº¤l¦r¦ê¡C
- 'UBound ¨ç¼Æ ¶Ç¦^ LongÈ¡Aªí¥Ü«ü©w°}¦C¬Yºû³Ì¤j¥i¨Ï¥Îªº°}¦C¯Á¤Þ¡C
- UpRow(E) = E
- For i = UpRow(E) + 1 To UBound(UpRow)
- UpRow(i) = UpRow(i - 1) + 1 '¨Ì§Ç±N UpRow ¦p 5-9 Âର°}¦C
- Next
- ElseIf InStr(UpRow, ",") Then
- For Each E In Split(UpRow, ",")
- If Not IsNumeric(E) Or i > E Then MsgBox Msg: End 'Àˬd¬O§_¬°¼Æ¦r©Î¤p©ó¤W¤@ӼƦr
- i = E
- Next
- UpRow = Split(UpRow, ",") '±N UpRow ¦p 5,9,11 Âର°}¦C
- ElseIf IsNumeric(UpRow) Then
- UpRow = Array(UpRow)
- Else
- MsgBox Msg: End
- End If
- For Each E In UpRow
- '*** °µ§A·Q°µªºªº¨Æ*****
- '*** ¤]¥i©I¥s µ{¦¡ (§A·Q°µªºªº¨Æ)
- Next
-
- End Sub
½Æ»s¥N½X |
|