今回は、OfficeのExcel VBAで初心者でも簡単にマクロを作成する方法を紹介します。

Excelのマクロ（VBA）を使ったことがないし、当然プログラミングもしたことがない……
かといって１から勉強を始めるのもハードルが高いなぁ

みみねこ

「マクロの記録」機能で作成したコードを利用すれば、初心者でも簡単にマクロを作成できますよ♪

もちろんプログラミング要素が０とは言いませんが、
ほとんど知識なしでもできてしまう方法ですので、良かったらご参考にしてくださいね。

元となるExcelを作成

まずはマクロを付与する元となるExcelを作成しましょう。

例えば、「健康診断の日程」を社員の人数分印刷するケースです。

以下のように、
まずVLOOKUP関数を利用して「印刷No」を変更するだけで内容を変えられるようにします。
（VLOOKUP関数の使い方については以下を参照してください♪）

【EXCEL】VLOOKUPの使い方（1と0の違い、#N/Aエラー等）

ExcelのVLOOKUP関数について、基本的な使い方として第4引数が「0/FALSE（完全一致）」の場合や「1/TRUE（近似値）」の場合、「#N/A」エラーのIFERROR関数を使った対処方法、使用時の注意事項などサンプルを交えて紹介します♪

nyanblog2222.com

2022.07.18

さて、ここで一つ一つ「印刷No」に値を入れて印刷するを繰り返すのも面倒なので、
From～ToのNoの人へ一括して通知文を印刷したい！とします。

ここで登場するのが処理を自動化させるマクロです。次項から作成方法を説明していきます。

Excelをマクロ形式にする＆開発タブを追加する

前準備としてExcelをマクロ形式にしましょう。

名前を付けて保存する際に、「Excelマクロ有効ブック」を選択して保存します。
こうすることで、ファイルの拡張子が「.xlsm」となり、マクロを保存できるようになります。

次に、もしExcel上部に「開発タブ」が出ていなければ設定してあげましょう。
「開発タブ」からマクロの設定ができます。

「開発」にチェックを入れるとタブが現れます。

「マクロの記録」機能でベースコードを作成

前項までで事前準備もできたため、早速マクロを作成していきましょう。

ただ、いきなりVBAのコードエディタを開き、１からコードを作成……、
なんてことをしてしまうと一気に難易度が高くなってしまうため、
今回はマクロの元となるベースコードを作成するため、Excelの「マクロの記録」という機能を使用します。

「マクロの記録」とは、その名の通りExcelの操作を記録する機能です。

やり方は以下の通り、まず「マクロの記録」をクリックします。

適当にマクロ名を付けて保存します。
（プログラミング言語はアルファベットが基本なので、アルファベットで「動詞＋名詞」のような処理内容がわかる名前がおすすめです）

「OK」を押すと記録が始まるので、記録したい処理を手作業で行います。

今回のケースだと、以下を記録してみましょう。
１．G2の値を変える
２．印刷する

終わったら、記録終了します。

これで記録できました！
マクロボタンをおして、編集を押すと……。

このように、マクロのベースとなるコードができましたね♪

コードを見て、
・G2を選ぶ
・値（2）を入れる
・エンターを押したためG3が選ばれる
・印刷する

という処理内容になっていることがなんとなく分かれば、マクロ作成は難しくありません！
分からなくても、いくつかやっているとなんとなく分かってきますのでご安心を。

また、もし、同じ作業をするだけなら次項のコードの修正は不要なので飛ばしてくださいね♪

コードを適宜修正

前項にてベースコードができましたので、以下のとおり適宜修正していきます。

・G2を選ぶ　→　必要
・値（2）を入れる　→　値にFromToの内容を反映させれるようにする
・エンターを押したためG3が選ばれる　→　G3を選ぶ必要はないため不要
・印刷する　→　必要
◎上記をFromToの間だけ繰り返す！

ここでややこしいプログラミングの知識は一つだけで、「繰り返す」ということです。

