EXCEL VBA工作表操作全能方法小结

第一篇：EXCEL VBA工作表操作全能方法小结

EXCELVBA工作表操作全能方法小结

[示例04-01]增加工作表(Add方法)SubAddWorksheet()MsgBox“在当前工作簿中添加一个工作表” Worksheets.Add MsgBox“在当前工作簿中的工作表sheet2之前添加一个工作表” Worksheets.Addbefore:=Worksheets(“sheet2”)MsgBox“在当前工作簿中的工作表sheet2之后添加一个工作表” Worksheets.Addafter:=Worksheets(“sheet2”)MsgBox“在当前工作簿中添加3个工作表” Worksheets.AddCount:=3 EndSub

示例说明：Add方法带有4个可选的参数，其中参数Before和参数After 指定所增加的工作表的位置，但两个参数只能选一；参数Count用来指定增加的工作表数目。

[示例04-02]复制工作表(Copy方法)SubCopyWorksheet()MsgBox“在当前工作簿中复制工作表sheet1并将所复制的工作表放在工作表sheet2之前” Worksheets(“sheet1”).CopyBefore:=Worksheets(“sheet2”)MsgBox“在当前工作簿中复制工作表sheet2并将所复制的工作表放在工作表sheet3之后” Worksheets(“sheet2”).CopyAfter:=Worksheets(“sheet3”)EndSub

示例说明：

Copy方法带有2个可选的参数，即参数Before和参数After，在使用时两个参数只参选一。

[示例04-03]移动工作表(Move方法)SubMoveWorksheet()MsgBox“在当前工作簿中将工作表sheet3移至工作表sheet2之前” Worksheets(“sheet3”).MoveBefore:=Worksheets(“sheet2”)MsgBox“在当前工作簿中将工作表sheet1移至最后” Worksheets(“sheet1”).MoveAfter:=Worksheets(Worksheets.Count)End Sub

示例说明：

Move方法与Copy方法的参数相同，作用也一样。

示例【04-04】隐藏和显示工作表(Visible属性)[示例04-04-01] SubtestHide()MsgBox“第一次隐藏工作表sheet1” Worksheets(“sheet1”).Visible=False MsgBox“显示工作表sheet1” Worksheets(“sheet1”).Visible=True MsgBox“第二次隐藏工作表sheet1” Worksheets(“sheet1”).Visible=xlSheetHidden MsgBox“显示工作表sheet1” Worksheets(“sheet1”).Visible=True MsgBox“第三次隐藏工作表sheet1” Worksheets(“sheet1”).Visible=xlSheetHidden MsgBox“显示工作表sheet1” Worksheets(“sheet1”).Visible=xlSheetVisible MsgBox“第四隐藏工作表sheet1” Worksheets(“sheet1”).Visible=xlSheetVeryHidden MsgBox“显示工作表sheet1” Worksheets(“sheet1”).Visible=True MsgBox“第五隐藏工作表sheet1” Worksheets(“sheet1”).Visible=xlSheetVeryHidden MsgBox“显示工作表sheet1” Worksheets(“sheet1”).Visible=xlSheetVisible EndSub 示例说明：本示例演示了隐藏和显示工作表的各种情形。其中，使用

xlSheetVeryHidden常量来隐藏工作表，将不能通过选择工作表菜单栏中的“格式”——“工作表”——“取消隐藏”命令来取消隐藏。[示例04-04-02] SubShowAllSheets()MsgBox“使当前工作簿中的所有工作表都显示(即将隐藏的工作表也显示)” DimwsAsWorksheet For Each wsIn Sheets ws.Visible=True Next ws End Sub

[示例04-05] 获取工作表数(Count属性)[示例04-05-01] SubWorksheetNum()Dim IAs Long i=Worksheets.Count MsgBox“当前工作簿的工作表数为：”&Chr(10)&i EndSub

[示例04-05-02] Sub WorksheetNum()Dim IAs Long i=Sheets.Count MsgBox“当前工作簿的工作表数为：”&Chr(10)&i End Sub

