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

[µo°Ý] USERFORM¸ÌªºCOMBOBOX »P TEXTBOX ªºÀ³¥Î

[µo°Ý] USERFORM¸ÌªºCOMBOBOX »P TEXTBOX ªºÀ³¥Î

USERFORM¸ÌªºCOMBOBOX »P TEXTBOX ªºÀ³¥Î
  1. Sub 123()
  2. '
  3. Dim i As Long, Ur$, Rng As Range, R As Long

  4.        For i = 123000 To 123456   
  5.         Ur = "102JD" & Format(i, "000000")
  6.         R = ActiveSheet.UsedRange.Rows.Count
  7.         Set Rng = ActiveSheet.Range("A" & IIf(R = 1, 0, R) + 1)
  8.         With ActiveSheet.QueryTables.Add(Connection:= _
  9.             "URL;http://XXX.XXXX.XXX/XXXXXX/XXXX_XXX_XXXXXXX.XXX?XXXXXXXXXX=" & Ur _
  10.                 , Destination:=Rng)
  11.             .Name = "XXXX_XXX_XXXXXXX.XXX?XXXXXXXXXX=" & Ur
  12.             .FieldNames = True
  13.             .RowNumbers = False
  14.             .FillAdjacentFormulas = False
  15.             .PreserveFormatting = True
  16.             .RefreshOnFileOpen = False
  17.             .BackgroundQuery = True
  18.             .RefreshStyle = xlInsertDeleteCells
  19.             .SavePassword = False
  20.             .SaveData = True
  21.             .AdjustColumnWidth = True
  22.             .RefreshPeriod = 0
  23.             .WebSelectionType = xlSpecifiedTables
  24.             .WebFormatting = xlWebFormattingNone
  25.             .WebTables = "2"
  26.             .WebPreFormattedTextToColumns = True
  27.             .WebConsecutiveDelimitersAsOne = True
  28.             .WebSingleBlockTextImport = False
  29.             .WebDisableDateRecognition = False
  30.             .WebDisableRedirections = False
  31.             .Refresh BackgroundQuery:=False
  32. End Sub
½Æ»s¥N½X
¸Õ°Ý 1.¦p¦ó¨Ï For i = 123000 To 123456 ¤¤ªº¼Æ¦r 123000»P123456¥Ñ USERFORM1 ¸Ìªº TEXTBOX2¡B TEXTBOX3 ¥N´À

     2.¦p¦ó¨Ï Ur = "102JD" & Format(i, "000000") ¤¤ªº 102JD ¥ÑUSERFORM1 ¸ÌªºTEXTBOX1¨ú¥N102 ¡B COMBOBOX1¨ú¥NJD
eeda60

¦^´_ 1# eeda60
¦h¬Ý¬Ý¤@¨Çvba½d¨Ò·|¶i¨Bªº
  1. ' Sub 123()  '¦bUSERFORMªº¼Ò²Õ¸Ì
  2.         For i = Val(TEXTBOX2) To Val(TEXTBOX3)
  3.             Ur = TEXTBOX1 & COMBOBOX1 & Format(i, "000000")

  4.             
  5. ' Sub 123()  '¤£¦bUSERFORMªº¼Ò²Õ¸Ì
  6.         
  7.         With USERFORMaaa
  8.         For i = Val(.TEXTBOX2) To Val(.TEXTBOX3)
  9.             Ur = .TEXTBOX1 & .COMBOBOX1 & Format(i, "000000")
  10.             '
  11.             '
  12.          Next
  13.         End With
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¦a¤WºØ¤Fµæ¡A´N¤£©öªø¯ó¡F¤ß¤¤¦³µ½¡A´N¤£©ö¥Í´c¡C
ªð¦^¦Cªí ¤W¤@¥DÃD