Windows8 & Office2013 Access2013

Print Friendly, PDF & Email

埋め込みマクロのコード変換

投稿日:2017年1月20日 更新日:

Access2007以降(拡張子accdb)では、[コマンドボタンウィザード]や[マクロビルダー]を使ってボタンを作成すると、[埋め込みマクロ]が作成されます。
通常の独立マクロであれば、[マクロをVisualBasicに変換]でコードに変換できるのですが、この埋め込みマクロは変換できません。ただ、埋め込みマクロの仕様は見ることができるので、一度 埋め込みマクロをマクロ作成で作成し直し、VisualBasicに変換することはできます。
参考拡張子がmdbの場合は、イベントプロシージャとなりますのでコードを確認できます。

レコードの検索ボタンをウィザードで作成

ここでは、[レコードの検索]ボタンを作成します。
フォームをデザインビューで開き[デザイン]タブの[ボタン]をクリックします。このとき[コントロールウィザードの使用]はオンにしています。(既定)
コマンドボタンの作成

[コマンドボタン ウィザード]から[レコードの移動]と[レコードの検索]を選択して[次へ]ボタンをクリックします。
コマンドボタンウィザード

[文字列]を選択して、[次へ]ボタンをクリックします。
コマンドボタンウィザード

ボタン名を付けて、[完了]ボタンをクリックします。
コマンドボタンウィザード

フォームのデザインビューには、レコードの検索ボタンが作成され、ボタンのプロパティ、イベントには、[クリック時]に[埋め込みマクロ]と表示されます。
埋め込みマクロ

フォームビューに切り替えて、[レコードの検索]ボタンをクリックすると、[検索と置換]ダイアログボックスが表示されます。
レコードの検索

埋め込みマクロの詳細

デザインビューで、この埋め込みマクロの詳細をみてみます。[埋め込みマクロ]右横の[…]ボタンをクリックします。
プロパティ

下のようになっています。
埋め込みマクロ

埋め込みマクロの[マクロをVisualBasicに変換]ボタンは無効

でも、コードに変換しようとしても[マクロをVisualBasicに変換]ボタンは無効です。
マクロをVisualBasicに変換ボタン

独立マクロの作成

通常のマクロであればコードに変換は出来るので、埋め込みマクロを参照して同じマクロを作成します。[作成]タブの[マクロ]をクリックします。
マクロの作成

埋め込みマクロと同じようにアクションを設定して、マクロに名前を付けて保存します。
マクロに名前を付けて保存

独立マクロをVisualBasicに変換

作成したマクロをデザインビューで開き、[マクロをVisualBasicに変換]ボタンをクリックします。
VisualBasicに変換

ウィンドウが表示されますので、[変換]ボタンをクリックします。
マクロの変換

VBEが開き、変換されたコードを見ることができます。
変換されたコード

解決できないことは【teratail】に質問してみましょう。

参考Officeのバージョンによって操作が異なる場合があります。以下の記事で、お使いのOfficeのバージョンを確認する方法を解説しています。

Office(Word、Excel、PowerPointなど)のバージョンを確認する方法

Microsoft Officeも時を得て、大きく様変わりしてきました。トラブルを解決しようとするとき、あるいは、何かの操作を探すときなど、 ...

続きを見る

おすすめ記事と広告

関連記事

People Graph(Office用アプリ)

Office2013では、Office用アプリを挿入して使うことができます。[挿入]タブの[アプリ]グループを見ると、[People Gra ...

迷惑メールを一気に削除

Outlook2013で迷惑メールを一気に削除する方法です。 迷惑メールのオプションの表示 迷惑メールの設定をするには、[ホーム]タブの[削 ...

縦書き文書を右から左へ表示

Wordで複数ページを表示すると、既定では左から右へ表示されますが、縦書きの場合などは、右から左へ表示したいと思うことがあります。 例えば、 ...

ページ指定印刷はページ番号で

Word2013でページ指定をして印刷する方法です。 ページ番号の挿入 作成した文書にページ番号を挿入します。 [挿入]タブにある[ヘッダー ...

PowerPivotのスライサーの配置

Excel2010では、PowerPivotで作成したピボットテーブルには、フィールドリストに[垂直スライサー]と[水平スライサー]というの ...

-Windows8 & Office2013 Access2013

Copyright © 2001-2017 初心者のためのOffice講座 All Rights Reserved.

Copyright© 初心者のためのOffice講座 , 2017 AllRights Reserved Powered by AFFINGER4.