设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 697|回复: 6

[每日一码] VLISP在Excel对象中的应用(五):Excel中合并单元格,取消合并,更改字体和颜色

[复制链接]

已领礼包: 9个

财富等级: 恭喜发财

发表于 2018-9-27 23:01:07 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
本帖最后由 zipo123 于 2018-9-27 23:06 编辑

紧接上次继续补充
(setq range3 (vlax-get-property active-sheet1 "Range" "C49:F49"));;获取单元格区域"C49:F49"
(vlax-invoke-method range3 "Merge");;合并单元格
(vlax-put-property range3 "Value2" 1000);;为合并后的单元格赋值为1000
(vlax-put-property (vlax-get-property range3 "Font") "Name" "黑体");;设置单元字体为黑体
(vlax-put-property (vlax-get-property range3 "Font") "Size" "20");;设置单元字体大小为20
(vlax-put-property (vlax-get-property range3 "Font") "ColorIndex" "3");;设置单元字体颜色为红色
(vlax-put-property (vlax-get-property range3 "Font") "Bold" "true");;设置单元字体为加粗
(vlax-put-property (vlax-get-property range3 "Font") "Italic" "true");;设置单元字体为斜体
(vlax-put-property (vlax-get-property range3 "Interior") "ColorIndex" "6");;设置区域的背景色为黄色
(vlax-invoke-method range3 "UnMerge");;取消合并单元格
(vlax-invoke-method range3 "Clear");;清除单元格内容及格式

评分

参与人数 1D豆 +5 收起 理由
newer + 5 很给力!经验;技术要点;资料分享奖!

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 1227个

财富等级: 财源广进

发表于 2018-9-28 00:03:15 | 显示全部楼层
学习学习。。。。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 2527个

财富等级: 家财万贯

发表于 2018-9-28 00:04:39 | 显示全部楼层
做一个热心并受欢迎的人
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1439个

财富等级: 财源广进

发表于 2018-9-28 09:19:31 | 显示全部楼层
谢谢你分享这么实用的资料
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 6458个

财富等级: 富甲天下

发表于 2018-9-29 00:10:54 | 显示全部楼层
谢谢分享。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 8个

财富等级: 恭喜发财

发表于 2018-10-15 00:22:20 | 显示全部楼层
这个非常好,谢谢!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2019-4-1 19:13:41 | 显示全部楼层
好东东。谢谢啊。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

GMT+8, 2020-1-27 01:05 , Processed in 0.161567 second(s), 39 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表