示例说明：在一个包含图表工作表的工作簿中运行上述两段代码，将会得出不同的结果，原因是对于Sheets集合来讲，工作表包含图表工作表。应注意Worksheets集合与Sheets集合的区别，下同。

示例04-06]获取或设置工作表名称(Name属性)[示例04-06-01] SubNameWorksheet()DimsNameAsString,sChangeNameAsString sName=Worksheets(2).Name MsgBox“ 当前工作簿中第

2个工作表的名字为：”&sNamesChangeName=“我的工作表 ”MsgBox“将当前工作簿中的第3个工作表名改为：”&sChangeName Worksheets(3).Name=sChangeName EndSub 示例说明：使用Name属性可以获取指定工作表的名称，也可以设置工作表的名称。

第二篇：EXCEL VBA工作表操作全能方法小结

EXCEL VBA工作表操作全能方法小结

[示例04-01]增加工作表(Add方法)Sub AddWorksheet()MsgBox “在当前工作簿中添加一个工作表” Worksheets.Add MsgBox “在当前工作簿中的工作表sheet2之前添加一个工作表” Worksheets.Add before:=Worksheets(“sheet2”)MsgBox “在当前工作簿中的工作表sheet2之后添加一个工作表” Worksheets.Add after:=Worksheets(“sheet2”)MsgBox “在当前工作簿中添加3个工作表” Worksheets.Add Count:=3 End Sub 示例说明：Add方法带有4个可选的参数，其中参数Before和参数After指定所增加的工作表的位置，但两个参数只能选一；参数Count用来指定增加的工作表数目。

------------------[示例04-02]复制工作表(Copy方法)Sub CopyWorksheet()MsgBox “在当前工作簿中复制工作表sheet1并将所复制的工作表放在工作表sheet2之前” Worksheets(“sheet1”).Copy Before:=Worksheets(“sheet2”)MsgBox “在当前工作簿中复制工作表sheet2并将所复制的工作表放在工作表sheet3之后” Worksheets(“sheet2”).Copy After:=Worksheets(“sheet3”)End Sub 示例说明：Copy方法带有2个可选的参数，即参数Before和参数After，在使用时两个参数只参选一。

------------------[示例04-03]移动工作表(Move方法)Sub MoveWorksheet()MsgBox “在当前工作簿中将工作表sheet3移至工作表sheet2之前” Worksheets(“sheet3”).Move Before:=Worksheets(“sheet2”)MsgBox “在当前工作簿中将工作表sheet1移至最后” Worksheets(“sheet1”).Move After:=Worksheets(Worksheets.Count)End Sub 示例说明：Move方法与Copy方法的参数相同，作用也一样。

------------------[示例04-04]隐藏和显示工作表(Visible属性)[示例04-04-01] Sub testHide()MsgBox “第一次隐藏工作表sheet1” Worksheets(“sheet1”).Visible = False MsgBox “显示工作表sheet1” Worksheets(“sheet1”).Visible = True MsgBox “第二次隐藏工作表sheet1” Worksheets(“sheet1”).Visible = xlSheetHidden MsgBox “显示工作表sheet1” Worksheets(“sheet1”).Visible = True MsgBox “第三次隐藏工作表sheet1” Worksheets(“sheet1”).Visible = xlSheetHidden MsgBox “显示工作表sheet1” Worksheets(“sheet1”).Visible = xlSheetVisible MsgBox “第四隐藏工作表sheet1” Worksheets(“sheet1”).Visible = xlSheetVeryHidden MsgBox “显示工作表sheet1” Worksheets(“sheet1”).Visible = True MsgBox “第五隐藏工作表sheet1” Worksheets(“sheet1”).Visible = xlSheetVeryHidden MsgBox “显示工作表sheet1” Worksheets(“sheet1”).Visible = xlSheetVisible End Sub 示例说明：本示例演示了隐藏和显示工作表的各种情形。其中，使用xlSheetVeryHidden常量来隐藏工作表，将不能通过选择工作表菜单栏中的“格式”——“工作表”——“取消隐藏”命令来取消隐藏。

