No.99MAM015B2
SERIES No.264

IT-005D
IT-012U
インプットツール

表計算用補足資料
ご使用前にこの表計算用補足資料をよくお読みの上、正しくお使いください。お読みになった後は、いつでも見られる所に必ず保管してください。

本資料で使用されている名称について
Microsoft、Windows、Excel は米国 Microsoft Corporation の米国およびその他の国における登録商標です。

重要本資料には、製品の補助的な参考資料として市販のソフト(Microsoft Excel)の活用事例を載せております。Microsoft Excel あるいは Windows Operation System はミツトヨの製品ではなく、これらに関する問題・質問はサポート対象外となります。

目次
1

Microsoft Excel 2002 で「入力後右方向に入力後右方向に移動する移動する」する」マクロをマクロをツールバーにツールバーに割り付ける方法
ける方法...............2
方法

2

Microsoft Excel 97 で「入力後右方向に入力後右方向に移動する移動する」
する」マクロをマクロをツールバーにツールバーに割り付ける方法
ける方法...................5方法

3

Microsoft Excel 2002 で「データ入力後データ入力後に入力後に Beep 音を出す」方法 ..........................................................84

Microsoft Excel 97 で「データ入力後データ入力後に入力後に Beep 音を出す」方法 ............................................................10-1-1

Microsoft Excel 2002 で「入力後右方向に入力後右方向に移動する移動する」する」
マクロをマクロをツールバーにツールバーに割り付ける方法
ける方法
1.

Microsoft Excel 2002 を起動します。

2.

［ツール］メニューの［マクロ］をポイントし、［新しいマクロの記録］を実行します。

3.

［マクロの記録］ダイアログが表示されます。このダイアログﾞで、①［マクロ名］ボックスに「MoveRight」と入力します。（マクロ名は自由に決めてかまいませんが、後でツールバーに割り付けるときに判別できる名前にしておきます。）②［マクロの保存先］を［個人用マクロブック］に設定します。
③［OK］ボタンを押します。
これでマクロの記録が開始されます。

4.

［ツール］メニューの［オプション］を実行します。

5.

［オプション］のダイアログが表示されたら、［編集］タブをクリックし、［入力後セルを移動する］チェックボックスにチェックを付けます。
（始めからチェックされていたときは、チェックをはずしてからもう一度チェックを付けてください。）

6.

［方向］を「右」に設定し、［OK］ボタンを押します。

7.

［ツール］メニューの［マクロ］をポイントし、［記録終了］をクリックします。これでマクロの記録が終了し、「入力後右方向に移動する」マクロができあがりました。

8.

作成されたマクロを確認するため、まず［ウインドウ］メニューから［再表示］を実行します。
次に［ツール］メニューの［マクロ］をポイントし、［マクロ］を実行します。開いた［マクロ］ダイアログから MoveRight を選択し、［編集］ボタンを押します。次のような内容であれば OK です。(前後、中途に日付等が含まれている場合があります。)
Sub MoveRight( )Application.MoveAfterReturnDirection = xlToRightEnd Sub

9.

次にツールバーを作成し、マクロを割り付けます。［表示］メニューから［ツールバー］をポイントし、［ユーザー設定］を実行します。

10. 表示された［ユーザー設定］ダイアログの［ツールバー］タブをクリックし、［新規作成］ボタンを押します。
11. ［ツールバー名］に適当な名前（例えば ReturnDirection）を入力し、［OK］ボタンを押します。すると作成したバーエリアが画面に表示されます。
12. ［ユーザー設定］ダイアログの［コマンド］タブをクリックし、その中の［分類］リストボッ-2-クスから［マクロ］をクリックします。右側の［コマンド］リストボックス内の［ユーザー設定ボタン］アイコンをドラッグし、新規作成したバーエリアにドロップします。
13. ドロップしたボタンアイコンを右クリックして、表示されたショートカットメニューから［ボタンイメージの変更］をポイントします。「入力後右方向に移動する」という機能に見合ったイメージ（例えば色つきの右向き矢印）を選択します。表示された中に機能に見合ったイメージが見つからないときは、［ボタンイメージの編集］を実行し、［ボタンエディタ］で自由に編集します。
14. もう一度ドロップしたボタンアイコンを右クリックし、ショートカットメニューから［名前］をクリックし、「ユーザー設定ボタン(&C)」となっている部分を「入力後右方向に移動する」に変更します。続けてそのショートカットメニュー内の［マクロの登録］を実行します。
15. ［MoveRight］を選択し、［OK］を押します。
16. ［ユーザー設定］ダイアログの［閉じる］ボタンを押します。これでツールバーの作成とマクロの割り付けが完了しました。完成したツールバーはフローティングの状態になっていますので、ツールバーエリアにドラッグして、適宜配置します。このボタンを押すと、リターン後セルが右方向に移動するようになります。
17. 完了しましたので Microsoft Excel 2002 を終了すると、「‘PERSONAL.XLS’への変更を保存しますか?」と表示されるので、必ず［はい］を指定して下さい。

