ExcelVBA实例教程#027：自动建立工作表目录

ExcelVBA实例教程#027：自动建立工作表目录ExcelVBA实例教程#027：自动建立工作表目录如果在工作簿中有许多工作表～使用许往往建立一许目许表入超许接以方便许许工作表。但是会并插如果工作簿中的工作表许常添加和许除～使用手工建立目许不方便～此许可以使用工作表的很 Activate事件自许建立工作表的目许～如下面的代许所示。 1.Private Sub Worksheet_Activate() 2. Dim sh As Worksheet 3. Dim a As Integer 4. Dim R As Integer 5. R = Sheet1.[A...

ExcelVBA实例教程#027：自动建立工作表目录如果在工作簿中有许多工作表～使用许往往建立一许目许表入超许接以方便许许工作表。但是会并插如果工作簿中的工作表许常添加和许除～使用手工建立目许不方便～此许可以使用工作表的很 Activate事件自许建立工作表的目许～如下面的代许所示。 1.Private Sub Worksheet_Activate() 2. Dim sh As Worksheet 3. Dim a As Integer 4. Dim R As Integer 5. R = Sheet1.[A65536].End(xlUp).Row 6. a = 2 7. If Sheet1.Cells(2, 1) <> "" Then 8. Sheet1.Range("A2:A" & R).ClearContents 9. End If 10. For Each sh In Worksheets 11. If sh.CodeName <> "Sheet1" Then 12. Sheet1.Cells(a, 1).Value = sh.Name 13. a = a + 1 14. End If 15. Next 16.End Sub 代许解析, 工作表的Activate事件～在“目许”工作表激活许自许建立工作簿中除“目许”工作表外所有工作表的目许。第2、3、4行代许明许量许型。声第5行代许取得A列最后非空许元格的行。号第6行代许许置许量a的初始许许2～从A2许元格许始建立工作表目许。第7行到第9行代许判是否存在工作表目许～如果存在先空原的目许～以便更新目许。断清来第10行到第15代许遍许工作簿的所有工作表～除“目许”工作表外所有工作表的名入到将称写A列许元格中。许了建立到各工作表的许接～使用工作表的SelectionChange事件～如下面的代许所示。 1.Private Sub Worksheet_SelectionChange(ByVal Target As Range) 2. Dim R As Integer 3. R = Sheet1.[A65500].End(xlUp).Row 4. On Error Resume Next 5. If Target.Count = 1 Then 6. If Target.Column = 1 Then 7. If Target.Row > 1 And Target.Row <= R Then 8. Sheets(Target.Value).Select 9. End If 10. End If 11. End If 12.End Sub 许制代许代许解析, 工作表的SelectionChange事件～许许当A列工作表目许中工作表名许自许许许许许元格所许许的工作表称。第5、6、7行代许限制许事件许的件。触条第8行代许许许许元格所许许的工作表。 “目许”工作表激活后自许在A列建立工作簿中除“目许”工作表以外所有表的目许～如许 1所示。许 1 自许建立工作表目许

                    本文档为【ExcelVBA实例教程#027：自动建立工作表目录】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

ExcelVBA实例教程#027：自动建立工作表目录

你可能还喜欢