VBAでやりたいこと質問します！

質問

こんにちわ。VBAを知って数週間の初心者です。インターネットで質問し回答をコピーして使用したりしています。
使っているうちに、ここはあーしたいあそこはこーしたいとやりたいことが増えてきてしまいました。
ご覧の皆様、良きご回答をお願いします<m(__)m>

やりたいことはB列に数字を入力、C列にB列に入力した数字の累計（例．B5の累計はC5、B６の累計はC6、B7の累計はC7・・・）を表示、B列の任意のセルの入力履歴をI列の任意のセルに１回ずつ縦（例．B11の履歴を１回ずつI5、I6、I7、・・・）に表示する。
B１２の入力履歴はJ列に１回ずつ縦（J5、J6、J7、・・・）に表示する。
同じようにB13の入力履歴をK列（K5、K6、K７、・・・）に表示する。
それを繰り返しB14はL列にB15はM列、B16はN列に縦に１回ずつ履歴を表示する。
B列の各セルに数字を入力したとき、Enterを２回押すと入力するセルが移動する。
Enter１回のときは、同じセルに続けて数字が入力できる。
B列の各セルに入力した数字は、C列に設けたクリアボタンでクリアすると直前の入力がクリアできる。
D列にはオールクリアボタンを設け、セルの値をオールクリアする。
電卓の「C」、「AC」ボタンの様に使いたいです。
以上、思いつくままに綴ってしまいました。
初心者が、わがままいって本当にすいません<m(__)m>
本やインターネットで、勉強しているつもりですがいつになったら組めるのか予想もつきません((+_+))
よろしくお願いします・・・・追伸、インターネットのVBAに関する質問にすばらしい回答をされている方々はVBAを仕事で使ってみえるのでしょうか？又は
個人的に勉強されているのでしょうか？
どうすれば、あのすばらしいアンサーの方々に近ずけるのでしょうか・・・

回答No.1

keithin · ベストアンサー

思いつくままの詰め込みご相談で、回答するのが大変です。
ご質問は１投稿で１つずつ解決を積み重ねてください。こちらのような質問相談掲示板の、基本的なマナーです。

＞履歴の蓄積

changeイベントで随時転記していきます。

準備：Ｉ４からＮ４のセルに、それぞれ「履歴」とかなんとか記入しておく

手順：
シート名タブを右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

private sub Worksheet_Change(byval Target as excel.range)
　if application.intersect(target, range("B11:B16")) is nothing then exit sub
　if target.count > 1 then
　　msgbox "ENTER SINGLE CELL"
　　application.enableevents = false
　　application.undo
　　application.enableevents = true
　　exit sub
　end if

　cells(65536, target.row - 2).end(xlup).offset(1) = iif(target = "", 0, target.valeu)
end sub

ファイルメニューから終了してエクセルに戻り、Ｂ１１からＢ１６の範囲に記入する。

＃クリアボタンを使わずにセルの記載内容を消去したときの履歴の取り方も不明なので、てきとーに細工してあります。どーしたいのか考えて適切に応用してください。

＞Enterを２回押すと入力するセルが移動する。

日本語入力がＯＮになっている状態での記入を想定したご質問ですか。
それとも何か違う事を考えているのでしょうか。状況を詳しく補足して、別途ご相談として投稿してください。

＞C列に設けたクリアボタンでクリアすると直前の入力がクリアできる。

「クリアボタン」て何を使おうとしているのか不明です(＊)が、単純に
１．履歴を調べて「１つ前」が記録されているか確認する
２．隣のＢ列セルをクリアする
３．履歴があれば、１つ前の記録をＢ列セルに転記する
４．履歴の１番下をクリアする
といった段取りです。

＊：補足
エクセルでは「フォーム」コントロールのコマンドボタン、「ActiveXコントロール」のコマンドボタン、オートシェイプの図形やJPG画像などで作成したボタンなどを利用することが出来ます。具体的にどれを使うかに応じて、マクロの書き振りが変わります。

＞オールクリアボタン

単純にセルをクリアするだけです。

sub macro2()
　application.enableevents = false
　range("B12:B16").clearcontents
　range("I5:N999").clearcontents
　application.enableevents = true
end sub

＃詰め込みご相談に対しては、こんな感じにさらさらっと回答が寄せられて終わりです。

＞インターネットで質問し回答をコピーして使用したりしています。

ツカエる回答が欲しければ、それなりにご質問者さんも丁寧にご相談なさってください。

お礼

早速のご回答ありがとうございます。
インターネットで質問するのも、まだ２～３回目のため要領が分からず詰め込みすぎてしまったようです。<m(__)m>
アドバイス通り状況を補足して、別途投稿し直します。
またよろしくお願いします。