列出所有的sheet，然后点击其中的一个，自动跳过去

网络学院

学习资料

源码模版

您现在的位置：精品下载 >> 开发 >> .net >> 文章正文

列出所有的sheet，然后点击其中的一个，自动跳过去

【字体：小大】

列出所有的sheet，然后点击其中的一个，自动跳过去

作者：佚名文章来源：不详点击数：更新时间：2007-10-7

很高兴啊，刚才实现了一个功能，excel的vba编程，终于可以列出所有的sheet，然后点击其中的一个，自动跳过去！代码很简单，如下：

Private Sub ListBox1_Click()

Workbooks.Application.Sheets(ListBox1.ListIndex + 1).Select

End Sub

Private Sub UserForm_Click()

ListBox1.Clear

Dim i As Integer

For i = 1 To Workbooks.Application.Sheets.Count

Set WsheetA = Workbooks.Application.Sheets(i)

Me.ListBox1.AddItem WsheetA.Name

Next i

End Sub

文章录入：chqnet 责任编辑：chqnet

最新热点		最新推荐		相关文章
				在网页中调用系统调色板和测 2.4 加重显示和斜体字的所有 window.open()的所有参数列表怎样复制文件夹及其所有内容递归列出所有文件和目录正则表达式例子：获得某个网再点一次Active的名，我把你取出任意日期内的所有日期，这个是我以前做的专门用来列 window.open()的所有参数列表

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）