Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


35883 / 76738 ←次へ | 前へ→

【46045】Re:特定のセルだけフォント・サイズを指定したい・再質問
発言  ichinose  - 07/1/21(日) 21:17 -

引用なし
パスワード
   こんばんは

>これでも成功しましたが、もっと簡単なコードはないでしょうか?

簡単なコードということなら、他にもありますが、

さや さんの場合、ループ処理は残したほうがよさそうですね!!

Sub フォントサイズの指定2()
  Dim fsz10array As Variant
  Dim rng As Range
  fsz10array = Array("北海道", "神奈川県")
  For Each rng In Range("a1:a50")
    If Not IsError(Application.Match(rng.Value, fsz10array, 0)) Then
     rng.Font.Size = 10
     End If
    Next
End Sub
神奈川県という条件が増えたと言うことは、
さらにフォントサイズを変更する都道府県が増える可能性は十分に
推測出来ます。
増える毎にIFを追加するのではなく、フォントを変更する都道府県リストデータだけ
の変更(データの追加)でコードの変更をしなくて良いようなコードにすることを考えましょう!!

上記は説明の都合上、配列データをコード内で記述しましたが、
実際には、フォントサイズを変更する都道府県データは、別にシートの
セル(例、SHEET2のA列に変更リスト作成する)に入力しておき、
上記のようなコード(Match関数を使う)にすると
コードの変更が少なくて済みます。
(セルに条件データを配置すれば、Match関数以外の方法もありそうです)

ちょっと難しいけど、Match関数から調べてみて下さい。
0 hits

【46042】特定のセルだけフォント・サイズを指定したい・再質問 さや 07/1/21(日) 20:46 質問
【46044】Re:特定のセルだけフォント・サイズを指定... かみちゃん 07/1/21(日) 20:54 発言
【46045】Re:特定のセルだけフォント・サイズを指定... ichinose 07/1/21(日) 21:17 発言
【46046】Re:特定のセルだけフォント・サイズを指定... さや 07/1/21(日) 22:04 お礼
【46048】Re:特定のセルだけフォント・サイズを指定... Kein 07/1/21(日) 22:43 発言
【46049】Re:特定のセルだけフォント・サイズを指定... Kein 07/1/21(日) 22:47 発言
【46054】Re:特定のセルだけフォント・サイズを指定... さや 07/1/21(日) 23:24 お礼

35883 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free