18-01_settei

タイトル欄のアドレスは、エクセルファンクラブの該当する頁へのリンク先です。
詳しい事は、こちらのお願いをご覧になってください。

1	ページ設定で、ヘッダーに各ページ数を設定するには http://cgi.fuji.ne.jp/~fj2094/cgi-bin1/wwwlng.cgi?print+200011/00110146.txt 　　「ページ数を自動計算させるにはどうすれば？」　【編集ラウンジ】
Excel97、Excel2000 共通　1　「ファイル」「ページ設定」「ヘッダー/フッター」タブで「ヘッダーの編集」に　　　&[ページ番号]&[/&[総ページ数]&?ページ　　　を設定、フッターは "(指定しない)" に設定　2　「シート」タブで「行タイトル」の右端の四角をクリックして　　　「ページ設定ー行のタイトル」のボックスを出しておき、　　　シート上の[上の部分］としているところの行をドラッグ選択し、　　　ボックスの右端をクリックしてページ設定画面に戻ります。
2	ページ設定で、シートの列範囲を列タイトルに設定するには http://cgi.fuji.ne.jp/~fj2094/cgi-bin1/wwwlng.cgi?print+200011/00110146.txt 　　「ページ数を自動計算させるにはどうすれば？」　【編集ラウンジ】
Excel97、Excel2000 共通　1　「ファイル」「ページ設定」「列タイトル」の右端をクリックして　　　「ページ設定ー列のタイトル」ボックスを出します　　　同じく上の部分の列範囲をドラッグ選択し、　　　ボックスの右端をクリック、ページ設定画面に戻ります。　　　すると、各窓には、絶対参照で行/列の範囲が指定されます。　2 　いったん「ファイル」「印刷プレビュー」を出して、　　　ヘッダーと印刷範囲が重なっていないかなど確認し、重なっていたら、　　　「ページ設定」「余白」タブで用紙の上端部分の余白を調整し、　　　最終的にプレビューでチェックする。
3	ヘッダーフッターの表示形式を変更するには? 日付の後ろにＡＭをつけたい
Sub test() 　ActiveSheet.PageSetup.CenterFooter = Format(Now(), "yyyy/m/d h:mm:ss AM/PM") End Sub 　　このコードの使い方は、マクロの使い方(１)標準モジュールにあります。
ヘッダー、フッターの位置は、上のコードの太字のところを変更します。　LeftHeader　　　　'左側のヘッダー　（左上）　CenterHeader　　　'中央のヘッダー　（中央上）　RightHeader　　　 '右側のヘッダー　（右上）　LeftHeader　　　　'左側のフッター　（左下）　CenterHeader　　　'中央のフッター　（中央下）　RightFooter　　　　'右側のフッター　（右下）
4	新規ファイルをテンプレートで設定するには http://www.keep-on.com/~excelyou/2000lng1/200007/00070118.txt 　　「新規EXCELシートの行の高さを好みの高さに固定させるには？」　【編集ラウンジ】 http://cgi.fuji.ne.jp/~fj2094/cgi-bin1/wwwlng.cgi?print+200205/02050102.txt　　　「新規ブックを開く際の初期書式を、その都度ではなく　　　　　　　　　　　　　　　　　　あらかじめカスタマイズしておくには？」　【編集ラウンジ】 http://cgi.fuji.ne.jp/~fj2094/cgi-bin1/wwwlng.cgi?print+200206/02060132.txt　　　「EXCEL2000のテンプレート」　【編集ラウンジ】
Excel97、Excel2000、Excel2002 共通 *　新規ブックをの書式を任意に設定する方法　* 　1.　Excelを立ち上げ、新規のブックで、全てのシート・全てのセルを選択し、各種の設定をします。　　　（各シート、個別の設定もできます）　2.　ファイル、名前を付けて保存で、ファイルの種類を、テンプレート(.xlt) とし、　　　ファイル名、Book.xlt 保存場所を XLSTARTフォルダにします。　　　XLSTARTフォルダの場所がわからない時は､下の注意をご覧下さい｡　　　通常、C:\Program Files\Microsoft Office\Office\XLStart 　　　あるいは、C:\WINDOWS\Application Data\Microsoft\Excel\XLSTART にあります。　3.　次に、３枚あるシートのうち２枚を削除し、「sheet1」　１枚だけにします。　4.　同様に、今保存したばかりのファイルを、名前だけ変えてもう一度同じ場所に、　　　ファイルの種類を、テンプレート(.xlt) とし、ファイル名、Sheet.xlt で保存します。　5.　いったんExcelを閉じて、再起動してください。　　　これで､次回から設定したシートが､新規で立ち上がります｡　　　挿入したシートにも､同様の設定が最初からできています｡注意　Book.xltで保存したシート数が､新規ブックのシート数に反映され､　　【ツール】【オプション】【全般】で【新しいブックのシート数】では変更できません。　　XLSTARTフォルダの場所がわからない時の答えの求め方　　　１.　Visual Basic Editor(Alt+F11)を開きます。　　　２.　[表示]-[イミディエイトウインドウ (Ctrl+Ｇ)]とします。　　　３.　新しく出てきた、右下の所に、　Print Application.StartupPath 　と入力してEnterします｡そうすると､次の行に　　　　　C:\WINDOWS\Application Data\Microsoft\Excel\XLSTART 　のような答えが出てきます｡おまけ　XLSTARTフォルダの場所を変更する方法　　　C:\WINDOWS\Application Data\Microsoft\Excel\XLSTARTの場所を変更するには　　　【ツール】【オプション】【全般】で、【XLSTART代替フォルダ名】の所に　　　D:\(・・・)\Microsoft Office\Office\XLStart　等、変更先のフルパスを入れてください。
5	右クリックのショートカットメニューに項目を追加登録するには http://www.keep-on.com/~excelyou/2000lng4/200008/00080068.txt 　　「右クリックのショートカットメニューにマクロを登録できないでしょうか。」　【ＶＢＡラウンジ】 http://www.ae.wakwak.com/~efc21/cgi-bin/wwwlng.cgi?print+200108/01080509.txt 　　「右クリックのショートカットメニューにオートＳＵＭを入れたいんです。」　【ＶＢＡラウンジ】
Sub 右クリックメニュー追加() 　Dim myCBCtrl As CommandBarButton 　Set myCBCtrl = Application.CommandBars("Cell").Controls.Add _ 　　　(Type:=msoControlButton, ID:=370, Before:=4, Temporary:=True) 　myCBCtrl.Caption = "値の貼り付け★★★" 　Set myCBCtrl = Application.CommandBars("Cell").Controls.Add _ 　　　(Type:=msoControlButton, ID:=872, Before:=9, Temporary:=True) 　myCBCtrl.Caption = "書式のクリア★★★" 　Set myCBCtrl = Application.CommandBars("Cell").Controls.Add _ 　　　(Type:=msoControlButton, ID:=1964, Before:=10, Temporary:=True) 　myCBCtrl.Caption = "すべてクリア(&A)★★★" 　Set myCBCtrl = Nothing End Sub 　　このコードの使い方は、マクロの使い方(１)標準モジュールにあります。 ※　その他のコマンドIDは、こちらでご確認ください　メニューバーのコマンド設定一覧
Excel2002確認済みオートＳＵＭを右クリックのショートカットメニューのいちばん上に入れてその下に区切り線を入れます。　Sub test() 　　With Application.CommandBars("cell") 　　　.Controls.Add ID:=226, before:=1 　　　.Controls(2).BeginGroup = True 　　End With 　End Sub 　　このコードの使い方は、マクロの使い方(１)標準モジュールにあります。 ※　その他のコマンドIDは、こちらでご確認ください　メニューバーのコマンド設定一覧
6	右クリックのショートカットメニューにマクロを追加登録するには http://www.keep-on.com/~excelyou/2000lng4/200008/00080068.txt 　　「右クリックのショートカットメニューにマクロを登録できないでしょうか。」　【ＶＢＡラウンジ】
Sub 右クリックメニューにマクロを追加() 　Dim myCBCtrl As CommandBarButton 　Set myCBCtrl = Application.CommandBars("Cell").Controls.Add _ 　　(Type:=msoControlButton, Temporary:=True) 　With myCBCtrl 　.Caption = "test★★★(&G)" 　.OnAction = "test" '標準モジュールにあるマクロ名　.BeginGroup = True '「グループの始まり」の横線を入れる　End With 　Set myCBCtrl = Nothing End Sub 　　このコードの使い方は、マクロの使い方(１)標準モジュールにあります。
7	ワークシート上での右クリックメニューを初期化するには http://www.keep-on.com/~excelyou/2000lng4/200008/00080068.txt 　　「右クリックのショートカットメニューにマクロを登録できないでしょうか。」　【ＶＢＡラウンジ】
Excel97、Excel2000、2002共通 Sub test() 　Application.CommandBars("Cell").Reset End Sub 　　このコードの使い方は、マクロの使い方(１)標準モジュールにあります。
8	起動時、行幅列幅を設定するには
Sub Auto_Open() 　takasa = Val(InputBox("セルの行の高さを指定してください", "整数入力", 20)) 　haba = Val(InputBox("セルの列幅を指定してください", "整数入力", 10)) 　For I% = 1 To Worksheets.Count 　　Worksheets(I%).Cells.RowHeight = takasa 　　Worksheets(I%).Cells.ColumnWidth = haba 　Next I% End Sub 　　このコードの使い方は、マクロの使い方(１)標準モジュールにあります。
9	ツールバーの設定をリセットする方法
Excel97、Excel2000 共通　［ツール］、［ユーザー設定］、［ツールバー］で、項目を選択して、リセット。
Sub Test() 　　Application.CommandBars("Stop Recording").Reset End Sub 　　このコードの使い方は、マクロの使い方(１)標準モジュールにあります。
10	ツールバーに、メニューバーにあるアイコンを登録するには
Excel97、Excel2000、2002　共通　ツール、ユーザー設定、コマンドを出した状態で、メニューバーの任意ののアイコンを　[Ctrl]キーを押しながらツールバーにドラッグします。
11	特定のシートのみ、メニューバーを一部使用不可にするには
ツ－ルメニュ－のオプションが使えないようにします。　Private Sub Worksheet_Activate() 　　With ActiveWindow 　　　.DisplayGridlines = False 　　　.DisplayHeadings = False　　　End With 　　CommandBars("Tools").FindControl(Id:=522).Enabled = False 　End Sub 　Private Sub Worksheet_Deactivate() 　　CommandBars("Tools").FindControl(Id:=522).Enabled = True 　End Sub 　　このコードの使い方は、マクロの使い方(２)該当するシートのモジュールにあります。
12	タスクバーに表示されるエクセルのアイコンを１個だけにするには http://www.ae.wakwak.com/~efc21/cgi-bin/wwwlng.cgi?print+200104/01040335.txt 　　「EXCELを複数起動しない為には？」　【ＶＢＡラウンジ】
Excel2000、2002共通【ツール】－【オプション】－【表示】で、【ウィンドウをタスクバーに表示】のチェックを外します。Ｅｘｃｅｌ2000・2002では、初期値でこれにチェックが入っています。 Excel97では、この設定はできません。常時アイコンは１個だけの表示になります。
Excel2000、2002共通　Sub test() 　　Application.ShowWindowsInTaskbar = False 　End Sub 　　このコードの使い方は、マクロの使い方(２)該当するシートのモジュールにあります。
13	ページ設定の印刷タイトル・印刷範囲を、全てのシートに一気に設定するには？
Sub miko_test() 　Dim Sh As Worksheet 　Dim pCell As Range, rCell As Range, cCell As Range 　Application.DisplayAlerts = False '警告を非表示　On Error Resume Next 　Set pCell = Application.InputBox("印刷範囲をマウスでドラッグして下さい。", Type:=8) 　Set rCell = Application.InputBox("印刷タイトル範囲の行番号をクリックして下さい。", Type:=8) 　If rCell = "" Then _ 　Set cCell = Application.InputBox("印刷タイトル範囲の列番号をクリックして下さい。", Type:=8) 　For Each Sh In Worksheets 　　With Sh.PageSetup 　　　.PrintArea = "" 　　　.PrintTitleColumns = "" 　　　.PrintTitleRows = "" 　　　.PrintArea = pCell.Address 　　　.PrintTitleRows = rCell.Address 　　　.PrintTitleColumns = cCell.Address 　　End With 　Next Sh 　Application.DisplayAlerts = True '警告を表示 End Sub 　　このコードの使い方は、マクロの使い方(１)標準モジュールにあります。