咔片PPT · AI自动生成演示文稿,模板丰富、排版精美 讯飞智文 · 一键生成PPT和Word,高效应对学习与办公

Hello!大家好,很高兴又到了周五。

工作中在单元格内输入总结性文字时,如何突出部分关键字段呢?这是我遇到的一个问题。

表格本身并不具备这种功能,唯一可以实现的是对单元格内的所有内容调整格式。所以,我只能把文字写在不同的单元格,这样很麻烦。怎样实现一键操作,成了我的研究目标。

上面展示的效果是通过宏代码实现的,选择需要修改的单元格,点击宏执行按钮。

操作方式如下:

第一步:将文章下方的宏代码复制粘贴到开发工具(Visual Basic)里的Thisworkbook内。

第二步:点击开发工具插入按钮,选择相应的宏名称。

第三步:选择需要调整的单元格,点击按钮执行即可。

注意需要突出的文字位置必须在选择单元格的右侧,且字段间用“/”分隔。

如有疑问,欢迎留言!

点击关注,获取更多内容。

Sub Talk数据()

For Each rg In Selection

Wstr = Trim(rg.Offset(0, 1))

Fstr = Trim(rg)

For Each W In Split(Wstr, "/")

strIndex = 1

Do

WIndex = InStr(strIndex, Fstr, W)

If WIndex > 0 Then

With rg.Characters(Start:=WIndex, Length:=Len(W)).Font

.ColorIndex = 3

.Bold = True

.Size = 14

End With

strIndex = WIndex + Len(W)

End If

Loop Until WIndex = 0

Next

Next

End Sub