------------------[示例04-04-02] Sub ShowAllSheets()MsgBox “使当前工作簿中的所有工作表都显示(即将隐藏的工作表也显示)” Dim ws As Worksheet For Each ws In Sheets ws.Visible = True Next ws End Sub

------------------[示例04-05]获取工作表数(Count属性)[示例04-05-01] Sub WorksheetNum()Dim i As Long i = Worksheets.Count MsgBox “当前工作簿的工作表数为：” & Chr(10)& i End Sub

------------------[示例04-05-02] Sub WorksheetNum()Dim i As Long i = Sheets.Count MsgBox “当前工作簿的工作表数为：” & Chr(10)& i End Sub 示例说明：在一个包含图表工作表的工作簿中运行上述两段代码，将会得出不同的结果，原因是对于Sheets集合来讲，工作表包含图表工作表。应注意Worksheets集合与Sheets集合的区别，下同。

------------------[示例04-06]获取或设置工作表名称(Name属性)[示例04-06-01] Sub NameWorksheet()Dim sName As String, sChangeName As String sName = Worksheets(2).Name MsgBox “当前工作簿中第2个工作表的名字为：” & sName sChangeName = “我的工作表” MsgBox “将当前工作簿中的第3个工作表名改为：” & sChangeName Worksheets(3).Name = sChangeName End Sub 示例说明：使用Name属性可以获取指定工作表的名称，也可以设置工作表的名称。

------------------[示例04-06-02]重命名工作表 Sub ReNameSheet()Dim xStr As String Retry: Err.Clear xStr = InputBox(“请输入工作表的新名称:” _ , “重命名工作表”, ActiveSheet.Name)If xStr = “" Then Exit Sub On Error Resume Next ActiveSheet.Name = xStr If Err.Number <> 0 Then MsgBox Err.Number & ” “ & Err.Description Err.Clear GoTo Retry End If On Error GoTo 0 '.........End Sub

------------------[NextPage][示例04-07]激活/选择工作表(Activate方法和Select方法)[示例04-07-01] Sub SelectWorksheet()MsgBox ”激活当前工作簿中的工作表sheet2“ Worksheets(”sheet2“).Activate MsgBox ”激活当前工作簿中的工作表sheet3“ Worksheets(”sheet3“).Select MsgBox ”同时选择工作簿中的工作表sheet2和sheet3“ Worksheets(Array(”sheet2“, ”sheet3“)).Select End Sub 示例说明：Activate方法只能激活一个工作表，而Select方法可以同时选择多个工作表。

------------------[示例04-07-02] Sub SelectManySheet()MsgBox ”选取第一个和第三个工作表.“ Worksheets(1).Select Worksheets(3).Select False End Sub

------------------[示例04-08]获取当前工作表的索引号(Index属性)Sub GetSheetIndex()Dim i As Long i = ActiveSheet.Index MsgBox ”您正使用的工作表索引号为“ & i End Sub

------------------[示例04-09]选取前一个工作表(Previous属性)Sub PreviousSheet()If ActiveSheet.Index <> 1 Then MsgBox ”选取当前工作簿中当前工作表的前一个工作表“ ActiveSheet.Previous.Activate Else MsgBox ”已到第一个工作表“ End If End Sub 示例说明：如果当前工作表是第一个工作表，则使用Previous属性会出错。

------------------[示例04-10]选取下一个工作表(Next属性)Sub NextSheet()If ActiveSheet.Index <> Worksheets.Count Then MsgBox ”选取当前工作簿中当前工作表的下一个工作表“ ActiveSheet.Next.Activate Else MsgBox “已到最后一个工作表” End If End Sub 示例说明：如果当前工作表是最后一个工作表，则使用Next属性会出错。