繰り返すには「For～Next」というコードを使います。
このコードは、マクロを作るうえではとても重要なもので、
逆にこれだけ覚えていたら、簡易なマクロであればなんとなくの雰囲気だけで作れちゃったりします。

For start To end
     処理
Next

上記の通りstartからendまで、処理を繰り返します。
startの値は一度繰り返すごとに1ずつ増えていき、startの値は処理内で使用することができます。

では、実際に作ってみたコードがこちらです。

Sub PrintFromTo()
　→　マクロ名（関数）
'
' PrintFromTo Macro
'
    Range("G2").Select　→　G2を選ぶ
    
    For i = Range("G5").Value To Range("H5").Value
　　→　iという変数（入れ物）に入れたG5の値からH5の値まで繰り返す
        ActiveCell.FormulaR1C1 = i　→　選んだG2へiの値を入れる
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False　→　印刷する
    Next　→　iの値を1プラスしてForに戻る

End Sub　→　マクロを終了する

これでコーディングは終了です。初めてでもなんとなく理解できたら幸いです。

できたらコードエディタを右上の×で閉じて、マクロを実行してみましょう。

想定通り、繰り返し印刷できていたら成功です！

（必要であれば）マクロ実行のためのボタン等を作成する

前項のとおりマクロができましたが、毎回マクロの画面を開いて実行と押すのも非効率なので、
必要であればボタン等装飾してみるのもおすすめです。

今回は、ボタンを押すと設定したマクロが実行できるようにしてみましょう。

まず、図形から丸みを帯びた四角のボタンを作成します。

次にボタンを右クリックし、「マクロの登録」を押すと、
以下のように登録画面が出てきますので、作成したマクロを選択しましょう。

これでマクロボタンの作成についても完了です。

どうでしょう、わりと簡単だったなと思っていただけると嬉しいです。
少し難しいと思っても数回やってみると、
「ふ～ん、こんな感じか」と慣れてくると思いますので、是非チャレンジしてみてくださいね！

以上です。
今回の記事が何かの参考になれば幸いです。ありがとうございました♪

投稿 【Excel VBA】初心者でも簡単にマクロを作る方法 は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

今回はOfficeのVBAで、If文を一行で記述する方法を紹介します。

If文を一行で記述する方法

If文は通常、以下のように記述します。

If ( 条件式 ) Then
    処理
End If

これを一行で書くと、以下のようなコードになります。
※「End If」を記述しないことで、実現できます

If ( 条件式 ) Then 処理

Else有りでも一行で書けます。

If ( 条件式 ) Then 処理１ Else 処理２

ElseIfを使う場合は一行では書けないようです。

そもそも、一行で書いた方が良い？

If分を一行で書くと見た目がすっきりして、あたかも「かしこいコード」に見えますが、
必ずしも万人にとって読みやすいと思う記述方法ではないと私は思います。

コードは、自分にも他人にも読みやすいものであるべきです。

なので、
一行で書くと読みやすいコードになると思うのであれば、一行で書いた方が良いし、
一行で書くと”もしかしたら”読みにくいコードになるかもしれないと思うのであれば、分けて書いた方が良いと思います。

例えば、こういったケースはどちらが読みやすいでしょうか。

例）ある関数内で、対象フラグが9（エラーフラグ）なら即リターンする

①

If (TargetFlg = 9) Then Exit Function

②

If (TargetFlg = 9)
  Then Exit Function
End If

私なら①の方がスコープが狭まるので読みやすいです。
内容も複雑ではないので、すぐに理解できます。
ただ②も素直なので、どちらを読みやすいと思うかは人によるかもしれませんね。

例）取得した日付が10文字（YYYY/MM/DD）ならそのまま返し、
　　異なれば（YYYYMMDD）、 10文字（YYYY/MM/DD） にして返す関数

①

If (Len(TargetDay) = 10) Then DayFormat = TargetDay Else DayFormat = Left(TargetDay, 4) & "/" & Mid(TargetDay, 5, 2) & "/" & Right(TargetDay, 2)

②

If (Len(TargetDay) = 10) Then
  DayFormat = TargetDay
