ID非公開

2022/6/20 15:27

22回答

excelのvbaで、下線付きの文字をそれぞれ下線付きのスペースに置換したいのですが、やりかたを教えてください。 例えば三文字の下線付きの文字があったら、下線付きスペース三文字にしたいのです。

excelのvbaで、下線付きの文字をそれぞれ下線付きのスペースに置換したいのですが、やりかたを教えてください。 例えば三文字の下線付きの文字があったら、下線付きスペース三文字にしたいのです。 どうやっても一文字の下線付きスペースに置換されてしまいます。

Visual Basic | Excel・50閲覧・xmlns="http://www.w3.org/2000/svg">100

ベストアンサー

0
qgl********

2022/6/20 16:28

これでどうでしょうか。 ※セルを選択してから実行 (文字列を削除してから元文字のサイズに合わせたスペースを入力して下線を引いています) Sub sample() Dim i As Long Dim s As String, ss As String, st As String, sst As String s = ActiveCell.Value Selection.Font.Underline = xlUnderlineStyleNone Selection.Value = "" For i = 1 To Len(s) st = Mid(s, i, 1) sst = StrConv(st, vbUpperCase) If StrComp(sst, st, vbBinaryCompare) = 0 Then ss = ss & " " Else ss = ss & " " End If Next i Selection.Value = ss Selection.Font.Underline = True End Sub

ThanksImg質問者からのお礼コメント

ありがとうございます！

お礼日時：6/23 15:27

その他の回答（1件）