口袋妖怪go用虚拟定位怎么玩
Description
Demonstration script that displays the various colors -- and their related color index -- available when programmatically controlling Microsoft Excel.
Script Code
set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add
For i = 1 to 56
objExcel.Cells(i, 1).Value = i
objExcel.Cells(i, 1).Interior.ColorIndex = i
Next
口袋妖怪go用虚拟定位怎么玩
Demonstration script that displays the various colors -- and their related color index -- available when programmatically controlling Microsoft Excel.
Script Code
复制代码 代码如下:
set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add
For i = 1 to 56
objExcel.Cells(i, 1).Value = i
objExcel.Cells(i, 1).Interior.ColorIndex = i
Next