所需對象：VBA Excel，范圍選擇

Question

因此，在我要制定的這種特定選擇結構中，這一行代碼出現錯誤。 我試圖根據需求的選擇和被讀入UB的用戶條目動態選擇一個范圍，但是我不斷收到對象必需的錯誤，並確定出了什么問題（我知道我的代碼有點多余某些部分，我得到了關於范圍的另一個錯誤代碼，並且現在暫時保留了一些冗余！）

   Dim y As Integer
   UB = TextBox1.Text
   y = UB + 4
   srange = "C" & 4 & ":" & "J" & y

   If ComboBox2.Text = "Demand" Then
    Worksheets("SensitivityDemand").Visible = True
    Worksheets("Welcome").Visible = False
    Worksheets("SensitivityDemand").Activate
    ActiveSheet.Range("A1").Select
    Sheets("SensitivityDemand").Select

    With ActiveSheets
        .Range("srange").Select          'Object required here 
        Application.CutCopyMode = False
    'Application.CutCopyMode = False
        Selection.Table RowInput:=Range("B3"), ColumnInput:=Range("B4")

Answer 1

您可以在下面的代碼中嘗試一下，讓我知道是否缺少任何內容。

Dim y As Integer
UB = TextBox1.Text
y = UB + 4
srange = "C" & 4 & ":" & "J" & y

If ComboBox2.Text = "Demand" Then
Worksheets("SensitivityDemand").Visible = True
Worksheets("Welcome").Visible = False
Worksheets("SensitivityDemand").Activate
ActiveSheet.Range("A1").Select
'Sheets("SensitivityDemand").Select


    ActiveSheet.Range(srange).Select          'Object required here 
    Application.CutCopyMode = False
'Application.CutCopyMode = False
    Selection.Table RowInput:=Range("B3"), ColumnInput:=Range("B4")

難道沒有用ActiveSheets也srange不要把那些雙qoutes因為它傳遞給它一些值。 所以，如果你把srange雙qoutes它將把一個字符串不是一個值。