Board logo

標題: [發問] USERFORM裡的COMBOBOX 與 TEXTBOX 的應用 [打印本頁]
作者: eeda60    時間: 2013-7-26 11:05     標題: USERFORM裡的COMBOBOX 與 TEXTBOX 的應用

USERFORM裡的COMBOBOX 與 TEXTBOX 的應用
  1. Sub 123()
  2. '
  3. Dim i As Long, Ur$, Rng As Range, R As Long

  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    時間: 2013-7-26 12:43

回復 1# eeda60
多看看一些vba範例會進步的
  1. ' Sub 123()  '在USERFORM的模組裡
  2.         For i = Val(TEXTBOX2) To Val(TEXTBOX3)
  3.             Ur = TEXTBOX1 & COMBOBOX1 & Format(i, "000000")

  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
複製代碼




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)