excel如何使用vba创建一个预设格式的工作表
excel中使用vba创建一个预设格式的工作表。
1、首先我们打开一个工作样表作为例子。
2、我们使用alt+f11组合快捷键进入vbe编辑器,插入一个新的模块,并在模块中输入以下代码:
Sub CreateNewWorkbook2()
Dim wb As Workbook
Dim ws As Worksheet
Dim i As Long
MsgBox "将创建一个新工作簿,并预设工作表格式."
Set wb = Workbooks.Add
Set ws = wb.Sheets(1)
ws.Name = "产品汇总表"
ws.Cells(1, 1) = "序号"
ws.Cells(1, 2) = "产品名称"
ws.Cells(1, 3) = "产品数量"
For i = 2 To 10
ws.Cells(i, 1) = i - 1
Next i
End Sub
3、运行这段代码,会创建一个新的工作薄,并设置工作薄的基本样式,工作薄中的工作表1例子如图。
4、首先我们 定义了了两个对象变量,分别是wb和ws 。 wb是创建的新的工作薄,使用工作薄对象workbooks后的add方法新建。因为新建的工作薄有默认的三个工作表,所以可以直接定义使用set来定义ws为wb的第一个序列工作表。
5、这里我们使用单元格选择代码直接对单元格进行赋值。 ws.cells(1,1)选取的就是a1单元格,可以对其直接赋值字符串“序号”,一次类推。顺序设置了产品名称和产品数量。
6、接着使用for循环语句来简写了序列号,这里是个小技巧,大家可以在不断的练习中学会这样使用循环来优化代码的方法。简单的说,就是顺序选择了a列2-10行的单元格并将其赋值为1-10。
推荐系统
雨林木风 winxp下载 纯净版 永久激活 winxp ghost系统 sp3 系统下载
系统大小:0MB系统类型:WinXP雨林木风在系统方面技术积累雄厚深耕多年,打造了国内重装系统行业知名品牌,雨林木风WindowsXP其系统口碑得到许多人认可,积累了广大的用户群体,是一款稳定流畅的系统,雨林木风 winxp下载 纯净版 永久激活 winxp ghost系统 sp3 系统下载,有需要的朋友速度下载吧。
系统等级:进入下载 >萝卜家园win7纯净版 ghost系统下载 x64 联想电脑专用
系统大小:0MB系统类型:Win7萝卜家园win7纯净版是款非常纯净的win7系统,此版本优化更新了大量的驱动,帮助用户们进行舒适的使用,更加的适合家庭办公的使用,方便用户,有需要的用户们快来下载安装吧。
系统等级:进入下载 >雨林木风xp系统 xp系统纯净版 winXP ghost xp sp3 纯净版系统下载
系统大小:1.01GB系统类型:WinXP雨林木风xp系统 xp系统纯净版 winXP ghost xp sp3 纯净版系统下载,雨林木风WinXP系统技术积累雄厚深耕多年,采用了新的系统功能和硬件驱动,可以更好的发挥系统的性能,优化了系统、驱动对硬件的加速,加固了系统安全策略,运行环境安全可靠稳定。
系统等级:进入下载 >萝卜家园win10企业版 免激活密钥 激活工具 V2023 X64位系统下载
系统大小:0MB系统类型:Win10萝卜家园在系统方面技术积累雄厚深耕多年,打造了国内重装系统行业的萝卜家园品牌,(win10企业版,win10 ghost,win10镜像),萝卜家园win10企业版 免激活密钥 激活工具 ghost镜像 X64位系统下载,其系统口碑得到许多人认可,积累了广大的用户群体,萝卜家园win10纯净版是一款稳定流畅的系统,一直以来都以用户为中心,是由萝卜家园win10团队推出的萝卜家园
系统等级:进入下载 >萝卜家园windows10游戏版 win10游戏专业版 V2023 X64位系统下载
系统大小:0MB系统类型:Win10萝卜家园windows10游戏版 win10游戏专业版 ghost X64位 系统下载,萝卜家园在系统方面技术积累雄厚深耕多年,打造了国内重装系统行业的萝卜家园品牌,其系统口碑得到许多人认可,积累了广大的用户群体,萝卜家园win10纯净版是一款稳定流畅的系统,一直以来都以用户为中心,是由萝卜家园win10团队推出的萝卜家园win10国内镜像版,基于国内用户的习惯,做
系统等级:进入下载 >windows11下载 萝卜家园win11专业版 X64位 V2023官网下载
系统大小:0MB系统类型:Win11萝卜家园在系统方面技术积累雄厚深耕多年,windows11下载 萝卜家园win11专业版 X64位 官网正式版可以更好的发挥系统的性能,优化了系统、驱动对硬件的加速,使得软件在WINDOWS11系统中运行得更加流畅,加固了系统安全策略,WINDOWS11系统在家用办公上跑分表现都是非常优秀,完美的兼容各种硬件和软件,运行环境安全可靠稳定。
系统等级:进入下载 >
热门系统
推荐软件
推荐应用
推荐游戏
热门文章
常用系统
- 1windows10企业版下载 深度技术x86 永久免费下载 ghost iso镜像
- 2WINDOWS10专业版 深度技术 iso ghost镜像 X64位 V2022.05下载
- 3电脑公司win11专业电竞版 x64位游戏版下载 笔记本专用 GHOST镜像下载
- 4windows11企业版下载 深度技术系统x64位 永久免费 ghost系统下载
- 5Windows7纯净版下载 深度技术x64万能版 笔记本专用下载 免激活工具
- 6深度技术win11娱乐版 X64位最新版下载 ISO镜像 华硕电脑专用下载
- 7最新win10系统稳定版下载 雨林木风 x64位永久激活 v2023
- 8系统之家纯净版win7系统 x64位精简版下载 win7激活密钥 官网镜像下载
- 9番茄花园64位全新版 win7稳定版下载 永久免费 联想笔记本专用下载