如何对工作表文本框中的特定文字进行突出显示

cg372101 · 发表于 2011-2-25 07:47

请教：
　　对当前工作表中的所有文本框中的每行文字进行如下格式化：每行中第一个空格字符前、起行大写字母串后的字符部分进行红色、加粗显示（可能有的行没有这样的字符）该如何用VBA批量操作？

说明：
　　“起行大写字母串后的”是指行首是大写字母或连续的大写字母的，则从它后面的第一个字符开始，到这个行内第一次出现空格的位置，这两者之间的字符进行红色显示。

注意：
　　有的文本框跟其它对象进行了组合操作，还有的是竖排文本框

本问题的关键：
　　1．VBA格式化文本框中部分字符；
　　2．若用正则表达式，好像VB不支持零宽后行断言。那这里的字符匹配问题能否有其它的变通方法；
　　3．文本框与其他对象组合后使问题变得更加不好处理了。有人提议先用VBA解除组合，可惜我不会弄。另外解除组合后还能用VBA来还原组合吗。

　　详情见附件及图片。

[ 本帖最后由 cg372101 于 2011-2-26 21:41 编辑 ]

cg372101 · 发表于 2011-2-25 09:50

有请VBA的老师们出手相助！

cg372101 · 发表于 2011-2-25 11:27

再请VBA的老师们出手相助！

cg372101 · 发表于 2011-2-25 12:37

还是没有人理睬啊
请高手指点指点！！
不胜感激！

hanter007 · 发表于 2011-2-25 12:42

看起来比较烦人哦.
首先文本框与其它对象组合了,操作很麻烦.
另外要判断所有匹配字母+空格中间的字符,还要获得起始字符位置和长度,这个需要用正则表达式来做呢.
暂时没时间帮你弄,帮你顶起啦.

[ 本帖最后由 hanter007 于 2011-2-25 13:17 编辑 ]

cg372101 · 发表于 2011-2-25 13:59

谢谢hanter007 的捧场
继续求助

Zamyi · 发表于 2011-2-25 15:21

“TB482.2 结构设计”应该是“B482.2”而不是“482.2”？

cg372101 · 发表于 2011-2-25 16:25

原帖由 Zamyi 于 2011-2-25 15:21 发表
“TB482.2 结构设计”应该是“B482.2”而不是“482.2”？

取”482.2“，因为忽略前头的大写字母，一般说来，每行的第一个字符肯定是大写字母，第二个也可能是，第三个就基本不是了

Zamyi · 发表于 2011-2-25 17:18

原帖由 cg372101 于 2011-2-25 16:25 发表

取”482.2“，因为忽略前头的大写字母，一般说来，每行的第一个字符肯定是大写字母，第二个也可能是，第三个就基本不是了

嗯嗯。忽略组合、忽略“忽略前头的大写字母”

Sub Macro1()
For Each c In Sheet1.Shapes
  c.Select
  s = Selection.Text
  For i = 2 To Len(s)
If Mid(s, i, 1) Like "[A-Z,a-z]" Then
   n = i
   While (Mid(s, i, 1)) <> " " And i < Len(s)
      i = i + 1
      Wend
   If Mid(s, i, 1) = " " Then Selection.Characters(Start:=n + 1, Length:=i - n).Font.ColorIndex = 3
   End If
Next
Next
End Sub

cg372101 · 发表于 2011-2-25 20:05

原帖由 Zamyi 于 2011-2-25 17:18 发表

嗯嗯。忽略组合、忽略“忽略前头的大写字母”
Sub Macro1()
For Each c In Sheet1.Shapes
  c.Select
  s = Selection.Text
  For i = 2 To Len(s)
If Mid(s, i, 1) Like "[A-Z,a-z]" Then
   ...

非常谢谢Zamyi！
可惜在我的Excel 2010 里报错了，说是“对象不支持该属性或方法”。另外怎么才能对组合的文本框也可以操作呢？

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

[求助] 如何对工作表文本框中的特定文字进行突出显示