[發問] USERFORM裡的COMBOBOX 與 TEXTBOX 的應用

eeda60

USERFORM裡的COMBOBOX 與 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
    

複製代碼

試問 1.如何使 For i = 123000 To 123456 中的數字 123000與123456由 USERFORM1 裡的 TEXTBOX2、 TEXTBOX3 代替

     2.如何使 Ur = "102JD" & Format(i, "000000") 中的 102JD 由USERFORM1 裡的TEXTBOX1取代102 、 COMBOBOX1取代JD

GBKEE

回復 1# eeda60
多看看一些vba範例會進步的

1. ' Sub 123()  '在USERFORM的模組裡
   
2.         For i = Val(TEXTBOX2) To Val(TEXTBOX3)
   
3.             Ur = TEXTBOX1 & COMBOBOX1 & Format(i, "000000")
   
4. 
   
5.             
   
6. ' Sub 123()  '不在USERFORM的模組裡
   
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

複製代碼