我最近问了另一个问题,这个问题帮助我用'combobox'用户形式达到了一定程度,但现在需要更多的帮助才能让我排队等候 .
我创建了一个userform,它有2个组合框,1个显示所有打开的excel工作簿,1个显示所选工作簿的工作表 .
我尝试创建一个按钮,使用工作表框下选择的值来复制指定工作表中的数据 .
- 问题我'm having is relating the worksheet combobox (Cb_Ws) value to a VBA command that will '点击按钮,选择该工作表,然后复制特定范围,例如工作表("Cb_Ws.Value") . 范围("X77:X84") . 复制
我担心我的知识并不好,因为我开始了,虽然我觉得我差点在正确的位置 .
这是我到目前为止的代码:
Option Explicit
Dim wb As Workbook
Dim ws As Worksheet
Private Sub Cb_Wb_Change()
Me.Cb_Ws.Clear
On Error Resume Next
For Each ws In Workbooks(Me.Cb_Wb.Value).Worksheets
Me.Cb_Ws.AddItem ws.Name
Next ws
End Sub
Private Sub CommandButton1_Click()
Dim Worksheets as (Cb_Ws.Value)
Worksheets.Range("X77:X84").Copy
End Sub
Private Sub UserForm_Initialize()
For Each wb In Application.Workbooks
Me.Cb_Wb.AddItem wb.Name
Me.Label2.Caption = "Select WorkSheet:"
Me.Label1.Caption = "Select Workbook:"
Next wb
End Sub
1 回答
这是一种处理对象的错误方法 . 这是你在尝试什么?