excel实现同一单元格中不同字体和大小，VBA应当如何写？

excel实现同一单元格中不同字体和大小，VBA应当如何写？

亲，这是一个简单但繁琐的任务。附件已上传，下载后打开，按“Alt+F11”打开VBA编辑窗口，查看模块中的代码。
测试效果如下图。使用时，只需选中要设置格式的单元格，然后点击按钮即可。






追问一次只能设置一个单元格，如何出现批量设置的这个按钮？追答为什么一次只能设置一个？您一次选中多少单元格，就设置多少个单元格。为什么一次只能设置一个？您一次选中多少单元格，就设置多少个单元格。

为啥不多弄几个单元格？

假设以上内容在A1中。

Sub 设置()
[a1].Select
Selection.Characters(Start:=1, Length:=4).Font.Name = "黑体"
Selection.Characters(Start:=1, Length:=4).Font.Size = 10.5
Selection.Characters(Start:=5, Length:=20).Font.Name = "楷体"
Selection.Characters(Start:=6, Length:=2).Font.FontStyle = "加粗"
Selection.Characters(Start:=5, Length:=20).Font.Size = 12
Selection.Characters(Start:=12, Length:=2).Font.Underline = xlUnderlineStyleSingle
End Sub

    Set rg = Range("A1")
    With rg.Characters(Start:=1, Length:=2).Font  'start和length用来定位需要设置字体的文字，这里表示从第一个字符开始的2个字符
        .Name = "黑体"         '字体名称
        .FontStyle = "加粗"    '加粗
        .Size = 10.5           '大小
        .Strikethrough = False   '删除线
        .Superscript = False     '上标
        .Subscript = False       '下标
        .OutlineFont = False     '空心字
        .Shadow = False          '阴影
        .Underline = xlUnderlineStyleSingle  '下划线,xlUnderlineStyleNone表示无，xlUnderlineStyleSingle表示单下划线，其他的可录制宏看看
        .ThemeColor = xlThemeColorLight1 '主题颜色,具体值可录制宏得到
        .TintAndShade = 0   '颜色深浅,值为-1（最暗）到 1（最亮）
        .ThemeFont = xlThemeFontNone  '模板字体，比如标题，正文，表示定义好的字体，一般用不到
    End With

上面只是举个一个例子，A1单元格前2个字符设置为黑体10.5加粗，其他的都是默认值，可以不写。根据例子编写你需要的吧，如果定位不知道的话，可先录制宏。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息