escribir valores Subíndice en VBA

Question

que tienen una cadena:
Range("T4").Value = "Rule 13s voilation"

quiero escribir como _s
es decir 3 y s son un subíndice de 1.

Para sugerir sobre cómo debería ir sobre ella en vba

Answer 1

Pruebe lo siguiente:

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

No estoy seguro de cómo va a funcionar para usted con longitudes de cadena dinámicos.

Answer 2

Intente hacerlo manualmente mientras graba una macro y luego observe el código resultante. Eso te dará tu respuesta.

Aquí hay una limpiado respuesta:

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

Answer 3

utilizo esta función para concatenar 2 celdas en una sola. el primero es un texto, el segundo es una serie de referencia a los comentarios

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