エクセル スクロールバーにて変わる値について、現在と１個前のデータを比較したい

質問

スクロールバーを動かすことによって次々と変わる値があるとします。今、スクロールバーを動かす前の値をコピーし、その後にスクロールバーを動かして新しい値を表示させ、一個前の値と比較したいと思っています。当初、「値のコピー→スクロールバーを動かす」というマクロをつくり、そのマクロをスクロールバーにリンクさせればいいのかと思ったのですが、スクロールバーを動かした後の値がコピーされ、１個前の値がコピーされません。どうすればよろしいでしょうか。最終的には、現在、1個前、2個前との比較を同時にしたいと思っております。よろしくお願いいたします。

回答No.6

yokomaya · ベストアンサー

ツール→マクロ→VisualBasicEditorを起動して
プロジェクトエクスプローラから標準モジュールを表示すると
Macro1があると思います。
仮にあなたが=random云々を入力記録したセルをＡ１と仮定すると

その中身を消して

Range("F65536").End(xlUp).Offset(1, 0).Formula = Range("A1")

とすればボタンを押すつどF列に記録が溜まっていきます。

｛別のセルなら最後のRange("A1")を変更してみてください。｝

お礼

すごい！仕組みが全くわからないけれど、できました！今後、この解読をしていきたいと思います。何度も丁寧に回答していただき、本当にありがとうございました！

回答No.7

yokomaya

仕組みを解説しておきます。
○=RANDOM式はどこかのセルに入力があるとランダムに変動するので
あなたが記録した式はなくても入力さえ起こればサイコロは振られるのです。
○そこで順次記録ですが
Range("F65536").End(xlUp).Offset(1, 0).Formulaは
F65536セルでCTRL+↑を押すと見つかるセルから
一つ下のセルに入力するという意味です。
実際キーボード操作すると意味がなおわかりやすいかと。
入力するのは貴方が=RANDOMを記録したセルの値です。
この入力を契機に前述の通りサイコロは振られます。
○ 最後に貴方が当初要望しておられた比較ですがこれは意外に難しいです。とうのは何をしてもセルに入力するとサイコロが振られてしまうため例えばスクロールバーのセルにリンクをしてしまうと意図せずサイコロは振られてしまいます。スクロールバーでなく例えばコンボボックスなどでセルを用いず実現する必要がありそうです。

お礼

大変参考になりました。
色々試して自分のモノにしたいと思います。
この度は本当にありがとうございました。

回答No.5

yokomaya

あなたが記録しているのはＶＢＡです。そしてそれをボタンを押して実行しています。しかも判る人には判るのですがその記録には必然がありません。
random文は先に入力しておいても構わないのです。再計算さえされれば値は変化しますので。
さて記録といってますが記述が必要です。
マクロのコードをまずVBEで見る事は出来ますか？標準モジュールかと思いますが。

回答No.4

yokomaya

>「ためていくこと」がどうすればいいかわからないのです。
すみませんが、申し上げたようにサイコロを振るが想像できないのでおお答えできません。
説明してください。

補足

(1)表示→ツールバー→フォーム→ボタン　を選択し、セル上にボタンを作成。　(2)マクロの記録　により、１つのセルに、＝rounddown(rand()*(6-1)+1,0)　を入力する動作をマクロ登録　(3)　(1)のボタンにマクロ登録をする。　これにより、ボタンを押すたびに１～６の数字が出てくるかと思います。したいことは、ボタンを押すと、そのときの数値の他、前2回の数値も同時に表示させたいのです。ボタンを押すたびに数値がどこかに記録できればいいと思うのですが、その記録の仕方がわかりません。よろしくお願いします。

回答No.3

yokomaya

>さいころのを振ってでた数字を、過去２回前まで表示させたいのです。
念のためお伺いしますけどＶＢＡの話と考えてよろしいですよね。
通常マクロを使わずにサイコロを振るという動作が想像しにくいものですから。
過去二回にとらわれずサイコロを振る都度いずれかのセル（列または行）に順次結果をためて行けばそれをスクロールバーの値に応じて参照すれば済むのですが。そしてＶＢＡの話ならそのプログラム（コード）を提示願います。

補足

すみません。VBAの話ではないです。でも、回答文中にあった「過去２回にとらわれずサイコロを振る都度いずれかのセルに順次結果をためていけば」ができれば問題解決できると思います。「ためていくこと」がどうすればいいかわからないのです。
よろしくお願いいたします。

回答No.2

imogasi

スクロールバーは連続して動かせて、質問者にとっては、動きの何がしかの休止時間があるのかもしれないが、それとスクロールを続けて行う、間のわずかの時間とを、区別してくれるようなコントロールではないでしょう。
だからその瞬間に値をとれという、何かの仕組みが別途いるのは自明でしょう。
（テキストボックスでも似たようなことがあり、コマンドボタンのクリックなどで、内容の確定ということで、次のステップへ進めます。）
（１）コマンドボタンなどを設け、クリックしたときスクロールバーの値をとる。
それを退避変数に保存しておく
（２）タイマーで、時間の経過に関連付ける
（３）スクロールバーのマウス・アップのようなイベントがあれば
それを使うとか　スクロールバーのイベントはChangeを含め数個あるから、それらをチェックしたら。
ーー
質問にはシートに貼り付けたか、フォームに貼り付けたか、スクロールバーは「フォーム」からか「コントロールツールボックス」から
持ってきたかさえも書いてない。
　＃１でおっしゃっているコードも乗せる必要があるかも。
　質問者の、このことで頭がいっぱいの頭の世界と、読者・回答者が初めて質問文を読んで作れるイメージ世界とは得てして違うのだということをお忘れなく。

補足

質問が的はずれですみません。スクロールバーはフォームから持ってきました。（というかコントロールツールボックスというモノがあることを初めて知りました）。改めて申しますと、さいころのを振ってでた数字を、過去２回前まで表示させたいのです。つまり、スクロールバーによって動く数字を「１回目」「２回目」「３回目」・・・であり、そのたびごとにでる数字を、仮に１回目のが５、２回目が３、３回目が１、今回が６とでたならば、「今回６、１回前１　２回前３」と表示したいのです。
これをするには、スクロールバーを動かす前に値をコピーし、その後にバーを動かせばいいのでしょうが、これを連続でやるにはどうすればよろしいのでしょうか。ボックスによりワンクリックごとにコピーという考えは非常によくわかったのですが、実際に行うにはどうすればよろしいのでしょうか。あまりエクセルに詳しくなく、質問の仕方もこれであっているのかわかりませんが、よろしくお願いいたします。

回答No.1

yokomaya

先にCopyとっておけばいいだけでは？
コード示さないと的確な回答は得られないのでは？