电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

vba精典源程序源代码(工作表操作)VIP免费

vba精典源程序源代码(工作表操作)_第1页
1/12
vba精典源程序源代码(工作表操作)_第2页
2/12
vba精典源程序源代码(工作表操作)_第3页
3/12
[示例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 "第三次隐藏工作表...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

vba精典源程序源代码(工作表操作)

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部