必要なオブジェクト：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はダブルクォートの中のものを入れないでは使用しません。だからsrangeをダブルqoutesに入れると、値ではない文字列として扱われます。