~ 上傳‧分享‧網賺 ~
~ 免費上傳空間‧請即申請 Freak Share ~
~ 進入後請點選左上角 注冊 ! ~
~ 声明事项 ~
如各位想把以下本文章转贴 , 请记得要注明出处.
本文章之内容为本人之经验所写, 绝无抄袭成份, 特此声明.
由于图片制作需时, 所以更新会比较慢.
存放图片的 SHARE A PIC SERVER 可能读取速度较慢, 请耐心等待.
==================
Worksheets("Sheet2").Range("A1").Select
With Selection.Font
.Name = "新细明体"
.Size = "20"
.Bold = True
.Italic = True
.Underline = True
End With
==================
上面的程序代码如果我跟你说 , 我不作任何解释了 , 你会看得懂吗 ??
不可能没看懂吧 ~ 这里就包含了我们日常工作中的最基本 , 粗体 , 斜体等等的东西 , 当然啰 ~ 还有其它东西的 , 这些就留给你自己慢慢发掘吧 ~ 哈哈 ~ ( 虽然我设计的程序当中 , 从来都没有用过这个 ~ 哈哈 ~ )
要特别说明的是 , With 这个部份 , 要设定一个或多个储存格的文字属性的话 , 就需要把你想 VBA 程序帮你更改的东西放到 With Selection.Font 和 End With 里面 , 要注意 , 是 With Selection.Font 而不是 With Font 哦 ~ 还有 , 记得 , 有 With , 就一定要有 End With ~
0 留言:
發佈留言