在 Excel 2010 中如何使用 VBA 代码设置活动工作表？-正解问答-正解网8在 Excel 2010 中如何使用 VBA 代码设置活动工作表？同问已同问修改分享扫码分享复制网址OK了，粘贴即可！解答：1个同问：0人编辑提问&&&&&提交图片把图片文件拖到这里即可上传上传完，点击图片可插入左侧编辑器中图片链接:图片描述:添加取消提交1个解答8正解在 Excel 2010 中使用 VBA 代码设置活动工作表的操作方法如下：操作步骤1、点击 Excel 2010「开发工具」选项卡下的「Visual Basic」，打开 VBA 编辑器窗口。2、在 VBA 窗口中输入以下代码：①设置活动工作表代码一：Sub 设置活动工作表1()Worksheets(&Sheet3&).ActivateEnd Sub上述 VBA 代码中，Activate 是工作表对象的方法，其功能是将工作表置于活动状态。②设置活动工作表代码二：Sub 设置活动工作表2()Sheet3.ActivateEnd Sub提示使用 Select 和 Activate 操作同一张工作表时，二者实现的功能一样，都是将单个 Excel 2010 工作表选中或激活。区别在于 Select 可以同时选取多张工作表，而 Activate 只能设置一个工作表为活动状态，例如使用“Worksheet．Select”语句选取所有工作表，但只有 Sheet1 为活动工作表。而“Worksheets.Activate”则是错误的语句，在运行时会弹出显示「编译错误」的信息提示。在 Excel 2010 中使用 VBA 代码设置活动工作表的操作方法如下：操作步骤
1、点击 Excel 2010「开发工具」选项卡下的「Visual Basic」，打开 VBA 编辑器窗口。
2、在 VBA 窗口中输入以下代码：
①设置活动工作表代码一：
Sub 设置活动工作表1() Worksheet...收藏已收藏感谢已感谢修改分享扫码分享复制网址OK了，粘贴即可！编辑解答&&&&&在 Excel 2010 中使用 VBA 代码设置活动工作表的操作方法如下：
##操作步骤
1、点击 Excel ;开发工具」选项卡下的「Visual Basic」，打开 VBA 编辑器窗口。
2、在 VBA 窗口中输入以下代码：
①设置活动工作表代码一：
Sub 设置活动工作表1()
Worksheets(&Sheet3&).Activate
上述 VBA 代码中，Activate 是工作表对象的方法，其功能是将工作表置于活动状态。
②设置活动工作表代码二：
Sub 设置活动工作表2()
Sheet3.Activate
##提示
使用 Select 和 Activate 操作同一张工作表时，二者实现的功能一样，都是将单个 Excel 2010 工作表选中或激活。区别在于 Select 可以同时选取多张工作表，而 Activate 只能设置一个工作表为活动状态，例如使用“Worksheet．Select”语句选取所有工作表，但只有 Sheet1 为活动工作表。而“Worksheets.Activate”则是错误的语句，在运行时会弹出显示「编译错误」的信息提示。提交图片把图片文件拖到这里即可上传上传完，点击图片可插入左侧编辑器中图片链接:图片描述:添加取消提交我的解答&&&&&提交图片把图片文件拖到这里即可上传上传完，点击图片可插入左侧编辑器中图片链接:图片描述:添加取消提交登录正解Excel工作表标签颜色设置方法详解
&文章介绍四种excel工作表标签颜色的，前面两种为基础操作，后面两种是用VBA代码更改工作表标签颜色。
　　excel设置工作表标签颜色的方法有下面几种，逐一介绍。
工作表标签颜色设置方法一：
　　Excel2010版，单击开始&&单元格&&格式&&工作表标签颜色，选择相应的颜色即可。如果需要为多个工作表设置标签颜色，按住Ctrl键选取多个工作表，同时设置多个工作表的标签颜色。
工作表标签颜色设置方法二：
　　在Sheet1、Sheet2等工作表标签上单击右键，选择&工作表标签颜色&。
工作表标签颜色设置方法三：
　　在Sheet1工作表标签处单击右键，弹出快捷菜单&&查看代码&&在代码窗口中输入如下代码：
Sub 如何设置工作表标签的颜色()
&&& With Sheets(&Sheet1&).Tab
&&&&&&& .Color = 255
&&& End With
　　F5键运行该代码即可将sheet1工作表标签的颜色更改为红色。
工作表标签颜色设置方法四：
　　利用VBA设置工作表标签颜色深浅。按ALT+F11组合键，打开VBE&&插入&&&模块&&在代码窗口中输入如下代码：
Sub 设置工作表标签颜色()
Dim Sh As Worksheet, I
For Each Sh In Worksheets
&&& With Sh.Tab
&&&&&&& .Color = 255
&&&&&&& .TintAndShade = I
&&&&&&& I = I + 0.2
&&& End With
　　运行以上代码后，工作表标签颜色同为红色，但标签的颜色深浅经发生变化。
标签(Tag):
------分隔线----------------------------
------分隔线----------------------------查看: 5074|回复: 3
使用VBA，如何在两个不同的工作表中实现数据的复制
新鲜人, 积分 1, 距离下一级还需 9 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
我现在有的是一个模板页，我通过这个模板制作了一些数据~~
我现在想实现的效果是，通过执行VBA代码，首先弹出InputBox让用户输入想保存的文件名，然后再和这个模板文件同路径下新建一个excel文件，文件名即为刚输入的！并且打开新建后的Excel表格。
然后将模板页中的sheet2的A到G列的数据复制复制到新建的这个工作表中，（注意：源sheet2中含有VBA代码，所以这个时候我不想一起复制过去），复制完成之后，源模板的那个excel不保存关闭，新建的这个工作表保存并且不关闭。
当然源sheet2中会有一些格式：
With Sheet2
& && &&&.Select
& && &&&.Columns(&A:A&).ColumnWidth = 4
& && &&&.Columns(&B:B&).ColumnWidth = 24
& && &&&.Columns(&C:C&).ColumnWidth = 4.5
& && &&&.Columns(&D:D&).ColumnWidth = 24
& && &&&.Columns(&E:E&).ColumnWidth = 4.5
& && &&&.Columns(&F:F&).ColumnWidth = 24
& && &&&.Columns(&G:G&).ColumnWidth = 36
& && &&&.Columns(&G:G&).EntireColumn.Hidden = True
& && &&&.Rows(&1:1&).Interior.ColorIndex = 6
& && &&&.Rows(&1:1&).HorizontalAlignment = xlCenter
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
本帖最后由 0Mouse 于
21:32 编辑
试着写了一下代码，但老提示下标越界，期待高手指正！
Sub lcw()
Application.DisplayAlerts = False
Dim wb As Workbooksr = Application.InputBox(&请输入要保存的文件名&, &输入提示&)
Set wb = Workbooks.Add
wb.SaveAs ThisWorkbook.Path & &/& & sr & &.xls&
wb.Sheets(1).Delete
wb.Sheets(2).Delete
wb.Sheets(3).Delete
ThisWorkbook.Sheets(&sheet2&).Columns(&a:g&).Copy wb.Sheets(&sheet2&).Range(&a:g&)
wb.Save
ThisWorkbook.Close True
Application.DisplayAlerts = True
End Sub复制代码
(8.31 KB, 下载次数: 30)
21:31 上传
点击文件名下载附件
使用VBA，如何在两个不同的工作表中实现数据的复制
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
wb.Sheets(1).Delete
wb.Sheets(2).Delete
wb.Sheets(3).Delete
工作簿不可有删除所有工作表的，至少要保留一个，所以wb.Sheets(3).Delete这句不能用的
学office，哪能不关注全网最大的Office类微博（新浪）
中级一, 积分 716, 距离下一级还需 34 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
ii.gif (104 KB, 下载次数: 0)
使用VBA，如何在两个不同的工作表中实现数据的复制
23:24 上传
自己修改代码。copy语句含有BOOK1的文件名
(7.47 KB, 下载次数: 37)
23:24 上传
点击文件名下载附件
使用VBA，如何在两个不同的工作表中实现数据的复制
学office，哪能不关注全网最大的Office类微博（新浪）
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered byexcel VBA同时选择多个工作表的方法
如果要用VBA同时选择多个工作表，可以利用数组或设置&Select&方法的参数为&False&来扩展所选择的内容，如下面的一些代码：
1.用工作表名称：
假如工作表名称为&Sheet1&、&Sheet2&、&Sheet3&，同时选择这3个工作表：
Sub SelectMultiSheets()
Sheets(Array(&Sheet3&, &Sheet2&, &Sheet1&)).Select
2.用工作表索引号：
索引号是分配给工作表的连续数字，同一类型的工作表在工作簿中按照从左到右的顺序，依次为1、2、3&&。下面的代码同时选择第1个和第3个工作表：
Sub SelectMultiSheets1()
Worksheets(Array(3, 1)).Select
3.选择所有工作表：
如果工作簿中不包含图表工作表、对话框工作表，下面的代码可以同时选择所有的工作表：
Sub SelectAllSheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
ws.Select False
其中&Select&方法的参数为&False&，以扩展所选择的内容
标签(Tag):
------分隔线----------------------------
------分隔线----------------------------}