|
こんにちは。かみちゃん です。
>1月17日に下記のような質問をしました。
[45967]のことですね。
>私が考えたコードは以下の通りです。
>これでも成功しましたが、もっと簡単なコードはないでしょうか?
以下のような感じではいかがでしょうか?
Sub Macro3()
'フォントサイズの指定3
Dim rng As Range
For Each rng In Range("A1:A50")
With rng
If .Value = "北海道" Or .Value = "神奈川県" Then
.Font.Size = 10
End If
End With
Next
End Sub
または、
Sub Macro4()
'フォントサイズの指定4
Dim rng As Range
For Each rng In Range("A1:A50")
With rng
Select Case .Value
Case "北海道", "神奈川県"
.Font.Size = 10
End Select
End With
Next
End Sub
Range("A1:A50")
の部分は、
Range("A1").Resize(50)
や
という書き方もできます。
|
|