设置Excel对象一个范围内的粗体, 斜体, 及下划线字体属性
#Include <Excel.au3>
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart [, $iColStart = 1 [, $iRowEnd = 1 [, $iColEnd = 1 [, $fBold = False [, $fItalic = False [, $fUnderline = False]]]]]])
| $oExcel | 由预先调用_ExcelBookOpen()或_ExcelBookNew()打开的Excel对象 |
| $sRangeOrRowStart | A1范围, 或者在使用R1C1格式时的整数行数 |
| $iColStart | [可选参数] 数字格式开始列(左) (默认为1) |
| $iRowEnd | [可选参数] 数字格式结束行(底) (默认为1) |
| $iColEnd | [可选参数] 数字格式结束列(右) (默认为1) |
| $fBold | [可选参数] 粗体标记: TRUE=粗体, FALSE=非粗体(移去粗体格式) |
| $fItalic | [可选参数] 斜体标记: TRUE=斜体, FALSE=非斜体(移去斜体格式) |
| $fUnderline | [可选参数] 下划线标记: TRUE=下划线, FALSE=无下划线(移去下划线格式) |
| 成功: | 返回 1 |
| 失败: | 返回 0并设置@error |
| @error: | 1 - 指定对象不存在 |
| 2 - 开始行或列不可用 | |
| 3 - 结束行或列不可用 | |
| 1 - 列不可用 |
; *****************************************************************
; 示例 1 打开一个新的工作表并返回其对象标识符, 然后设置一个范围内的字体属性.
; *****************************************************************
#include <Excel.au3>
Local $oExcel = _ExcelBookNew() ;创建一个新的工作表并打开
Local $sRangeOrRowStart = 1, $iColStart = 1, $iRowEnd = 10, $iColEnd = 10
Local $fBold, $fItalic, $fUnderline, $i = 1
;使用一个简单的循环和随机数字填充单元格
For $i = 1 To 10
For $j = 1 To 10
_ExcelWriteCell($oExcel, Round(Random(1, 100), 0), $i, $j) ;向文件写入随机数字信息
Next
Next
MsgBox(4096, "提示", "注意字体属性,下面将会显示所有可能的组合！" & @CRLF & "按[确定]开始")
$i = 1
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, False, True)
ToolTip("设置一个新的字体属性: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, False, True)
ToolTip("设置一个新的字体属性: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, False, True)
ToolTip("设置一个新的字体属性: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, False, True)
ToolTip("设置一个新的字体属性: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, False, True)
ToolTip("设置一个新的字体属性: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, False, True)
ToolTip("设置一个新的字体属性: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, True, True)
ToolTip("设置一个新的字体属性: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, True, True)
ToolTip("设置一个新的字体属性: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, True, True)
ToolTip("设置一个新的字体属性: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, False, True)
ToolTip("设置一个新的字体属性: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, False, True)
ToolTip("设置一个新的字体属性: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, False, True)
ToolTip("设置一个新的字体属性: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, True, True)
ToolTip("设置一个新的字体属性: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, True, True)
ToolTip("设置一个新的字体属性: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, True, True)
ToolTip("设置一个新的字体属性: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, True, True)
ToolTip("设置一个新的字体属性: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, True, True)
ToolTip("设置一个新的字体属性: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, True, True)
ToolTip("设置一个新的字体属性: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, True, True, True)
ToolTip("设置一个新的字体属性: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, False, False)
ToolTip("设置一个新的字体属性: " & $i)
MsgBox(4096, "退出", "按[确定]保存文件并退出")
_ExcelBookSaveAs($oExcel, @TempDir & "\Temp.xls", "xls", 0, 1) ;保存至临时目录中,如果文件已存在将覆盖原文件
_ExcelBookClose($oExcel) ;关闭工作表.