- ベストアンサー
スクロールバーをVBAで操作したい
- みんなの回答 (2)
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (1)
- 30246kiku
- ベストアンサー率73% (370/504)
関連するQ&A
- アクセスVBA フォームのスクロールバーを動かす。
アクセスVBA フォームのスクロールバーを動かす。 作成したフォームの横スクロールバーポジションを、一番右端や左端にしてしまうことをVBA側でしたいのですが可能でしょうか? コードがわかりません。お願い致します。
- ベストアンサー
- Visual Basic
- VBAで全画面/数式バーが出ない?
エクセル2013です。 以下のVBAでFullscreenにすると、なぜか数式バーがでません。 これまでのエクセル2010では、このコードでちゃんと出ていました。 エクセル2013でも全画面表示で数式バーを出すためにはどうしたらよいのでしょうか? Sub FullSize() ActiveWindow.WindowState = xlMaximized With Application .WindowState = xlMaximized .DisplayFullScreen = True .DisplayFormulaBar = True '2013では数式バーが出ない! End With End Sub
- ベストアンサー
- Excel(エクセル)
- EXCEL 画面スクロールを実行するマクロ
ふつうのスクロールが、画面スクロールになるマクロをおしえてください。 サンプルコードは、ActiveWindow.SmallScroll Down:=1 を実行したときに、 ActiveWindow.LargeScroll Down:=1を実行するマクロのことです。 よろしくお願いしますm--m
- 締切済み
- オフィス系ソフト
- アクセスVBA画面のスクロールバー
アクセスVBAで画面を作っており、 あるフォーム画面に、あるサブフォーム画面を付けてます。 フォーム画面に条件を入力すると、サブフォーム画面に データが表示されます。 サブフォーム画面はデータが多くなると、 スクロールバーで上下に移動できるようにしてます。 今、フォーム画面で条件を入れると、サブフォーム画面は さほどデータが多くなくても スクロールバーの移動する枠がとても小さく表示されます (あたかもデータがたくさんあるように) 但し、その時に、スクロールバーをクリックしたりすると すぐに適切なスクロールバーの幅になります。 フォーム画面で条件を入れた直後に サブフォーム画面のスクロールバーの幅を適切にしたいのですが 何か、特別な設定とか必要なのでしょうか?
- ベストアンサー
- その他(データベース)
- for next教えて下さい(;_;)
以下のように1行残して9行消してという操作を連続してやりたいのですがfor nextをどう使えばうまくいくのかわかりません。誰か教えて下さいお願いしますm(_ _)m Sub Macro1() ' ' Macro1 Macro ActiveWindow.SmallScroll Down:=5 Rows("10:18").Select Selection.Delete Shift:=xlUp Rows("11:19").Select Selection.Delete Shift:=xlUp End Sub
- ベストアンサー
- オフィス系ソフト
- 記録したマクロを他のシートにも同時に実行する方法
いつもお世話になります。 下記のように選んだセルのデータを削除するマクロを「マクロの記録」で作成しました。 Sub Macro2() ' ' Macro2 Macro ' ' Range("E5:R12").Select ActiveWindow.SmallScroll Down:=6 Range("E5:R12,E14:R22").Select Range("E14").Activate ActiveWindow.SmallScroll Down:=12 Range("E5:R12,E14:R22,E24:R28").Select Range("E24").Activate ActiveWindow.SmallScroll Down:=6 Range("E5:R12,E14:R22,E24:R28,E30:R34").Select Range("E30").Activate Selection.ClearContents End Sub 「Macro2」の実行ボタンを作り、シート名「1」~「31」の同じセルのデータをボタンをクリックして、一括で削除したいのですが、この記述をどのように変更したらよいのか、マクロを始めたばかりの初心者の私にご教授して頂けませんでしょうか? 「マクロの記録」で各シートを選び、セルを選んでdeleteして行く方法はありますが、今後のためにも記述の編集で出来る方法をお教え下さい。 よろしくお願いいたします。 当方、エクセル2010で作成していますが、エクセル2002の環境で使います。
- ベストアンサー
- その他MS Office製品
- エクセルのユーザーフォームのスクロールについて
現在、エクセルのユーザーフォームを作成中ですが、 ユーザーフォームに下記のようにコードを書き込み スクロールをさせていますが、 Private Sub UserForm_Initialize() Me.Height = ActiveWindow.Height Me.ScrollBars = fmScrollBarsBoth Me.ScrollHeight = 655 End Sub このユーザーフォームにマルチページを使用しているせいか、 ユーザーフォームを呼び出す際に、マルチページのトップ位置から スクロールのカーソルの位置が指定されてしまい、 ユーザーフォームのマルチページより上部がスクロールしないと 絶えず見えないようになってしまっている状況です。 ユーザーフォームを呼び出す際に、このユーザーフォームの 上部(一番上)からスクロールのカーソルが設定できるようにするには どのようにすればよいか教えて頂きますでしょうか? よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- スクロール停止を繰り返すマクロについて
2500行ぐらいあるExcel データを 21行置きに10秒ぐらい閲覧するマクロを作成したのですが、5回に3回ぐらい 988行ぐらいのところで、停止してしまいます。プログラムのどこがいけないのでしょうか? Option Explicit 'Sleepを使う Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long) Sub scroll() ’準備のため20秒ストップを入れる ActiveSheet.Range("A1").Select Sleep 20000 ‘最初の8行目で一旦停止 ActiveWindow.SmallScroll Down:=8 Sleep 10000 ’ここからスタート Dim i As Long For i = 1 To 121 ActiveWindow.SmallScroll Down:=21 Sleep 10000 Next i End Sub
- 締切済み
- Visual Basic
- スクロールバーの操作(?)
いつもお世話になっています。 Excel2000VBAで、フォーム上にListViewコントロールを使用して、あるデータを表示しています。 Timerでカウントをとり、10秒毎に上から順に反転(選択状態)するプログラムを作成しました。 ここまではよいのですが、例えばリストのデータが50項目あった時に、画面上では10項目しか表示できない(高さの関係で)場合、上記プログラムだと11項目目から、ListViewの高さを越えてしまう為、隠れてしまいます。(スクロールバーを手動で下げれば見える) そこでご質問なのですが、スクロールバーをプログラム上から操作することは可能なのでしょうか? ListView以外のコントロールでもAPIでも構いません。 どなたかご教授下さい。
- ベストアンサー
- Visual Basic
- リストボックスのスクロールバーをマウスで動かしたい
エクセル2007です。 Sheet1のA列に 1行目から順に 1 2 3 4 5 6 7 8 9 10 といれました。 ユーザーフォームを新規作成し、リストボックスを設置しました。 VBAコードは、 Private Sub UserForm_Initialize() Me.ListBox1.RowSource = "Sheet1!a1:a10" End Sub にしました。 VBE画面でF5を押して、フォームを表示させるとリストボックスにスクロールバーが表示されますが、 フォームをクリックして、マウスホイールでぐりぐりしても、リストは動きません。 画像のように、4にカーソルをあて、グリグリしてもダメです。 どうしたら動くようになるのでしょうか?
- ベストアンサー
- オフィス系ソフト
お礼
ご回答ありがとうございます。