Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

54477 / 76737

←次へ　｜　前へ→


	【27051】Re:セルの色塗りを検出する方法

agalinman - 05/7/27(水) 9:44 -


	引用なし

	パスワード

知ろう途さん、どうもです。 >あ！そうですね。。。トホホ。。 >でしたら分岐を入力されないであろう数字や文字にするしかないですね。 >Case "黒"とか Case "Ａ１"とか Case "81"とかこちらの方法を使う場合には色と入力値の対応を表を作ったりして覚えておかないといけませんね。 >あと空白の時をさけるには > >　　　 Case "黒": .Interior.ColorIndex = 1 >　　　　　　　　　If [H1].Value <> "" Then .Value = [H1].Value > >でいけると思われますです。ありがとうございます。空白の問題はコレで解決できました。最初に戻ってしまいますが、実際に・ツールバーのメニューから [書式]-[セル]-[パターン] で色指定・ツールバーのボタンで直接色指定・該当セルで右クリックから [セルの書式設定]-[パターン] で色指定で色を変えられると、変更後別途マクロ実行は避けられないみたいですし。いずれの方法を使うにしても「運用で回避」で対応することになりますかね。色々とありがとうございました。