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。
最新科技数码科普
轩辕剑外传穹之扉存档位置在哪
轩辕剑外传穹之扉存档位置在哪作为轩辕剑系列第十二部作品,《轩辕剑外传穹之扉》将历史背景与神话传说相结合,讲述一段充满神秘与梦幻色彩的动人故事。更使用全新光照系...
展开详情如何在淘宝网上买东西
如何在淘宝网上买东西?进入淘宝的首页,在页面顶部中间的搜索框中输入想要购买的东西,我们这里输入“iPhone 6 手机壳”,按回车键就会转跳到和iPhone ...
展开详情如何在Excel2016瀑布图?Excel2016瀑布图绘制教程
瀑布图源于形似瀑布,常用来反映数个特定数值之间的数量变化关系,那么如何在Excel2016瀑布图呢?下面一起来看看。Excel2016瀑布图绘制教程新建一个E...
展开详情机械键盘怎么样 机械键盘常见优缺点有哪些
现在说到机械键盘想必年轻人应该都不陌生,其也成为他们玩游戏上分的首要选择。其相较于传统键盘,手感更舒服。那么机械键盘常见优缺点有哪些呢?今天小编就为大家简单的...
展开详情阿云浏览器地址栏可以自动补全网址吗
阿云浏览器的地址栏是可以自动补全网址的。例如您想打开淘宝网首页,您只需在地址栏输入“taobao”,然后按下“Ctrl+Enter”键即可。阿云浏览器是阿里云...
展开详情sd卡写保护怎么去掉
SD卡写保护怎么去掉通常导致SD出现写保护的原因是多方面的,即有人为的因素,也有硬件本身的问题。那么SD卡写保护怎么去掉呢?针对此类问题的最好方法是采取逐个排...
展开详情网上老说的flag是什么意思
近些年,国内的网络发展速度还是很快的,大家可以通过网络了解很多的东西,因此网络上也有很多热词开始流行起来,其中flag算是十分流行的一个词汇,网上老说的fla...
展开详情新浪微博怎么开启夜间模式
新浪微博怎么开启夜间模式如果是微博控的话,应该深夜里躺在床上刷微博吧,这是一天最开心的时候了。但如果还是个学生党的话,深夜里舍友都已准备入睡,而手机的亮光会影...
展开详情