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。

奥林巴斯TG850支持防抖吗？支持自拍吗？奥林巴斯TG850支持防抖吗奥林巴斯TG850支持光学防抖功能。奥林巴斯TG850支持防抖吗？奥林巴斯TG850采用可翻转的3英寸46万像素的LCD屏幕，支持10米防水2米防摔10奥林巴斯TG850有什么接口？支持索尼记忆棒吗？奥林巴斯TG850有什么接口奥林巴斯TG850有USB2。0接口microHDMI输出接口。针对奥林巴斯TG850有什么接口的问题，奥林巴斯TG850的液晶屏是支持180度前翻的翻奥林巴斯TG850支持手动模式吗？支持遥控功能吗？奥林巴斯TG850支持手动模式吗奥林巴斯TG850不支持手动模式，全自动操作。针对奥林巴斯TG850支持手动模式吗的问题，奥林巴斯TG850还支持高速视频模式以及镜头位移图像稳定系奥林巴斯TG850有什么对焦方式？支持手动对焦吗？奥林巴斯TG850有什么对焦方式奥林巴斯TG850不支持对焦方式。那么奥林巴斯TG850有什么对焦方式？奥林巴斯TG850采用可翻转的3英寸46万像素的LCD屏幕，支持10米防水2奥林巴斯EP5像素是多少奥林巴斯EP5有效像素是1610万像素，总像素是1720万像素。奥林巴斯EP5采用了3英寸104万像素的可翻转触摸液晶屏，带有防指纹图层，轻触屏幕就可以拍摄照片，采用无缝结构，消除奥林巴斯EPL5像素是多少奥林巴斯EPL5有效像素是1605万像素，总像素是1720万像素。奥林巴斯EPL5使用了可翻转式3。0英寸46万像素LCD液晶屏，并且还加入可拆卸式机身握柄，机身尺寸为110。5m奥林巴斯EM5有效像素是多少奥林巴斯EM5有效像素是1610万像素，总像素是1690万像素。奥林巴斯EM5作为奥林巴斯单电相机的旗舰机型登场，无论是其本身的造型还是奥林巴斯原本的定位，这款产品都是胶片时代OM奥林巴斯EM1支持1080P视频吗？奥林巴斯EM1支持720P视频吗？奥林巴斯EM1支持1080P视频吗奥林巴斯EM1支持1080p（1920times108030p，24Mbps，16Mbps）视频。奥林巴斯EM1采用3寸104万像素LCD触摸屏，奥林巴斯EPL5支持1080P视频吗奥林巴斯EPL5支持1080p（1920times1080，30p）视频拍摄和播放。奥林巴斯EPL5使用了可翻转式3。0英寸46万像素LCD液晶屏，并且还加入可拆卸式机身握柄，机身奥林巴斯TG850使用什么电池？续航能力怎么样？奥林巴斯TG850使用什么电池电池方面，奥林巴斯TG850使用LI50B专用可充电锂电池。关于奥林巴斯TG850使用什么电池的疑问，下面将做详细的解答。奥林巴斯TG850采用可翻转奥林巴斯TG850有闪光灯吗？支持外接闪光灯吗？奥林巴斯TG850有闪光灯吗奥林巴斯TG850内置闪光灯。关于奥林巴斯TG850有闪光灯吗的疑问，下面将做详细的解答。奥林巴斯TG850采用了一支潜望式5倍光学变焦，焦距等效35m