Question

易语言 对EXCEL 更改单元格属性

Answer 1

.版本
2

.程序集
EXCEL
.程序集变量
EXCEL,
对象

.子程序
EXCEL创建,
逻辑型,
公开

返回
(EXCEL.创建
(“Excel.Application”,
))

.版本
2

.子程序
EXCEL置单元格字体,
,
公开
.参数
单元格区域,
文本型
.参数
字体名称,
文本型
.参数
字体大小,
小数型
.参数
文字颜色,
整数型,
可空
.参数
是否加粗,
逻辑型,
可空
.参数
是否倾斜,
逻辑型,
可空
.参数
是否下划线,
逻辑型,
可空
.参数
是否删除线,
逻辑型,
可空

EXCEL.读对象型属性
(“Range”,
单元格区域).读对象型属性
(“Font”,
).写属性
(“Name”,
字体名称)
'
字体名称
EXCEL.读对象型属性
(“Range”,
单元格区域).读对象型属性
(“Font”,
).写属性
(“Size”,
字体大小)
'
字体大小

.如果
(是否为空
(文字颜色))

EXCEL.读对象型属性
(“Range”,
单元格区域).读对象型属性
(“Font”,
).写属性
(“Color”,
#黑色)
'
字体颜色
.否则

EXCEL.读对象型属性
(“Range”,
单元格区域).读对象型属性
(“Font”,
).写属性
(“Color”,
文字颜色)
'
字体颜色
.如果结束

.如果
(是否为空
(是否加粗))

EXCEL.读对象型属性
(“Range”,
单元格区域).读对象型属性
(“Font”,
).写属性
(“Bold”,
假)
'
字体加粗
.否则

EXCEL.读对象型属性
(“Range”,
单元格区域).读对象型属性
(“Font”,
).写属性
(“Bold”,
是否加粗)
'
字体加粗
.如果结束

.如果
(是否为空
(是否倾斜))

EXCEL.读对象型属性
(“Range”,
单元格区域).读对象型属性
(“Font”,
).写属性
(“Italic”,
假)
'
字体倾斜
.否则

EXCEL.读对象型属性
(“Range”,
单元格区域).读对象型属性
(“Font”,
).写属性
(“Italic”,
是否倾斜)
'
字体倾斜
.如果结束

.如果
(是否为空
(是否删除线))

EXCEL.读对象型属性
(“Range”,
单元格区域).读对象型属性
(“Font”,
).写属性
(“Strikethrough”,
假)
'
删除线
.否则

EXCEL.读对象型属性
(“Range”,
单元格区域).读对象型属性
(“Font”,
).写属性
(“Strikethrough”,
是否删除线)
'
删除线
.如果结束

.如果
(是否为空
(是否下划线))

EXCEL.读对象型属性
(“Range”,
单元格区域).读对象型属性
(“Font”,
).写属性
(“UnderLine”,
假)
'
字体下划线
.否则

EXCEL.读对象型属性
(“Range”,
单元格区域).读对象型属性
(“Font”,
).写属性
(“UnderLine”,
是否下划线)
'
字体下划线