今回は、Excelの機能である「VLOOKUP関数」についてサンプルを交えて紹介します。

みみねこ

VLOOKUP関数はとても便利な機能ですが、使い方を間違えると痛い目を見ます。

是非、基本の使い方から注意事項までご確認ください！

基本的なVLOOKUP関数の使い方

VLOOKUP関数は、①検索対象を②ある場所（範囲）で探し、④存在すれば（もしくは近似値があれば）その行にある③指定列の値を返す関数です。

VLOOKUP関数の引数は以下になります。
⇒VLOOKUP(①,②,③,④)

VLOOKUP関数は、
・複数のシートにまたがっているデータを必要な情報のみ１つのシートにまとめる
・システムからcsv形式で抽出した複数のデータを必要な箇所のみ抜き出し分析する
などなど、使いやすい関数なので知っていて確実に損のない機能です。

この関数は第4引数によって使いどころが異なるので、次項からは分けて説明していきます。

第4引数が「0/FALSE（完全一致）」の場合

検索対象が存在した場合に、値を返します。存在しなければ「#N/Aエラー」を返します。

例：商品販売記録

商品の販売記録を管理する帳簿です。
商品テーブルに商品の情報を入れ、商品販売記録にて販売代金を管理しています。

値段のD5セルに
「=VLOOKUP(C5,$I$5:$K$9,3,FALSE)」を入れ、その後列にコピーしています。

これで、商品名を入れると値段を引っ張ってくることができるようになりました。

例：健康診断の通知

社員リストのデータを元に、健康診断の通知文書を作成します。

・健康診断シート

・通知文書

印刷Noを変えるとそれぞれの値が変わるように、
C3→「=VLOOKUP($G$2,社員リスト!$A:$G,2,FALSE)」
C4→「=VLOOKUP($G$2,社員リスト!$A:$G,3,FALSE)」
C5→「=VLOOKUP($G$2,社員リスト!$A:$G,4,FALSE)」
C9→「=VLOOKUP($G$2,社員リスト!$A:$G,5,FALSE)」
C10→「=VLOOKUP($G$2,社員リスト!$A:$G,6,FALSE)」
と、入れています。

これで、印刷Noを変えるだけで通知対象を変えることができるようになりました。

第4引数が「1/TRUE（近似値）」の場合

検索対象が存在した場合に、近似値を返します。

近似値というのがミソで、
検索範囲内の上から順に見ていって検索対象が見つからなければ、検索対象以下の行をとってくる性質があります。
上から順にみるため、検索する範囲が必ず昇順（小さい順）に並んでいる必要があります。

また、検索対象以下の値が存在しなければ「#N/Aエラー」を返します。

例：成績管理

点数に対してS～Eまでの評価をつけるパターンです。

D3に「=VLOOKUP(C3,$F$3:$I$8,4,TRUE)」と入れて、列にコピペしてます。

これで、点数の値によって自動で評価をつけられるようになりました。

#N/Aエラーの対処方法

検索対象が見つからない等で「#N/A」エラーが出たときの対処方法です。

この対処にはIFERROR関数を使います。
⇒IFERROR(①,②)

例えば、以下のようになります。

=VLOOKUP(C5,$I$5:$K$9,3,FALSE)
↓
=IFERROR(VLOOKUP(C5,$I$5:$K$9,3,FALSE),”※商品テーブルにありません”)

エラー内容が一目でわかるようになりましたね。

注意事項

VLOOKUP関数は、よく知らず使うと必ず痛い目を見ます。
よく注意して使うようにしてください！

第4引数のTRUEとFALSEに注意する

一番気を付けて欲しいのがこちらです。
内容は前述の通りで、動作が全く異なるため注意してください！

第2引数の検索する場所（範囲）は必ず固定しておく

下部のセルへコピペする際に範囲がずれてしまうので、必ず値を$をつけて固定してください。

例えば、以下のように$を付けてください。
（第２引数にカーソルを当ててF4を押すとまとめて$をつけれます）
VLOOKUP(C5,I5:K9,3,FALSE)
↓
VLOOKUP(C5,$I$5:$K$9,3,FALSE)

第4引数は省略しない

第4引数は省略すると、基本的には「1/TRUE（近似値）」になります。

分かっていてやっているのであればまだいいのですが、
前述のとおりFALSEとTRUEでは動きが異なり、TRUEだと近似値をとるので、結果を見ても気づきにくいです。

また、省略の仕方（第4引数の「,」の有無）によってTRUE、FALSEが変化するようで、

VLOOKUP(C5,$I$5:$K$9,3)　→　TRUE（近似値）
VLOOKUP(C5,$I$5:$K$9,3,)　→　FALSE（完全一致）
となります。

なので、TRUEであっても省略しない方が安全かと思います。

第4引数がTRUEの時、検索する範囲が昇順であること

前述の通り、
TRUE（近似値）だと「検索対象以下の値をとる」ため、昇順でないと正しい値が出ません。

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

投稿 【EXCEL】VLOOKUPの使い方（1と0の違い、#N/Aエラー等） は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

CSVファイルをExcelで確認すると文字化けすることはありませんか。
それは文字コードがUTF-8のBOM無しで作成されているからかもしれません。

UTF-8とは文字コードの一種です。
本記事ではUTF-8、UTF-16等のファイルでBOM付き、BOM無しの違い、BOM有無の確認方法、作成方法についてご紹介させていただきます♪

BOM付き、無しの違いについて

まずBOMの話を進める前にUnicodeとUTF-8、UTF-16、UTF-32の話を少しします。

UnicodeとUTF-8、UTF-16、UTF-32とは

ここでは簡単に話をしますが、

Unicodeとは世界中の様々な文字を集めた定義（符号化文字集合）のことです。

UTF-8、UTF-16、UTF-32はUnicodeを符号化して文字コード（符号化方式）が設定された状態です。
要は番号が振られています。この番号の振り方が異なるのでUTF-8、UTF-16、UTF-32があります。

また、UTF-16とUTF-32にはコンピュータの構造によってエンディアン（バイトオーダー）方式が異なります。

BOMとは

BOMの説明に戻りますが、BOMというのはバイトオーダーマーク（byte order mark）といい、ファイルの先頭に付与されます。
※ メモ帳等のテキストエディタで開いて目視で確認することはできません。

このBOMの値を見てUTF-16、UTF-32エンディアンを判定します。

みみねこ

…ん？ということはもしかしてUTF-8にはBOMは必要ない？

UTF-8はエンディアン方式の違いはないので本来BOMは必要ありません。

しかし、アプリ（プログラム）によっては文字コードをUTF-8と判断できず、文字化け等の不具合を起こすことがあります。
※ Microsoftのアプリ（Excel、メモ帳）で多い

また逆にBOM付きを想定されていないアプリ（プログラム）では、不具合を起こす場合があります。
※ Webページの開発で使われるhtmlやPHPではBOM無しでないと動作しない場合がある

そのため、UTF-8ではBOM付き、BOM無しのファイルが存在します。

ファイルのBOM確認方法

ここではBOM有無の確認方法についてご紹介します。

Windowsに標準で入っているメモ帳で確認するのが一番簡単です。

メモ帳での確認方法

ファイルをメモ帳で開いたときに右下に文字コードが表示されます。

ただし、Windowsのバージョンによっては保存することで自動的にBOM付きのファイルで上書き保存してしまうことがあるので注意が必要です。

※ サクラエディタやTeraPadなど他のテキストエディタでも確認できるものもありますので、確認してみてください。

バイナリエディタでの確認方法

正直バイナリエディタで確認する必要はありませんが、どうしても文字コードを見て確認したい場合はバイナリエディタでBOMを確認することができます。

バイナリエディタでファイルを開き、先頭バイトが「EF BB BF」が付いているとBOM付きファイルであることを確認できます。

画像ではフリーソフトの「Stirling」を使っています。

BOM付き、BOM無しのファイルの作成方法

メモ帳での作成方法

メモ帳で「ファイル」→「名前を付けて保存」で画像の画面が表示されるので、画像下部の「エンコード」クリックで

・UTF-8
・UTF-8(BOM付き)

を選ぶことでBOM付き、BOM無しのファイルを作成することができます。

※ サクラエディタやTeraPadなど他のテキストエディタでも作成できるものもありますので、確認してみてください。

補足

先ほど少し出てきましたが、MicrosoftのExcelではBOM無しでは文字化けしてしまいます。

そのため、ファイルをExcelファイルで開いたとき、文字化けが起こっている場合はBOM無しであることを疑ってみてください。
※ ただし半角文字の場合、文字化けを起こさないこともあるので
　文字化けが起こらない ＝ BOM付き とは限らないので注意してください。

※ 別記事でExcelでBOM付きファイルを開く方法をご紹介する予定です。

まとめ

本記事ではUTF-8のファイルについての説明、BOM付き・BOM無しの確認や作成方法をご紹介しました。

アプリによってBOM付き、無しで動く、動かないが異なるので統一されるとファイルが扱いやすくなって良いですね！

投稿 【ファイル】UTF-8のBOM付き、BOM無しの違い・確認・作成について は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

今回は、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 ~にゃんぶろぐ~ に最初に表示されました。

今回は、Accessのクエリのデザインビューで、各フィールド（項目）の幅を一括で拡げる方法を紹介します。

フィールド内容が長くて隠れている際に有用ですよ♪

項目の幅を一括で拡げる方法

例として、こちらのクエリを一括で広げます。
現状は、郵便番号表示用や、お名前の後ろが隠れてしまっています。

１．フィールドをすべてドラッグし、フィールド名の間に（赤枠部分）カーソルを持っていく

２．＋マークが出てきたらダブルクリックする

これで、すべてのフィールドを一括で広げることができました♪

蛇足：フィールド名が複雑な場合は１つ１つズームがおすすめ

前項でフィールド幅を一括で拡げるする方法はお伝えしましたが、
フィールド名が複雑な場合は、フィールドの幅を広げるよりは１つ１つズームがおすすめです。

ズームは、フィールド名で右クリック→「ズーム」で使えます。

このようにズーム画面で全体が表示されます。
もちろん画面上で編集も可能です。

便利なところは、見やすい以外に、
Ctrl＋Enterで改行ができてミスに気付きやすいところです♪

式が複雑な場合はおすすめですよ。

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

投稿 【Access】クエリのデザインビューでフィールド幅を一括で拡げる方法 は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

今回はAccessVBAでDcount関数を使用したときに、
「実行時エラー ‘2471’: クエリ パラメーターとして指定した式でエラー ‘xxx’ が発生しました。」 とエラーコードがでてしまった場合の対処方法を紹介します。

DCount関数の使い方

対処方法を紹介する前に、簡単に使い方を紹介します。

Dcount関数は、
テーブル等（domain）のフィールド（expr）で値があるレコード、かつ条件（criteria）に合致するレコード数を取得します。

例えば、以下の「社員情報」テーブルで「氏名」フィールドをカウントし、
11000以上の社員NOを取得するときは、このように指定します。

・社員情報

・コード

Sub DCount_OK()

    Dim Tmp As Long
    
    Tmp = DCount("氏名", "社員情報", "社員NO > 11000")
    
    Debug.Print Tmp

End Sub

結果は「2」です。

ここで、例では各要素がダブルコーテーション（”）でくくられていることがわかると思いますが、
Dcount関数を記述する際に一癖あるのが、各要素が文字列であることです。

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

私の場合、変数を使って条件を可変にしようとした際にエラーがでました。

前述のDcount関数の使い方にも記述しましたが、
Dcount関数は各要素に文字列を入れる必要があります。

そこで、条件の文字列の中に変数名を入れてしまうと、
「’変数名’という値と比較できないよ！」とエラーが出てしまいます。
なんとなく、「”A > 999″」という書き方ができるため、変数でもいけるのでは？と思ったのが間違いでした。

・コード（誤った例）

Sub DCount_Err()

    Dim Tmp As Long
    
    Dim TestErr As Long
    TestErr = 11000
    
    Tmp = DCount("氏名", "社員情報", "社員NO > TestErr")
    
    Debug.Print Tmp

End Sub

・エラーメッセージ

対処方法

対処方法ですが、
以下のように変数部分を文字列と「＆」で結合させると正しく出力されます。

Sub DCount_Err()

    Dim Tmp As Long
    
    Dim TestErr As Long
    TestErr = 11000
    
    Tmp = DCount("氏名", "社員情報", "社員NO > " & TestErr)
    
    Debug.Print Tmp

End Sub

これで、繰り返し処理などで可変の値が入っても対応することができます。

投稿 【Access】Dcount「クエリ パラメーターとして指定した式でエラー ‘xxx’ が発生しました。」対処方法 は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

今回は、Accessで「すべてのアクセスオブジェクト （ナビゲーションウィンドウ）」を非表示にする方法を紹介します♪

本設定で、全てのオブジェクト（テーブル・クエリ・フォーム・レポート・マクロ・モジュール）を隠すことができます。

非表示方法１（オプション変更）

「すべてのアクセスオブジェクト （ナビゲーションウィンドウ）」を非表示にすることで、
Access利用者に触らせたくない・見せたくないオブジェクトを隠すことができるようになります。

手順としては以下となります。

１ ．ファイルタブ→オプション→カレントデータベース→「ナビゲーション ウィンドウを表示する」のチェックを外す

２．OKを押すとAccessの再起動を求められるので、指示通り開きなおす

