根據tabstrip索引將regedit中的一系列數字複製到多個工作表中？

我試圖在EXCEL/VBA中創建一個用戶窗體，一旦選擇了commandbutton「forecast」，將允許您選擇一系列數據並將數據範圍複製到特定工作表，具體取決於tabstrip索引。根據tabstrip索引將regedit中的一系列數字複製到多個工作表中？

這是我迄今爲止的標籤欄的變化：

Private Sub tbsMethod_Change() 
Dim tabIndex As Integer 
tabIndex = tbsMethod.SelectedItem.Index 
Select Case tabIndex 
Case 0 
Label2.Visible = True 
RefEdit1.Visible = True 
Label_a.Visible = False 
Label_b.Visible = False 
Label_g.Visible = False 
TextBox_a.Visible = False 
TextBox_b.Visible = False 
TextBox_g.Visible = False 
Case 1 
Label2.Visible = True 
....

這是我認爲這個問題是（commandbutton_click）：

Sub ForecastButton_Click() 
Dim tabIndex As Integer 
Dim ws As Worksheet 
tabIndex = tbsMethod.SelectedItem.Index 
With ThisWorkbook 
Select Case tabIndex 
'copies to worksheet or "module" 
Case 0 
Application.GoTo ActiveWorkbook.Sheets("Sheet1").Range("B7") 
Range(RefEdit1.Value).Copy Destination:=Sheet1.Range("B7:B26") 
Case 1 
Range(RefEdit1.Value).Copy Destination:=Sheet3.Range("B7:B26") 
Application.GoTo ActiveWorkbook.Sheets("Sheet3").Range("B7") 
Case 2 
Application.GoTo ActiveWorkbook.Sheets("Sheet4").Range("B7") 
.Cells(29, 2).Value = Me.TextBox_a.Value 
Range(RefEdit1.Value).Copy Destination:=Sheet4.Range("B7:B26") 
Case 3 
Application.GoTo ActiveWorkbook.Sheets("Sheet5").Range("B7") 
.Cells(29, 2).Value = Me.TextBox_a.Value 
.Cells(30, 2).Value = Me.TextBox_b.Value 
Range(RefEdit1.Value).Copy Destination:=Sheet5.Range("B7:B26") 

Case 4 
Application.GoTo ActiveWorkbook.Sheets("Sheet6").Range("B7") 
.Cells(29, 2).Value = Me.TextBox_a.Value 
.Cells(30, 2).Value = Me.TextBox_b.Value 
.Cells(31, 2).Value = Me.TextBox_g.Value 
Range(RefEdit1.Value).Copy Destination:=Sheet6.Range("B7:B26") 

End Select 
Unload dfMod 
End With 

Me.R.Value = "" 
Private Sub cmdClose_Click() 
    Unload dfMod 
End Sub

我收到錯誤消息「錯誤9下標超出範圍「。現在它說「找不到方法或數據成員」。相當新的VBA/EXCEL所以任何幫助，將不勝感激

感謝，瑞安

來源

2013-03-21 Ryan Fukushima

您的代碼中是否有錯誤停止該過程的任何行？我永遠不能依賴'RefEdit'格式。請考慮在拋出錯誤時使用'Application.InputBox（，Type：= 8）' – 2013-03-21 07:28:08

您應該看到包含以黃色突出顯示的錯誤的行。請在這裏發帖 – 2013-03-21 08:32:44

錯誤狀態：「編譯錯誤：未找到方法或數據成員」 – 2013-03-21 08:38:48

你在你的代碼

With thisworkbook 
    ... 
    .cells(...

cells不是workbook對象的屬性或方法將返回錯誤

來源

2013-03-21 08:49:25

根據tabstrip索引將regedit中的一系列數字複製到多個工作表中？

回答

相關問題