Excel VBA質問箱 IV

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

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


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

52544 / 76732

←次へ　｜　前へ→


	【29024】Re:スクロールバーの設定

Hiroko - 05/9/21(水) 21:33 -


	引用なし

	パスワード

▼しろうとさん：

多分表だと思うのですが･･･
このコードはA列に10や30や80があるという前提で作っています。

Sub 数字呼出スクロール()　'これは10を呼び出しスクロールです

Dim i As Long
Dim k As Long 'k=最終行

k = Range("A6　65536").End(xlUp).Row

For i = k To 1 Step -1
If Cells(i, 1) = "10" Then
　Application.Goto reference:= _
　Cells(i, 1), scroll:=True
End If
Next

End Sub

一度試してみてください。

>スクロールバーを作成し，スクロールバーで設定した値を，A1に表示させたいと思っています。
>但し，取得できる値は，等間隔ではなく，例えば，１０，３０，８０，１００の４つの値しか，選択できないようにしたいのですが，このような設定を行うことはできるのでしょうか？
>もし，ご存知の方がいらっしゃいましたら，ご回答よろしくお願い致します。

2 hits

▼

【29023】スクロールバーの設定 しろうと 05/9/21(水) 21:21