------------------[示例04-11]工作表行和列的操作 [示例04-11-01]隐藏行 Sub HideRow()Dim iRow As Long MsgBox ”隐藏当前单元格所在的行“ iRow = ActiveCell.Row ActiveSheet.Rows(iRow).Hidden = True MsgBox ”取消隐藏“ ActiveSheet.Rows(iRow).Hidden = False End Sub

------------------[示例04-11-02]隐藏列 Sub HideColumn()Dim iColumn As Long MsgBox ”隐藏当前单元格所在列“ iColumn = ActiveCell.Column ActiveSheet.Columns(iColumn).Hidden = True MsgBox ”取消隐藏“ ActiveSheet.Columns(iColumn).Hidden = False End Sub

------------------[示例04-11-03]插入行 Sub InsertRow()Dim rRow As Long MsgBox ”在当前单元格上方插入一行“ rRow = Selection.Row ActiveSheet.Rows(rRow).Insert End Sub

------------------[示例04-11-04]插入列 Sub InsertColumn()Dim cColumn As Long MsgBox ”在当前单元格所在行的左边插入一行“ cColumn = Selection.Column ActiveSheet.Columns(cColumn).Insert End Sub

------------------[示例04-11-05]插入多行 Sub InsertManyRow()MsgBox ”在当前单元格所在行上方插入三行“ Dim rRow As Long, i As Long For i = 1 To 3 rRow = Selection.Row ActiveSheet.Rows(rRow).Insert Next i End Sub

------------------[示例04-11-06]设置行高 Sub SetRowHeight()MsgBox ”将当前单元格所在的行高设置为25“ Dim rRow As Long, iRow As Long rRow = ActiveCell.Row iRow = ActiveSheet.Rows(rRow).RowHeight ActiveSheet.Rows(rRow).RowHeight = 25 MsgBox ”恢复到原来的行高“ ActiveSheet.Rows(rRow).RowHeight = iRow End Sub

------------------[示例04-11-07]设置列宽 Sub SetColumnWidth()MsgBox ”将当前单元格所在列的列宽设置为20“ Dim cColumn As Long, iColumn As Long cColumn = ActiveCell.Column iColumn = ActiveSheet.Columns(cColumn).ColumnWidth ActiveSheet.Columns(cColumn).ColumnWidth = 20 MsgBox ”恢复至原来的列宽“ ActiveSheet.Columns(cColumn).ColumnWidth = iColumn End Sub

------------------[示例04-11-08]恢复行高列宽至标准值 Sub ReSetRowHeightAndColumnWidth()MsgBox ”将当前单元格所在的行高和列宽恢复为标准值“ Selection.UseStandardHeight = True Selection.UseStandardWidth = True End Sub

------------------[示例04-12]工作表标签

[示例04-12-01] 设置工作表标签的颜色 Sub SetSheetTabColor()MsgBox ”设置当前工作表标签的颜色“ ActiveSheet.Tab.ColorIndex = 7 End Sub

------------------[示例04-12-01]恢复工作表标签颜色 Sub SetSheetTabColorDefault()MsgBox ”将当前工作表标签颜色设置为默认值“ ActiveSheet.Tab.ColorIndex =-4142 End Sub

------------------[示例04-12-03]交替隐藏或显示工作表标签 Sub HideOrShowSheetTab()MsgBox ”隐藏/显示工作表标签“ ActiveWindow.DisplayWorkbookTabs = Not ActiveWindow.DisplayWorkbookTabs End Sub------------------[NextPage][示例04-13]确定打印的页数(HPageBreaks属性与VPageBreaks属性)Sub PageCount()Dim i As Long i =(ActiveSheet.HPageBreaks.Count + 1)*(ActiveSheet.VPageBreaks.Count + 1)MsgBox ”当前工作表共“ & i & ”页.“ End Sub

