Excel VBA質問箱 IV

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

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


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

20657 / 76732

←次へ　｜　前へ→


	【61488】Re:任意のセルに入力後、オートシェイプに反映させたい

neptune - 09/5/13(水) 12:18 -


	引用なし

	パスワード

▼たけさん：
こんにちは

昨日ササッと直前のソースのみ、見て回答を書いたんですが、
今日見てみるとなんか自信がなくなりました。多分、昨日書いたのでは駄目だろうと思います。

そこで、最初から読み直しても、やっぱり、よく条件がわかりません。

回答がおかしくなったお詫びに、サンプルソースを書こうと思います。

そこで教えてください。これで抜けはないですか？
何度もコードを書くのは面倒なので、よく以下の条件を見てみてください。

・セルの範囲を指定して，
・左側の列から1つずつ，セルに対しての条件分岐をして
※質問：セルの何に対してですか、位置、それともセルのデータ？
・その結果を別のシートのオートシェイプに反映したい（赤で塗りつぶす）
//////////////////////追加説明/////////////////
・指定された範囲の任意のセルに数値が入力されると，その数値によってオートシェイプの色が変わる
・range1については，1行指定で複数列

多分このような事だろうと想像している所。
１．Tagetが指定された範囲に含まれるかを確認
２．含まれていれば、その数値データを評価して、塗りつぶすシェイプと色を決定
３．他のシートのシェイプを２．の条件で塗りつぶす

誤りがあれば訂正して下さい。

0 hits

▼

【61472】任意のセルに入力後、オートシェイプに反映させたい たけ 09/5/12(火) 13:11