範囲をメッセージボックスとして使用するVBAチャート

Question

チャートを作成しようとしていますが、毎月変更されるので、範囲を選択するようにポップアップボックスが要求されています。

以下のコードでは範囲を尋ねていますが、グラフは作成されません。

Sub test() 
    'Set up the variables. 
    Dim rng As Range 

    'Use the InputBox dialog to set the range for MyFunction 
    Set rng = Application.InputBox("Range:", Type:=8) 

    'Call MyFunction 
    ActiveCell.Value = MyFunction(rng) 
End Sub 

Function MyFunction(rng As Range) As Double 

    MyFunction = ActiveSheet.Shapes.AddChart.Select 
    ActiveChart.ChartType = xlLineMarkers 
    ActiveChart.SetSourceData Source:=rng 
End Function 

最初の出口のサブMyfunctionを呼び出してからtestを防止した すべてのヘルプは

Sub test() 
'Set up the variables. 
Dim rng As Range 

'Use the InputBox dialog to set the range for MyFunction 
Set rng = Application.InputBox("Range:", Type:=8) 
    Exit Sub 
'Call MyFunction 
ActiveCell.Value = MyFunction(rng) 
End Sub 

Function MyFunction(rng As Range) As Double 
MyFunction = ActiveSheet.Shapes.AddChart.Select 
ActiveChart.ChartType = xlLineMarkers 
ActiveChart.SetSourceData Source:=rng 
End Sub 
End Function 

Answer 1

がそうのようExit SubとEnd Subを削除してください役立つだろう。 End Subには、関数内にearthly businessがありません。

RefEditコントロールでは、範囲を選択するためのユーザーエクスペリエンスが向上する場合があります。 Inputboxよりも無効な範囲を返す可能性は低いです。