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

eeda60

USERFORM¸ÌªºCOMBOBOX »P TEXTBOX ªºÀ³¥Î

1. Sub 123()
   
2. '
   
3. Dim i As Long, Ur$, Rng As Range, R As Long
   
4. 
   
5.        For i = 123000 To 123456   
   
6.         Ur = "102JD" & Format(i, "000000")
   
7.         R = ActiveSheet.UsedRange.Rows.Count
   
8.         Set Rng = ActiveSheet.Range("A" & IIf(R = 1, 0, R) + 1)
   
9.         With ActiveSheet.QueryTables.Add(Connection:= _
   
10.             "URL;http://XXX.XXXX.XXX/XXXXXX/XXXX_XXX_XXXXXXX.XXX?XXXXXXXXXX=" & Ur _
    
11.                 , Destination:=Rng)
    
12.             .Name = "XXXX_XXX_XXXXXXX.XXX?XXXXXXXXXX=" & Ur
    
13.             .FieldNames = True
    
14.             .RowNumbers = False
    
15.             .FillAdjacentFormulas = False
    
16.             .PreserveFormatting = True
    
17.             .RefreshOnFileOpen = False
    
18.             .BackgroundQuery = True
    
19.             .RefreshStyle = xlInsertDeleteCells
    
20.             .SavePassword = False
    
21.             .SaveData = True
    
22.             .AdjustColumnWidth = True
    
23.             .RefreshPeriod = 0
    
24.             .WebSelectionType = xlSpecifiedTables
    
25.             .WebFormatting = xlWebFormattingNone
    
26.             .WebTables = "2"
    
27.             .WebPreFormattedTextToColumns = True
    
28.             .WebConsecutiveDelimitersAsOne = True
    
29.             .WebSingleBlockTextImport = False
    
30.             .WebDisableDateRecognition = False
    
31.             .WebDisableRedirections = False
    
32.             .Refresh BackgroundQuery:=False
    
33. 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

GBKEE

¦^´_ 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.             
   
6. ' Sub 123()  '¤£¦bUSERFORMªº¼Ò²Õ¸Ì
   
7.         
   
8.         With USERFORMaaa
   
9.         For i = Val(.TEXTBOX2) To Val(.TEXTBOX3)
   
10.             Ur = .TEXTBOX1 & .COMBOBOX1 & Format(i, "000000")
    
11.             '
    
12.             '
    
13.          Next
    
14.         End With

½Æ»s¥N½X