これだけで以下のように、「すべてのアクセスオブジェクト （ナビゲーションウィンドウ）」を非表示にすることができます。

表示方法１ー１（オプション変更）

逆に「すべてのアクセスオブジェクト （ナビゲーションウィンドウ）」が非表示になっていた場合の表示方法を紹介します。

まず、先ほどの逆設定をする方法です。

１ ．ファイルタブ→オプション→カレントデータベース→「ナビゲーション ウィンドウを表示する」のチェックを入れる

２．OKを押すとAccessの再起動を求められるので、指示通り開きなおす

以上です。

表示方法１－２（Shift押下）

オプションを変えずに開く方法もあります。

１．「Shift」を押しながら、Accessファイルをダブルクリックして開く。

これで 「すべてのアクセスオブジェクト （ナビゲーションウィンドウ）」 が表示した状態で開けます。

番外編：非表示方法（Access Runtime（ランタイム版）使用）

次に、Access利用者にAccess Runtime（ランタイム版）を使ってもらう方法があります。

Access Runtime（ランタイム版）は無償のAccessで、有償版とは違い
そもそも「すべてのアクセスオブジェクト （ナビゲーションウィンドウ）」を見る機能が搭載されていません。

Download Microsoft Access 2016 Runtime from Official Microsoft Download Center

Microsoft Access 2016 Runtime を使用すると、コンピュータに Access 2016 を完全インストールしていないユーザーに対しても、Access 2016 アプリケーションを配布することができます。

www.microsoft.com

「すべてのアクセスオブジェクト （ナビゲーションウィンドウ）」を見る機能がないだけで、
Accessファイル自体は普通に使用できるので、
無償で対応できるAccess Runtime（ランタイム版）もおすすめです。

今回の記事は以上です。

また、オブジェクト単位の隠しオブジェクト機能を使った非表示設定については
こちらで紹介していますので良かったらどうぞ！

【Access】非表示のテーブル等を表示する【隠しオブジェクト】

Accessで隠しオブジェクトとなっている非表示のオブジェクト（テーブル・クエリ・フォーム・レポート・マクロ・モジュール）を表示する方法について紹介します♪

nyanblog2222.com

2021.11.06

何かの参考になれば幸いです。それでは♪

投稿 【Access】すべてのアクセスオブジェクトを非表示（ナビゲーションウィンドウ非表示） は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

今回は、Accessで隠しオブジェクトとなっている非表示のオブジェクト
（テーブル・クエリ・フォーム・レポート・マクロ・モジュール）を表示する方法を紹介します。

以下のように、存在するはずのオブジェクトが非表示になっている状態を表示させます♪

オブジェクトの非表示設定

まず、どうやってテーブルなどを非表示にしているかですが、
オブジェクトに、隠しオブジェクトという属性を付与することによって非表示にしています。

手順としては以下となります。

１．オブジェクトを右クリックし、テーブルプロパティ→隠しオブジェクトのチェックを入れる

↓

これで、このように非表示になります。

非表示にすることで、Access利用者に触らせたくない・見せたくないオブジェクトを隠すことができるようになります。

オブジェクトの表示設定

それでは本題の表示方法です。

１．ファイルタブ→オプション→カレントデータベース→ナビゲーションオプション

２．隠しオブジェクトの表示のチェックに入れる→OK

これで、以下のように薄っすらとオブジェクトが表示されるようになります。
中身の確認だけしたい場合は、これだけでもOKです。

４．薄っすらと表示されるオブジェクトを右クリックし、テーブルプロパティ→隠しオブジェクトのチェックを外す

↓

これで隠しオブジェクトではなくなり、通常通り表示されます。

今回の記事は以上です。

また、「すべてのアクセスオブジェクト （ナビゲーションウィンドウ）」自体の非表示設定については
こちらで紹介していますので良かったらどうぞ！

【Access】すべてのアクセスオブジェクトを非表示（ナビゲーションウィンドウ非表示）

今回は、Accessで「すべてのアクセスオブジェクト （ナビゲーションウィンドウ）」を非表示にする方法を紹介します♪ 本設定で、全てのオブジェクト（テーブル・クエリ・フォーム・レポート・マクロ・モジュール）を隠すことができます。 非表示方法...

nyanblog2222.com

2021.11.06

何かの参考になれば幸いです。それでは♪

投稿 【Access】非表示のテーブル等を表示する【隠しオブジェクト】 は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

今回は、テーブルやクエリを結合するユニオンクエリの使い方を紹介します。

SQLが苦手な方は、
「小技）SQLが分からなくても大丈夫！ミスなく簡単にユニオンクエリを作成する方法」
も合わせてご覧になってください。

ユニオンクエリとは

ユニオンクエリは、テーブルやクエリを結合することができるクエリです。
それ以上でもそれ以下でもありませんが、 使えると非常に便利なクエリです。

例えば、実際の業務では
AというテーブルとBというテーブルがあった際に、
途中の処理は違うけど最終的に同じデータの構造にして結合させるとき等に使ったりします。

テーブルの結合自体は追加クエリ等でも実現できますが、
新しくテーブルを作る、もしくは結合元のテーブルに追加して更新してしまう必要があったりと
テーブルを結合させるだけならユニオンクエリがスマートかと思います。

基本の使い方（UNION）

ユニオン画面の開き方

クエリデザイン→ユニオンで、ユニオン画面が開けますので、
そこにコードを入れることで使用できます。

１．クエリデザインをクリックし、デザインビューを開く

２．ユニオンをクリック

３．コード画面が開くので、記述して保存したら使用できるようになる

２つのテーブルを結合

基本的にユニオンクエリでは、
SELECT句で繋げたいテーブルを呼び出し、UNIONで結合させます。

例えば、テーブル1・2を結合させる場合は以下のように記述します。

SELECT * FROM テーブル1
UNION SELECT * FROM テーブル2;

◆実際のデータ例

・結合データ

・ ユニオンクエリ出力結果

このように結合されます。
重複している 社員NO「100001」 は1件になって出力されます。
重複も出したい場合については後述します。

３つ以上のテーブルを結合

単純にUNIONを追加していくだけで、3つ以上結合することもできます。

SELECT * FROM テーブル1
UNION SELECT * FROM テーブル2
UNION SELECT * FROM テーブル3;

◆実際のデータ例

・結合データ

・ユニオンクエリ出力結果

基本＋α

重複レコードの扱い（UNIONとUNION ALL）

先ほどUNIONでは重複レコードは除去されるとお伝えしましたが、
逆に重複レコードも表示したい場合は、UNION ALLを使います。

使い方は、UNIONをUNION ALLに置き換えるだけです。

SELECT * FROM テーブル1
UNION ALL SELECT * FROM テーブル2;

◆実際のデータ例

・結合データ

・ユニオンクエリ出力結果

絞り込み（Where）

ユニオンクエリは、通常の選択クエリと同様に絞り込みができます。
注意点として、絞り込む際はそれぞれのSELECT～に対してWhere句をつけることです。

★OK例（それぞれにWhere句）
　例えば、テーブル1から社員NO「100001」、テーブル2から社員NO「200001」を抜き出し結合する場合

SELECT * FROM テーブル1
where 社員NO = 100001
UNION SELECT * FROM テーブル2
where 社員NO = 200001;

◆実際のデータ例

・結合データ

・ユニオンクエリ出力結果

★NG例（最後にWhere句）
　例えば、本当は社員NO「100001」「200001」だけを抜き出したい場合

SELECT * FROM テーブル1
UNION SELECT * FROM テーブル2
where 社員NO = 100001 OR 社員NO = 200001;

◆実際のデータ例

・結合データ

・ユニオンクエリ出力結果

この場合、Where句はテーブル2に適用されるため、テーブル1は全て出力されます。

並び替え（ORDER BY）

ユニオンクエリは、通常の選択クエリと同様に並び替えができます。
注意点として、Where句とは異なり最後にORDER BY句をつけて全体を並び替えることです。
（途中につけてもエラーにはなりませんが並び替えされません）

SELECT * FROM テーブル1
UNION SELECT * FROM テーブル2
ORDER BY 生年月日

◆実際のデータ例

・結合データ

・ユニオンクエリ出力結果

注意：結合するテーブルのフィールドが異なったらどうなるか

問題なく実行できる場合もありますが、基本的には合わせるのが無難です。

データ型が異なる場合

項目のデータ型が異なっている場合でも、テキスト型として結合されます。

例えば、テーブル1のある項目が日付型、テーブル2のある項目がテキスト型だった場合

SELECT * FROM テーブル1
UNION SELECT * FROM テーブル2;

◆実際のデータ例

・結合データ

・ユニオンクエリ出力結果

異なるフィールド（データ型が異なる）

項目数が異なる場合

項目数が異なる場合はエラーがでます。

SELECT * FROM テーブル1
UNION SELECT * FROM テーブル2;

◆実際のデータ例

・結合データ

・ユニオンクエリ出力結果

「ユニオン クエリで選択した 2つのテーブルまたはクエリの列数が一致しません。」

項目名が異なる場合

ユニオンクエリは項目名を見ていないため、問題なく処理できます。

SELECT * FROM テーブル1
UNION SELECT * FROM テーブル2;

◆実際のデータ例

・結合データ

・ユニオンクエリ出力結果

小技）SQLが分からなくても大丈夫！ミスなく簡単にユニオンクエリを使う方法

ここまで読んで、SQLを学んだことがない方は、

Accessの知識だけで出来ないのはややこしいな……。ユニオンクエリって難しいな……

と思う方もいらっしゃるかもしれません。
確かに基本レベルのテーブル結合ならともかく、Where句等を使った少し難しいユニオンクエリをやろうとするとSQLの基本知識が必要です。

ただ、次に紹介する方法であれば特にSQLの知識がなくとも使うことができます。

具体的には以下のように作成します。

１．クエリを作成してSQLビューで開き、メモ帳にコピー（;は削除）

↓SQLビューで開く

↓

SELECT [テーブル1].ID, [テーブル1].社員NO, [テーブル1].氏名, [テーブル1].生年月日, [テーブル1].所属
FROM テーブル1
WHERE ((([テーブル1].社員NO)=100002));

↓「;」を削除し、メモ帳にコピー

SELECT [テーブル1].ID, [テーブル1].社員NO, [テーブル1].氏名, [テーブル1].生年月日, [テーブル1].所属
FROM テーブル1
WHERE ((([テーブル1].社員NO)=100002))

２．改行してUNION　or UNION ALLを入れる

SELECT [テーブル1].ID, [テーブル1].社員NO, [テーブル1].氏名, [テーブル1].生年月日, [テーブル1].所属
FROM テーブル1
WHERE ((([テーブル1].社員NO)=100002))
UNION

３．クエリを作成してSQLビューで開き、メモ帳にコピー（必要であれば並び替えをする）

↓

SELECT [テーブル2].ID, [テーブル2].社員NO, [テーブル2].氏名, [テーブル2].生年月日, [テーブル2].所属
FROM テーブル2
ORDER BY [テーブル2].生年月日;

↓

SELECT [テーブル1].ID, [テーブル1].社員NO, [テーブル1].氏名, [テーブル1].生年月日, [テーブル1].所属
FROM テーブル1
WHERE ((([テーブル1].社員NO)=100002))
UNION
SELECT [テーブル2].ID, [テーブル2].社員NO, [テーブル2].氏名, [テーブル2].生年月日, [テーブル2].所属
FROM テーブル2
ORDER BY [テーブル2].生年月日;

４．並び替えをする場合は、ORDER BY句の前にあるテーブル名を消す

前述の通り、並び替え（ORDER BY）だけは「最後に１つだけ」というルールがあるため全体にORDER BYがかかるように前のテーブル名は削除します。

SELECT [テーブル1].ID, [テーブル1].社員NO, [テーブル1].氏名, [テーブル1].生年月日, [テーブル1].所属
FROM テーブル1
WHERE ((([テーブル1].社員NO)=100002))
UNION
SELECT [テーブル2].ID, [テーブル2].社員NO, [テーブル2].氏名, [テーブル2].生年月日, [テーブル2].所属
FROM テーブル2
ORDER BY 生年月日;

５．メモ帳からユニオンクエリ上にコピーして完成

出来上がりです。

◆実際のデータ例

・結合データ

・ ユニオンクエリ出力結果

これなら、SQLが分からなくても難なくできるかと思います♪

投稿 【Access】ユニオンクエリで結合テーブル作成【UNION】 は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

今回は、Accessのクエリ等を実行した際に、
「式に未定義関数 ‘xxx’ があります。」とエラーメッセージが出て処理できない場合があります。
このエラーには原因が複数パターン想定されるため、それぞれの対処方法を紹介します。

エラー原因

原因は複数パターンありますが、ざっくり言うと
システムがモジュール内に関数内で使用していないのに使っていると判断しているためです。

以下の通り、うっかりミスからややこしいものもあるため
対処するには一つ一つ順に見ていきましょう。
（上から順に可能性の高いパターンです）

対処方法

以下の正常な状態を一部変更し、エラーパターンを作成していきます。

クエリでの関数呼び出し：「挨拶: CallHello()」

モジュール名：「こんにちは」
関数名：「CallHello()」

Function CallHello() As String

CallHello = "Hello World"

End Function

関数を定義していない、又は誤った関数名を使用している場合

勘違いで呼び出す関数を定義していない、又は誤った関数名を使用している場合、
呼び出すことができずエラーになります。

