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)
【excel如何使用vba创建一个预设格式的工作表】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 。
excel如何使用vba创建一个预设格式的工作表的详细内容就为您分享到这里,【精彩生活】jing111.com小编为您精选以下内容,希望对您有所帮助:
- 孕妇可以使用高夫吗
- Excel2013如何将数据转换成饼图并显示百分比
- Word2016如何裁剪图形
- 美宝莲橡皮擦遮瑕笔怎么使用
- Excel中选择性粘贴怎么用
- Excel如何把表格内文字颠倒顺序显示
- 如何防止晒黑
- CAD如何插入外链EXCEL表格
- 在excel表格如何制作公式减法
- 暴风影音如何旋转视频的方向