ExcelのVBAのことで質問です。
以下のコードを入れ、ボタンを押せば作動させると写真のように画面が表示されてしまいました。
・セルの検索しても、そのセルまで移動しない状態
・別のコードを入れたら直るとチャットgptの指示通りのコードをいれても改善しない
この場合、どの操作をしたら元に戻せるのか教えていただけないでしょうか、、、
よろしくお願いします。
Sub 列の切り替え()
' 列の表示を切り替える
' 表示する列の範囲を指定
Dim 表示列 As Range
Set 表示列 = Union(Range("A:N"), Range("S:V"), Range("AK:AK"))
' 切り替えるシートを指定
Dim 対象シート As Worksheet
Set 対象シート = ActiveSheet
' 表示列以外の列を非表示にする
Columns.EntireColumn.Hidden = True
表示列.EntireColumn.Hidden = False
End Sub
Sub 全体表示に戻す()
' 全体の列を表示する
' 切り替えるシートを指定
Dim 対象シート As Worksheet
Set 対象シート = ActiveSheet
' シート上の全ての列を表示する
Columns.EntireColumn.Hidden = False
End Sub
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
こんばんは
直接の回答ではありませんけれど・・・
表示内容を固定で切替えたいだけならマクロを使わすとも、エクセルの基本機能で可能です。
「ユーザー設定のビュー」に好きな名前を付けて登録しておけば、その名前で同じ表示状態を呼び出すことができるようになります。
https://xtech.nikkei.com/atcl/nxt/column/18/0242 …
Alt + W + C で登録ビューのリストを表示することが可能です。
どうしてもボタン操作から行いたいのであれば、ボタンに
ActiveWorkbook.CustomViews(登録名).Show
のような一行コードを登録しておけば済むでしょう。
No.3
- 回答日時:
最後に以下の1行を追加してください。
Sub 列の切り替え()
・・・省略・・・
対象シート.Range("A1").Select ・・・この行を追加
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【関数orVBA】カーソルのある行を黄色にし、A列の値を別シートに表示できますか? 4 2021/12/28 00:03
- Visual Basic(VBA) Excel VBAでフォルダ内の全テキストファイルの任意データを取得について 7 2021/12/18 16:00
- Visual Basic(VBA) VBA 複数のブックに同じ列を表示させる方法 2 2022/07/20 23:49
- Visual Basic(VBA) VBAで指定期間の範囲を抽出し、リストボックスに表示したいです。 2 2021/12/20 23:21
- Visual Basic(VBA) シート毎のイベントプロシジャーについて 4 2021/12/13 10:47
- Visual Basic(VBA) Excel VBA キーワードから列を取得して、さらに空欄行を非表示にする 3 2022/10/21 22:49
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Excel(エクセル) マクロ作成で困っています。お教え頂けませんか。 1 2021/12/12 17:02
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Visual Basic(VBA) VBA countif について 3 2021/12/16 20:13
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
excelのVBAについて、以下のコードに追加をお願いいたします。
Visual Basic(VBA)
-
VBA 二つのブックをうまく扱えないでいます
Visual Basic(VBA)
-
Excel VBAでの数値の計算についておしえてください
Visual Basic(VBA)
-
-
4
VBA コード
Visual Basic(VBA)
-
5
Excelセルに入力された文字の色を変える方法を教えてください
Visual Basic(VBA)
-
6
VBAコードが作動しません。修正したいのですが何処に原因かあるか教えて下さい。
Visual Basic(VBA)
-
7
Cellsのコードが打てません
Visual Basic(VBA)
-
8
ExcelVBAのFindFirstエラーについて
Visual Basic(VBA)
-
9
Excel マクロについて
Visual Basic(VBA)
-
10
VBEを開くのにコマンド名が「Visual Basic」な理由はなぜ?
Visual Basic(VBA)
-
11
VBAのコードを教えてください
Visual Basic(VBA)
-
12
Excel VBAマクロをマスターするのに、どれ位時間掛かりますか?
Visual Basic(VBA)
-
13
特定文字を入ってるCSVの特定の列を特定のexcelシートに取り込みたいです
Visual Basic(VBA)
-
14
お世話になります。 Excel VBAのプログラムについてご教授をお願いいたします。 添付した写真よ
Visual Basic(VBA)
-
15
コードを直していただきたいです。 以下のコードはネットで拾ったものをほんの少しいじった物なのですが、
Visual Basic(VBA)
-
16
郵便番号検索APIにてget ElementByTagNameでうまくを取得できない
Visual Basic(VBA)
-
17
Excel VBA マクロ シート名を変えずにA列にあるセル名の名前でファイルの分割をしたいです
Visual Basic(VBA)
-
18
VBAの質問です、複数のテキストボックスに同じコメントを
Visual Basic(VBA)
-
19
エクセルVBAの配列について
Visual Basic(VBA)
-
20
VBA 複数条件の分岐処理の上手な方法
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
マクロの「SaveAs」でエラーが...
-
VBA 空白行に転記する
-
マクロ実行後に別シートの残像...
-
EXCELのSheet番号って変更でき...
-
VBA 実行時エラー1004 rangeメ...
-
グラフマクロで系列を変数にす...
-
VBA 別ブックからの転記の高速...
-
Unionでの他のシートの参照につ...
-
Excel2013で切り取り禁止
-
【Excel VBA】自動メール送信の...
-
【VBA】特定の条件でセルをコピー
-
ExcelのVBA ListBox.RowSource...
-
VBA Userformで一部別シートに...
-
Count Ifのセルの範囲指定に変...
-
アクセスからエクセルへ出力時...
-
ExcelのVBマクロを、バックグラ...
-
100万件越えCSVから条件を満た...
-
楽天RSSからエクセルVBAを使用...
-
Excel VBAで、散布図のデータ範...
-
VBA-重複データ同士の照合
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マクロの「SaveAs」でエラーが...
-
VBA 空白行に転記する
-
EXCELのSheet番号って変更でき...
-
マクロ実行後に別シートの残像...
-
VBA 別ブックからの転記の高速...
-
VBA別シートの最終行の次行へ転...
-
【VBA】特定の条件でセルをコピー
-
Count Ifのセルの範囲指定に変...
-
100万件越えCSVから条件を満た...
-
楽天RSSからエクセルVBAを使用...
-
VBAコードについて
-
Changeイベントで複数セルへの...
-
VBAで変数の数/変数名を動的に...
-
Excel2013で切り取り禁止
-
グラフマクロで系列を変数にす...
-
VBA 実行時エラー1004 rangeメ...
-
ExcelのVBマクロを、バックグラ...
-
Unionでの他のシートの参照につ...
-
Excel VBA オートフィルターで...
-
アクセスからエクセルへ出力時...
おすすめ情報