エクセルマクロ スクロールバーとセルの同機

質問

エクセル2002を使用しています。

「コントロールツールボックス」の「スクロールバー」のScrollBar1_Change()を使用し、下記のマクロは
どのようにすれば良いでしょうか。
Sheet1のA1の条件が記載され、Sheet2の1列目で条件を判定し、2列目の条件下のセルの数値を
Sheet1のA2に表示し、Sheet1に置いた「スクロールバー」で、Sheet1のA2の数値を変更したいです。
※Sheet1のA1の条件は、適宜変更し、Sheet2から持ってきたいです。

「スクロールバー」数値ととSheet1のA2に数値、Sheet2の該当セルの数値は、常に同機させたでいす。

こんなこと可能でしょうか？

回答No.2

keithin · ベストアンサー

スクロールバーにリンクするセルをセルに記入したデータによって付け替えたい，という事が言いたかったのだとすると。

シートモジュールには

Private Sub Worksheet_Change(ByVal Target As Range)
　Dim r As Long
　If Target.Address <> "$A$1" Then Exit Sub
　On Error Resume Next
　r = Application.Match(Range("A1"), Worksheets("Sheet2").Range("A:A"), 0)
　Me.ScrollBar1.LinkedCell = "=Sheet2!$B$" & r
End Sub

とかなんとかしておいて，シート１のA2には単純な関数で
=IF(ISERROR(MATCH(A1,Sheet2!A:A,0)),"",VLOOKUP(A1,Sheet2!A:B,2,FALSE))
のようにしておくなどで。

お礼

連絡が遅くなりました。返信ありがとうございます。助かりました。

回答No.3

imogasi

質問するなら、Ｓｈｅｅｔ１とＳｈｅｅｔ２のデータの有様を、（本質問では１例で良いとおもうが）セルの値が、こうだだから、こう判定して（考えて）、こうだからこうしたい、と言う風に書いてほしい。
＞Sheet1のA1の条件が・・
どんな条件かかけないのか。
＞Sheet2の1列目で条件を判定し、2列目の条件下のセルの数値を
Ｓｈｅｅｔ１のＡ列でＳｈｅｅｔ１の値で検索し、その見つかった行の隣のＢ列の値で、だろう。そうかけないのか。
＞条件下のセルの
条件下とは何？持って回った表現ではないか。
＞Sheet1のA2に表示し
これならＳｈｅｅｔ１のＡ１の値で－－＞Ｓｈｅｅｔ２のＡ列を検索ーー＞見つかった行のＢ列の値を求めるーー＞Ｓｈｅｅｔ１の２に表示＝入れる
なのだから、Ｓｈｅｅｔ１のＡ２セルにＶＬＯＯＫＵＰ関数を入れれば仕舞いではないか。
ＶＯＯＬＵＵＰはＶＢＡの関数としてもつかえるが。
＞Sheet1に置いた「スクロールバー」で、Sheet1のA2の数値を変更したいです。
折角関数なりでＡ２に値をセットしたので、なぜその後素の値をスクロールバーで変える必要があるのか。
あるとしてもスクロールバーの設定の仕方がわからないなら、それだけの質問で良いのではないか（ＬｉｎｋｅｄＣｅｌｌなどのこと）
＝＝＝
全般に持って回った表現は避けてほしい。
読み返して他人にわかる表現に鳴って居るか、みなおしてから質問すること。
またなぜ質問のようなことが必要か、一言添えるべきではないか。
とにかく聞いていることを答えろでは回答者は道具じゃない、教えてもらうのだから丁寧に。
読者や、回答するほうも貴重な時間を割いていつも答えているのだ。安易に質問をやらないでほしいとおもう。

回答No.1

merlionXX

> Sheet1のA1の条件が記載され、Sheet2の1列目で条件を判定し、2列目の条件下のセルの数値をSheet1のA2に表示し、

この意味がわかりません。
http://okwave.jp/qa/q6478455.html　の続きでしょうか？

だとしたら、何もマクロを使う必要もなく、
> Sheet1に置いた「スクロールバー」で、Sheet1のA2の数値を変更したいです。

こうしたいなら、デザインモードで、コントロールツールボックスのスクロールバーを右クリックし、コードの表示ででてきた「プロパティScrollBar1」で、LinkedCellをSheet2!A2に、MAXを希望の数値に設定すればよいだけです。

お礼

連絡が遅くなりました。いつもありがとうございます。助かりました。