Excel VBA Font.Superscript код не работает

Question

Этот код excel не работает. Зачем? Действительно, я не могу сделать какой-либо код superscript. Я использую Excel 2007

примечание: intRow и intColumn являются целыми числами, которые определяют строку и столбец.

Cells(intRow, intColumn).Characters(Start:=Len(Cells(intRow, intColumn).Value), Length:=1).Font.Superscript = True 

Answer 1

Я нашел проблему. Это ячейка format. Он должен быть text.

Добавление этой строки перед superscript линии решить проблему:

Cells(intRow, intColumn).NumberFormat = "@" 

Спасибо.

Answer 2

Вам необходимо полностью квалифицировать все свои камеры. Это работает:

Option Explicit 

Public Sub test() 
    SuperscriptLastLetter 1, 1 
End Sub 

Public Sub SuperscriptLastLetter(ByVal lngRow As Long, ByVal lngCol As Long) 

    With ActiveSheet.Cells(lngRow, lngCol) 

     .Characters(Start:=Len(.Value), Length:=1).Font.Superscript = True 

    End With 

End Sub 

---