例えば、
Function CallHello() As String　と宣言しているのに、
CallHallo()で呼び出している場合等

調べるには、一度クエリから呼び出している関数名で、Visual Basic画面にて
プロジェクト内のコード内を検索（ショートカットキー：「Ctrl+F」）してみましょう。
もしなければ、誤っていますのでクエリを変更してください。

関数名とモジュール名が同じ場合

関数名とモジュール名が同じ場合、システム上名称が被ってしまいエラーとなります。

例えば、
Function CallHello() As String　と宣言しており、
モジュール名もCallHelloになっている場合等

この場合、関数名又はモジュール名を変更してください。

ライブラリが参照不可になっている場合

ライブラリが参照不可になっており、
ライブラリ内の関数を使用していた場合、エラーとなります。
パソコンの交換やOS・Officeのバージョンアップでエラーが上がるようになった場合は、
このケースの可能性があります。

この場合、Visual Basic画面にてツールタブから参照設定を開き、参照不可がある場合は、
参照をあらためて追加するか、関数を自前で作成する等やり方を変える必要があります。

関数の宣言でPrivateを使っている場合

関数の宣言でPrivateを使っている場合、
モジュール内からしか呼び出すことができないため、エラーとなります。

Privateはアクセス修飾子と呼ばれ、他にPublic等があります。
以下の通りアクセス修飾子によって参照できる範囲（スコープ）が限られており、
・Private Function：モジュール内のみ参照可
・Public Function：モジュール外から参照可
・Function：暗黙的にPublicとなるため、モジュール外から参照可
となります。

なので、例えば、
Private Function CallHello() As String　と宣言している場合は、
Function CallHello() As String 又は
Public Function CallHello() As String
に変更する必要があります。

関数名に２バイト文字が使用されている場合

関数名に日本語等の２バイト文字が使用されている場合、
VBA上はコンパイルできても対応してはいないので、クエリから呼び出すとエラーとなります。

なので、例えば、
Function 挨拶する() As String　と宣言している場合は、
Function CallHello() As String
に変更する必要があります。
（クエリからの呼び出し側も同様に、CallHello()へ変更）

モジュールが破損している場合

モジュールが破損している場合、呼び出せずエラーとなります。

この場合は、新しくモジュールを作成し、ソースコードをコピーして作り直す必要があります。

投稿 【Access】式に未定義関数 ‘xxx’ があります。[原因,対処方法] は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

今回は、Access Runtime（ランタイム版）実行時の
「セキュリティに影響を及ぼす可能性のある問題点が検知されました。」
警告メッセージを非表示にする設定について紹介します。

なぜ警告が表示されるか

警告メッセージに、
「警告：このコンテンツの発行元が信頼できるかどうかを確認することはできません。このコンテンツが重要な機能を備えており、発行元が信頼できる場合を除き、このコンテンツは無効のままにしてください。」
と、書いてあるとおり、発行元が信頼できるかどうかを確認できないためです。

この警告はメッセージこそ違えど、以下のように有償のAccessにも同じように出てきます。

対処方法は、有償・無償共通で以下２つあります。
１．信頼できる場所に追加する
２．すべてのマクロを有効にする

ただ、有償のAccessの場合はセキュリティ設定を変更することで対処できますが、
（ファイル→オプション→セキュリティセンター→セキュリティセンターの設定で、
「信頼できる場所」「マクロの設定」が変更できます。）
無償のAccess Runtime（ランタイム版）は設定変更の機能を持ち合わせていません。

よって、対処方法を実施するためにはレジストリを変更する必要があります。

対処方法

以下のどちらかの箇所のレジストリを変更することです。
１．信頼できる場所に追加する
２．すべてのマクロを有効にする

レジストリ変更方法は
・レジストリエディターで変更する方法
・コマンドプロンプト（BAT）で変更する方法
があります。

両方紹介しますが、コピペするだけででき、見当違いの場所を変更してしまうなどミスも減ること、
複数台のパソコンに反映できること等考慮すると、
コマンドプロンプト（BAT）で変更する方法がおすすめです。

信頼できる場所に追加する

レジストリエディターで変更する方法

まずレジストリエディターを開きます。
「Windowsマーク」キーと「R」キーを同時押し→ファイル名を指定して実行の画面が出たら、
「regedit」と入力してエンターを押すと開くことができます。

その後、以下の階層に移動し、
「コンピューター\HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\XX.0\Access\Security\Trusted Locations」
左側の枠内の「Trusted Locations」を右クリック→新規→キー
→名前を「Location10（既定のLocation2以外の数値で設定）」に変更
→右側の枠内で右クリック→新規→文字列値→名前を「Path」
→「Path」をダブルクリック→値を普段使用するAccessファイルの入ったフォルダパスに変更
→右側の枠内でクリック→新規→DWORD値→名前を「AllowSubfolders」
→「AllowSubfolders」をダブルクリック→値を「1」に変更

これで設定完了です。
上記の階層はAccessのバージョンによって異なり、以下の通りです。

・Access 2016 Runtime
「コンピューター\HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\16.0\Access\Security\Trusted Locations」

・Access 2013 Runtime
「コンピューター\HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\15.0\Access\Security\Trusted Locations」

・Access 2010 Runtime
「コンピューター\HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\14.0\Access\Security\Trusted Locations」

コマンドプロンプト（BAT）で変更する方法

以下をAccess Runtimeのバージョンに合わせて、
管理者権限を持つユーザーにてコマンドプロンプトから実行してください。

「Windowsマーク」キーと「R」キーを同時押し→ファイル名を指定して実行の画面が出たら、
「cmd」と入力してエンターを押すと開くことができます。

BATで利用する場合、以下で紹介するコマンドをメモ帳へコピーして保存し、
最後に拡張子を「txt」から「bat」にしてから実行（クリック）してください。

・Access 2016 Runtime

REG ADD "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\16.0\Access\Security\Trusted Locations\Location10" /v AllowSubfolders /t "REG_DWORD" /d "1" /f
REG ADD "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\16.0\Access\Security\Trusted Locations\Location10" /v Path /t "REG_SZ" /d "C:\信頼済みフォルダ" /f

・Access 2013 Runtime

REG ADD "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\15.0\Access\Security\Trusted Locations\Location10" /v AllowSubfolders /t "REG_DWORD" /d "1" /f
REG ADD "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\15.0\Access\Security\Trusted Locations\Location10" /v Path /t "REG_SZ" /d "C:\信頼済みフォルダ" /f

・Access 2010 Runtime

REG ADD "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\14.0\Access\Security\Trusted Locations\Location10" /v AllowSubfolders /t "REG_DWORD" /d "1" /f
REG ADD "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\14.0\Access\Security\Trusted Locations\Location10" /v Path /t "REG_SZ" /d "C:\信頼済みフォルダ" /f

すべてのマクロを有効にする

レジストリエディターで変更する方法

まずレジストリエディターを開きます。
「Windowsマーク」キーと「R」キーを同時押し→ファイル名を指定して実行の画面が出たら、
「regedit」と入力してエンターを押すと開くことができます。

その後、以下の階層に移動し、
「コンピューター\HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\XX.0\Access\Security」
右側の枠内でクリック→新規→DWORD値→名前を「VBAWarnings」
→「VBAWarnings」をダブルクリック→値を「1」に変更

これで設定完了です。
上記の階層はAccessのバージョンによって異なり、以下の通りです。

・Access 2016 Runtime
「コンピューター\HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\16.0\Access\Security」

・Access 2013 Runtime
「コンピューター\HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\15.0\Access\Security」

・Access 2010 Runtime
「コンピューター\HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\14.0\Access\Security」

コマンドプロンプト（BAT）で変更する方法

以下をAccess Runtimeのバージョンに合わせて、
管理者権限を持つユーザーにてコマンドプロンプトから実行してください。

「Windowsマーク」キーと「R」キーを同時押し→ファイル名を指定して実行の画面が出たら、
「cmd」と入力してエンターを押すと開くことができます。

BATで利用する場合、以下で紹介するコマンドをメモ帳へコピーして保存し、
最後に拡張子を「txt」から「bat」にしてから実行（クリック）してください。

・Access 2016 Runtime

REG ADD "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\16.0\Access\Security" /v VBAWarnings /t "REG_DWORD" /d "1" /f

・Access 2013 Runtime

REG ADD "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\15.0\Access\Security" /v VBAWarnings /t "REG_DWORD" /d "1" /f

・Access 2010 Runtime

REG ADD "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\14.0\Access\Security" /v VBAWarnings /t "REG_DWORD" /d "1" /f

どちらの対処方法がいいか

１．信頼できる場所に追加する
２．すべてのマクロを有効にする

の設定方法について紹介しましたが、どちらの方法を選べばいいかですが、
セキュリティの観点だと「信頼できる場所に追加する」、
運用の観点だと「すべてのマクロを有効にする」です。
（ただ個人的には大差ないので、完全に好みかなと個人的には思ってます……）

「信頼できる場所に追加する」を選ぶメリット

利用者の限定されるAccessなので、悪質なマクロ付きファイル自体多くないかもしれません。
ただ、「信頼できる場所に追加する」であれば最低限のセキュリティを担保することができます。
例えば、普段使用するAccessファイルの入ったフォルダ（ファイルサーバー）を信頼済みに設定しておくことで、
それ以外で使用するファイル（例えばメールで送られてきたファイル）のみ警告で注意喚起することができます。

「すべてのマクロを有効にする」を選ぶメリット

「すべてのマクロを有効にする」だとマクロは何でも有効になるので、
どこでAccessファイルを動かしても警告がでることはありません。
なので、組織内でどこのフォルダにAccessを作る等ルールを作る必要はありませんし、
例えば社内の情報部門であった場合、社員から警告についての問い合わせを全く受けることがありません。
もしレジストリエディタで設定する場合は、手順も簡単です。

投稿 【Access Runtime】セキュリティ警告’非表示’設定[ランタイム] は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

今回はAccessのクエリやマクロを使用した際に、
「メモリ不足です。」 と突然エラーコードがでてしまった場合の対処方法を紹介します。

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

エラーメッセージが「メモリ」とあるのでパソコンのメモリと勘違いしやすいですが、
原因はクエリやマクロを使用した際に、Accessファイルが2GBを超えてしまうためです。

Accessはファイル全体で最大2GBという制限があります。
私の場合、大規模データを扱うAccessの改修中、
突然「メモリ不足です。」と出て、 以下の対処をすることで解決できました。

＜効果のあったこと＞
・Accessファイルの最適化

＜効果のなかったこと＞
・メモリを8GBから16GBに増設
・仮想メモリを付与
・MaxLocksPerFileというトランザクション処理の最大値を変更
・パソコン再起動
・Accessファイルの修復　等

対処方法

今回のエラーの原因が、Accessファイルが2GBを超過することにあるため、
対処方法は以下のファイルサイズ対策になります。

• Accessファイルの最適化（おすすめ！）
  （手動・自動による最適化）
  Accessファイルを最適化することで、不要な領域を整理する
  メリット：簡単で、今まで通り利用できる
  デメリット：最適化しても容量が2GBを超える場合対応できない
• Accessファイルの分割
  Accessファイルのデータを別のAccessファイルに作り、リンクテーブルで連携する。
  例）AccessAはAテーブル、AccessBはBテーブル。AccessAからBのリンクテーブルを貼る
  メリット：すべてのテーブル容量の合計が2GBを超過しても使用できる
  デメリット：個々のテーブル容量が2GBを超過すると使えない
• DB構築
  SQLServerやPostgresなどDBを構築し、 データはDBからリンクテーブルで利用、編集や更新等はAccessで行う
  メリット：テーブルの容量が2GBを超過しても使用できる
  デメリット：DB構築は少しハードルが高い

ただ、「メモリ不足です。」エラーが出る場合、単純に最適化ができていないことが多いため、 次項からはAccessファイルの最適化だけに絞って説明します。

Accessファイルの最適化（手動）

手動で最適化する方法です。
最適化は数分程度かかることもあるため、ユーザーの都合のいいときに最適化できます。
デメリットは意識的に行わないとならないことです。

方法は、「ファイル」→「情報」から、「データベースの最適化／修復」を選択するだけです。

押すと、最適化が開始され、右下にメッセージが現れます。

Accessファイルの最適化（自動）

自動で最適化する方法です。
Accessファイルを閉じる際に、毎回最適化されるのでユーザーは意識せず最適化できます。
デメリットとしては、毎回最適化に時間がかかることや、
複数ユーザーで頻繁に使用すると破損するリスクがあるため、あまり使用しない方がいいという意見もあります。

方法は、「ファイル」→「Accessのオプション」から、「閉じるときに最適化する」を選択するだけです。

備考：「メモリ不足です。」エラーを再現するには

まず、以下のコードを実行して、2GB弱のデータを作ります。
（コード自体は2GB以上作ろうとするので、処理の途中でAccessが固まる or エラーになります）
コードは、「Microsoft Docs：Access テーブルで操作を実行すると、”ディスク領域またはメモリが足りない” というエラーが発生する」を参考にしています。

