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

[µo°Ý] ¦p¦ó³]¥ß¥i«ü©w­pºâ´Á¼Æ½d³òªºInputBox¡H

[µo°Ý] ¦p¦ó³]¥ß¥i«ü©w­pºâ´Á¼Æ½d³òªºInputBox¡H

¥»©«³Ì«á¥Ñ Airman ©ó 2018-6-10 00:59 ½s¿è

¦p¦³­«½ÆÃD¤§¼{~½Ð§R°£«eÃD¡CÁÂÁÂ!

´ú¸ÕÀÉ :
2018-0610-Q-1 -.rar (66.23 KB)
¥DÀÉDATA¡J
¥Ø«e¦C103µ{¦¡½X¬°Qdown = .[R6].End(xlDown).Row
«h¥u±NRÄæ³Ì«á´Á¼Æªº·í¦CQ : S¸ê®Æ¶K¤WT4 : T6¡F¥H¨ÑT3¤Î«áÄòªºT7¤½¦¡­pºâ¡C

°²³]¦C103µ{¦¡½X¬°Qdown = .[R6].End(xlDown).Row - 1
«h¥u±NRÄæ³Ì«á­Ë¼Æ²Ä¤G­Ó´Á¼Æªº·í¦CQ : S¸ê®Æ¶K¤WT4 : T6¡F¥H¨ÑT3¤Î«áÄòªºT7¤½¦¡­pºâ¡C

°²³]¦C103µ{¦¡½X¬°Qdown = .[R6].End(xlDown).Row - 2
«h¥u±NRÄæ³Ì«á­Ë¼Æ²Ä¤T­Ó´Á¼Æªº·í¦CQ : S¸ê®Æ¶K¤WT4 : T6¡F¥H¨ÑT3¤Î«áÄòªºT7¤½¦¡­pºâ¡C

¨ä¾l.....¥H¦¹Ãþ±À¡C

»Ý¨D¡J
·Q¥H¼W¥[¤@­ÓUpcount(¦WºÙ¸ÑÃDªÌ¥i¾Ü©y¨î©w)ªºInputBox¡AÂǨä¿é¤Jªº¼Æ¦r(1~99)¡A
¨Ó«ü©wT4 : T6(§t)¤Î¨ä©¹¥k¦UÄæ­n¶K¤WRÄæ³Ì«áªºN­Ó´Á¼Æ¤§¦U·í¦CªºQ : S¸ê®Æ~
EX1¡J·íInputBox¿é¤J1®É¡A«hT4 : T6¶K¤WRÄæ³Ì«á¤@­Ó´Á¼Æ·í¦CªºQ : S¸ê®Æ~
      §Yµ¥¦P¦C103µ{¦¡½X¬°Qdown = .[R6].End(xlDown).Rowªº®ÄªG¡C

EX2¡J·íInputBox¿é¤J2®É¡A«hT4 : T6¶K¤WRÄæ³Ì«á­Ë¼Æ²Ä¤G­Ó´Á¼Æ·í¦CªºQ : S¸ê®Æ¤Î
      U4 : U6¶K¤WRÄæ³Ì«á¤@­Ó´Á¼Æ·í¦CªºQ : S¸ê®Æ~
      §Yµ¥¦P¦C103µ{¦¡½X¬°Qdown = .[R6].End(xlDown).Row - 1 & .[R6].End(xlDown).Rowªº®ÄªG¡C

EX3¡J·íInputBox¿é¤J3®É¡A«hT4 : T6¶K¤WRÄæ³Ì«á­Ë¼Æ²Ä¤T­Ó´Á¼Æ·í¦CªºQ : S¸ê®Æ¤Î
      U4 : U6¶K¤WRÄæ³Ì«á­Ë¼Æ²Ä¤G­Ó´Á¼Æ·í¦CªºQ : S¸ê®Æ¤Î
      V4 : V6¶K¤WRÄæ³Ì«á¤@­Ó´Á¼Æ·í¦CªºQ : S¸ê®Æ~
      §Yµ¥¦P¦C103µ{¦¡½X¬°Qdown = .[R6].End(xlDown).Row - 2 & .[R6].End(xlDown).Row - 1 &
      .[R6].End(xlDown).Rowªº®ÄªG¡C

¨ä¾l.....¥H¦¹Ãþ±À¡C


½Ð°Ý :
Upcountªº InputBox­n«ç»ò³]¥ß?
¦C103ªºµ{¦¡½X­n¦p¦ó¦A¼¶¼g?

¥H¤W ·q½Ð¦U¦ìVBA°ª¤âÀ°¦£©M½ç±Ð! ÁÂÁÂ!

¦^´_ 12# GBKEE
¶Wª©¤j:±z¦n!
ÁÂÁ±zªº­@¤ßµù¸Ñ~2­Ó»Ý¨D¤@¨Ö¸Ñ¨M¤F¡C
¦A¦¸·PÁ±zªº¶O¯««ü¾É~·P®¦^^

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2018-6-25 15:08 ½s¿è

¦^´_ 11# Airman
  1. Option Explicit
  2. Private Sub CommandButton1_Click()
  3.     Dim UpRow As Variant, E As Variant, i As Integer, Msg As String
  4.     'NUM = "10" ' InputBox("½Ð¿ï¾Ü¤½¦¡ªº°_¨´§Ç¸¹", "§Ç¸¹10-99")
  5.     'Nrange = "200" ' InputBox("½Ð¿é¤J¹Bºâªº°_¨´´Á¼Æ", "¿é¤J´Á¼Æ")
  6.     UpRow = InputBox("½Ð¿ï¾ÜSÄæ³Ì«án­Ó­È", "¿é¤J1­Ó-239­Ó", "5,8,9")
  7.     Msg = "¿ï¾ÜSÄæ³Ì«án­Ó­È,®æ¦¡ ¼Æ­È ¦³»~"
  8.     'Ttim = Timer
  9.     '[B2] = ""
  10.     '[B3] = ""
  11.     '[F2] = ""
  12.     'numx = NUM
  13.     If InStr(UpRow, "-") Then
  14.         For Each E In Split(UpRow, "-")
  15.             If Not IsNumeric(E) Or i > E Then MsgBox Msg: End  'Àˬd¬O§_¬°¼Æ¦r©Î¤p©ó¤W¤@­Ó¼Æ¦r
  16.             i = E
  17.         Next
  18.         E = Split(UpRow, "-")(0)   '²Ä¤@­Ó¼Æ¦r
  19.         ReDim UpRow(E To Split(UpRow, "-")(UBound(Split(UpRow, "-")))) '­«¸m°}¦C¼Æªº¤j¤p
  20.         'ReDim ³¯­z¦¡ ¦bµ{§Ç¼h¦¸¤¤¥Î¨Ó­«·s°t¸m°ÊºA°}¦CÅܼƪºÀx¦sªÅ¶¡¡C
  21.         'Split ¨ç¼Æ ¶Ç¦^¤@­Ó³¯¦C¯Á¤Þ±q¹s¶}©lªº¤@ºû°}¦C¡A¥¦¥]§t«ü©w¼Æ¥Øªº¤l¦r¦ê¡C
  22.         'UBound ¨ç¼Æ ¶Ç¦^ Long­È¡Aªí¥Ü«ü©w°}¦C¬Yºû³Ì¤j¥i¨Ï¥Îªº°}¦C¯Á¤Þ¡C
  23.         UpRow(E) = E
  24.         For i = UpRow(E) + 1 To UBound(UpRow)
  25.             UpRow(i) = UpRow(i - 1) + 1       '¨Ì§Ç±N UpRow ¦p  5-9 Âର°}¦C
  26.         Next
  27.     ElseIf InStr(UpRow, ",") Then
  28.         For Each E In Split(UpRow, ",")
  29.             If Not IsNumeric(E) Or i > E Then MsgBox Msg: End      'Àˬd¬O§_¬°¼Æ¦r©Î¤p©ó¤W¤@­Ó¼Æ¦r
  30.             i = E
  31.         Next
  32.         UpRow = Split(UpRow, ",")  '±N UpRow ¦p  5,9,11 Âର°}¦C
  33.     ElseIf IsNumeric(UpRow) Then
  34.         UpRow = Array(UpRow)
  35.     Else
  36.         MsgBox Msg: End
  37.     End If
  38.     For Each E In UpRow
  39.     '*** °µ§A·Q°µªºªº¨Æ*****
  40.     '*** ¤]¥i©I¥s µ{¦¡ (§A·Q°µªºªº¨Æ)
  41.     Next
  42.    
  43. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 9# GBKEE
¶Wª©¤j¡G±z¦n!
¤£¦n·N«ä¡A¥»ÃD­ì¦³2­Ó²Ó³¡»Ý¨D¡A¬°ÁקK¤å¦r»¡©ú"¸¨¸¨ªø"¡A©ö¥O¤H²V²c¤£¸Ñ¡A©Ò¥H¥ý¥u°w¹ï²Ä1­Ó²Ó³¡»Ý¨D°µ»¡©ú¡F²Ä2­Ó²Ó³¡»Ý¨D~µ¥²Ä1­Ó²Ó³¡»Ý¨D¸Ñ¨M«á¡A¦A¥t°µ»¡©ú©M°Q½×¡C


³Æµù¡G¤w±N¤£¬ÛÃöªºµ{¦¡½X§ï¬°µù¸Ñ«¬ºA¡C
²Ä1­Ó»Ý¨D¡G
¨Ì¾ÚUpRow InputBox¶ñ¤Jªº¼Æ¦r¡AÅã¥Ü¦P¼Ë½s¸¹©M¹ïµ¥­Ó¼Æªº®ÄªGÀÉ®×~
EX:UpRow = ¶ñ¤J"1-4"¡A¥i¥H±o¨ìT49_SÄæ³Ì«án­Ó­È_1_200´Á¡FT49_SÄæ³Ì«án­Ó­È_2_200´Á¡FT49_SÄæ³Ì«án­Ó­È_3_200´Á¡FT49_SÄæ³Ì«án­Ó­È_4_200´Áµ¥¥|­Ó®ÄªGÀɮסC
EX:UpRow = ¶ñ¤J"2,5,8"¡A¥i¥H±o¨ìT49_SÄæ³Ì«án­Ó­È_2_200´Á¡FT49_SÄæ³Ì«án­Ó­È_5_200´Á¡FT49_SÄæ³Ì«án­Ó­È_8_200´Áµ¥¤T­Ó®ÄªGÀɮסC

¡° ¥»»Ý¨D¤£°Q½×~
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\T49_SÄæ³Ì«án­Ó­È_"& UpRow & "_" & mthcount & "´Á.xls"Àɮתº¤º®e~
¥u­nÀɮפ§UpRowªº¡¨¦WºÙ¡¨©MÀɮתº¡¨­Ó¼Æ¡¨¥¿½T§Y¥i¡C

DATA!¦C70~¦C94©M¦C97©M¦C100µ{¦¡½Xªº¿ù»~~
³Ò¾r±z¼·¤¾½ç¥¿~ÁÂÁ±z^^

´ú¸ÕÀÉ¡G TT49_SÄæ³Ì«án­Ó­È(¥DÀÉ).rar (29.05 KB)

TOP

¦^´_ 9# GBKEE
¶Wª©¤j:
ÁÂÁ±zªº­@¤ß¦^À³©M«ü¾É¡C

±ß¤W§Ú­«·s¾ã²z¥DÀÉ©M®ÄªGÀɤΤå¦r»¡©ú«á¡A©ú¤Ñ¦A½Ð±z½ç±Ð!ÁÂÁ±z^^

TOP

¦^´_ 8# Airman
NUM = "10" ' InputBox("½Ð¿ï¾Ü¤½¦¡ªº°_¨´§Ç¸¹", "§Ç¸¹10-99")  **§Ç¸¹10-99 ¬O«ü­þ¸Ì**
Nrange = "200" ' InputBox("½Ð¿é¤J¹Bºâªº°_¨´´Á¼Æ", "¿é¤J´Á¼Æ")  ** '°_¨´´Á¼Æ¦b­þ¸Ì**
UpRow = "1-3" ' InputBox("½Ð¿ï¾ÜSÄæ³Ì«án­Ó­È", "¿é¤J1­Ó-239­Ó") ** ¦³¬ÝÀ´¤F**
­n§ìDataªº­þ¨Ç¸ê®Æ¨ì
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\T49_SÄæ³Ì«án­Ó­È_" & NUM & "_" & UpRow & "_" & mthcount & "´Á.xls"
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ Airman ©ó 2018-6-23 09:02 ½s¿è

¦^´_ 5# GBKEE

¸É¥R»¡©ú:
»Ý¨D¬O~
EX:UpRow = ¶ñ¤J"1-3"¡A¥i¥H±o¨ìT49_SÄæ³Ì«án­Ó­È_10_1_200´Á¡FT49_SÄæ³Ì«án­Ó­È_10_2_200´Á¡FT49_SÄæ³Ì«án­Ó­È_10_3_200´Áµ¥¤T­Ó®ÄªGÀɮסC
EX:UpRow = ¶ñ¤J"2,5,8"¡A¥i¥H±o¨ìT49_SÄæ³Ì«án­Ó­È_10_2_200´Á¡FT49_SÄæ³Ì«án­Ó­È_10_5_200´Á¡FT49_SÄæ³Ì«án­Ó­È_10_8_200´Áµ¥¤T­Ó®ÄªGÀɮסC

¦ý¥Ø«eµ{¦¡½Xªº®ÄªG¬O~
UpRow = ¶ñ¤J"1-3"¡A·|¶]¥XT49_SÄæ³Ì«án­Ó­È_10_-1_200´Á¡FT49_SÄæ³Ì«án­Ó­È_10_0_200´Á¡FT49_SÄæ³Ì«án­Ó­È_10_1_200´Á¡FT49_SÄæ³Ì«án­Ó­È_10_2_200´Á¡FT49_SÄæ³Ì«án­Ó­È_10_3_200´Áµ¥¤­­Ó®ÄªGÀɮסC

EX:UpRow = ¶ñ¤J"2,5,8"¡A¥u¶]¥XT49_SÄæ³Ì«án­Ó­È_10_2_200´Á¡FT49_SÄæ³Ì«án­Ó­È_10_5_200´Áµ¥¤G­Ó®ÄªGÀɮסC
   
µ{¦¡½X¿ù»~ªº¦a¤è¡A·q½Ð±z½ç¥¿!ÁÂÁ±z^^"

TOP

¦^´_ 5# GBKEE
®ÄªGÀɭӼƿù»~.png
2018-6-22 05:03

¥i§_¦A³Ò¾r±z¼·¤¾½ç¥¿¡G
DATA!¦C70~¦C94©M¦C97©M¦C100µ{¦¡½Xªº¿ù»~~
UpRow = ¶ñ¤J"1-3"
·|¦h¶]¥X¤U¦C2­Ó¿ù»~ªº®ÄªGÀÉ®×~
T49_SÄæ³Ì«án­Ó­È_10_0_200´Á
T49_SÄæ³Ì«án­Ó­È_10_-1_200´Á
ÁÂÁ±z^^

´ú¸ÕÀÉ    T49_SÄæ³Ì«án­Ó­È.rar (29.67 KB)

'UpRow..............................................................................¦C69
    M3 = 0                                   ¡¥¦C70
    sta = 0
For x = 1 To Len(uprowx)
    If Mid(UpRow, x, 1) = "," Then
        M3 = M3 + 1
        ReDim Preserve In3rr(M3 - 1)
        In3rr(M3 - 1) = --Mid(uprowx, sta + 1, 2)
        sta = x
        x = x + 2
    End If
    If Mid(UpRow, x, 1) = "-" Then
        For y = Mid(uprowx, sta + 1, 2) To Mid(uprowx, x + 1, 2)
            M3 = M3 + 1
            ReDim Preserve In3rr(M3 - 1)
            In3rr(M3 - 1) = y
        Next
        sta = x + 3
        x = x + 5
    End If
    If x = Len(uprowx) Then
        M3 = M3 + 1
        ReDim Preserve In3rr(M3 - 1)
        In3rr(M3 - 1) = --Mid(uprowx, sta + 1, 2)
    End If
Next                                             ¡¥¦C94
'.................................................................................
For n = 1 To M
For n3 = 1 To M3                                   ¡¥¦C97
   
    NUM = In1rr(n - 1)
    UpRow = In3rr(n3 - 1)                           ¡¥¦C100

TOP

¦^´_ 5# GBKEE

ÁÂÁ±zªº«ü¾É~§Ú¸Õ¸Õ¬Ý^^

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2018-6-14 07:56 ½s¿è

¦^´_ 4# Airman
¥i¬ÝExcelªº»¡©ú  InputBox
¦³ InputBox ¨ç¼Æ, InputBox¤èªk¥i¹B¥Î,¦Û§Ú½m²ß¬Ý¬Ý
  1. '**Rows.Count -> ¤u§@ªíªºÁ`¦æ¼Æ(¦Uª©¥»Á`¦æ¼Æ¤£¤@¼Ë)**
  2.             If .[R6].End(xlDown).Row = Rows.Count Then
  3.                 MsgBox "¨S¦³´Á¼Æ": Exit Sub
  4.             Else
  5.                 Qdown = .[R6].End(xlDown)
  6.             End If
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD