Apply an AutoFormat to an Excel Spreadsheet

标签:业务范围    日期:2018-02-14 23:16    录入:美娱国际平台注册    浏览:

  

[Apply,an,AutoFormat,to,an]Apply an AutoFormat to an Excel Spreadsheet

  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)  

★★★小编:美娱国际 整理文章,欢迎大家转载 ★★★
相关文章阅读
点击右上角的分享按钮即可收藏美娱国际平台注册 随时随地与好友一起分享精彩内容噢