Else
  DayFormat = Left(TargetDay, 4) & "/" & Mid(TargetDay, 5, 2) & "/" & Right(TargetDay, 2)
End If

私なら②の方が素直で読みやすいです。
①は一行にすると読みづらすぎます！
恐らく他の人からしても②の方が読みやすいのではないでしょうか。
Elseを使う時点で分けた方がいいかもしれませんね。

ということで、判断に迷ったら
「一行で書くことで、自分や他人にとって読みやすくなるか」を考えて記述すると良いと思います。

以上です。
今回の記事が何かの参考になれば幸いです。ありがとうございました♪

投稿 【VBA】If文を一行で記述する方法【Access,Excel】 は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

今回は、Excelにてワイルドカードと呼ばれるアスタリスク「*」・はてな(クエスチョン)「?」を検索する方法を紹介します。
合わせて「*」「?」が検索できない理由やワイルドカードについても説明していますので、そちらもご一緒にどうぞ♪

アスタリスク(*)・はてな(?)の検索方法

「*」「?」の前に「~」をつけると検索できるようになります。

「~*」

「~?」

「*」「?」が検索できない理由やワイルドカードについて

「*」「?」が検索できない理由

アスタリスク(*)・はてな(?)を普通に「*」「?」で検索すると、
検索対象の「*」「?」だけではなく全ての文字が検索されてしまいます。
例）Excelで「123」「あいう」「?123」のセルがそれぞれあったとき、
「?123」の「?」を検索しようとすると、
「123」も「あいう」も「?123」も検索される。

これは、「*」「?」がワイルドカードと呼ばれる特殊文字のため、
検索する際は単純に「*」「?」として認識されていないからです。

ワイルドカードとは

ワイルドカードとは、一般的にトランプ等のカードゲームの「万能カード」を連想することが多いかと思いますが、
情報分野におけるワイルドカードについても似た意味で「万能」と言えます。

ワイルドカードは、検索する際にどのような文字や文字列にもマッチする特殊文字です。

「*」　…　0文字以上のどのような文字や文字列にもマッチ
「?」　…　1文字のどのような文字にもマッチ

例）「123456」「あういえお」というセルがあった場合、
　　以下のような検索キーを使うと、このようにマッチします。

投稿 【Excel】アスタリスク(*)・はてな(?)の検索方法【簡単】 は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

今回はMicrosoft Office 2019のボリュームライセンス版のインストール方法を紹介します。

経緯

Microsoft Office 2016まではVLSC（ボリュームライセンスセンター）にて
Windowsインストーラー（MSI）がダウンロードできていましたが、
Microsoft Office 2019からはWindowsインストーラー（MSI）が廃止となりました。

このことにより、Office 展開ツール（ODT）を使って
コマンドプロンプトやBATでインストールせざるを得ない状態となりました。

Office2019インストール方法（オンライン）

詳しく説明する前に、簡単にまとめるとインストール方法は以下になります。
Office 展開ツール（ODT）の「setup.exe」と、設定ファイルの「configuration.xml」をBATで起動してインストールする形です。

１．VLSCよりプロダクトキーを入手
Microsoft：Volume Licensing Service Center

２．Office 展開ツールをダウンロード
Microsoft：Office 展開ツール（Office Deployment Tool）ダウンロード

３．Office カスタマイズ ツールより、「configuration.xml」を作成
Microsoft：Office カスタマイズ ツール

４．セットアップBATを作成し、実行

setup /configure configuration.xml

次項から詳細に説明します。

VLSCよりプロダクトキーを入手

Microsoft Office 2016までと同様に、
VLSCにサインインし、プロダクトキーを入手します。
Microsoft：Volume Licensing Service Center

Office 展開ツールをダウンロード

以下より、Office 展開ツールをダウンロードします。
Microsoft：Office 展開ツール（Office Deployment Tool）ダウンロード

１．上記サイトへアクセス。ダウンロード

２．「officedeploymenttool_XXXXX.exe」がダウンロードされるので、ダブルクリック

