excel如何使用vba创建一个预设格式的工作表
作者：king发布时间：2023-08-06分类：办公软件浏览：29
导读： excel中使用[使用是一个汉语词汇，读音为shǐyòng，使人员、器物、资金等为某种目的的服务。]vba创建[创建指创立并建造一个新生的事物，这个事物，这一类型以前是不存...
excel中使用[使用是一个汉语词汇，读音为shǐyòng，使人员、器物、资金等为某种目的的服务。]vba创建[创建指创立并建造一个新生的事物，这个事物，这一类型以前是不存在的。]一个预设[预设又称为前提、先设和前设，指的是说话者在说出某个话语或句子时所做的假设，即说话者为保证句子或语段的合适性而必须满足的前提，它是由德国哲学家、现代逻辑奠基人弗雷格于1892年提出。]格式的工作[工作的概念是劳动生产。]表。 1、首先我们打开一个工作样表作为例子。
2、我们使用alt+f11组合快捷键[快捷键，又叫快速键或热键，指通过某些特定的按键、按键顺序或按键组合来完成一个操作，很多快捷键往往与如 Ctrl 键、Shift 键、Alt 键、Fn 键以及 Windows 平台下的 Windows 键和 Mac 机上的 Meta 键等配合使用。]进入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) = "序号[序号，有顺序的号码，如1，2，3，4......大写汉字也算数字序号，如一，二，三，四……序号可以清晰的分清同一类事物，也可以用序号作文章的小标题。]" ws.Cells(1， 2) = "产品名称[产品名称即“品牌名称（brand name）”。]" ws.Cells(1， 3) = "产品数量" For i = 2 To 10 ws.Cells(i， 1) = i - 1 Next i End Sub 3、运行这段代码，会创建一个新的工作薄，并设置工作薄的基本样式，工作薄中的工作表1例子如图。 4、首先我们 定义[定义（Definition），原指对事物做出的明确价值描述。]了了两个对象变量，分别是wb和ws 。 wb是创建的新的工作薄， 使用工作薄对象workbooks后的add方法新建。因为新建的工作薄有默认的三个工作表，所以可以直接定义使用set来定义ws为wb的第一个序列工作表。 5、这里我们使用单元格[单元格是表格中行与列的交叉部分，它是组成表格的最小单位，可拆分或者合并。]选择代码直接对单元格进行赋值[将某一数值赋给某个变量的过程，称为赋值。]。 ws.cells(1，1)选取的就是a1单元格 ，可以对其直接赋值字符串“序号”，一次类推。顺序设置了产品名称和产品数量。 6、接着使用for循环语句来简写了序列号，这里是个小技巧，大家可以在不断的练习中学会这样使用循环来优化代码的方法。简单的说，就是顺序选择了a列2-10行的单元格并将其赋值为1-10。86％的科技爱好者也看的内容：iPad3无法链接AppStore解决教程介绍希捷硬盘编号的硬盘编号希捷混合固态硬盘要怎么装系统，才使得硬盘发挥最佳效果电脑主机怎么拆图iPad316g够用吗_iPad3容量分析介绍15.6寸的笔记本电脑长度和宽度一般是多少厘米？油墨喷码机是什么NVIDIA GeForce GT 740 ( 1 GB / Nvidia ) 可以玩WOW 6.2吗？
2、我们使用alt+f11组合快捷键[快捷键，又叫快速键或热键，指通过某些特定的按键、按键顺序或按键组合来完成一个操作，很多快捷键往往与如 Ctrl 键、Shift 键、Alt 键、Fn 键以及 Windows 平台下的 Windows 键和 Mac 机上的 Meta 键等配合使用。]进入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) = "序号[序号，有顺序的号码，如1，2，3，4......大写汉字也算数字序号，如一，二，三，四……序号可以清晰的分清同一类事物，也可以用序号作文章的小标题。]" ws.Cells(1， 2) = "产品名称[产品名称即“品牌名称（brand name）”。]" ws.Cells(1， 3) = "产品数量" For i = 2 To 10 ws.Cells(i， 1) = i - 1 Next i End Sub 3、运行这段代码，会创建一个新的工作薄，并设置工作薄的基本样式，工作薄中的工作表1例子如图。 4、首先我们 定义[定义（Definition），原指对事物做出的明确价值描述。]了了两个对象变量，分别是wb和ws 。 wb是创建的新的工作薄， 使用工作薄对象workbooks后的add方法新建。因为新建的工作薄有默认的三个工作表，所以可以直接定义使用set来定义ws为wb的第一个序列工作表。 5、这里我们使用单元格[单元格是表格中行与列的交叉部分，它是组成表格的最小单位，可拆分或者合并。]选择代码直接对单元格进行赋值[将某一数值赋给某个变量的过程，称为赋值。]。 ws.cells(1，1)选取的就是a1单元格 ，可以对其直接赋值字符串“序号”，一次类推。顺序设置了产品名称和产品数量。 6、接着使用for循环语句来简写了序列号，这里是个小技巧，大家可以在不断的练习中学会这样使用循环来优化代码的方法。简单的说，就是顺序选择了a列2-10行的单元格并将其赋值为1-10。86％的科技爱好者也看的内容：iPad3无法链接AppStore解决教程介绍希捷硬盘编号的硬盘编号希捷混合固态硬盘要怎么装系统，才使得硬盘发挥最佳效果电脑主机怎么拆图iPad316g够用吗_iPad3容量分析介绍15.6寸的笔记本电脑长度和宽度一般是多少厘米？油墨喷码机是什么NVIDIA GeForce GT 740 ( 1 GB / Nvidia ) 可以玩WOW 6.2吗？