如何使用VBA在工作组中录入数据？

作者：绿色风分类：时间：2022-08-17 浏览：146

楼主
天南地北

Q：如何使用VBA在工作组中录入数据？

A：可以使用如下代码实现

代码一：【选中多个工作表，然后选定一个单元格（无需指定工作表），然后赋值，代码如下】

Sub 操作工作组_录入数据1()
Dim ar()
ar = Array("sheet1", "sheet3", "sheet6")
Sheets(ar).Select
Range("A1").Select
ActiveCell = 1
Sheets(ar(0)).Select
End Sub

同样的道理如果需要清除单元格内容，选定单元格后不是赋值，而是清除内容即可

Sub 操作工作组_清除数据()
Dim ar()
ar = Array("sheet1", "sheet3", "sheet6")
Sheets(ar).Select
Range("A1").Select
ActiveCell.Clear
Sheets(ar(0)).Select
End Sub

代码二：【使用工作表的FillAcrossSheets属性，有两个参数，具体使用方法参考帮助文件】

XlFillWith参数（此参数可省略，省略表示复制内容和格式）

Sub 操作工作组_录入数据2()
Dim ar()
ar = Array("sheet1", "sheet3", "sheet6")
Sheets(ar(0)).Range("A1") = 1
Sheets(ar).FillAcrossSheets Sheets(ar(0)).Cells(1, 1), xlFillWithContents
End Sub

FillAcrossSheets属于复制填充操作，第二参数可以选择粘贴类型为【复制内容和格式】、【仅复制内容】、【仅复制格式】，比如如下代码我们先设置选中的第一个工作表的A1单元格格式为加粗、黄色背景、2位数值格式，然后再复制到其他工作表，代码如下

Sub 操作工作组_录入数据带格式()
Dim ar()
ar = Array("sheet1", "sheet3", "sheet6")
With Sheets(ar(0)).Range("A1")
.Value = 1
.Interior.Color = 65535
.Font.Bold = True
.NumberFormatLocal = "0.00_);[红色](0.00)"
End With
Sheets(ar).FillAcrossSheets Sheets(ar(0)).Cells(1, 1)
End Sub

如何使用VBA在工作组中录入数据_天南地北.rar

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表