单元格局部设置字体格式

yunfei2018

单元格内，设置指定字符串的字体格式，如下： 工作簿1.zip (9.44 KB, 下载次数: 10)

2018-5-10 22:14 上传

点击文件名下载附件

                附件：

1. Sub Text()
   
2.     With ActiveSheet
   
3.         Dim S1 As Byte, L1 As Byte
   
4.         S1 = VBA.InStr(.Range("C2"), "(")
   
5.         L1 = VBA.Len(.Range("C2"))
   
6.         With .Range("C2").Characters(Start:=S1, Length:=L1)
   
7.             .Font.Name = "宋体"
   
8.             .Font.Bold = False
   
9.             .Font.Size = 9
   
10.             .Font.ColorIndex = 3
    
11.         End With
    
12. 
    
13.         S1 = VBA.InStr(.Range("F2"), "(")
    
14.         L1 = VBA.Len(.Range("F2"))
    
15.         With .Range("F2").Characters(Start:=S1, Length:=L1)
    
16.             .Font.Name = "宋体"
    
17.             .Font.Bold = False
    
18.             .Font.Size = 9
    
19.             .Font.ColorIndex = 3
    
20.         End With
    
21. 
    
22.         S1 = VBA.InStr(.Range("d5"), "(")
    
23.         L1 = VBA.Len(.Range("d5"))
    
24.         With .Range("d5").Characters(Start:=S1, Length:=L1)
    
25.             .Font.Name = "宋体"
    
26.             .Font.Bold = False
    
27.             .Font.Size = 9
    
28.             .Font.ColorIndex = 3
    
29.         End With
    
30.     End With
    
31. End Sub

复制代码

能否帮忙改进一下，写个类模块或函数的，可以在过程中直接调用，
如:
sub 测试
      函数名("C2","F2","D5")
end sub


谢谢！

yf_home

早上好，顶下贴，谢谢。

一条鱼ONE-FISH

函数是要写在单元格里的，你的需求是一次性指定好几个单元格，还是使用过程比较方便。

另外，这个使用for each结合正则表达式也挺便捷的。

yf_home

我觉得写个类,然后调用,更为方便点,,

aman1516

试试：

1. Sub test0()
   
2. Dim r%, i%, rng As Range
   
3. Dim reg As New RegExp
   
4. With reg
   
5.     .Global = True
   
6.     .Pattern = "\((.*?)\)"
   
7. End With
   
8. Application.ScreenUpdating = False
   
9. For Each rng In Range("B2:F10")
   
10.     With rng.Font
    
11.          .ColorIndex = 0
    
12.          .Name = "微软雅黑"
    
13.          .FontStyle = "加粗"
    
14.          .Size = 12
    
15.     End With
    
16.     Set Mh = reg.Execute(rng.Value)
    
17.     If Mh.Count > 0 Then
    
18.        For k = 0 To Mh.Count - 1
    
19.            With rng.Characters(Start:=Mh(k).FirstIndex + 1, Length:=Mh(k).Length).Font
    
20.                 .Name = "宋体"
    
21.                 .FontStyle = "常规"
    
22.                 .Size = 9
    
23.                 .ColorIndex = 3
    
24.            End With
    
25.        Next
    
26.     End If
    
27. Next
    
28. Application.ScreenUpdating = True
    
29. End Sub
    

复制代码

yunfei2018

正则表达式，也能解决问题。感谢！
其实我的目的是：写个函数或类，方便调用，

hqsdxx

aman1516 发表于 2018-5-14 22:30
试试：

您好，复制了您的代码试用时，出现“编译错误：用户定义类型未定义”，请问怎么处理？谢谢

aman1516

hqsdxx 发表于 2018-9-2 18:55
您好，复制了您的代码试用时，出现“编译错误：用户定义类型未定义”，请问怎么处理？谢谢

加一句后期绑定：
set reg=createobject("vbscript.regexp")
或在VBA菜单工具里面引用（打勾）
Microsoft VBScript Regular Expression 5.5