------------------[示例04-14]保护/撤销保护工作表 [示例04-14-01] Sub ProtectSheet()MsgBox ”保护当前工作表并设定密码“ ActiveSheet.Protect Password:=”fanjy“ End Sub 示例说明：运行代码后，当前工作表中将不允许编辑，除非撤销工作表保护。

------------------[示例04-14-02] Sub UnprotectSheet()MsgBox ”撤销当前工作表保护“ ActiveSheet.Unprotect End Sub 示例说明：运行代码后，如果原保护的工作表设置有密码，则要求输入密码。

------------------[示例04-14-03]保护当前工作簿中的所有工作表 Sub ProtectAllWorkSheets()On Error Resume Next Dim ws As Worksheet Dim myPassword As String myPassword = InputBox(”请输入您的密码“ & vbCrLf & _ ”(不输入表明无密码)“ & vbCrLf & vbCrLf & _ ”确保您没有忘记密码！“, ”输入密码“)For Each ws In ThisWorkbook.Worksheets ws.Protect(myPassword)Next ws End Sub

------------------[示例04-14-04]撤销对当前工作簿中所有工作表的保护 Sub UnprotectAllWorkSheets()On Error Resume Next Dim ws As Worksheet Dim myPassword As String myPassword = InputBox(”请输入您的密码“ & vbCrLf & _ ”(不输入表示无密码)“, ”输入密码“)For Each ws In ThisWorkbook.Worksheets ws.Unprotect(myPassword)Next ws End Sub

------------------[示例04-14-05]仅能编辑未锁定的单元格 Sub OnlyEditUnlockedCells()Sheets(”Sheet1“).EnableSelection = xlUnlockedCells ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub 示例说明：运行本代码后，在当前工作表中将只能对未锁定的单元格进行编辑，而其它单元格将不能编辑。未锁定的单元格是指在选择菜单“格式——单元格”命令后所弹出的对话框中的“保护”选项卡中，未选中“锁定”复选框的单元格或单元格区域。

