根据组合框选择，vba中的动态工作表名称

提前感谢您抽出时间。 我需要在activesheet的P3单元格中写入我在组合框“cbplan”中选择的工作表P3单元格中的值，该组合框是一个用户表单（其中包含工作簿中的工作表名称列表）

我试过了，但没有成功：

Private Sub CommandButton1_Click()

Dim wsb As Worksheet
Set wsb = cbplan.Value
ActiveSheet.Range("P3") = wsb.Range("P3").Value

Unload Me
End Sub

---

请，有人能帮我吗？

如果您遇到了我认为是的错误，只需更改设置wsb的行即可

 Set wsb = Sheets(cbplan.Value)

---

如果您遇到了我认为是的错误，只需更改设置wsb的行即可

 Set wsb = Sheets(cbplan.Value)

---

就这样！您可以将其缩短为：ActiveSheet.Range（“P3”）.Value=Sheets（cbplan.Value）.Range（“P3”）。Value@user3598756是正确的，除非您计划在其他地方使用wsb，否则如果您不打算再次使用它，就更容易不必声明变量。就是这样！您可以将其缩短为：ActiveSheet.Range（“P3”）.Value=Sheets（cbplan.Value）.Range（“P3”）。Value@user3598756是正确的，除非您计划在其他地方使用wsb，否则如果您不打算再次使用它，就更容易不必声明变量。