※他の方向について方向について左方向、上方向、下方向なども作成したい場合は同じ手順を、3 のマクロ名が重複しないように注意し、6 の方向を作成したい方向になるようにして繰り返します。ツールバーは最初に作成したものをうまく利用し、複数のボタンを配置してください。

-3-

このページの方法では Microsoft Excel 2002 の個人用マクロブック機能を利用します。個人用マクロブックは Microsoft Excel 2002 をインストールしたフォルダ内の XLStart フォルダに格注意納された Personal.xls というファイルに保存されており、Excel が起動するときに自動的に読み込まれます。これにより起動に関して次のことに注意が必要です。
① マイコンピュータやエクスプローラ、Office ツールバーの［開く］ダイアログから Excelデータファイルを指定して起動した場合は、Personal.xls を読み込んだあと指定したデータファイルを読み込み画面に表示しますので、従来どおり利用することができます。
② Office ツールバーの［新規作成］ダイアログから起動した場合は、Personal.xls を読み込んだあと、新規ブック「Book1」を開き画面に表示しますので、従来どおり利用することができます。
③ スタートメニューの Microsoft Excel 2002 やデスクトップの Microsoft Excel 2002 アイコンから起動した場合は、Personal.xls を読み込み、その唯一のシートであるマクロシートを表示します。この場合には、Personal.xls を閉じずに［ファイル］メニューから［新規作成］を実行し、新規ブック「Book1」を開くかまたは、［ファイル］メニューの［開く］を実行して既存のデータファイルを開くようにしてください。

また、近年 Excel のマクロ機能を利用したソフトウェアウィルスが報告されております。これらのソフトウェアの中には XLStart フォルダに格納された Excel ブックに感染し、また通常の Excel データファイルにも感染したり損傷を起こしたりする悪質なものも存在することが確認されております。マクロの利用に関しては、十分な知識を身に付けた上、利用者の責任において活用してください。

このページの内容を利用した際に発生した損害等の責任は、利用者自身に帰するものとなりますので、ご了承ください。

-4-

2

Microsoft Excel 97 で「入力後右方向に入力後右方向に移動する移動する」する」
マクロをマクロをツールバーにツールバーに割り付ける方法
ける方法
1.

Microsoft Excel 97 を起動します。

2.

［ツール］メニューの［マクロ］をポイントし、［新しいマクロの記録］を実行します。

3.

［マクロの記録］ダイアログが表示されます。このダイアログﾞで、①［マクロ名］ボックスに「MoveRight」と入力します。（マクロ名は自由に決めてかまいません
が、あとでツールバーに割り付けるときに判別できる名前にしておきます。）②［マクロの保存先］を［個人用マクロブック］に設定します。
③［OK］ボタンを押します。
これでマクロの記録が開始されます。

4.

［ツール］メニューの［オプション］を実行します。

5.

［オプション］のダイアログが表示されたら、［編集］タブをクリックし、［入力後セルを移動する］チェックボックスにチェックを付けます。
（始めからチェックされていたときは、チェックをはずしてからもう一度チェックを付けてください。）

6.

［方向］を「右」に設定し、［OK］ボタンを押します。

7.

［ツール］メニューの［マクロ］をポイントし、［記録終了］をクリックします。これでマクロの記録が終了し、「入力後右方向に移動する」マクロができあがりました。

8.

