次のエラープロットを修正するにはどうすればよいですか？

Question

私はいくつかのデータをプロットしたいと思います。私のコードは本当にシンプルですが、これを達成するためにプロットしたい2つの範囲を2つの範囲にするだけです。次のように4つの受信ボックスを受け取ります。

first = InputBox("first range", "Enter first range") 
    first1 = InputBox("second range", "Enter second range") 
    two = InputBox("second range", "Enter second range") 
    two1 = InputBox("second range", "Enter second range") 

次のように私の完全なコードに見える：

Sub ALL() 
    Dim ws As Worksheet 
    Dim rng As Range 
    Dim objChrt As ChartObject 
    Dim chrt As Chart 

    Set ws = ThisWorkbook.Sheets("Sheet1") 

    With ws 
     first = InputBox("first range", "Enter first range") 
     first1 = InputBox("second range", "Enter second range") 
     two = InputBox("second range", "Enter second range") 
     two1 = InputBox("second range", "Enter second range") 
     Set rng = .Range("first:first1,two:two1") 
     .Shapes.AddChart 
     Set objChrt = .ChartObjects(.ChartObjects.Count) 
     Set chrt = objChrt.Chart 

     With chrt 
      .ChartType = xlColumnClustered 
      .SetSourceData Source:=rng 
      End With 
     End With 
End Sub 

私のコードはうまく動作するように見えますが、私は、マクロでそれを実行したいとき、私は次の範囲

A2 
A4 
B2 
B4 

を入力します。対応するボックスに

と私はEnterキーを押し、私は次の行でエラーが発生します。

セットRNG = .Range（「最初：first1、2：two1」）

私はこのエラーを修正することはできません、私はこの状況を克服するための提案、本当にありがとうございます。

Answer 1

エラーは、すべての変数を二重引用符で囲み、文字列として評価するためです。あなたはシート自体の全体の範囲を選択することができますInputBox関数のわずかな変化で

。

Set rng = Application.InputBox(prompt:="Test", Type:=8) 

これを参照してください：https://msdn.microsoft.com/en-us/library/office/ff839468.aspx

Sub test() 

    Dim rng As Range 

    first = "A2" 
    first1 = "A4" 
    two = "B2" 
    two1 = "B4" 

    '/Error 
    Set rng = Range("first:first1,two:two1") 

    '/Valid 
    Set rng = Range(first & ":" & first1, two & ":" & two1) 

    '/ Robust way 
    Set rng = Application.InputBox(prompt:="Sample", Type:=8) 

End Sub