Excel VBA質問箱 IV

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

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


46006 / 76732 ←次へ | 前へ→

【35707】ありがとうございました。
お礼  春まき  - 06/3/10(金) 17:54 -

引用なし
パスワード
   だるまさん、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
>
>などということになりますが・・。
4 hits

【35699】And演算子の使い方 春まき 06/3/10(金) 15:49 質問
【35701】Re:And演算子の使い方 だるま 06/3/10(金) 16:19 回答
【35703】Re:And演算子の使い方 Kein 06/3/10(金) 16:26 回答
【35707】ありがとうございました。 春まき 06/3/10(金) 17:54 お礼
【35713】Re:ありがとうございました。 Kein 06/3/10(金) 20:12 回答
【35722】試してみます。 春まき 06/3/10(金) 22:21 お礼
【35748】うまくいきました。 春まき 06/3/11(土) 22:38 お礼

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