作成されたマクロを確認するため、まず［ウインドウ］メニューから［再表示］を実行します。次に［ツール］メニューの［マクロ］をポイントし、［マクロ］を実行します。開いた［マクロ］ダ
イアログから PERSONAL.XLS!MoveRight を選択し、［編集］ボタンを押します。次のような内容であれば OK です。(前後、中途に日付等が含まれている場合があります。)
Sub MoveRight( )Application.MoveAfterReturnDirection = xlToRight
End Sub9.

次にツールバーを作成し、マクロを割り付けます。［表示］メニューから［ツールバー］をポイントし、［ユーザー設定］を実行します。

10. 表示された［ユーザー設定］ダイアログの［ツールバー］タブをクリックし、［新規作成］ボタンを押します。
11. ［ツールバー名］に適当な名前（例えば ReturnDirection）を入力し、［OK］ボタンを押します。
すると作成したバーエリアが画面に表示されます。

-5-12. ［ユーザー設定］ダイアログの［コマンド］タブをクリックし、その中の［分類］リストボックスから［マクロ］をクリックします。右側の［コマンド］リストボックス内の［ユーザー設定ボタン］アイコンをドラッグし、新規作成したバーエリアにドロップします。
13. ドロップしたボタンアイコンを右クリックして、表示されたショートカットメニューから［ボタンイメージの変更］をポイントします。「入力後右方向に移動する」という機能に見合ったイメージ（例えば色つきの右向き矢印）を選択します。表示された中に機能に見合ったイメージが見つからないときは、［ボタンイメージの編集］を実行し、［ボタンエディタ］で自由に編集します。
14. もう一度ドロップしたボタンアイコンを右クリックし、ショートカットメニューから［名前］をクリックし、「ユーザー設定ボタン(&C)」となっている部分を「入力後右方向に移動する」に変更します。続けてそのショートカットメニュー内の［マクロの登録］を実行します。
15. ［PERSONAL.XLS!MoveRight］を選択し、［OK］を押します。
16. ［ユーザー設定］ダイアログの［閉じる］ボタンを押します。これでツールバーの作成とマクロの割り付けが完了しました。完成したツールバーはフローティングの状態になっていますので、ツールバーエリアにドラッグして、適宜配置します。このボタンを押すと、リターン後セルが右方向に移動するようになります。
17. 完了しましたので Microsoft Excel 97 を終了すると、「個人用マクロブックを保存しますか?」と表示されるので、必ず［はい］を指定して下さい。

※他の方向について方向について左方向、上方向、下方向なども作成したい場合は同じ手順を、3 のマクロ名が重複しないように注意し、6 の方向を作成したい方向になるようにして繰り返します。ツールバーは最初に作成したものをうまく利用し、複数のボタンを配置してください。

-6-このページの方法では Microsoft Excel 97 の個人用マクロブック機能を利用します。個人用マ
クロブックは Microsoft Excel 97 をインストールしたフォルダ内の XLStart フォルダに格納さ注意

れた Personal.xls というファイルに保存されており、Microsoft Excel 97 が起動するときに自動的に読み込まれます。これにより起動に関して次のことに注意が必要です。
① マイコンピュータやエクスプローラ、Office ツールバーの［開く］ダイアログから Excel
データファイルを指定して起動した場合は、Personal.xls を読み込んだあと指定したデータファイルを読み込み画面に表示しますので、従来どおり利用することができます。
② Office ツールバーの［新規作成］ダイアログから起動した場合は、Personal.xls を読み込んだあと、新規ブック「Book1」を開き画面に表示しますので、従来どおり利用することができます。
③ スタートメニューの Microsoft Excel 97 やデスクトップの Microsoft Excel 97 アイコンから起動した場合は、Personal.xls を読み込み、その唯一のシートであるマクロシートを表示します。この場合には、Personal.xls を閉じずに［ファイル］メニューから［新規作成］を実行し、新規ブック「Book1」を開くかまたは、［ファイル］メニューの［開く］を実行して既存のデータファイルを開くようにしてください。

また、近年 Excel のマクロ機能を利用したソフトウェアウィルスが報告されております。これらのソフトウェアの中には XLStart フォルダに格納された Excel ブックに感染し、また通常の Excel データファイルにも感染したり損傷を起こしたりする悪質なものも存在することが確認されております。マクロの利用に関しては、十分な知識を身に付けた上、利用者の責任において活用してください。

このページの内容を利用した際に発生した損害等の責任は、利用者自身に帰するものとなりますので、ご了承ください。