３．あらわれた画面の左下にチェックし、Continue

４．展開先フォルダを指定すると、以下画面が出てくるので、OKすると展開完了

すると、以下のファイルが展開されます。

この中で必要なものは「setup.exe」のみです。
本来は「configuration-OfficeXXXX.xml」を元にして内容を書き換えて使うのですが、やり方がややこしく、変に書き換えるとエラーになります。
もっと簡単な方法（次項で説明）があるので、「configuration-OfficeXXXX.xml」は削除していただいて問題ございません。

（参考）configuration-Office2019Enterprise.xml
　　　　見ての通り、どう変更して使えばいいのか非常に難しいです！
　　　　こちらに作り方が書いてありますが、やはりややこしい！
　　　　Microsoft：Office 2019 の展開 (IT 担当者向け)

Office カスタマイズ ツールより、「configuration.xml」を作成

前項で「configuration-OfficeXXXX.xml」を書き換えるのは難解というお話をしましたが、
簡単に設定ファイルを作る方法として、以下のサイトで作成する方法があります。
順に進めていくだけなので非常に簡単です！
Microsoft：Office カスタマイズ ツール

１．製品とリリース

・アーキテクチャ
32ビット・64ビットどちらかを選びます。
32ビットでしか利用できないシステムがある！というわけでなければ、
使用できる領域の大きい64ビットを選びます。

・製品
「Office Standard 2019」 or 「Office Professional Plus 2019」を選びます。

・更新チャネル、アプリ
更新チャネルは、デフォルトの「Office 2019 永続エンタープライズ」です。
アプリは必要なアプリをオンにします。

２．言語

日本語を選択

３．インストール

インターネット環境があるのであれば、
「Office Content Delivery Network（CDN）」を選びます。
オフライン環境であればやり方が少し異なるので、後述します。

４．更新とアップグレード

・更新とアップグレードのオプション
「Office Content Delivery Network（CDN）」を選びます。

・アップグレードのオプション
こちらは既に2016以前のOfficeがパソコンにインストールされていた場合、
アンインストールする際はオンにし、しない際はオフにします。
旧バージョンを使わないのであれば、基本的には脆弱性の関係で削除した方がいいです。

５．ライセンスとアクティブ化

・EULA（ソフトウェア利用許諾契約）に同意にオン、
・マルチライセンス認証キー（MAK）をクリック、
・プロダクトキーを入力、
・自動ライセンス認証をオン
にします。

もし、社内でライセンス認証サーバーを立てている場合であれば、
MAKではなく、KMSクライアントキーをクリックしてください。

６．全般

あってもなくてもかまいませんが、組織名をいれます。

７．アプリケーションの設定

各ソフトに対して、細かい設定をするのであればここで選択します。

８．エクスポート

これで設定は完了ですので、エクスポート処理をします。

・既定のファイル形式
「現在の設定を保持する」を選択

・XMLへの構成のエクスポート
ファイル名を「configuration」とする

これで、「configuration.xml」が出来上がります。

（参考）先ほどの設定だと、以下の「configuration.xml」ができます。

セットアップBATを作成し、実行

セットアップBAT作成

以下のセットアップBATを作成します。
メモ帳を開き、以下のコマンドを入力・保存します。
その後、拡張子を「bat」にして、セットアップBATの完成です。
ファイル名はなんでもいいですが、仮に「Office2019Setup」としましょう。

setup /configure configuration.xml

これで必要な準備が全て整いましたので、
全て以下の通り１つのフォルダに入れます。

セットアップBAT実行

「Office2019Setup.bat」をダブルクリックすると実行されます。

・インストール開始

・インストール完了（完了まで、大体１０分～２０分くらい）

これで、Microsoft Office 2019のインストールが完了しました♪

なお、今回はBATを使って実行しましたが、
コマンドプロンプトからセットアップコマンドを実行しても全く問題はないです。
ただその場合は、コマンドプロンプトを開いた後、
フォルダの階層まで「CD」コマンドで移動する必要があるので、個人的にはBATの方が楽です。

