代码修改

xing_chen · 发表于 2023-6-15 08:26

本帖最后由 xing_chen 于 2023-6-15 10:34 编辑

老师，有簿系跨表超链接问题，现有代码基本可以达到目标，遗憾的是我希望能：
1链接目录的字体下游划线，并在点击的时候字体的颜色有变化；
2“返回”的字体显示粗红字体。
敬请老师赐教。谢谢！

fanyoulin · 发表于 2023-6-15 09:04

设置下就好了：

下划线： Cells(K + 2, 2).Font.Underline = xlUnderlineStyleSingle
粗字体： sh.[b18].Font.Bold = True
红色： sh.[b18].Font.Color = 255

xing_chen · 发表于 2023-6-15 09:38

fanyoulin 发表于 2023-6-15 09:04
设置下就好了：

谢谢老师！能否完整的将代码写出来？

fanyoulin · 发表于 2023-6-15 09:47

把你的源代码稍微修改了下，结构没变，只是把次序理顺了下；

xing_chen · 发表于 2023-6-15 12:37

fanyoulin 发表于 2023-6-15 09:47
把你的源代码稍微修改了下，结构没变，只是把次序理顺了下；

谢谢老师！
Worksheets(i).Cells(19, 2).Font.Bold = True为什么是19而不是18
Worksheets(i).Cells(19, 2).Font.Color = 255为什么是19而不是18

		自动登录	找回密码
密码			免费注册

[求助] 代码修改