-7-

3

Microsoft Excel 2002 で「データ入力後データ入力後に入力後に Beep 音を出す」
方法
1.

データを入力したい Sheet（検査記録表等）を開きます。

2.

「ツール」メニューから「マクロ」を選択し、「VisualBasicEditor」をクリックします。VisualBasicの画面に変わります。

3.

「表示」メニューから「プロジェクトエクスプローラ」をクリックします。VBAProject のMicrosoftExcelObject の中から、1.で開いた Sheet（検査記録表、等）を選びクリックします。（データを入力したい Sheet が、Book1.xls の Sheet1 であった場合、ここをダブルクリックします。）

4.

新たに開いたウインドウの、オブジェクト（現在「General」になっているところ）を、「Worksheet」に変更します。

5.

プロシージャ（現在「Declarations」になっているところ）を「Calculate」に変更します。

6.

Private Sub Worksheet_Calculate( )と End sub の間に『Beep』と入力します。
Private Sub Worksheet_Calculate( )BeepEnd Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
End Sub

7.

VisualBasicEditor を終了します。（データを入力したい Sheet に戻ります。）

8.

データを入力しない欄外のセルを選択します。

-8-

9.

（関数ウィザード）ボタンを押して［関数名(N)］の中から "COUNT" を選択し、［OK］を押します。

10. データを入力するセル（範囲）を選択し、［OK］を押します。
11. 8.で選択したセルを選択した状態で［書式］メニューから［セル］を選択し、［表示形式］タブを選択します。
12. 分類から［ユーザー定義］を選択します。
13. ［種類］のテキストボックスをクリックし、その表示をクリア（デリート）した後、半角で「;;;」と入力し、［OK］ボタンを選択します。この作業で、8.で選択したセルが非表示となります。

重要 • 同じ様式を複数の検査に使用する場合は、最初に本設定を行った Sheet を原紙として保存してください。
そして検査の際にその Sheet を呼出し、検査終了時に各管理名称をつけて保存することをお勧めします。異なる Sheet を使う場合は、本設定をその都度行う必要があります。

-9-4

Microsoft Excel 97 で「データ入力後データ入力後に入力後に Beep 音を出す」
方法
1.

データを入力したい Sheet（検査記録表等）を開きます。

2.

「ツール」メニューから「マクロ」を選択し、「VisualBasicEditor」をクリックします。VisualBasicの画面に変わります。

3.

「表示」メニューから「プロジェクトエクスプローラ」をクリックします。VBAProject のMicrosoftExcel オブジェクトの中から、1.で開いた Sheet（検査記録表等）を選びクリックします。
（データを入力したい Sheet が、Book1.xls の Sheet1 であった場合、ここをダブルクリックします。
）

４．

５．

4.

新たに開いたウインドウの、オブジェクト（現在「General」になっているところ）を、「Worksheet」に変更します。

5.

プロシージャ（現在「Declarations」になっているところ）を「Calculate」に変更します。

6.

Private Sub Worksheet_Calculate( )と End sub の間に『Beep』と入力します。
Private Sub Worksheet_Calculate()
Beep
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
End Sub

7.

VisualBasicEditor を終了します。（データを入力したい Sheet に戻ります。）

8.

データを入力しない欄外のセルを選択します。

9.

（関数ウィザード）ボタンを押して［関数名(N)］の中から "COUNT" を選択し、［次へ］を押します。

10. データを入力するセル（範囲）を選択し、［完了(F)］を押します。
11. 8.で選択したセルを選択した状態で［書式］メニューから［セル］を選択し、［表示形式］タブを選択します。

- 10 -

12. 分類から［ユーザー定義］を選択します。
13. ［種類］のテキストボックスをクリックし、その表示をクリア（デリート）した後、半角で「;;;」と入力し、［OK］ボタンを選択します。この作業で、8.で選択したセルが非表示となります。

重要 • 同じ様式を複数の検査に使用する場合は、最初に本設定を行った Sheet を原紙として保存してください。
そして検査の際にその Sheet を呼出し、検査終了時に各管理名称をつけて保存することをお勧めします。異なる Sheet を使う場合は、本設定をその都度行う必要があります。

- 11 -

株式会社ミツトヨ
神奈川県川崎市高津区坂戸 1-20-1〒213-0012
Printed in Japan