在<em>EXCEL</em>中，如何使用<em>VBA</em>设置&

假设你要改变D列
range("D:D").numberformatlocal="yyyy-mm-dd hh:mm:ss "

Sub ss()
Dim j As Long
j = InStr(Range("A1"), "格式")
With Range("A1")
.Font.FontStyle = "正常"
.Characters(Start:=j, Length:=2).Font.FontStyle = "加粗zd"
End With
End Sub
这个代码可以让你的格式两个版字在任意位置
如果你A1是固定的这几权个字，那么一句话搞定
Range("A1") .Characters(Start:=4, Length:=2).Font.FontStyle = "加粗"

亲，这是一个简单但繁琐的任务。附件已上传，下载后打开，按“Alt+F11”打开VBA编辑窗口，查看模块中的代码。

测试效果如下图。使用时，只需选中要设置格式的单元格，然后点击按钮即可。

Range("I20").Select
ActiveCell.FormulaR1C1 = "123123rr323213"
Range("I20").Select
Selection.NumberFormatLocal = "@"

本文标签：excel vba 单元格 字符(1)vba 单元格字符长度(1)