Sub CreateBigTable()
　　Dim db As Database, rs As Recordset
　　Dim iCounter As Long, strChar As String
　　Set db = CurrentDb
　　db.Execute "CREATE TABLE BigTable (ID LONG, Field1 TEXT(255), " & _
　　　　"Field2 TEXT(255), Field3 TEXT(255), Field4 TEXT(255))", _
　　　　dbFailOnError
　　Set rs = db.OpenRecordset("BigTable", dbOpenDynaset)
　　iCounter = 0
　　strChar = String(255, " ")
　　While iCounter <= 100000000
　　　　rs.AddNew
　　　　rs!ID = iCounter
　　　　rs!Field1 = strChar
　　　　rs!Field2 = strChar
　　　　rs!Field3 = strChar
　　　　rs!Field4 = strChar
　　　　rs.Update
　　　　iCounter = iCounter + 1
　　Wend
　　MsgBox "Done!"
End Sub

次に、できたテーブルを使用してクエリを作成し、動作させると 「メモリ不足です。」のエラーが再現できます。

投稿 【Access】メモリ不足です。【対処方法・原因】 は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

AccessのクエリやVBA、SQLでよく使うデータ型変換関数をまとめました。

◇よく使うデータ型変換とは？
Googleで頻繁に検索されているものを主に紹介。
・文字列⇔数値
・文字列⇔日付型
・メモ型→文字列（テキスト型）
・数値→通貨型
その中でもあまり使わないものの説明は省略しています。

※許容範囲の大きい型から小さい型への変換は注意してください！
　エラーなく桁落ちするのでバグと認識しにくいです。

よく使うデータ型変換と使用例

文字列⇔数値

・文字列→数値（整数型）

CInt([項目名])

変換例

・文字列→数値（長整数型）

CLng([項目名])

変換例

・文字列→数値（倍精度浮動小数点型）

CDbl([項目名])

変換例

 参考：文字列→数値においてValやCSng、CDecを使わない理由

・Val
文字列から数値への変換といえば、Val関数もありますが、
文字列に「，」や「￥」、全角文字が含まれると対応できない（値が0になる）ため、あまりおすすめできません。
汎用性を考えるとCDbl([項目名])がおすすめです。

・CSng
単精度浮動小数点型は演算誤差が発生しやすくおすすめできません。
そもそもややこしい分野なのであまり理解せず使用するには危険かと思います。 

・CDec
Access クエリではサポートされていません。

・数値→文字列

CStr([項目名])

変換例

↓　文字列変換

・変換値にNullが含まれる場合

変換元の項目に値が何もない（Null）場合がありますが、
変換関数で出力される値は殆どの場合「#エラー」となってしまいます。
そのため、Nullが想定される場合はNullを指定の値に置換するNz関数を利用します。

