Apply an AutoFormat to an Excel Spreadsheet
更新时间：2007年06月12日 00:00:00 作者：
Script Code
Const xpRangeAutoFormatList2 = 11
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Worksheets(1)
k = 1
For i = 1 to 10
For j = 1 to 10
objWorksheet.Cells(i,j) = k
k = k + 1
Next
Next
Set objRange = objWorksheet.UsedRange
objRange.AutoFormat(xpRangeAutoFormatList2)
复制代码 代码如下:
Const xpRangeAutoFormatList2 = 11
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Worksheets(1)
k = 1
For i = 1 to 10
For j = 1 to 10
objWorksheet.Cells(i,j) = k
k = k + 1
Next
Next
Set objRange = objWorksheet.UsedRange
objRange.AutoFormat(xpRangeAutoFormatList2)
相关文章
这篇文章主要介绍了使用js让图片组成动画,这样就可以用js做动画了，大家参考使用吧2014-01-01
今天分析一下, 终于找到原因. 旧版本的js文件写的浏览器判断有异常, 所以导致插入点一直在头部. 今天修复之2014-05-05
屏蔽鼠标右键、Ctrl+n、shift+F10、F5刷新、退格键 的javascript代码
屏蔽鼠标右键、Ctrl+n、shift+F10、F5刷新、退格键 的javascript代码...2007-04-04
这篇文章主要介绍了javascript中eval函数用法,实例分析了javascript中eval函数的使用技巧,非常具有实用价值,需要的朋友可以参考下2015-04-04
这篇文章教大家学习使用Bootstrap表单控件，具有一定的参考价值，感兴趣的小伙伴们可以参考一下2017-03-03
当前世界上有很多种浏览器，除了我们熟知的IE, Firefox, Opera, Safari四大浏览器之外，世界上还有近百种浏览器，有时候我们需要判断浏览器与版本方便后续的操作，一句话浏览器的兼容性太差了，缺少标准2014-05-05
这篇文章主要针对Bootstrap布局组件应用进行实例讲解，感兴趣的小伙伴们可以参考一下2016-02-02
这篇文章给大家分享了基于bootstrap打造的特色进度条效果，非常不错，具有参考借鉴价值，需要的朋友参考下吧2017-05-05
今天小编就为大家分享一篇layui table数据修改的回显方法，具有很好的参考价值，希望对大家有所帮助。一起跟随小编过来看看吧2019-09-09
鉴于UI妹妹每次交付过来的选项卡都夹带了多多少少的js，而且每遇到选项卡就加一点js，造成垃圾低劣代码逐渐堆积过多了，一直想做一个通用简洁的选项卡库。2010-05-05
最新评论