文字の大きさを1P大きくしたい

質問

VBAで文字の大きさが現在6ポイントだけになっているセル内をすべて7ポイントに上げてください。※所々にあるテキストBOX内にも6Pの文字がありますが、それらは無視してください。また6Pと7Pなど別々の大きさが混在しているセル内も無視してください(例えば6Pと8Pが入力されている場合に6Pが7Pになると同時にセル内からはみ出してしまいますが6Pのみのセル内ではかろうじてはみ出しません)

回答No.1

HohoPapa · ベストアンサー

どのシートのどのセル範囲なのか未詳なので
アクティブなシートの中の
範囲を明示して実行するようにしてみました。

Option Explicit

Sub sampleA()

　Dim MyRange As Range
　Dim i As Long

　For Each MyRange In Range("A1:D10")　'対象セル範囲
　　If is6P(MyRange) = True Then
　　　MyRange.Font.Size = 7
　　End If
　Next

End Sub

Function is6P(tgCell As Range) As Boolean

　Dim i As Long

　is6P = True
　With tgCell
　　For i = 1 To Len(.Text)
　　　If .Characters(Start:=i, Length:=1).Font.Size <> 6 Then
　　　　is6P = False
　　　　Exit Function
　　　End If
　　 Next i
　End With

End Function

お礼

とても効率もいいマクロで動作OKでした
End Subからまだ下に記述がありました
２段階を使って行うFunctionというのが新しいです
どうもありがとうございました