您现在的位置是:首页 > 生活奇闻生活奇闻
vba设置单元格字体颜色?vba字体颜色代码大全
wangqiang2022bixu82022-04-24【生活奇闻】291人已围观
Excel工作表中,每个单元格里的内容不同,但是想要每个单元格里的每个字符文本格式也不同,设置起来就有点麻烦了,怎么设置呢?
通常方法就是,选中要设置的字符,然后在工具栏上找到相应的格式选项。很简单,但是一项比较无趣的事情。
本节就将这一功能,用VBA代码来解释一下,其工作原理是怎样进行的。
首先看下图,本示例实现对文本字体、颜色、字号大小进行设置。根据自己需要可简单修改一下实现一键完成。
实现此功能将应用到一个对象:Characters
Range对象可返回Characters对象
语法:
Characters(Start,Lenght)
Start是字符串开始位置,Lenght是字符串长度。
如:
Range("A1").Characters(1,3)
直接返回A1单元格内第1个字符到第3个字符的一个Characters对象,假如A1单元格内容为"Jiang Mi",那么将返回一个"Jia",当然了,Jia只是这个对象的Text值。
代码:
Private Sub CommandButton1_Click()
Dim r As Range, rx As Range, i As Integer
Set rx = Range("B3:B8") '定义单元格区域
For Each r In rx
i = i + 1
r.Offset(0, 1).Value = r.Characters.Count '对象数量
With r.Characters(1, r.Characters.Count).Font '设置字符格式
.Size = 18
.Bold = True
.Color = QBColor(9)
End With
With r.Characters(i, 1)
.Text = VBA.UCase(r.Characters(i, 1).Text)
.Font.Color = RGB(233, 2, 2)
End With
Next r
End Sub
Characters对象有两个方法,一个是Delete,删除,一个是Insert,插入。
这两个方法都好理解,一个是把对象删除,一个是在对象前面插入字符串。
使用方法如下代码:
Private Sub CommandButton2_Click()
Dim r As Range
Set r = Range("B3:B8")
r.Characters(1, r.Characters.Count).Delete
End Sub
Private Sub CommandButton3_Click()
Dim r As Range, rx As Range, i As Integer
Set rx = Range("B3:B8")
For Each r In rx
i = i + 1
With r.Characters(1, 1) 'r.Characters.Count)
.Insert "A"
End With
Next r
End Sub
Characters对象属性主要是Font,因为是字符串操作,所以Font格式的设置就显得特别重要,关于Font属性,可参考以前的一些文章有介绍。
关注、收藏
---END---
Tags:
文章版权声明:除非注明,否则均为稻草号原创文章,转载或复制请以超链接形式并注明出处。
最近发表
文章归档
- 2024年3月 (4504)
- 2024年2月 (6555)
- 2024年1月 (7890)
- 2023年12月 (1495)
- 2023年9月 (3)
- 2023年8月 (51)
- 2023年7月 (231)
- 2023年6月 (173)
- 2023年5月 (913)
- 2023年4月 (7853)
- 2023年3月 (7684)
- 2023年2月 (8051)
- 2023年1月 (10742)
- 2022年12月 (9206)
- 2022年11月 (18807)
- 2022年10月 (19024)
- 2022年9月 (28928)
- 2022年8月 (8958)
- 2022年7月 (42927)
- 2022年6月 (1)
- 2022年5月 (136163)
- 2022年4月 (106682)
- 2022年3月 (3760)
- 2022年2月 (8996)
- 2022年1月 (5810)
- 2021年11月 (11974)
- 2021年10月 (104852)
- 2021年9月 (1)
- 1970年1月 (8)