vba单元格标注上下标问题

475039349

有请大神帮我看看这个样的代码怎么写，我现在需要在一个单元格里标注出正负公差，现在无法实现。

taller

A1中的内容是如何输入的？插入公式？

沈默00

录制一个宏试一下，
.Underline = xlUnderlineStyleNone

475039349

taller 发表于 2024-1-8 02:56
A1中的内容是如何输入的？插入公式？

上面是用增加拼音的方法录入的，如果用录制宏的方法就必须要点击单元格，影响运行速度。

yynrzwh

Sub 宏1()
'
' 宏1 宏
'

    t1 = Len(Range("A1"))
    s = Split(Range("B1"), ",")
    t2 = Len(s(1))
    Range("A1") = Range("A1") & s(1)
    Range("A1").Characters(t1 + 1, t2).PhoneticCharacters = s(0)
    Range("A1").Phonetics.Visible = True
    Range("A1").Characters(t1 + 1, t2).Font.Subscript = False
End Sub
录制宏改的

taller

475039349 发表于 2024-1-8 08:30
上面是用增加拼音的方法录入的，如果用录制宏的方法就必须要点击单元格，影响运行速度。

为什么要点击单元格？

fenghuaxue

有附件吗。。

475039349

taller 发表于 2024-1-8 11:01
为什么要点击单元格？

版主帮忙看看怎样改代码就可以不用点击单元格实现。

taller