オフライン環境でのインストール方法

Microsoft Office 2019はオフラインでもインストールできます。
基本的な流れは「Office2019インストール方法（オンライン）」と同じですが、一部異なります。
方法は以下になります。

※１～４まではインストールデータのダウンロード等なので、オンライン。
　オンライン環境でダウンロードした後、ＵＳＢ等でオフライン環境に移します。
　５のインストールはオフライン可。

１．VLSCよりプロダクトキーを入手

Microsoft：Volume Licensing Service Center

２．Office 展開ツールをダウンロード

Microsoft：Office 展開ツール（Office Deployment Tool）ダウンロード

３．Office カスタマイズ ツールより、「configuration.xml」を作成

Microsoft：Office カスタマイズ ツール

基本的には「configuration.xml」は、
「Office2019インストール方法（オンライン）」と同じでいいですが、以下の箇所を変えます。

・インストール
ローカルソースをクリックし、インストールデータをダウンロードするパスを入力する。

個々で作成した「configuration.xml」が、
次からの項４、項５の共通の設定ファイルとなります。

４．ダウンロードBATを作成し、実行

次に、インストール用データを作成のためのダウンロードBATを作成します。

setup /download configuration.xml

これで以下の環境となり、ダウンロード準備ができました。

「Office2019Download.bat」をクリックすると、以下の通り、
インストール用データがダウンロードされていきます。

５．セットアップBATを作成し、実行

これでインストール準備は完成しましたので、
以下のセットアップBATを作り、実行すると、
オフライン環境でもインストールすることができます。

setup /configure configuration.xml

※もしも、「４．ダウンロードBATを作成し、実行」のダウンロード環境（パソコン）と、
「５．セットアップBATを作成し、実行」のインストール環境（パソコン）が異なっている場合は、configuration.xml　
<Add OfficeClientEdition=”XX” Channel=”XXXXXX” SourcePath=”XXXXXXXXXXXXXXX”>
の「SourcePath=”XXXXXXXXXXXXXXX”」の部分が変わる場合があるため、
そこはインストール環境に合わせて変更してください。

投稿 【簡単】Office2019ボリュームライセンスのインストール方法 は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

Windows10のパソコンを初期設定する際に出てくる「アカウントを追加しましょう」を、
Microsoft アカウントを作らずスキップする方法を紹介します。

スキップする方法

Microsoft アカウントを作らずスキップする方法は、
インターネットに繋がず設定することです。

具体的には、以下の通り実施します。

１．ネットワークを切断する

・有線LANであれば、LANケーブルを抜く
・無線LANであれば、無線スイッチを切るor機内モードボタンを押す
（よく分からなければ、一度パソコンの電源を切って、
再度付け直して再設定するときにインターネットは設定せず進めばOKです）

例）機内モードボタン

２．左上の「←」ボタンをクリック

３．完了

これだけでOKです。
成功していたら以下のように「このPCを使うのはだれですか？」とメッセージが出て、
次に進めます。

Microsoft アカウントを登録しないと起きる問題

補足として、Microsoft アカウントを登録しないと起きる問題をいくつか紹介します。

・OneDrive（無料のクラウドストレージ）が使用できない

OneDriveとは、クラウドストレージを使用してデータ保管できるサービスです。
クラウドストレージはセキュリティ的に心配という方も多いので、あまり弊害はないかもしれません。

・Office Online（無料Web版Office）が使用できない

Office Onlineはブラウザ上でOfficeのWord・Excel・PowerPoint・OneDriveなどの機能の一部が使用できるサービスです。
機能は一部といっても簡単な文章の編集や、データ管理ができます。
データがOneDrive上（インターネット上）に保存される、というところに目を瞑れば非常に魅力的なサービスです。

・Microsoft Storeからアプリをダウンロードできない

Microsoft Storeとは、Microsoftが公開している様々なアプリのダウンロードサイトです。
利用せずともインターネット上に様々な優秀なフリーソフトが転がっているので、あまり気にしなくてもいいかもしれません。

