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

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

¦^´_ 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

¥»©«³Ì«á¥Ñ 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

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

TOP

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD