VBA - 转换单元格中的指定字符为下标sub_script格式

在学习Verilog中需要用带下标符号来表示建立时间和保持时间等参数。excel中输入比较麻烦，需要选中字符后，再选择字体中的下标选项。所以做了这个VBA来实现下标转换功能。

Sub sub_script()
Dim str_len
Dim str_num
Dim str_sta

str_num = Application.InputBox("From end of the string,enter the number of character to be processed", "Sub script", 2, Type:=1) '使用inputbox输入希望处理的字符，从字符串末尾开始从右到左计算个数
str_len = ActiveCell.Characters.Count '字符宽度
str_sta = str_len - str_num + 1 '将处理的第一个字符的位置

For str_sub = str_sta To str_len '从设定处理的第一个字符开始，逐个处理字符
    With ActiveCell.Characters(str_sub, 1).Font '单独处理字串中的指定字符
        .Superscript = False '字符作为上标
        .Subscript = True    '字符作为下标
    End With
Next
End Sub

Sub super_script()
Dim str_len
Dim str_num
Dim str_sta

str_num = Application.InputBox("From end of the string,enter the number of character to be processed", "Sub script", 2, Type:=1)
str_len = ActiveCell.Characters.Count
str_sta = str_len - str_num + 1

For str_super = str_sta To str_len
    With ActiveCell.Characters(str_super, 1).Font
        .Subscript = False
        .Superscript = False
    End With
Next
End Sub

使用循环来做这个功能是因为，如果再Character中直接选中两个字符的话，转换为下标没有问题，但是从下标转换为非下标时，（例如选中末尾两个字符）会识别最后一个字符是最后一个字符的上标，不会把两个字符都转换为下标。

把上述功能做成加载宏格式，最好再追加快捷键，就能够实现快速转换字符为下标/上标。

把VBA转换为加载宏方法，待补充。