Viết subscript Giá trị Trong VBA

Question

Tôi có một chuỗi:
Range("T4").Value = "Rule 13s voilation"

Tôi muốn viết 13s như 1 _s
tức là 3 và s là một subscript của 1.

Xin gợi ý về cách tôi nên đi về nó trong vba

Answer 1

Hãy thử như sau:

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

Tôi không chắc chắn cách này sẽ làm việc cho bạn với độ dài chuỗi động.

Answer 2

Hãy thử thực hiện thủ công trong khi ghi macro, sau đó xem mã kết quả. Điều đó sẽ cho bạn câu trả lời của bạn.

Dưới đây là một dọn dẹp câu trả lời:

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

Answer 3

tôi sử dụng chức năng này để concatenate 2 tế bào thành một. văn bản đầu tiên là văn bản, văn bản thứ hai là số tham chiếu đến các nhận xét

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