|
だるまさん、keinさん ありがとうございます。Andを使わずtoを使えばいいのですね。
お二人のコードを参照して書き直します。
keinさんに再質問したいのですが、
>Dim Fs As Integer
というのは変数宣言と思われますが、その場合
>Range("C3").Font.Size = Fs
というのは文章の最期(End Selectの後)で良いのでしょうか。
続けてセルC42の値を見てセルC4のフォントサイズを変えるなど
似たようなコードを31回繰り返さないといけないので、入れる場所が気になりまして。アドバイス頂ければ幸いです。
▼Kein さん:
>そのコードの不等号の使い方が正しいなら、対応範囲は違ってきますね。
>
>Dim Fs As Integer
>
>Select Case Range("C41").Value
> Case Is < 25: Fs = 10
> Case 27 To 48: Fs = 11
> Case Else: Fs = ?
>End Select
>Range("C3").Font.Size = Fs
>
>などということになりますが・・。
|
|