・最新版のMicrosoft Officeがライセンス認証できない場合がある

種類によりますが、例えば「Microsoft Office Personal 2019 プレインストール版」では
ライセンス認証する際に必ずMicrosoft アカウントとの紐づけが必要になります。

投稿 【Windows10】「アカウントを追加しましょう」をスキップする方法 は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

今回はパソコンの入れ替え後等にVBAマクロ付きのExcelやAccessファイルを使用した際、
「このプロジェクトのコードは、64ビットシステムで使用するために更新する必要があります。
Declareステートメントの確認および更新を行い、
次にDeclareステートメントにPrtSafe 属性を設定してください。」
とエラーコードがでてしまった場合の対処方法を紹介します。

エラーの原因は？どんな状況で発生する？

Office64bitで、
Win32API（32bitのWindows API）を呼び出すと該当のエラーメッセージがでます。
64bitと32bitでは使用できる領域が異なるため、
通常そのまま使うと何かしら問題が発生する場合があります。
よって「使っても良いか」確認の意味も込めたエラーメッセージとなります。

例えば、パソコンの入れ替えやOfficeのバージョンアップで、
Officeが32bitから64bitに変わった際に発生します。

対処方法

対処方法は以下になります。

• Declare文の変更（※１）
  ①PtrSafeを追加
  ②Long型を適宜PtrLong型に変更
• API実行箇所をDeclare文の型に合わせる（引数・戻り値） 

※１　Office64bitでのDeclare文の記述方法は、
以下のとおりMicrosoft公式より公開されていますので、 コピーして使用します。

Microsoft Docs：Win32API_PtrSafe　より、
「Office 2010 ヘルプファイル:64 ビットのサポートが含まれる Win32API_PtrSafe」
へのリンクにとび、
「Office2010Win32API_PtrSafe.exe」をダウンロード・インストール。
インストールすると、
「C:\Office 2010 Developer Resources\Documents\Office2010Win32API_PtrSafe」 に、
Win32API_PtrSafe.TXTが出来上がるので、こちらを開き、該当箇所をコピペする。

なお、Office2010より64bitが新しくできたためOffice2010となっていますが、
他バージョンでも同じように上記のURLからダウンロードします。

コード変更例

例えば、以下のようなコードを記述しているとして、どのように修正するか説明します。
コード内容としては、”user32”というWin32APIを使用し、
「アクティブウィンドウの名前を取得して、出力する」という単純なものです。

Declare Function GetActiveWindow Lib "user32" () As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private Sub GetWindowName()

'アクティブウインドウのハンドル取得
Dim lWindowHwnd As Long
lWindowHwnd = GetActiveWindow()

'バッファを確保
Dim sWindowName As String
sWindowName = String(256, Chr(0))

'アクティブウインドウのウインドウ名取得
Dim lWindowNameLen As Long
lWindowNameLen = GetWindowText(lWindowHwnd, sWindowName, Len(sWindowName))

'イミディエイトに出力
Debug.Print "現在アクテイブウインドウのタイトル名は"
Debug.Print sWindowName
Debug.Print "長さは" + Str(lWindowNameLen) + "です"

End Sub

もちろん、Office32bitではエラーメッセージなしで正常に動きます。

Declare文の変更

まず、Win32API_PtrSafe.TXTを開いて該当の箇所
「GetActiveWindow」「GetWindowTextA」などで検索し、コピペします。

Declare PtrSafe Function GetActiveWindow Lib "user32" () As LongPtr
Declare PtrSafe Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As LongPtr, ByVal lpString As String, ByVal cch As Long) As Long

Declare文の変更はたったこれだけです♪
注意点は、必ず「Win32API_PtrSafe.TXT」を見てコピペすることです。
バグの元なので全てのLong型をPtrLong型にしないようにしてください。

API実行箇所をDeclare文の型に合わせる（引数・戻り値）

次にAPI実行箇所については、Declare文と睨めっこしながら変更していきます。
今回の場合、GetActiveWindowの戻り値の型であり、
GetWindowTextの第一引数であるlWindowHwndを Long型からLongPtr型に変えます。
命名規則にもよりますが、変数名のルールで型名も考慮しているのであればそちらも変更します。
（ lWindowHwndからlpWindowHwnd）

