Dzwebs.Net

撰写电脑技术杂文十余年

VBA对工作表的操作代码示例上篇

Admin | 2008-6-12 20:27:00 | 被阅次数 | 10332

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

        一:插入一个工作表:Sheets.Add

        在指定工作表前插入工作表:

        Sheets.Add Before:=Sheets(工作表名称或工作表序号)

        举例:

        Sheets.Add Before:=Sheets(“Sheet4”) 

        Sheets.Add Before:=Sheets(4)

        在指定工作表后插入工作表:

        Sheets.Add Before:=Sheets(工作表名称或工作表序号)

        举例:

        Sheets.Add After:=Sheets(“Sheet3”) 

        Sheets.Add After:=Sheets(3)

        在最后插入工作表:

        Sheets.Add After:=Sheets(Sheets.Count)

        在最前插入工作表:
 
        Sheets.Add Before:=Sheets(1)

        插入2个空白工作表:

        Sheets.Add Count:=2

        这里利用自变量Count来控制插入工作表的数量。

        二:检查工作表”Sheet”是否存在

        Private Sub检查工作表是否存在()

        Dim iCount As Integer

        For iCount = 1 To Sheets.Count

            If Sheets(iCount).Name = "Sheet5" Then

                  MsgBox "Sheet5已经存在"

                   Exit Sub

            End If

        Next iCount

        End Sub

        三:选取工作表

        选取指定工作表:

        Sheets(工作表名称或工作表序号).Select

        举例:

        Sheets(“Sheet3”).Select

        Sheets(3).Select

        四:设置活动工作表

        Sheets(工作表名称或工作表序号).Activate

        举例:

        Sheets("Sheet2").Activate

        Sheets(2). Select

        五:隐藏工作表

        隐藏一个工作表:

        Sheets(工作表名称或工作表序号).Visible=0

        举例:

        Sheets(“Sheet2”).Visible=0

        Sheets(2) .Visible=0

        取消隐藏一个工作表

        Sheets(工作表名称或工作表序号).Visible=-1

        举例:

        Sheets(“Sheet2”).Visible=-1

        Sheets(2) .Visible=-1


该杂文来自: Excel杂文

上一篇:使用Excel给班级新生安排座位

下一篇:VBA对工作表的操作代码示例下篇

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计