将InputBox用于预测表:简单的代码

Question

    Sub forecasting()

    Dim rng As Range
    

    Set rng = Application.InputBox("Select a range to forecast on", "Forecasting", Type:=8)
     
  

' forecasting Macro'
' input "rng" from inputbox'

    activeworkbook.CreateForecastSheet Timeline:=Sheets("All Households").Range( _
    "A5:A14"), Values:=Sheets("All Households").Range( _
    rng), ForecastEnd:=2022, ConfInt:=0.95 _
    , Seasonality:=1, ChartType:=xlForecastChartTypeLine, Aggregation:= _
    xlForecastAggregationAverage, DataCompletion:= _
    xlForecastDataCompletionInterpolate, ShowStatsTable:=False

    
    
    
    
End Sub

基本上，我试着把rng放在我固定的年份列中。然而，我得到了错误:应用程序或对象定义错误1004，并且调试器将我指向createforecastsheeet块。关于我使用rng对象或使用输入框可能做错了什么，有什么建议吗？

Answer 1

使用rng的位置需要的参数

Values:=Sheets("All Households").Range(rng)

只需要一个字符串，而不是range对象，所以只需使用字符串：

Dim rng As String
    rng = Application.InputBox("Select a range to forecast on", "Forecasting")