Excel VBA質問箱 IV

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

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


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

20603 / 76732

←次へ　｜　前へ→


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

neptune - 09/5/15(金) 16:52 -


	引用なし

	パスワード

▼たけさん：
こんにちは

ご理解頂けたようでホッとしています。

で、ご自分で作成されようとして居られるのが判りますので、
私も、これまでの情報を読み返し、現在の状況でつらつら考えてみました。
そもそも論になるかもしれませんが、

既に入力されたデータを変更する事はなく、データを追加して行くだけなら、
比較的簡単です。
データの評価、shape変更部分を別関数にしておくとして、

例えば、
Sub t()
　　Range("F" & Rows.Count).End(xlUp).Select
End Sub
で最下行の取得が出来ます。
行が変われば、現在の最下行を取得し、その行を評価すればよいだけです。
offsetメソッドでずらせるだけでその値は取得できます。

但し、データの変更があるならそう単純な話ではなくなります。
どこかに、最初のデータを保管していなくてはならないからです。
その入力データは集計シートに存在するのでしょうか？

数千行のデータならメモリ上に保管しておけば済みますが、
万のデータになるとそういう事はやめた方が賢明かもしれませんので、
どこかに物理的に保管しておくほうが良いかもしれません。

なお、changeイベントは、編集状態にして同じデータを入力しても
発生しますから、changeイベントは使えません。

参考になりますでしょうか？

0 hits

▼

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