如何在Microsoft Excel VBA中使用修改后的字體選項向現有單元格添加其他文本

Question

例如，Microsoft VBA：

ActiveCell = ActiveCell & <Some Text i want to add with option Size = 20>

我如何在“ <>”括號內實現該描述

Answer 1

您想要更改ActiveCell.Characters（）。Font屬性

Dim CurrentText, SomeText
Dim CurrentTextLen, SomeTextLen

CurrentText = ActiveCell.Value
CurrentTextLen = Len(CurrentText)

SomeText = "Some Text i want to add with option Size = 20"
SomeTextLen = Len(SomeText)
ActiveCell.Value = CurrentText & SomeText

With ActiveCell.Characters(Start:=CurrentTextLen + 1, Length:=SomeTextLen).Font
    .Size = 20
End With

為此，您需要知道<>文本的起始位置（即ActiveCell當前內容的長度加一）。

您還需要<>文本的長度（即<>文本的長度）