【EXCEL2010 VBA】 部分的書式設定

質問

初心者ながら医療業務用マクロを作っています。
テキストボックス内の文字のうち、最初の改行までを取消線解除する方法を教えてください。
何卒よろしくお願いします。

回答No.1

tsubuyuki · ベストアンサー

例えば、対象のテキストボックスを選択した状態で、

Sub Sample()
Dim LfPos As Long
　　　　With Selection
　　　　　　　　LfPos = Application.Find(vbLf, .Text)
　　　　　　　　.Characters(Start:=1, Length:=LfPos).Font.Strikethrough = False
　　　　　　　　.Characters(Start:=LfPos, Length:=Len(.Text)).Font.Strikethrough = True　' （１）
　　　　End With
End Sub

こんな感じでいけると思います。

文字通り、
> 最初の改行までを取消線解除する方法
つまり、あらかじめ対象セル全体に取消線を設定している場合は（１）は不要です。

変数LfPosに「最初の改行の文字位置」を代入していますが、
変数を使う必要は特にありません。

お礼

ありがとうございました

補足

ユーザーフォーム内のテキストボックスになります。説明不足で申し訳ありません。

回答No.2

tsubuyuki

ん？

> ユーザーフォーム内のテキストボックスになります。

なるほど。

それは主に仕様の関係で残念ながら無理です。

お礼

ありがとうございました