------------------[示例04-15]删除工作表(Delete方法)Sub DeleteWorksheet()MsgBox ”删除当前工作簿中的工作表sheet2“ Application.DisplayAlerts = False Worksheets(”sheet2").Delete Application.DisplayAlerts = True End Sub

第三篇：EXCEL操作_add工作表

方法：LPDISPATCH Add(VARIANT& Before, VARIANT& After, VARIANT& Count, VARIANT& Type);

Before Variant 类型，可选。指定工作表对象，新建的工作表将置于此工作表之前。

AfterVariant 类型，可选。指定工作表对象，新建的工作表将置于此工作表之后。

Count Variant 类型，可选。要新建的工作表的数目。默认值为 1。

Type Variant 类型，可选。指定工作表类型。可为以下 XlSheetType 常量之一：xlWorksheet、xlChart、xlExcel4MacroSheet 或 xlExcel4IntlMacroSheet。默认值为 xlWorksheet。

说明 如果 Before 和 After 两者均省略，则新建的工作表将插入到活动工作表之前。

1、未指定参数1、2

CWorksheets ExcelSheets;

ExcelSheet.Add(vtMissing,vtMissing,_variant_t((long)1),vtMissing);//添加新的工作表

//Before 和 After 两者均省略，则新建的工作表将插入到活动工作表之前。

2、指定参数2

CWorksheet Worksheet;

Worksheet=ExcelSheet.get_Item(COleVariant((long)1));

ExcelSheet.Add(vtMissing, _variant_t(Worksheet),_variant_t((long)1),vtMissing);

//添加新的工作表:位置在Worksheet即（Sheet1）后面

第四篇：新高考新操作工作小结

2011届新高考新操作工作小结

一、已完成的工作

1、新高考改革的政策进行广泛、多种形式的宣传，已深入学生、家长心中。

2、高考网上报名工作已于12月顺利完成。

3、高考电子摄像工作于2月14日顺利完成。

4、高考体检、政审工作已于5月5日顺利完成。

5、高考网上填报志愿训练工作已于5月4日顺利完成。

6、高考三次诊断性考试组织、成绩分析的系列工作已完成。

7、高三全体考生学分认定、综合素质评价表等合计73表已于3月26日成功上传自治区。

8、学生学籍档案“成长记录袋”中所有内容填写完毕。

9、制定了2011届高三后期工作进程表，按要求完成各项工作。

10、南泉考生名单已统计完成。

二、正在进行中的工作

1、高考工作人员资格审查，高考考务工作前期的各项准备。

2、第四次诊断性考试的准备工作，动员会已开完。

3、高考考生在高考期间的通讯录。

4、制作高考学生纸介质的学籍档案、档案袋。

5、考生考前心理、作息、守纪等方面的宣传教育。

6、生物钟调整。

7、毕业典礼。

三、还在思考中的工作

1、高考估分后志愿如何填报的程序安排。

2、学生档案的填写、入档。

3、假期学生填报志愿的值班安排。

4、录取院校登记、发放通知书、领取学籍档案、公榜及假期值班人员安排。

四、存在问题

填报志愿时，计算机数量严重缺少。

第五篇：初定专业技术资格表工作小结

自2008年11月从事技术助理工作至今，在这段时间里，学到了很多以前书本中没有接触到的知识。工作以来，在单位领导及同事们的帮助下圆满完成了各项工作，通过自身的不断努力，无论是思想上、学习还是工作上都取得了更进一步的提高。

在思想上，积极向上，积极学习政治理论，坚持四项基本原则，爱岗敬业，具有强烈的责任感和事业心。积极主动学习专业知识，工作态度端正，认真负责，具有良好地思想政治素质，思想品质和职业道德。

在工作上，热爱本职工作，能够正确认真地对待每一项工作，能够把领导交代的任务认真负责的完成。

技术助理的工作比较琐碎，为了搞好工作，我不怕麻烦，向领导请教、向同事学习、自己摸索实践，在很短的时间内便明确了工作的程序、方向，提高了工作能力，在具体的工作中形成了一个清晰的工作思路，能够顺利的开展工作并熟练圆满地完成本职工作。

我本着“把工作做的更好”这样一个目标，开拓创新意识，积极圆满的完成了以下本职工作：（1）仔细认真地整理实验数据，需要认真负责，态度端正、头脑清晰，不断学习和熟悉实验数据处理软件和方法，认真登记，做到实验材料的及时汇总和存档，以方便后续的补充和查阅。这是我工作最主要的一部分，将来会更加再接再厉把工作做好。（2）负责公司合同及其他营销文件资料的管理、归类、整理、建档和保管工作，公司的合同文件很多，要做到合理分类、保管，方便再次查阅，不耽误大家查找的时间。（3）协助部门做好上门客户的接待和电话来访工作，记清来访者的姓名、联系方式等，有助于日后的回访。负责各种公司会议的记录工作，理清公司每次会议的要点，以此来安排下阶段工作的重点。（4）认真、按时、高效率地做好领导交办的其它工作。（5）为了工作的顺利进行及部门之间的工作协调，除了做好本职工作，我还积极配合其他同事做好工作。

在开展工作之前做好个人工作计划，有主次的先后及时的完成各项工作，达到预期的效果，保质保量的完成工作，工作效率高，同时在工作中学习了很多东西，也锻炼了自己，经过不懈的努力，使工作水平有了长足的进步，开创了工作的新局面，为公司及部门工作做出了应有的贡献。

总结这几年的工作，尽管有了一定的进步和成绩，但在一些方面还存在着不足。比如一些技术方法还不够熟练、有创造性的工作思路还不是很多、个别工作做的还不够完善，这有待于在今后的工作中加以改进。在以后的工作中，我还需要多看书，认真学习有关文件资料，掌握好专业知识。认真学习各项政策规章制度，努力使思想觉悟和工作效率全面进入一个新水平，适应时代和企业的发展。为企业的发展做出更大更多的贡献。