Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10全般 : 指定なし)
標準テンプレートにつきまして
投稿日時: 19/02/05 10:31:54
投稿者: SA90118

  
お世話になります。
 
標準テンプレートにつきまして、ご質問致します。
 
概要:
 
Wordの場合は
Word for Office 365, Word 2019, Word 2016, Word 2013, Word 2010
https://support.office.com/ja-jp/article/%E6%A8%99%E6%BA%96%E3%83%86%E3%83%B3%E3%83%97%E3%83%AC%E3%83%BC%E3%83%88-normal-dotm-%E3%82%92%E5%A4%89%E6%9B%B4%E3%81%99%E3%82%8B-06de294b-d216-47f6-ab77-ccb5166f98ea
 
例:
ツールバーの作成 (ページ先頭、ページ最後)
 
Sub ページ先頭()
  ActiveDocument.Range(0, 0).Select
End Sub
 
Sub ページ最後()
  Selection.EndKey Unit:=wdStory
End Sub
 
別ファイル名で起動しても開発→Visual Basic→標準テンプレートに作成されたツールバーのカスタマイズが表示されます。別ファイルで開いても作成ツールバーをクリックしますとページ先頭、ページ最後に移動されます。
 
 
Excelの場合は
 
例:
ツールバーの作成 (ページ先頭、ページ最後)
 
Sub ページ先頭()
 Range("A1").Select
End Sub
 
Sub ページ最後()
  Range("A65536").End(xlUp).Offset(0 + 1).Select
 End Sub
 
質問:
Excel の場合もWordの標準テンプレート (Normal.dotm) のように別ファイルで開いても作成したツールバーをクリックしてページ先頭、ページ最後に移動する方法はありませんでしょうか。(Excel 2019を使用しています)宜しくお願い致します。
 
 
 

回答
投稿日時: 19/02/05 11:05:18
投稿者: WinArrow
投稿者のウェブサイトに移動

WORDの場合、
マクロを作成するときに、特に指定しない限り、
 全ての文書に適用するように保存されます。
もちろん、保存するファイルを特定すれば、指定した文書だけです。
  
   
Excelの場合は、
お望みのようなことを実現したければ、
お望みのマクロを作成して
Personal.xlsm
というブック名で、「xlstart」というフォルダの保存すれば可能です。
  
ところで、Excelには、ページという概念がいまいちそぐわないと思います。
 必ず、A列からデータを入力するとは限らないですから、
データの最終行がA列のみという指定は汎用的ではないと思います。
  
掲示した「ページ先頭」「ページ最終」
という機能は、ショートカットに用意されているので、
 敢えてマクロ化する意義があるかな?と思います。
  
ショートカットキー
「ページ先頭」→[Ctrl]+[Home]
「ページ最終」→[Ctrl]+[End]
   
ショートカットキーならば、OSが用意している機能なので、
Excel、Wordに限らず、他のアプリケーション共通的に使えます。
 

投稿日時: 19/02/05 11:24:35
投稿者: SA90118

WinArrow 様
 
早速、ご回答して頂きまして、ありがとうございました。
 
>WORDの場合、
>マクロを作成するときに、特に指定しない限り、
>全ての文書に適用するように保存されます。
>もちろん、保存するファイルを特定すれば、指定した文書だけです。
はい、分りました。スッキリできました。
 
>Excelの場合は、
>お望みのようなことを実現したければ、
>お望みのマクロを作成して
>Personal.xlsm
>というブック名で、「xlstart」というフォルダの保存すれば可能です。
はい、分りました。以前より調べていましたが今回は大変勉強になりました。
 
>ところで、Excelには、ページという概念がいまいちそぐわないと思います。
>必ず、A列からデータを入力するとは限らないですから、
>データの最終行がA列のみという指定は汎用的ではないと思います。
ご指摘によりWORDと違いセルですのでページという概念があてはまらないことが分りました。
 
>掲示した「ページ先頭」「ページ最終」
>という機能は、ショートカットに用意されているので、
>敢えてマクロ化することも内容に思います。
ショートカットの方法は知っていましたが、テンプレートで実行できないかと
 
「xlstart」というフォルダの保存について調べてみます。
 
度重ね、大変お世話になり感謝申し上げます。