|
▼さや さん:
こんばんは。
>例えば、Sheet2のセルA1からA50に全国の都道府県が、ばらばらに入力されているとします。マクロを実行すると北海道のセルだけフォント・サイズが10ポイントに変わる。
>こんなVBAを作成したいのです。
>この掲示板は丸投げの質問は禁止されているので、私なりに考えたのですが、以下のようなプログラムしか作れませんでした。すみません。
>よろしくお願いします。
このコードの中にはセルの内容が、
「北海道」であるかという調査するコードがないですよね?
セルA1〜A50の中で北海道と入力されているセルを探さなければなりません。
>Sub フォントサイズの指定()
>
> Sheets("Sheet2").Select
> Range("A1:A50").Select
> With Selection.Font
> .Size = 10
>
> End With
>End Sub
プログラムの基本として、繰り返し処理をさせる というのがあります。
一般的には、ループ処理なんて呼ばれています。
'======================================================================
Sub セルA1からA50のなかで北海道を探してそのセルのフォントサイズを10にする()
Dim rng As Range
For Each rng In Worksheets("sheet2").Range("a1:a50")
If rng.Value = "北海道" Then
rng.Font.Size = 10
Exit For
End If
Next
End Sub
上記のコードはセルの内容が「北海道」なのかチェックしていますよね?
|
|