Excel VBA質問箱 IV

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

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


54472 / 76732 ←次へ | 前へ→

【27051】Re:セルの色塗りを検出する方法
お礼  agalinman  - 05/7/27(水) 9:44 -

引用なし
パスワード
   知ろう途 さん、どうもです。

>あ!そうですね。。。トホホ。。
>でしたら分岐を入力されないであろう数字や文字にするしかないですね。
>Case "黒"とか Case "A1"とか Case "81"とか

こちらの方法を使う場合には
色と入力値の対応を表を作ったりして覚えておかないといけませんね。

>あと空白の時をさけるには
>
>    Case "黒": .Interior.ColorIndex = 1
>         If [H1].Value <> "" Then .Value = [H1].Value
>
>でいけると思われますです。

ありがとうございます。
空白の問題はコレで解決できました。

最初に戻ってしまいますが、実際に
・ツールバーのメニューから [書式]-[セル]-[パターン] で色指定
・ツールバーのボタンで直接色指定
・該当セルで右クリックから [セルの書式設定]-[パターン] で色指定
で色を変えられると、変更後別途マクロ実行は避けられないみたいですし。

いずれの方法を使うにしても「運用で回避」で対応することになりますかね。

色々とありがとうございました。

0 hits

【27017】セルの色塗りを検出する方法 agalinman 05/7/26(火) 16:52 質問
【27021】Re:セルの色塗りを検出する方法 IROC 05/7/26(火) 17:04 回答
【27023】Re:セルの色塗りを検出する方法 agalinman 05/7/26(火) 17:14 お礼
【27039】Re:セルの色塗りを検出する方法 知ろう途 05/7/27(水) 0:14 発言
【27046】Re:セルの色塗りを検出する方法 agalinman 05/7/27(水) 8:43 質問
【27047】Re:セルの色塗りを検出する方法 知ろう途 05/7/27(水) 9:05 発言
【27051】Re:セルの色塗りを検出する方法 agalinman 05/7/27(水) 9:44 お礼

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