Apply an AutoFormat to an Excel Spreadsheet

ttx9n · 发表于 2007-6-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)

lsc54 · 发表于 2022-10-23 19:24:26

了乐趣了去了去了去了去了

ppwxcg · 发表于 2023-2-1 23:54:16

强烈支持楼主ing……

bp5jgbcnt · 发表于 2023-5-20 11:23:58

论坛有你更精彩！

a75620618 · 发表于 2023-7-28 11:27:37

2222222222222222

3t0ukmu · 发表于 2023-8-28 08:37:06

看看怎么样再说

3pjdk29w · 发表于 2023-9-10 20:25:20

给爸爸爸爸爸爸爸爸爸爸八佰伴八佰伴

plvo189 · 发表于 2023-10-9 14:49:28

谢谢小Y分享

u6h2m4 · 发表于 2023-11-1 02:17:39

谢谢楼主分享

z80vh · 发表于 2024-3-22 08:32:23

呵呵呵呵呵呵

账号		自动登录	找回密码
密码			立即注册

[JavaScript] Apply an AutoFormat to an Excel Spreadsheet

相关帖子