
关于Excel的问题!高手请进
用什么方法实现下列步骤?弹出一个窗口,选择表的名称,然后再下面弹出此表!当我点击sheet1的名称时,就弹出sheet1表当我点击sheet2的名称时,就弹出sheet7...
用什么方法实现下列步骤?
弹出一个窗口,选择表的名称,然后再下面弹出此表!
当我点击sheet1的名称时,就弹出sheet1表
当我点击sheet2的名称时,就弹出sheet7表
..................................................................
回答正确者!重重有赏!
不管用什么方法?普通方法还是VBA方法。详细步骤。也可以把弄好的文档发给我,yirichenglong@163.com!满意后直接给高分! 展开
弹出一个窗口,选择表的名称,然后再下面弹出此表!
当我点击sheet1的名称时,就弹出sheet1表
当我点击sheet2的名称时,就弹出sheet7表
..................................................................
回答正确者!重重有赏!
不管用什么方法?普通方法还是VBA方法。详细步骤。也可以把弄好的文档发给我,yirichenglong@163.com!满意后直接给高分! 展开
1个回答
展开全部
使用VBA可以进行控制!
如:新建一个窗体,在窗体上新个列表框。
Private Sub ListBox1_Click()
Sheets(ListBox1.Value).Select
End Sub
Private Sub UserForm_Activate()
Dim i As Integer
For i = 1 To Sheets.Count
ListBox1.AddItem Sheets(i).Name
Next i
End Sub
如:新建一个窗体,在窗体上新个列表框。
Private Sub ListBox1_Click()
Sheets(ListBox1.Value).Select
End Sub
Private Sub UserForm_Activate()
Dim i As Integer
For i = 1 To Sheets.Count
ListBox1.AddItem Sheets(i).Name
Next i
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询