Private Sub GetWindowName()

'アクティブウインドウのハンドル取得
Dim lpWindowHwndAs LongPtr
lpWindowHwnd = GetActiveWindow()

'バッファを確保
Dim sWindowName As String
sWindowName = String(256, Chr(0))

'アクティブウインドウのウインドウ名取得
Dim lWindowNameLen As Long
lWindowNameLen = GetWindowText(lpWindowHwnd, sWindowName, Len(sWindowName))

'イミディエイトに出力
Debug.Print "現在アクテイブウインドウのタイトル名は"
Debug.Print sWindowName
Debug.Print "長さは" + Str(lWindowNameLen) + "です"

End Sub

他にも元からLong型のものがありますが、Declare文でもLong型なので変更しません。

以上で、VBAのOffice64bit対応は完了です。

補足：PtrSafeやPtrLong型について

簡単に紹介すると以下になります。

• PtrSafe
  Office64bitで実行しても安全であると明示するキーワード
•  

• PtrLong型
  Office32bitではLong型に、Office64bitではLongLong形になる型

このことから、
Office64bitで使えるようにコードを書き換えても、 Office32bitで動くようになっています。

投稿 【対処方法】このプロジェクトのコードは、64ビットシステムで…【Declare,PrtSafe】 は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

Microsoft Officeの再インストールをした際に「Error 1706（エラー 1706）」
というエラーコードでインストールできない場合の対処方法を紹介します。

エラーの原因は？どんな状況で発生する？

Officeは「コントロール パネル\すべてのコントロール パネル項目\プログラムと機能」
でアンインストール可能です。
ただ、この手法だとOfficeの一部が消え切れおらず、再インストールする対象が別のbitの場合、
「既に異なるbitでインストールされていますよ！」と競合してしまうようです。

私の場合、Office 2010の32bitから64bitに再インストールした場合にエラーが出ました。
調べてみると64bitから32bitも駄目みたいですね。

対処方法

対処方法は、

1. 元々入っていたbitでインストール
2. Microsoft公式のOfficeアンインストールツールで完全削除
3. 新しいbitでインストール

です。詳細な手順は以下になります。
（説明は32bitから64bitにする内容にしていますが、
64bitから32bitの場合インストール方法が逆転するだけで同様の手順です。）

１．元々入っていたbitでインストール

インストールCDを入れると、Setupを促されるので指示のとおりインストールします。

画像の通り元々入っていたbitなら何事もなくインストールできます。

２．Microsoft公式のOfficeアンインストールツールで完全削除

以下サイトから、Officeアンインストールツールをダウンロードします。
(アンインストールツールの正式名称はMicrosoft サポート／回復アシスタント)

Microsoft Support：PC から Office をアンインストールする

1.ダウンロードボタンを押してダウンロード

2.ダウンロードしたexeファイルをクリックしてインストール

3.インストールできたら、以下のような画面が出るので、Officeを選択

4.「Office～アンインストールできません」を選択

5.進めていき、最後に再起動の画面が出たら、再起動してアンインストール完了

補足

「１．元々入っていたbitでインストール」を飛ばして
「２．Microsoft公式のOfficeアンインストールツールで完全削除」から始めると、
以下のように「Office製品は見つかりませんでした」と出てしまいアンインストールできないのでご注意ください。

３．新しいbitでインストール

インストールCDを入れると、Setupを促されますが一旦キャンセル。
DVDドライブよりCDの中身を見ると、「x64」のフォルダがあるので、そこからインストール。
Microsoft Support：64 ビット版の Office 2010 をインストールする方法

最後に64bitになっていることを確かめてOffice再インストール完了です。

投稿 【対処方法】Error 1706. Microsoft Office Professional Plus 2010 のセットアップ中にエラーが発生しました。 は nyanblog ~にゃんぶろぐ~ に最初に表示されました。