No.2ベストアンサー
- 回答日時:
こんにちは
Sub 列移動()
ActiveWindow.ScrollColumn = ActiveCell.Column
End Sub
では
No.1
- 回答日時:
こんばんは!
ウィンドウ上に表示されている列数が奇数・偶数によって微妙に違ってきますが、
アクティブセルを画面のほぼ中央に表示したい!という解釈で・・・
Sub 列移動()
Dim centCol As Long, myCol As Long
centCol = ActiveWindow.VisibleRange.Cells(1, 1).Column + _
ActiveWindow.VisibleRange.Columns.Count / 2
myCol = Selection.Column
If myCol <= centCol Then
ActiveWindow.SmallScroll , toleft:=centCol - myCol
Else
ActiveWindow.SmallScroll , toright:=myCol - centCol
End If
End Sub
こんな感じではどうでしょうか?m(_ _)m
この回答への補足
確かにボタンクリックで画面がスクロールしアクティブセルが中央付近にきました。
現在"B2"セルでウィンドウ枠固定にしてるのですがアクティブセルがどの位置にあっても行はスクロールせず左端をE列にスクロールさせたいのですが。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 6 2022/06/08 12:55
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- Visual Basic(VBA) VBAで重複した値のセルに色付けをしたい 1 2022/11/02 16:12
- Excel(エクセル) 表内で、Enterキーで横→行の最後入力したら次の行の先頭に移動するマクロを作りたい 3 2022/05/01 21:19
- Excel(エクセル) エクセルのイベントプロシージャーでF列の最終行のセルの入力をトリガーにしたいのですが 1 2022/10/14 09:36
- Visual Basic(VBA) Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる 3 2022/12/21 09:07
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
Excel(M365) Vlookup/セル反転(...
-
vba 2つの条件が一致したら...
-
B列の最終行までA列をオート...
-
【Excel VBA】 B列に特定の文字...
-
データグリッドビューの一番最...
-
URLのリンク切れをマクロを使っ...
-
マクロ 最終列をコピーして最終...
-
Excel マクロ VBA 別シートのセ...
-
【VBA】2つのシートの値を比較...
-
データーの変化点を高速に検索...
-
VBAを使って検索したセルをコピ...
-
VBAの構文 3列置きにコピーし...
-
VBAで指定範囲内の空白セルを左...
-
SUM関数の範囲を変数を代入して...
-
1から9までの数値をランダムに...
-
IIF関数の使い方
-
最終列の右へSUM関数を作成する...
-
VBA 列が空白なら別のマクロへ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
VBAを使って検索したセルをコピ...
-
文字列の結合を空白行まで実行
-
VBA指定行削除
-
VBAのFind関数で結合セルを検索...
-
IIF関数の使い方
-
VBA 何かしら文字が入っていたら
-
マクロ 最終列をコピーして最終...
-
エクセルについて
-
【VBA】2つのシートの値を比較...
-
URLのリンク切れをマクロを使っ...
-
データグリッドビューの一番最...
-
Changeイベントでの複数セルの...
-
空白セルをとばして転記
-
rowsとcolsの意味
-
エクセルVBAにて =A1=B1とすれ...
おすすめ情報