Nz([項目名], 置換値）

例）CDbl(Nz([項目名],0))、CStr(Nz([項目名],0))
　　変換前にNullが0に置換されるので、エラーとなりません。

文字列⇔日付型

・文字列→日付型

基本、日付型への変換はCDateを使用しますが、
文字列がどのような形式かでやり方が異なります。

・「YYYY/MM/DD」「YYYY年MM月DD日」「gg年MM月DD日」形式の場合

CDate([項目名])

変換例
「#エラー」となっている箇所については、次項から説明します。

・「YYYYMMDD」形式の場合

CDate(Format([項目名],"@@@@\/@@\/@@"))

または、

DateSerial(Mid([項目名],1,4),Mid([項目名],5,2),Mid([項目名],7,2))

どちらの関数を使っても結果は特に変わらないため好みだと思いますが、
個人的には見やすく、ミスも少なそうなのでFormatを使用するのがおすすめです。

変換例

・「YYYY.MM.DD」形式の場合

CDate(Replace([項目名],".","/"))

変換例

・文字列がNullの場合

IIf(IsNull([項目名]),Null,CDate([項目名]))

NullであればNullを返すので、エラーとなりません。

・日付型→文字列型

CStr([項目名])

変換例

メモ型→文字列（テキスト型）

変換関数はありません。

変換不要で、
・メモ型→文字列
に値の代入（更新）ができます。

数値→通貨型

CCur([項目名])

変換例

参考：データ型変換関数一覧（Microsoft公式サイトより）

データ変換関数は主に以下のような「C」から始まるものがあります。
これらの他にも変換関数はありますが、これだけ知っていたら十分かと思われます。

Microsoft：データ型変換関数より引用

投稿 【Access】データ型変換まとめ【文字列・数値・日付など】 は 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 ~にゃんぶろぐ~ に最初に表示されました。

Accessファイルの拡張子である「mdb」と「accdb」の違いや「accdb」への変換方法、
変換した場合のメリット・デメリット（不具合）等について紹介します。

「mdb」から「accdb」へ変換した際のメリット・デメリット（不具合）については、
主に以下の公式情報に沿って記述しています。
・Microsoft サポート：使用が推奨される Access ファイル形式

mdbとaccdbとは

「mdb」と「accdb」はAccessファイルの拡張子で、
Access2007より前は「mdb」、Access2007以降は「accdb」となりました。

以下の表の通り同じ「mdb」の中でも、世代によって若干異なり、
Access 97 データベースにいたっては、
Access 2013以降で、開いたり新しいデータベースへ変換したりできなくなりました。

機能面について詳しくは「accdb」へ変換するメリット・デメリットで説明しますが、
「accdb」にはいくつか便利な機能が追加されていますが、
根本的な部分は「mdb」と大差ありません。

ただ、Access 97 データベースの例もあるため
今後はAccess 2000 データベース以降の「mdb」についても使用できなくなる可能性が高く、
できれば早急にaccdb変換した方がいいかと思います。

mdbからaccdbへの変換方法

「mdb」から「accdb」への変換は簡単です。

mdbファイルを開き、
「ファイル」→「保存して発行」→「データベースに名前を付けて保存」→「Accessデータベース（*.accdb）」→「名前を付けて保存」
で保存のダイアログが出るので、元と同じ名前で保存すれば「accdb」への変換完了です。

変換するメリット

複数値を持つフィールドが使用可能

コンボボックスに「複数の値を許可」が新設されました。

設定方法は以下です。
（フィールドを追加する際に、データ型でルックアップウィザードから設定する方法もあります）
１．コンボボックスで選択したい値を、「値集合ソース」にセット
２．「複数の値を許可」にチェックを入れる。

設定すると、このような形でフィールドに複数の値を入れることができるようになります。

また、以下のクエリで複数の値が入ったテーブルを抽出すると、複数レコードにわたって値が抽出されます。

↓

添付ファイル データ型が使用可能

添付ファイル（最大2GB）を格納できるデータ型が新設されました。

↓

今までもハイパーリンク型でファイルのリンクを貼ることはできましたが、
取り込むことができるようになったおかげで、
例えば以下のようにフォーム上に画像を簡単に表示できるようになりました。

SharePointとOutlookとの連携強化（セキュリティ要件のクリア）

今回セキュリティ面が見直され、SharePointとOutlookのセキュリティ要件がクリアされました。

Access2007からは、
「accdb」と「mdb」のどちらからでもSharePointとOutlookへの連携は可能ですが、
「mdb」の場合、安全でないコードをデータベースに含めることができるらしく、
SharePointとOutlookからブロックされてしまう、ということがありました。

暗号化の強化

以前のバージョンでは赤枠に「ユーザーと権限の管理」というボタンが設置してありましたが、
「パスワードを使用して暗号化」に変わりました。
今回の暗号化は、以前のバージョンのAccess（mdb）よりも強力な暗号化アルゴリズムが使用されているそうです。

長いテキスト (メモ型) フィールド履歴の管理

メモ型フィールドに変更履歴を追加できるようになりました。

設定は「追加のみ」を「はい」にするだけです。

↓

履歴は以下のように保存されます。

集計フィールドが使用可能（Access2010以降）

テーブルのデータ型に集計フィールドが追加されました。
集計フィールドを使うことで、クエリを使わずテーブルのみで計算できます。

データ型を選択すると、式ビルダーが表示されるので、
式のカテゴリ（テーブルの項目）を選択しながら設定します。

↓

変換するデメリット（不具合）

Access2007より古いバージョンで「accdb」を開けない

「accdb」はAccess2007より前のバージョンでは開くことができません。
なので、組織にAccess2002やAccess2003が未だ存在するのであれば、買い替えるまでは変換しない方がよいでしょう。

データベースのレプリケーションが使用不可

レプリケーションとはAccessファイルのレプリカを作成する手法（レプリケート）ですが、
「accdb」では機能がなくなりました。

Accessファイルのレプリカとは

Accessファイルを非共有で使用する場合のミラーリング（同期）手段です。
一般的に組織でAccessファイルを使う場合は、共有フォルダを利用し、同じAcceessファイルを使用します。
ただ、例えば外出する際に端末を持ち運び、Accessファイルについても外出先で更新する時等、
普通にAccessファイルをコピーしてしまうと持ち帰ったときにデータの同期が困難です。
その際に、元のAccessファイル（デザインマスタ）のレプリカを作成し、外出する際はレプリカを持ち運び、
外出先から持ち帰った際はレプリカをデザインマスタに同期することで、
レコードの更新等を反映させることができます。

Access2013以降からは一切使用できない

レプリケートされたデータベースは、Access2013以降からは以下のエラーで「mdb」であっても使用できません。
「現在のバージョンのMicrosoft Accessでは、レプリケートされたデータベースはサポートされていません。
このデータベースを使用するには、以前のバージョンのMicrosoft Accessで開いてください」

レプリケートされているmdbをaccdbに変換するには

Access2010以前のバージョンで、レプリケートされたmdbのデータを空のmdbにインポートして、
accdb変換します。
データベースのインポートについては以下で触れてますので参考にしてください。

【対処方法】Microsoft AccessがOLEサーバーまたはActiveXコントロールと通信しているときにエラーが発生しました

「Microsoft AccessがOLEサーバーまたはActiveXコントロールと通信しているときにエラーが発生しました」のエラー対処方法の解決例を紹介します。

nyanblog2222.com

2020.10.31

ユーザー レベル セキュリティ（ユーザーと権限の管理）が使用不可

ユーザーレベルセキュリティとは、ユーザやグループ単位で各種操作への権限を付与する機能です。
一見便利そうな機能ですが、管理が煩雑になったり、
使用する端末に「SYSTEM.MDW」というファイルが必要となったりと少なからず問題があったようです。

リンクテーブル元であった場合、リンクを更新する必要あり

変換する「mdb」が、他のAccessファイルからリンクテーブル先となっている場合、
「accdb」への変換後、他のAccessファイルからリンクテーブルが見つからない旨のエラーメッセージが出ます。

その場合、以下のリンクテーブルマネージャーからエラーが出たAccessファイルにてリンクテーブルのパスの更新が必要です。

Recordsetオブジェクトを使用している場合、型の不一致エラーが発生

もし変換前の「mdb」でDAOライブラリを参照しRecordsetオブジェクトを使用している場合、型の不一致エラーが発生します。
「accdb」ではADOライブラリが初めから参照設定されていますが、
ADO・DAOの両方のライブラリにRecordsetオブジェクトが存在するため競合するからです。

そこで競合を解決するために以下のように明示します。
「Dim XXX As Recordset」であれば、
「Dim XXX As DAO.Recordset」でOK

以上、「mdb」はいずれ使えなくなる可能性があるため、
デメリットが許容できるのであれば、お早めに「accdb」変換されることをおすすめします！

投稿 【Access】mdbとaccdbの違い、変換方法、変換後の不具合等 は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

Excelで文字を上下反転（180度回転）させる方法を紹介します。
複数文字（文字列）も簡単に上下反転できますので、良かったらご参考にどうぞ♪

文字を上下反転（180度回転）させる方法

文字を入れた図形を180度回転させることで、上下反転を実現します。

１．文字を入れた図形を作成します。

２．クリックし、〇箇所を掴んでひっくり返します。

↓

以上です。簡単ですね♪

使用例：フロアマップ作成

前項の使用例になります。

概要：スーパーのフロアマップを作成し、出入口に貼る。
裏出入口からもお客様が出入りするため、裏出入口側にも上下反転して貼りたい。

１．表の出入口から見たフロアマップを作成する。
この際、各文字を図形にしておく。

２．画面右上の「検索と選択」から「条件を選択してジャンプを選択」
選択オプションが表示されるので、「オブジェクト」を選択すると、
図形全てが選択されるので、前項のとおり上下反転させる。

↓

↓

↓

↓

３．上下反転させたデータを、スクリーンショットしてペイントに貼り付け、
全て180度回転させて完成
（Excel上でコピーして、貼り付けた後、反転させると
文字が濃くなったりしてうまくいかない場合があるので注意です）

セルに文字が一文字だけの場合のみ使える方法

使用用途が限定的なのであまりおすすめしませんが、
図形を使わず上下反転させる方法も紹介します。

今回は例として、以下の「字」という文字を上下反転させます。

以下の異なる手法の「左へ90度回転」を組み合わせ、180度回転させます。
１．フォントの前に「@」をつける。（「左へ90度回転」され、縦書きになる）
２．方向ボタンをクリックし、「左へ90度回転」をクリック

このように一文字だけなら上手くいきます。

ただ、以下のように複数文字（文字列）の場合、
想定とは異なる結果（縦書き）となりますので、ご注意ください。

↓

今回の記事は以上です。

今回の作業ですが、
マクロの記録を使えば次回からボタンを押せば何度でも反転できるようにもなりますよ♪
興味のある方はこちらをご覧ください！

【Excel VBA】初心者でも簡単にマクロを作る方法

業務効率化したい方必見！OfficeのExcel VBAで"初心者でも簡単に"マクロを作成する方法を紹介しています。知識0でも理解できるようサンプルはもちろん画像たっぷりで説明していますので、是非見て試してみてください♪

nyanblog2222.com

2022.07.10

投稿 【Excel】文字を上下反転（180度回転）させる方法 は 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 ~にゃんぶろぐ~ に最初に表示されました。

正常に動いていたAccessファイルが、突然 「Microsoft AccessがOLEサーバーまたはActiveXコントロールと通信しているときにエラーが発生しました」 とエラーメッセージが出て使えなくなってしまった場合の対処方法を紹介します。

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

エラー原因

調べてみると、対象のAccessファイルのフォーム等に何かしらの不具合があることが原因のようでした。
ただ、「これが原因！」というのは判別しづらいようですね。

どんな状況で発生するか

色々なパターンがあるようですが、
主にAccessファイルを作成したパソコンと異なるパソコンで使用すると起きるようです。

参考として、私は以下の状況でエラーが発生しました。

これは私の想像になりますが、新パソコンのチェック機能の強化により、旧パソコンではチェックされていなかった不具合が表に出てきてしまったのかもしれません。
新しいパソコンだと性能はもちろんセキュリティなども強化され、昔できていたことができなくなることはよくあることだからです。

対処方法・注意事項

対処方法

対処方法は「新しいAccessファイルを作り、元のAccessファイルから全ての情報をインポートする」です。
（説明する際の画像はMicrosoft Office 2010のものですが、手順自体はMicrosoft Office 2019でも同じです）

詳細な手順は以下になります。

（前準備）拡張子がmdbの場合は、accdb変換
必須ではありませんが、mdbはいつか使えなくなる危険性があるのでこのタイミングで変換しておいた方が無難です。
例）CSVインポート.mdb→CSVインポート.accdb
変換した場合はショートカットはもちろん、Accessファイルが他のAccessファイルからリンクテーブルとして参照されている場合、リンク先が変わってしまうためご注意ください。

１．対象のAccessファイルが入っているフォルダと異なるフォルダで右クリックし、 新規作成からMicrosoft Access データベースをクリック

２．新規作成されたAccessファイルを、対象のAccessファイルと同じ名前とする

例）「新規 Microsoft Access データベース.accdb」を作成し、「CSVインポート.accdb」にリネーム

３．２で作成したAccessファイルを開き、外部データタブからAccessデータベースのインポートを選択

４．対象のAccessファイルをクリックして、OKを押すと「オブジェクトのインポート」画面が出るので、オプションをクリック

５．オプションで出てきたチェック項目を全てチェックする

６．全てのタブ（テーブル・クエリ・フォーム・レポート・マクロ・モジュール）ですべて選択をクリックし、OKをクリック

７．Accessファイルを閉じて、元々のAccessファイルのフォルダに移し替える。

※元々のAccessファイルは念のため名前を変えてバックアップとして残しておいてください。

これでAccessファイルの作り直しは完了です。

インポート中に何かしらエラーで取り込めないものがありますが、
恐らく何かしら問題のあるオブジェクトがほとんどですので、
基本不要なものなので気にしなくてもいいかと思います。

ただ、 念のためそのオブジェクトが使われていないかはインポート後に確認して、
必要であれば個別に対象のAccessファイルからコピペしてきてください。

注意事項

上記方法では、VBAのプロジェクト名は引き継がれないので注意してください。
例えば、DAOを使ってテーブル操作をする場合は、Databeseオブジェクトの変数を宣言していたりしますが、その場合、被らないようにプロジェクト名をあえて固有の名前に変えていたりします。

その場合、インポート後に手で直してください。

↓

投稿 【対処方法】Microsoft AccessがOLEサーバーまたはActiveXコントロールと通信しているときにエラーが発生しました は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

VBAには条件分岐の手段の一つとしてSwitch関数やSelect Caseステートメントがありますが、これらの違いや記述方法を紹介します。
C言語やJAVA言語でのswitch文との比較もしてますので、そちらも良かったらどうぞ♪

Switch関数

Switch関数は、ある式（expr）を評価し、Trueであれば値や式（value）を返します。

構文については以下となります。

記述例として、以下を用意しました。
変数の値と特定の値が一致すれば、メッセージを返し、イミディエイトウィンドウに表示します。

' PrintImmediate
' イミディエイトウィンドウにメッセージを表示
Sub PrintImmediate()
    
    Dim sMsg As String
    sMsg = GetMsg_Switch(2)
    
    Debug.Print sMsg
    
End Sub

' GetMsg_Switch(Integer)
' Switch関数を使ってメッセージを取得
Function GetMsg_Switch(iMsgCase As Integer)

    GetMsg_Switch = Switch(iMsgCase = 1, "正常１", iMsgCase = 2, "正常２")

End Function

結果は、「正常２」と表示されます。

Switch関数を使っていく上で知っておきたいポイントは以下になります。
（例については上記の記述例を元にしています。）
・Switch関数を変数に代入しないとコンパイルエラーとなる
例）○GetMsg_Switch = Switch(iMsgCase = 1, “正常１”, iMsgCase = 2, “正常２”)
　　×Switch(iMsgCase = 1, “正常１”, iMsgCase = 2, “正常２”)
・全ての式を評価するため、除算エラー等が起きる式には要注意
例）iMsgCase = 1で、
　　GetMsg_Switch = Switch(iMsgCase = 1, “正常１”, iMsgCase = 2, “正常２”, iMsgCase = 3, 5 / 0)
　　といったコードの場合、「iMsgCase = 3, 5 / 0」部分も評価し除算エラーとなります。
・式がFalseだった場合、Nullを返す
例）iMsgCaseが3の場合、Nullを変数に代入しようとするため、エラーが起きます。

こういったマイナス要素があるため、私は次項の「Select Caseステートメント」がおすすめです。

Select Caseステートメント

Select Caseステートメントは、ある変数の値（testexpression）を複数の値（expressionlist-n）と比較し、一致していれば特定の処理（statements-n）を行います。

構文については以下となります。

記述例として、以下を用意しました。
変数の値と特定の値が一致すれば、メッセージを返し、イミディエイトウィンドウに表示します。

' PrintImmediate
' イミディエイトウィンドウにメッセージを表示
Sub PrintImmediate()
    
    Dim sMsg As String
    sMsg = GetMsg_SelectCase(2)
    
    Debug.Print sMsg
    
End Sub

' GetMsg_SelectCase(Integer)
' SelectCaseステートメントを使ってメッセージを取得
Function GetMsg_SelectCase(iMsgCase As Integer)

       
    Select Case iMsgCase
    Case 1
        GetMsg_SelectCase = "正常１"
    Case 2
        GetMsg_SelectCase = "正常２"
    Case Else
        GetMsg_SelectCase = "異常"
    End Select
        

End Function

結果は、「正常２」と表示されます。
もし、sMsg = GetMsg_SelectCase(3)だった場合は、「異常」と表示されます。

変数に想定外の値が入っていても、Case Elseがあるためエラーを出さずに対応できます。

参考（C言語のswitch文との比較）

参考になりますが、C言語のswitch文は以下のような書き方をします。

int iMsgCase = 2;

switch(iMsgCase){
  case 1:
    printf("正常１¥n");
    break;
  case iMsgCase:
    printf("正常２¥n");
    break;
  default:
    printf("異常¥n");
}

記述内容はほぼSelect Caseステートメントで、内容もほぼ同等の性能です。
逆にSwitch関数とは、名前は似てますが内容は似てません。

以上、今回はSwitch関数やSelect Caseステートメントについて紹介しました。
両者比較すると、マイナスポイントの多いSwitch関数を使うよりは、Select Caseステートメントを使った方がよいのかなと思います。

Switch関数の強みは条件分岐を1行で書けるところかな？と当初考えましたが、いざコードを書いてみると1行に条件を詰め込むのは逆に読みにくいかもと感じました。。

以下まとめです。

本記事で参考にさせていただいたサイト：
Microsoft Doc：Switch 関数
Microsoft Doc：Select Case ステートメント

投稿 【VBA】Switch関数とSelect Caseステートメント【違いや記述方法を簡単に解説】 は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

今回はAccess等で使われるVBAで、Shift-JIS（SJIS）・UTF-8等、各種文字コードのファイルを読み込む方法を紹介します。
内容としては、OpenステートメントやADODB.Streamを使った手法です。
自作関数のサンプルもつけてますので、是非ご活用ください！
また、同時にダイアログを開いて対象のファイル名を取得する方法も紹介してますので、良かったらそちらもどうぞ。

紹介する手法

まず、本記事の簡単なまとめから♪

共通で使っているテストデータやサブ関数

説明の際に使用するテストデータや、自作関数の中で呼び出しているサブ関数です。
本記事とは内容が離れますので、飛ばしてもらっても大丈夫です。

テストデータ

今回テストとして読み込むcsvファイルは以下を使用します。
（同じ内容で文字コードがShift-JIS・UTF-8のデータを用意）

No	郵便番号	住所	名前
1	859-5326	東京都春日井市向谷町１－６５	ヤマモトコーポレーション株式会社
2	987-2523	千葉県向田市山本町６５８－４４	華井　譲
3	789-0001	千葉県向田市山本町　ジンダ－ビル２F　２０１号	蓮田不動産株式会社
4	653-6567	大阪府大東市浅田８－９９９	株式会社ハッターフ
5	198-3463	鹿児島県薩摩川内市浜本１２３－７７	山本　茂

（サブ関数）ダイアログを開いて対象のファイル名を取得する

ダイアログを開いて対象のファイル名を取得するサブ関数を用意しました。
直接ファイルパスを次項から紹介する関数のコード上に書いてしまっても良かったのですが、それではコピペして使いにくいので。。

内容としては、GetFileName_csvを呼び出すと、ダイアログを開いてcsvファイルのファイル名を取得し、戻り値として返す関数になります。

' GetFileName_csv
' csvファイル名を取得
Function GetFileName_csv()

    'ダイアログを開いてcsvファイルのファイル名を取得
    'Application.FileDialogを使うには、
    '参照設定でMicrosoft Office 1X.0 Object Libraryの追加が必要
    With Application.FileDialog(msoFileDialogOpen)
        .Filters.Clear
        .Filters.Add "csvファイル", "*.csv"
        .AllowMultiSelect = False
        If .Show = True Then
            GetFileName_csv = .SelectedItems(1)
        End If
    End With

End Function

Openステートメントでcsvファイル読み込み（Shift-JISのみ可）

Openステートメントで、csvファイルを読み込む方法です。
Openステートメントでは、文字コードに合わせて対応していくことができないので、Accessのデフォルトの文字コードであるShift-JISでしか正しく読み取りできません。

以下、Openステートメントを使用したcsvファイル読込関数関数です。

' ReadCSVFile_Open
' csvファイル読込関数（Openステートメントを使用）
Sub ReadCSVFile_Open()
    
    'ファイル名取得
    Dim sOpenFileName As String
    sOpenFileName = GetFileName_csv
    If sOpenFileName = "" Then Exit Sub

    'ファイルを読み込んでイミディエイトウィンドウに内容を表示する
    Dim sBuf  As String
    Open sOpenFileName For Input As #1 'ファイルを開いて[#1]という番号で管理
    Do Until EOF(1)
       Line Input #1, sBuf '1行づつバッファへ格納
       Debug.Print sBuf
    Loop
    Close #1
    
End Sub

こちらの関数を使用して、Shift-JISのファイルを読み込んだ結果はこちらです。

ファイル名：SJIS.csv

No  郵便番号    住所    名前
1   859-5326    東京都春日井市向谷町１－６５    ヤマモトコーポレーション株式会社
2   987-2523    千葉県向田市山本町６５８－４４  華井　譲
3   789-0001    千葉県向田市山本町　ジンダ－ビル２F　２０１号   蓮田不動産株式会社
4   653-6567    大阪府大東市浅田８－９９９  株式会社ハッターフ
5   198-3463    鹿児島県薩摩川内市浜本１２３－７７  山本　茂

正確に読み取れてますね。

試しにこの関数を使って、UTF-8も読み取ってみました。

ファイル名：UTF-8.csv

No  驛ｵ萓ｿ逡ｪ蜿ｷ    菴乗園  蜷榊燕
1   859-5326    譚ｱ莠ｬ驛ｽ譏･譌･莠募ｸょ髄隹ｷ逕ｺ・托ｼ搾ｼ厄ｼ・繝､繝槭Δ繝医さ繝ｼ繝昴Ξ繝ｼ繧ｷ繝ｧ繝ｳ譬ｪ蠑丈ｼ夂､ｾ
2   987-2523    蜊・痩逵悟髄逕ｰ蟶ょｱｱ譛ｬ逕ｺ・厄ｼ包ｼ假ｼ搾ｼ費ｼ・闖ｯ莠輔€€隴ｲ
3   789-0001    蜊・痩逵悟髄逕ｰ蟶ょｱｱ譛ｬ逕ｺ縲€繧ｸ繝ｳ繝€・阪ン繝ｫ・巽縲€・抵ｼ撰ｼ大捷 闢ｮ逕ｰ荳榊虚逕｣譬ｪ蠑丈ｼ夂､ｾ
4   653-6567    螟ｧ髦ｪ蠎懷､ｧ譚ｱ蟶よｵ・伐・假ｼ搾ｼ呻ｼ呻ｼ・譬ｪ蠑丈ｼ夂､ｾ繝上ャ繧ｿ繝ｼ繝・
5   198-3463    鮖ｿ蜈仙ｳｶ逵瑚湊鞫ｩ蟾晏・蟶よｵ懈悽・托ｼ抵ｼ難ｼ搾ｼ暦ｼ・螻ｱ譛ｬ縲€闌・

全角が化けてしまっていますね。
前述のとおり、UTF-8を含む他の文字コードには対応していませんので、読み取る必要があれば次項をお使いください。

ADODB.Streamでcsvファイルを読み込む（UTF-8、Shift-JIS他）

ADODB.Streamで、csvファイルを読み込む方法です。
ADODB.Streamでは、UTF-8、Shift-JISを含む各種文字コードに対応しています。

以下、Openステートメントを使用したcsvファイル読込関数関数です。

' ReadCSVFile_ADODB
' csvファイル読込関数（ADODB.Streamを使用）
Sub ReadCSVFile_ADODB()
    
    'ファイル名取得
    Dim sOpenFileName As String
    sOpenFileName = GetFileName_csv
    If sOpenFileName = "" Then Exit Sub

    'ファイルを読み込んでイミディエイトウィンドウに内容を表示する
    Dim sBuf  As String
    With CreateObject("ADODB.Stream")
       .Charset = "UTF-8" 'SJISの場合、"shift_jis"
       .Open
       .LoadFromFile sOpenFileName
        Do Until .EOS
           sBuf = .ReadText(-2) '1行づつバッファへ格納
           Debug.Print sBuf
        Loop
       .Close
    End With
    
End Sub

なお、上記関数をそのままコピペすると、UTF-8に対応した関数になります。
shift_jisに対応させる場合、

.Charset = "UTF-8"

の部分を、

.Charset = "shift_jis"

に書き換えてください。

その他、UTF-8、Shift-JIS以外の文字コードで読み取る場合は、
「レジストリエディタ」の「HKEY_CLASSES_ROOT\MIME\Database\Charset」から確認してください。
レジストリエディタは、
「Windowsマーク」キーと「R」キーを同時押し→ファイル名を指定して実行の画面が出たら、「regedit」と入力してエンターを押すと開くことができます。

それでは、まずshift_jisのファイルを読み込んでみました。

ファイル名：SJIS.csv

No  郵便番号    住所    名前
1   859-5326    東京都春日井市向谷町１－６５    ヤマモトコーポレーション株式会社
2   987-2523    千葉県向田市山本町６５８－４４  華井　譲
3   789-0001    千葉県向田市山本町　ジンダ－ビル２F　２０１号   蓮田不動産株式会社
4   653-6567    大阪府大東市浅田８－９９９  株式会社ハッターフ
5   198-3463    鹿児島県薩摩川内市浜本１２３－７７  山本　茂

正確に読み取れてますね。

ファイル名：UTF-8.csv

No  郵便番号    住所    名前
1   859-5326    東京都春日井市向谷町１－６５    ヤマモトコーポレーション株式会社
2   987-2523    千葉県向田市山本町６５８－４４  華井　譲
3   789-0001    千葉県向田市山本町　ジンダ－ビル２F　２０１号   蓮田不動産株式会社
4   653-6567    大阪府大東市浅田８－９９９  株式会社ハッターフ
5   198-3463    鹿児島県薩摩川内市浜本１２３－７７  山本　茂

こちらも、正しく読み取ることができました♪

以上、今回の記事が参考になれば幸いです。
関連として、もしUTF-8について知りたい！という方はこちらの記事もご覧ください。

【ファイル】UTF-8のBOM付き、BOM無しの違い・確認・作成について

CSVファイルをExcelで確認すると文字化けすることはありませんか。それは文字コードがUTF-8のBOM無しで作成されているからかもしれません。本記事ではUTF-8のBOM付き、BOM無しの違い、確認方法、作成方法についてご紹介しています。

nyanblog2222.com

2022.07.15

投稿 【VBA】Shift-JIS・UTF-8等、各種文字コードのファイル読み込み【コピペで使えるサンプル付き】 は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

C言語やJAVAなどで欠かせないインクリメントやデクリメントですが、ExcelやAccessなどで使用するVBAでも使えるか、調べてみました。

・インクリメント
変数の値を1増やす演算　例：i++、++i
・デクリメント
変数の値を1減らす演算　例：i－－、－－i

VBAでインクリメントやデクリメントは使えない？

VBAにはインクリメントやデクリメントという概念がなく、使えません。

試しに、i++やi－－と書くと以下のエラーメッセージが出ます。

コンパイルエラー:

修正候補:式

++iやi－－と書くと以下のエラーメッセージが出ます。

コンパイル　エラー:

修正候補: 行番号 または 行ラベル または ステートメント または ステートメントの最後

VBAでインクリメントやデクリメントが使えない理由としては、
VBA（Visual Basic for Applications）はBASICというプログラミング言語がルーツなので、インクリメントやデクリメントが存在するC言語がルーツのプログラミング言語とは、歴史が異なるからです。

代替案について

気になる代替案ですが、残念ながら有効なものはありませんでした。

加算代入演算子や減算代入演算子は？

試してみましたが、インクリメントやデクリメントと似たことができる加算代入演算子や減算代入演算子ではうまくいきませんでした。

（参考）
・加算代入演算子
変数の値に右辺の値を加算する演算　例：i+=1
・減算代入演算子
変数の値に右辺の値を減算する演算　例：i-=1

以下、エラーメッセージです。

コンパイルエラー:

修正候補:式

インクリメントやデクリメントと同様に、C言語がルーツのプログラミング言語で使用できる加算代入演算子や減算代入演算子についても、概念がないようですね。

関数を作ってみるのは？

無理やり捻りだすとするのであらば、インクリメントやデクリメントする関数を作るのはどうでしょう。

例えば、以下の関数「Increment(ByRef)」でインクリメントできます。

'呼び出し元の関数
Public Function TestIncrement()
　Dim i As Int
　i = 0
　～
　Increment i
　～
End Function

'インクリメント用関数
Sub Increment(ByRef i)
　i = i + 1
End Sub

ただこれははっきり言ってしまえば、自己満足なコードです。
あまり分かりやすくなったとは言いづらいですし、作った本人はいいでしょうが、他の人がコードを見たとき読みにくいコードになるでしょうね。。

以上、今回はインクリメントやデクリメントがVBAでも使えるか、また代替案は何かないか調べてみました。
以下がそのまとめです。

そもそもVBAのルーツであるBASICはあくまで初心者向けの言語のため、いくらインクリメントやデクリメントが分かりやすく効率的だからといって、現状でもi = i + 1と1行で処理できるのですから、これ以上知識が必要となる機能追加は望まれないのかもしれませんね。

投稿 【VBA】インクリメントやデクリメントは使える？代替案は？ は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

Accessマクロで関数（VBA）を呼び出した際に出てくる「指定した式に、Microsoft Accessが見つけることができない関数名が含まれています。」の対処方法をいくつか紹介します。
（内容についてはMicrosoft Access 2010で確認）

マクロで呼び出す関数の名称が間違っている

関数名と、マクロで呼び出す関数の名称が異なっているとエラーメッセージが表示されます。

以下の事例だと、関数名が「FileOpen()」なのに対し、マクロでは「FileOpn()」となってしまっています。
この場合、マクロでは関数名と同じ「FileOpen()」を呼び出してください。

関数：

Public Function FileOpen()
　～
End Function

マクロの関数（プロシージャ）呼び出し：

=FileOpn()

関数名に日本語が含まれる

関数名に日本語が含まれているとエラーメッセージが表示されます。

以下の事例だと、関数名が「Fileを開く()」となっており日本語が含まれています。
この場合、日本語は使わず「FileOpen()」などの名前にしてください。

関数：

Public Function Fileを開く()
　～
End Function

関数名とモジュール名が同じ

関数名とモジュール名が同じ場合エラーメッセージが表示されます。

以下の事例だと、関数名が「FileOpen()」に対し、モジュール名も「FileOpen」になってしまっています。
この場合、モジュール名は「ファイルを開く」など関数名と異なる名前にしてください。

関数：

Public Function FileOpen()
　～
End Function

モジュール名：

FileOpen

ちなみに「関数名とマクロ名が同じ」場合はエラーメッセージは出ません。

投稿 【対処方法】指定した式に、Microsoft Accessが見つけることができない関数名が含まれています。 は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

今回はつみたてNISAの資産運用シミュレーションをExcelVBAで作ってみました。
計算方法は金融庁のシミュレーションサイトと同様のものとなります。
よかったら前回の記事もどうぞ♪

【Excel】つみたてNISAシミュレーション（1）【計算方法】

金融庁が公開しているつみたてNISAの資産運用シミュレーションをExcelで作ってみようと思います。金融庁のサイトでは具体的な計算方法はありませんでしたが、試行錯誤しながら調べてみましたので気になる方はどうぞ♪1 つみたてNISAとは2 金融庁の資産運用シミュレーション3 計算方法4 グラフ5 まとめ……。

nyanblog2222.com

2020.07.16

マクロ（VBA）が難易度が高い！と思われる方は一度こちらも見てくださいね♪
練習になるかもしれません。

【Excel VBA】初心者でも簡単にマクロを作る方法

業務効率化したい方必見！OfficeのExcel VBAで"初心者でも簡単に"マクロを作成する方法を紹介しています。知識0でも理解できるようサンプルはもちろん画像たっぷりで説明していますので、是非見て試してみてください♪

nyanblog2222.com

2022.07.10

つみたてNISAシミュレーション作成手順

今回は、
１．EXCELシート作成
２．VBAコード記述
３．マクロ設定
の流れで紹介していきます。

１．EXCELシート作成

まず、入力フォームとして以下を作成します。

ボタンについては「開発」タブ→「挿入」→「ボタン」から作成できます。

２．VBAコード記述

まず、「開発」タブ→「Visual Basic」からVBA記述画面を開きます。

記述していくVBAコードについては以下です。
内容の説明については、コードのコメントを参照ください。

基本的に、前回紹介した計算方法のイメージ通り作成します。

１．計算①　配列に月々の複利計算結果を格納

２．計算②　①の配列から、月々の累計元本・積立額を算出。年毎に配列へ格納

３．出力用配列作成　②の配列を元に出力したい要素を計算し、配列へ格納

４．出力　出力用配列から、それぞれEXCELシートに出力していく
　（３までで出力用データの計算は全て行い、
　　後は４でほぼそのまま出力するだけのイメージ）

■TumitateNisaマクロ

Sub TumitateNisa()

    '積立年数から月数をセット
    Dim TOSHIKIKAN_NEN As Integer
    TOSHIKIKAN_NEN = Range("C2").Value2
    Dim TOSHIKIKAN_NEN_ARRAY As Integer
    TOSHIKIKAN_NEN_ARRAY = TOSHIKIKAN_NEN - 1
    Dim TOSHIKIKAN_TUKI As Integer
    TOSHIKIKAN_TUKI = TOSHIKIKAN_NEN * 12
    Dim TOSHIKIKAN_TUKI_ARRAY As Integer
    TOSHIKIKAN_TUKI_ARRAY = TOSHIKIKAN_TUKI - 1
    
    '月投資額をセット
    Dim TOSHIGAKU_TUKI As Long
    TOSHIGAKU_TUKI = Range("C3").Value2
    
    '利回り（年）から利回り（月）表面金利をセット
    Dim RIMAWAEI_TUKI As Double
    RIMAWAEI_TUKI = 1 + (Range("C4").Value2 / 12 / 100)
    
    '各配列用　年数が最大100年まで（12か月*100年）
    'コードがややこしくなるのと、
    'あまり増えても環境によってはEXCELがフリーズしたりするので
    '今回は動的配列にはしない
    Const MAXARRAY_1200 As Integer = 1200
    
    '''''''''''''''''''''''''''''''''''''''''''''''''''
    '
    ' 計算①　配列に月々の複利計算結果を格納
    '
    '''''''''''''''''''''''''''''''''''''''''''''''''''
    Dim TumitateArray(MAXARRAY_1200, MAXARRAY_1200) As Double
    For i = 0 To TOSHIKIKAN_TUKI_ARRAY
        
        Dim Tumitate_Tuki As Double
        Tumitate_Tuki = TOSHIGAKU_TUKI
        For j = 0 To TOSHIKIKAN_TUKI_ARRAY
        
            TumitateArray(i, j) = 0
            
            If j >= i Then
                TumitateArray(i, j) = Tumitate_Tuki
                
                Tumitate_Tuki = Tumitate_Tuki * RIMAWAEI_TUKI
            End If
    
        Next j
    
    Next i
    
    '''''''''''''''''''''''''''''''''''''''''''''''''''
    '
    ' 計算②　①の配列から、月々の累計元本・積立額を算出。年毎に配列へ格納
    '
    '''''''''''''''''''''''''''''''''''''''''''''''''''
    Dim YearSumArray(MAXARRAY_1200, 1) As Double
    Dim GanponSum As Double
    GanponSum = 0
    Dim YearNum As Integer
    YearNum = 0
    For j = 0 To TOSHIKIKAN_TUKI_ARRAY
        
        If j > 0 And j Mod 12 = 0 Then
            YearArrayNum = YearArrayNum + 1
        End If
        
        Dim TumitateSum As Double
        TumitateSum = 0
        For i = 0 To TOSHIKIKAN_TUKI_ARRAY
            TumitateSum = TumitateSum + TumitateArray(i, j)
        Next i
        
        '累計元本
        GanponSum = GanponSum + TOSHIGAKU_TUKI
        YearSumArray(YearArrayNum, 0) = GanponSum
        '累計積立額
        YearSumArray(YearArrayNum, 1) = TumitateSum
    
    Next j
    
    '''''''''''''''''''''''''''''''''''''''''''''''''''
    '
    ' 出力用配列作成　②の配列を元に出力したい要素を計算し、配列へ格納
    '
    '''''''''''''''''''''''''''''''''''''''''''''''''''
    Dim YearTumitateArray(MAXARRAY_1200, 3) As Double
    For i = 0 To TOSHIKIKAN_NEN_ARRAY
        '累計元本
        YearTumitateArray(i, 0) = YearSumArray(i, 0)
        '累計運用益
        YearTumitateArray(i, 1) = YearSumArray(i, 1) - YearSumArray(i, 0)
        '累計積立額
        YearTumitateArray(i, 2) = YearSumArray(i, 1)
        '累計節税額
        YearTumitateArray(i, 3) = YearTumitateArray(i, 1) * (20.315 / 100)
    
    Next i

    '''''''''''''''''''''''''''''''''''''''''''''''''''
    '
    ' 出力　出力用配列から、それぞれEXCELシートに出力していく
    '
    '''''''''''''''''''''''''''''''''''''''''''''''''''
    '前回のシュミレーション結果をクリアしておく
    Range("B7:F106").Clear
    
    '出力開始位置の一つ上にへカーソル移動
    Range("B6").Select

    'それぞれEXCELシートに出力
    For i = 0 To TOSHIKIKAN_NEN_ARRAY
        
        ActiveCell.Offset(1, 0).Activate
        '年
        ActiveCell.Value2 = i + 1
        '累計元本
        ActiveCell.Offset(0, 1).Value2 = Round(YearTumitateArray(i, 0))
        '累計運用益
        ActiveCell.Offset(0, 2).Value2 = Round(YearTumitateArray(i, 1))
        '累計積立額
        ActiveCell.Offset(0, 3).Value2 = Round(YearTumitateArray(i, 2))
        '累計節税額
        ActiveCell.Offset(0, 4).Value2 = Round(YearTumitateArray(i, 3))
        
    Next i
    
    '罫線を引く
    ActiveCell.CurrentRegion.Select
    Selection.Borders.LineStyle = xlContinuous
        
    '桁区切りする
    Selection.NumberFormatLocal = "#,###"
    
    '最終行の文字を赤色にする
    Selection.Rows(Selection.Rows.Count).EntireRow.Select
    Selection.Font.ColorIndex = 3
    
    'カーソルを年数に戻す
    Range("C2").Select

End Sub

３．マクロ設定

最後に作成したマクロをボタンに登録します。
「右クリック」→「マクロの登録」

マクロを選択して、完了です。

シミュレーション使用方法について

使用方法は簡単です。
「年数」「月投資額」「利回り（年）」を入力して、
「つみたてNISAシミュレーションを開始する」ボタンをクリックするだけ♪

試しに、金融庁のシミュレーションと比べてみましたが、
問題なく同じ結果となりました。
資産運用シミュレーション ： 金融庁

色々と分析してみた

せっかくなので、いくつかのパターンでシミュレーションしてみました♪

利回りが3%と5%どれくらい差が出る？（20年・月20,000円・利回り3%or利回り5%）

2%変わるだけで、運用益が倍変わることが分かります。

[3%の場合]

[5%の場合]

20年間最大額積み立てた場合、いくら貯まる？（20年・月33,333円・利回り5%）

つみたてNISAは年40万円・20年間つみたてが可能です。
そこで仮に平均利回りが5%だった場合、以下の結果となりました。

老後2000万円問題！月5000円積み立てると何年で2000万円貯まる？（60年・月5,000円・利回り5%）

月5,000円ですと、56年で達成可能なようです。
元本と運用益の差から、複利の凄さがよくわかりますね。

万が一、今後経済が不況に陥り、利回り-5%（赤字）だとどれだけ損する？（20年・月20,000円・利回り-5%）

前述の利回り5%と比べると、意外に損失が低いことが分かります。

[-5%の場合]

[5%の場合]

投稿 【Excel】つみたてNISAシミュレーション（2）【VBA】 は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

金融庁が公開しているつみたてNISAの資産運用シミュレーションをExcelで作ってみようと思います。
金融庁のサイトでは具体的な計算方法はありませんでしたが、試行錯誤しながら調べてみましたので気になる方はどうぞ♪
資産運用シミュレーション ： 金融庁

※本記事は、金融庁のサイトでのシミュレーションをExcelを使って再現するという趣旨です。
　素人が試行錯誤で作成しているもののため、ご使用にあたってはあくまで自己責任でお願いします。

つみたてNISAとは

つみたてNISAとは年間40万円までを20年間運用でき、分配金と売却益が非課税となる制度です。
購入可能な商品は金融庁が認めた投資信託に限られており、低リスクで運用でき長期投資に向いています。

本来、20.315%も課税されるためとってもお得！

詳しくは金融庁のつみたてNISAの概要へ

金融庁の資産運用シミュレーション

まず、金融庁では以下が公開されています。

毎月の積立金額・想定利回り（年率）・積立期間を入力し、
「計算する」ボタンで最終積立金額を表示します。

また、グラフについても表示できます。

次項から、上記の計算方法やグラフの出力方法についてご紹介します。

計算方法

金融庁のページには以下のように書かれていますので、こちらを参考に計算します。
【本シミュレーションの前提条件】
※年一回の複利計算をしています。
※計算結果は小数点以下を四捨五入しています。

ただ、以下の点には気をつけてください。
・年一回の複利計算
　→想定利回り（年率）に基づき、月に一回の複利計算（表面金利）をする
・計算結果は小数点以下を四捨五入
　→計算結果以外は四捨五入しない。

上記を考慮した計算が以下になります。
（数式→数式の表示から簡単に計算式を出せますよ♪）

上記のように月投資額、利回り（年）を入力することで、1年間の積立資産や運用額が分かるようにしました。
※本記事は計算方法中心の内容のため、あえて期間を1年限定にしています。
　期間変動可能なシミュレーションは、次回の記事でVBAを使い作成します。

利回り（月）の表面金利は、年率／12となりますので、それを使用して毎月の積立額にかけていきます。また、月に一回の複利のため、前月の額に金利をかけます。
それらが期間分続き、合計したものが積立資産になります。

資産推移（計算結果）は、ホームタブ→数値→「,」をつけることで、表示上は小数点以下四捨五入となりますので、「ROUND関数」は使いませんでした。

期間1年　月投資額20000円　利回り（年）5%で計算

結果は以下になります。前述の金融庁のシミュレーション結果と同じ積立資産なので、計算方法は合ってそうですね♪

グラフ

次にグラフ作成です。

まず、グラフ出力用にデータを整形します。
グラフ作成後にグラフの機能でデータを整形してもいいので好みの問題ですが、整形したデータをそのまま出力した方が楽で正確です。
整形時は、金融庁のシミュレーションを見ると千円単位で四捨五入なので、合わせました。

前述のデータ（期間1年　月投資額20000円　利回り（年）5%で計算）を使用すると結果は以下になります。

このデータを使って、今回はグラフを作成します。
（１）グラフ用データにカーソルをあて、挿入タブ→縦棒→任意の形状を選択

（１）結果

（２）原本・運用益・積立資産の順番が想定と異なるため、データ選択→順番の入れ替え

（２）結果

（３）それぞれの値を表示する。データラベル→中央

（３）結果

（４）積立資産は運用益と原本の合計額のため、値だけ表示させる。
　　　右クリック→データラベルの書式設定→塗りつぶし→塗りつぶしなし

（４）結果

ここからは見栄えの問題なので、気にしないのであれば以下は不要です。
（５）右クリック→軸の書式設定→最小値と最大値の固定値を設定

（５）結果

（６）積立資産の値をグラフに近づけたいので、
　　　レイアウト→データラベル→内側軸寄り

（６）結果

（７）最後に単位をつける。
　　　レイアウト→テキストボックス→横書きテキストボックス→（「万円」）入力

以上で完成になります。
これでおおよそ金融庁のシミュレーションと同じようなものができました♪

以上、今回は金融庁のシミュレーションを計算し、グラフ化してみました。
計算方法については、
・想定利回り（年率）に基づき、月に一回の複利計算（表面金利）をする
が一番重要な点です。
次回は、実際の資産運用にも使えるようなつみたてNISAのシミュレーションをVBA使って紹介しますので、良かったらどうぞ♪

【Excel】つみたてNISAシミュレーション（2）【VBA】

今回はつみたてNISAの資産運用シミュレーションをExcelVBAで作ってみました。計算方法は金融庁のシミュレーションサイトと同様のものとなります。1 つみたてNISAシミュレーション作成手順2 シミュレーション使用方法について3 色々と分析してみた4 まとめ……

nyanblog2222.com

2020.07.20

投稿 【Excel】つみたてNISAシミュレーション（1）【計算方法】 は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

今回は前回紹介した差し込み印刷の続きとなります。
前回の記事はこちらをご覧ください。

【Word】差し込み印刷（ラベル・ハガキ）【Excel】

Excel、Wordを使い、ラベル・ハガキを差し込み印刷で作成する方法を紹介します！基本的な使い方を、全て画像付きで分かりやすく解説♪

nyanblog2222.com

2020.07.08

（Microsoft Office 2010を使用しています）

前回は、ラベルとはがきの作り方を紹介しましたが、
今回は差し込み印刷がもっと有効に活用できるパターンを紹介し、
差し込み印刷の大きなメリットである
・１つの差し込み用データ（Excelファイル）を複数の書類に使いまわせる点
・優秀な表計算ソフトのExcelとの連携できる点
を体感いただければ、と思います。

差し込み用データ

今回、
・封筒
・送付文
・請求書
を作成しますが、差し込むデータ（Excelファイル）は全て以下の１ファイルになります。

なお、以下のとおり、表計算することで手で計算する必要がありません。
請求月=MONTH(DATE(YEAR(TODAY()),MONTH(TODAY())-1,DAY(TODAY())))
請求金額（税抜）=G2+H2
請求金額（税込）=I2*1.1
消費税=J2-I2

封筒

１．以下の手順で封筒のフォーマットを作成します。

（１）[差し込み文書]タブ→[封筒]

（２）封筒サイズを[長形3号]→[OK]

（３）フォーマット作成完了。左上が差出人、下が宛先

２．封筒の出力内容を記述する。

（１）[差し込み印刷]タブ→[宛先の選択]→[既存のリストを使用]

（２）差し込みするデータのExcelファイルを選択

（３）Excelファイルのシート名を選択

（４）[差し込み印刷]タブ→[差し込みフィールドの挿入]→挿入したい項目を選択

（５）それぞれ項目を挿入していき、以下のように体裁を整える

（６）ある程度できたら、[差し込み印刷]タブ→[結果のプレビュー]で内容を確認する

送付文

１．送付文の出力内容を記述する。

（１）[差し込み印刷]タブ→[宛先の選択]→[既存のリストを使用]

（２）差し込みするデータのExcelファイルを選択

（３）Excelファイルのシート名を選択

（４）[差し込み印刷]タブ→[差し込みフィールドの挿入]→挿入したい項目を選択

（５）前述の封筒のように、それぞれ項目を挿入していくが、
　　　日付のみ以下のように出力されてしまうため、修正する

（６）「Alt」＋「F9」でコードを表示

（７）送付日のあとに「\@yyyy月M月d日」と記述

（８）「Alt」＋「F9」で画面を戻した後、「Shift」＋「A」で全選択後、「F9」を押して出力内容を更新し、完成

請求書

１．請求書の出力内容を記述する。

（１）[差し込み印刷]タブ→[宛先の選択]→[既存のリストを使用]

（２）差し込みするデータのExcelファイルを選択

（３）Excelファイルのシート名を選択

（４）[差し込み印刷]タブ→[差し込みフィールドの挿入]→挿入したい項目を選択

（５）前述と同様それぞれ項目を挿入していく。
　　　ただ、今回は金額が「,（カンマ）」区切りでないため、修正する

（６）「Alt」＋「F9」でコードを表示

（７）金額のあとに「\#”0,円”」と記述

（８）「Alt」＋「F9」で画面を戻した後、「Shift」＋「A」で全選択後、「F9」を押して出力内容を更新し、完成

投稿 【Word】差し込み印刷（封筒・送付文・請求書）【Excel】 は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

今回はWord機能の差し込み印刷を紹介します。
（Microsoft Office 2010を使用しています）

ややこしいから苦手……。
一つずつ手入力すればいいのでは？

私自身、そんな意見を何度か聞いたことあります。
ただ一度使ってみると、非常に簡単に作れて、汎用性に優れていることが分かりますよ♪

今回は、差し込み印刷で一番よく使う、ラベルやハガキの印刷について紹介します！

差し込み印刷とは

Wordの標準機能を使い、Excel又はAccessに入力した宛名データ等の項目をラベルやハガキに挿入する機能です。

直接Wordファイルへ手入力するよりも、表計算ソフト（Excel）を使用することでミスなく効率的に入力することができます。

元データ

以下の内容で、今回使用する元データ（Excelファイル）は作成しました。

ラベル（宛名シール）

１．以下の手順でラベルのフォーマットを作成します。

（１）[差し込み文書]タブ→[ラベル]

（２）ラベルの製造元を[A-ONE]→製品番号[A-ONE 26503]→[OK]
　　　（今回は例としてA-ONE製を選んでいます）

２．ラベルの出力内容を記述する。

（１）[差し込み印刷]タブ→[宛先の選択]→[既存のリストを使用]

（２）差し込みするデータのExcelファイルを選択

（３）Excelファイルのシート名を選択

（４）[差し込み印刷]タブ→[差し込みフィールドの挿入]→挿入したい項目を選択

（５）それぞれ項目を挿入していき、以下のように体裁を整える

（６）ある程度できたら、[差し込み印刷]タブ→[結果のプレビュー]で内容を確認する

（７）内容に問題なければ、[差し込み印刷]タブ→[複数ラベルに反映]で、全ての面に反映させ、完成

はがき

１．以下の手順ではがきのフォーマットを作成・出力項目を記述。

（１）[差し込み文書]タブ→[はがき印刷]→[宛名面の作成]

（２）[次へ]

（３）ハガキの種類を選択→[背景にはがきを表示する]にチェック→[次へ]

（４）はがきの様式を選択→[次へ]

（５）[次へ]

（６）差出人情報を入力→[次へ]

（７）[既存の住所録ファイル]→[参照]で宛名ファイルを選択→[次へ]

（８）[完了]

（９）Excelファイルのシート名を選択

（１０）以下のように勝手にシステムが判断して、各項目が配置されます。

（１１）[差し込み印刷]タブ→[差し込みフィールドの挿入]から、必要な項目を挿入し、完了

以上、次回はどのように差し込み印刷を活用すると業務効率化につながるかを紹介しますので、よろしくお願いします♪

【Word】差し込み印刷（封筒・送付文・請求書）【Excel】

封筒・送付文・請求書を差し込み印刷で作成する方法を紹介します。差し込み印刷を使う大きなメリットである「１つの差し込み用データ（Excelファイル）を複数の書類作成に使いまわせる点」を体感いただける内容になっています♪

nyanblog2222.com

2020.07.09

投稿 【Word】差し込み印刷（ラベル・ハガキ）【Excel】 は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

今回は、Access無作為抽出の方法をいくつかご紹介します。

無作為抽出とは、ある母集団から、ランダム（無作為）にサンプルを抽出する方法です。
使う状況でいえば、例えば企業の市場リサーチを目的としたアンケート等がありますね！

Rnd関数を使った方法

Rnd関数は「Rnd(引数)」で呼び出し、0以上1未満の単精度浮動小数点型の乱数（疑似乱数）を返します。今回はこのRnd関数を使用してランダム値を生成し、そしてランダム値を使って並びかえ上位から件数分抜き出し、無作為抽出を実現します。

クエリから引数なしで呼び出す（失敗例）

まずRnd関数を使った失敗例からです。
単純にクエリでRnd関数を引数なしで呼び出せば無作為抽出できそうではありますが……。

テーブル情報

クエリ内容
・下部の赤枠でRnd関数を呼び出し、右上の赤枠部分で上位25件を抽出

結果

このように全レコードに同じ乱数が入ってしまいます。値がすべて同じなので上位25件ではなく1000件すべてが抽出されてしまっていますね。
これはAccessのクエリ最適化の仕様で、引数なしで関数を呼び出した場合、一度しか実行してくれないためです（引数1など固定値でもNG）。
また、Randomizeを実行していないため、乱数ジェネレーター（乱数表）が初期化されません。そのため、もう一度Accessを開きなおし同じクエリを実行した場合、同じ結果になってしまいます。

よって上記をふまえ、以下の方法をご紹介します。

方法１：Rnd関数引数あり、RandomizeのみVBA

先ほどの失敗例を踏まえ、
・Rnd関数に引数を与えることでクエリ最適化を避ける
・Randomizeを実行し、乱数表を初期化する
　こちらは逆に１度呼び出されればいいため、クエリ最適化を利用する
　（何度も呼び出されると件数が多い場合負荷がかかる）
を考慮し、作成しました。

テーブル情報

クエリ内容
・Rnd([社員NO])でランダム値を各レコードに設定
・MyRandomize()で初期化
　抽出条件（Is Null）を加えることで、表示を消しても関数呼び出しができます。

VBA：乱数表初期化

' MyRandomize()
' 乱数ジェネレータ初期化関数
Public Function MyRandomize()
    Randomize
End Function

結果

正常に無作為抽出ができました。
この方法をとる場合は、Randomizeの呼び出し漏れに注意です。レコード件数が少なく処理が遅くなってもよいということであれば、ランダム関数を呼び出す定義関数を作り、その中でRandomizeを呼び出してもいいかもしれませんね。

方法２：VBAで一括ランダム値挿入（マクロ実行）

次に、クエリでRnd関数を呼び出さず、マクロで定義関数を呼び出し、その定義関数内でRandomize＋Rnd関数を呼び出す方法です。
またマクロで実行するため、先日以下の通りご紹介した定義関数で連番もふってます。

【Access】連番の振り方【Dcount以外も紹介】

Accessで連番の振り方を４つ紹介します。①EXCELから連番をコピペする②テーブル定義でオートナンバー型を使う③クエリでDcount関数を使う④マクロ（VBA）で連番用関数を作成する。…Dcount関数の処理速度の遅さに悩んでませんか？連番付番で高速処理したい方は必見です♪

nyanblog2222.com

2020.05.15

テーブル情報
・連番とランダム値項目を用意

クエリ内容

VBA：ランダム数セット
・Randomizeで初期化
・Loopでランダム値を各レコードに設定

' SetRandom(String,String)
' ランダム値をセット
' P1:テーブル名 or クエリ名
' P2:ランダム値項目名
Public Function SetRandom(TargetName As String, TargetField As String)
    
    ' 乱数ジェネレータを初期化
    Randomize
    
    Dim rsTarget As Recordset
    Set rsTarget = CurrentDb.OpenRecordset(TargetName, dbOpenDynaset)
    
    Do Until rsTarget.EOF
        rsTarget.Edit
        rsTarget.Fields(TargetField) = Rnd()
        rsTarget.Update
        rsTarget.MoveNext
    Loop
End Function

結果

正常に無作為抽出ができました。連番もついてますね。
この方法だと確実にRandomizeを呼び出すので、引き継ぎの際もわかりやすいかもしれませんね。ただマクロを使い慣れていないユーザもいるでしょうから、クエリだけでできないところがデメリットです。

テーブル定義のオートナンバー型（ランダム）を使った方法

あまりおすすめしませんが、Rnd関数を使わず、オートナンバー型でランダム値をセットすることもできます。

テーブル１（元テーブル）

クエリ１（追加クエリ）
・後述のテーブル２にレコードを追加

テーブル２
・オートナンバー型のランダム値項目を設定しておく

クエリ１実行結果
この時点で連番が振られています。

クエリ２（件数分抽出）

結果

正常に無作為抽出ができました。
VBAやマクロを使わないということがメリットですが、無理やり組んだ印象が強く、個人的には分かりづらいかなと思います。

投稿 【Access】無作為抽出（ランダム・サンプリング）[Rnd,VBA他] は nyanblog ~にゃんぶろぐ~ に最初に表示されました。

今回は、Accessで連番の振り方をいくつかご紹介します。

大容量レコードに高速付番したい方は、
「４．VBAで連番用関数を作成する」をご確認ください♪

EXCELから連番をコピペする

まず初めに非常にアナログですが、簡単で確実な方法です。
後述するクエリ（DCount関数）で連番を振る方法では件数が多い場合に時間がかかりすぎるため、あえてこのような方法をとっている方もいます。

説明するまでもないかもしれませんが、このように連番用にEXCELを作り、
コピーしてAccessのテーブルに貼り付けます。

メリット：
・Accessの知識が必要ないため、不慣れでも連番を振ることができる。
・クエリの順番通りに連番が振れる。

デメリット：
・手作業のためミスが発生する可能性がある。
・テーブル内容に変更があった場合、対応できない。

使用用途：
一度しか処理せず、再度連番を振る必要ない場合　等

なお、件数が多すぎるとお使いのパソコンやAccessのバージョンによってはペーストする際にエラーがでるようですので、ご注意ください。

テーブル定義でオートナンバー型を使う

テーブルをデザインビューで開き、項目のデータ型を、「オートナンバー型」とするだけなので、最も手軽な振り方です。

このようにデータ型を「オートナンバー型」にするだけで、入力する際、以下のように自動で連番が入力されていきます。

オートナンバー型を使うメリットデメリットですが、以下が考えられます。

メリット：
・手軽で分かりやすい。
・一意（ユニーク）な連番が振られるため、万が一にも重複の心配がない。
・手動で変更できないため、うっかり違う値に変更してしまうことがない。

デメリット：
・連番が振られた後は変更ができない。
・レコードを削除した際に、抜け番が発生する。
・レコード追加時にしか連番が振れない。

この中でも特に、デメリットの一度削除すると抜け番が発生するところが注意点かと思います。
例えば以下のように、レコードを一度入力した後、間違えに気づき修正した場合、抜け番が発生してしまいます。

もちろん連番の変更をしようとしても、以下のエラーが出てしまい、変更もできません。

そんな良くも悪くも融通が利かないオートナンバー型ですが、以下のような使用用途が考えられます。

使用用途：
・絶対に連番が変わってしまうのを避けたい場合
・欠番ができても問題ない場合　等
例）Access内部で使用するデータ紐付け用の主キーID

なお、テーブルをデザインビューで開き、項目の「切り取り」→同じ箇所に「行の挿入」→「貼り付け」をすることで、連番の振り直し自体は可能です。
※１から連番が再度振られるため、連番を振りなおしたことによる影響範囲を検討の上、行ってください。

Dcount関数を使う

クエリで連番を振る際に使用するのがDCount関数を使った方法です。
DCount関数は元々指定した範囲のレコード数をカウントする関数ですが、以下のように指定することで、連番を振ることもできます。

DCount(“*”,”テーブル名”,”[基準項目]<=” & [テーブル名]![基準項目])

指定内容の説明です。
引数１：レコード数をカウント
引数２：テーブル名またはクエリ名
引数３：条件。現在のレコードの[基準項目]以下の[基準項目]の数をカウント

これだけでは分かりにくいので、例を使って見てみましょう。

まず、基準項目を「社員NO」として連番を振るため、データ型は比較可能な「数値型」としています。

連番: DCount(“*”,”T_クエリ”,”[社員NO]<=” & [T_クエリ]![社員NO])

クエリはこのようにDCount関数を使い、設定しました。

結果は以下のとおりです。

Dcount関数を使うメリットデメリット・使用用途ですが、以下が考えられます。

メリット：
・テーブル内容に変更があっても、自動で値が振られ抜け番が発生しない。
・一意（ユニーク）な連番が振られるため、重複の心配がない。

デメリット：
・元々Dcountは別用途で作られた関数のため、不慣れなユーザには判読しづらい。
・基準項目（数値項目等、比較可能な項目）が必要。
・氏名順等、特別な並び順にしたい場合、連番を振ることができない。
・レコード件数が多いと、とにかく重い！
（レコードごとに毎度、基準項目以下のレコードをカウントしにいくため）

使用用途：
・データ入力後に連番が振りたい場合　等

VBAで連番用関数を作成する

少し難易度は上がりますが、VBAで連番用関数を作成し、連番を振る方法です。
VBAを使用し、ユーザ定義関数を作成し、マクロから呼び出します。

VBAについては以下を作成しましたので、コピーしてお使いください。

' InsertRenban(String,String)
' 連番挿入関数
' P1:クエリ名（テーブル名でも可能だが、非推奨）
' P2:連番用項目名
Public Function InsertRenban(TargetName As String, TargetField As String)
    Dim rsTarget As Recordset
    Set rsTarget = CurrentDb.OpenRecordset(TargetName, dbOpenDynaset)
    
    Dim iRecordCnt As Long
    
    'レコード毎に"+1"し、終端まで読み込み
    Do Until rsTarget.EOF
        lRecordCnt = lRecordCnt + 1
        
        rsTarget.Edit
        rsTarget.Fields(TargetField) = lRecordCnt
        rsTarget.Update
        rsTarget.MoveNext
    Loop
End Function

では、例を使ってご紹介します。
まずテーブルは以下です。新しく連番をつける場合は、テーブル定義で「連番」項目を追加してください。

次にクエリを用意し、並び順を確定させます。
※テーブルの順はAccessが独自にソートしているだけなので、今回のVBAを使い連番を振る場合、この工程が重要です。

実行マクロについては、以下としました。

InsertRenban(“Q_定義関数”,”連番”)

実行結果は以下となりました。

メリットデメリット・使用用途については以下となります。
個人的には、クエリを使うのであればこちらをおすすめします。

メリット：
・テーブル内容に変更があっても、自動で値が振られ抜け番が発生しない。
・一意（ユニーク）な連番が振られるため、重複の心配がない。
・クエリに比べ、レコード件数が多くても処理が速い！
・連番はクエリの並び順に左右されるため、基準項目は不要

デメリット：
・マクロ、VBAを使うのでAccess初心者には取っつきにくい。

使用用途：
・データ入力後に連番が振りたい場合　等

投稿 【Access】連番の振り方【Dcount以外も紹介】 は nyanblog ~にゃんぶろぐ~ に最初に表示されました。