Excel VBA質問箱 IV

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

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


20633 / 76732 ←次へ | 前へ→

【61512】Re:任意のセルに入力後、オートシェイプに反映させたい
発言  たけ  - 09/5/14(木) 9:59 -

引用なし
パスワード
   ▼neptune さん:
おはようございます。
サンプルコードありがとうございます!
upしていただいたコードを見ながら、試行錯誤しております。

あと、遅くなりましたが、説明不足の点、申し訳ないです。
以下、補足となります。

>・・たけさんのBookが私の手元にあるわけではないし、どのようの目的で
>どのように使うのかの情報がないので、どのタイミングで実行するかの
>判断が出来ない。

●シートは3つ
入力用シート(サンプルコードでのsheet1に相当)
集計用シート
反映シート(サンプルコードでの反映シートに相当)

●入力手順とコードを使う場所、タイミング

1.入力用のシートに回収したデータを横並びで入力していきます。

2.データには集計されるグループが決められており、グループ毎のデータが、集計用シートに集計されていきます。
(入力用に1-1,1-2,1-3,2-1,2-2,2-3のようになっており、1のグループ、2のグループ毎にまとめられた集計となります)

3.反映シートにはオートシェイプの図があり、あるグループの入力値に応じて、その図に色が塗られます。
(例えば、2のグループのデータにおいて、2-1の値が1だった場合、2だった場合、3だった場合として、1ならシェイプpp001が、2ならpp002が、3ならpp001とpp002の両方が塗りつぶされるような仕組みです)


上記のような動きとなります。
なお、1つのデータを横並びで入力しますので、データ数(データID)が増える=行が増えるため、今回のコードで参照される列の範囲は固定された状態となります。なお、参照される範囲は、Range("F4:I4")からはじまり、データ数が増えるごとにF5,I5、F6,I6と変化します。

また不足な点がありましたら、ご指摘ください。

0 hits

【61472】任意のセルに入力後、オートシェイプに反映させたい たけ 09/5/12(火) 13:11 質問
【61473】Re:任意のセルに入力後、オートシェイプに... neptune 09/5/12(火) 13:51 発言
【61474】Re:任意のセルに入力後、オートシェイプに... たけ 09/5/12(火) 14:03 発言
【61475】Re:任意のセルに入力後、オートシェイプに... neptune 09/5/12(火) 16:34 回答
【61477】Re:任意のセルに入力後、オートシェイプに... たけ 09/5/12(火) 21:27 発言
【61479】Re:任意のセルに入力後、オートシェイプに... neptune 09/5/12(火) 23:02 回答
【61488】Re:任意のセルに入力後、オートシェイプに... neptune 09/5/13(水) 12:18 発言
【61492】Re:任意のセルに入力後、オートシェイプに... たけ 09/5/13(水) 14:46 発言
【61502】Re:任意のセルに入力後、オートシェイプに... neptune 09/5/13(水) 22:00 回答
【61512】Re:任意のセルに入力後、オートシェイプに... たけ 09/5/14(木) 9:59 発言
【61522】Re:任意のセルに入力後、オートシェイプに... neptune 09/5/14(木) 13:07 発言
【61524】Re:任意のセルに入力後、オートシェイプに... たけ 09/5/14(木) 13:37 発言
【61528】Re:任意のセルに入力後、オートシェイプに... neptune 09/5/14(木) 16:35 発言
【61539】Re:任意のセルに入力後、オートシェイプに... たけ 09/5/15(金) 13:19 発言
【61543】Re:任意のセルに入力後、オートシェイプに... neptune 09/5/15(金) 16:52 発言
【61564】Re:任意のセルに入力後、オートシェイプに... たけ 09/5/18(月) 21:15 お礼

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