Schreiben Subscript Werte In VBA

Question

Ich habe eine Zeichenfolge:
Range("T4").Value = "Rule 13s voilation"

Ich möchte 13s wie 1 _s
d.h 3 und s schreiben sind ein Index von 1.

Bitte legen nahe, wie sollte ich darüber gehen in vba

Answer 1

Versuchen Sie Folgendes:

Range("T4").Value = "Rule 13s voilation" 
Range("T4").Characters(Start:=7, Length:=2).Font.Subscript = True 

Ich bin nicht sicher, wie diese mit dynamischen String-Längen für Sie arbeiten.

Answer 2

Versuchen Sie es manuell, während Sie ein Makro aufzeichnen, und sehen Sie sich dann den resultierenden Code an. Das wird dir deine Antwort geben.

Hier ist ein aufgeräumt Antwort:

With Range("T4") 
    .Value = "Rule 13s voilation" ' (sic) 
    .Characters(Start:=7, Length:=2).Font.Subscript = True 
End With 

Answer 3

ich diese Funktion concatenate verwenden 2-Zellen in einem. die erste ist ein Text, der zweite ist eine Serie von Bezugnahme auf Kommentare

Sub setRefWithRemark() 


Dim aCellRef, aCellRem, aCelTarget As Range 
Dim aRow As Range 

For Each aRow In Range("rgtensileRefWithRemark").Rows 
    Set aCellRef = aRow.Cells(1, 1) 
    Set aCellRem = aRow.Cells(1, 12) 
    Set aCellTarget = aRow.Cells(1, 17) 
    If aCellRef.Text <> "" Then 
     With aCellTarget 
      .value = aCellRef.Text & cTextSeparator & aCellRem.Text ' (sic) 
      .Characters(Start:=Len(aCellRef.Text) + 2, Length:=Len(aCellRem.Text)).Font.Superscript = True 
     End With 
    End If 
    Next 
End Sub