VBAでIf文に入らずに別のFunctionに飛ぶ理由がわかりません

Question

moon-fondu

236

235もっと見る

2000pt

コンピュータ学習・教育

VBAでIf文に入らずに別のFunctionに飛ぶ理由がわかりません

判りにくい質問ですみません、どういうことかといいますと。
今、以下のようなコードがあります。

-----------------
If Not AnimalReportNumberSQL(makeSQL) Then
Exit Function
End If
…（1）
-----------------
Public Function AnimalReportNumberSQL(ByRef makeSQL As String) As Boolean
AnimalReportNumberSQL = False
…
makeSQL=（SQL文のようなものがが10行ぐらい出てきます）
…
AnimalReportNumberSQL = True
Exit Function
…（2）
-----------------

makeSQLというのは「Dim makeSQL As String」と、変数宣言されております。SQLを作るための文字列を入れるための変数のようです。

そして上のコードを実行しまして、一行ずつ見ていくと、なぜか（1）のIf Not文内の「Exit Function」に入らず、またEnd Ifの真下にあるコードにも入らず…。
100行ぐらい下にある、（2）の、

Public Function AnimalReportNumberSQL(ByRef makeSQL As String) As Boolean

というコードに飛ぶのです（SQL文の箇所には、makeSQLに格納すると思われるSQLらしき文字列が10行ぐらい、つらつら並んでおります）。
それで（2）の終わり、「Exit Function」を過ぎると、なぜか（1）のEnd Ifに戻るのです。

回答の条件

1人10回まで

登録：2019/11/29 19:55:57
終了：2019/12/10 18:24:51

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

質問者から

moon-fondu2019/12/03 10:38:17

この動きが全く分かりません…なぜ（1）のIf Not文から（2）に飛ぶのでしょうか。（1）で条件を満たさない、If Not（でなければ）であれば、If Not文の中、（1）の「Exit Fuction」に進むか。

もしくはIf Not（でなければ）を満たさないのであれば、（1）のEnd Ifに進むのが、コード通りではないでしょうか。

（1）から（2）に飛ぶ理由をご説明いただけないでしょうか…よろしくお願い致します。

規約違反として通知

No.1

rsc44974362019/11/29 21:46:12

1000pt

　「If Not (通過条件) Then Exit Function」構文では、通過条件を満たさない(Falseの)とき、処理を中止して、Iｆ文のあるところを抜けるようになっています。
　ここでは、通過条件はAnimalReportNumberSQL()になっていて、Iｆ文中の条件を評価するときに、この関数に飛ばしています。
　この関数は、返値が、Booleanになっていますが、この関数の真の目的は、参照型変数makeSQLを返すことです。これに成功したら、Trueで下に処理を続け,失敗したらFalseで処理を中止しようとしています。

他2件のコメントを見る

はじめに、Falseを設定していて、失敗して途中で抜けたら、そのまま、Falseを返して、成功したら、最後に、Trueに設定し直して出ているのではないでしょうか。

2019/12/09 15:00:19

Notがありました！つまりfalseでなければ、exit functionに行くのですね。
最後のTrue設定がAnimalReportNumberSQL = Falseの時のNot False、Trueというわけですね。
ありがとうございます。何となく府に堕ちました(^^;)

2019/12/09 22:08:56

コメントはまだありません

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

kaoato · Accepted Answer · 2019-12-01T04:14:50+09:00

No.2

kaoato236862019/12/01 04:14:50

1000pt

■
ご存じだとは思うのですが、

VBAの開発環境では、

・ステップ実行
・ブレイクポイントの設定

ができるはずですので、

実際に、ステップ実行させたら、動作がよくわかるのでは？と思います。

■

＞If Not AnimalReportNumberSQL(makeSQL) Then

この１行を実行する場合は、

まず　AnimalReportNumberSQL(makeSQL)　部分が実行されるはずです。

AnimalReportNumberSQL（）は、ユーザー定義関数だと思われますので、

当然、

Public Function AnimalReportNumberSQL(ByRef makeSQL As String) As Boolean

に飛びます。

で、その関数内で処理が終わったら、

元に戻ってきて、

AnimalReportNumberSQL(makeSQL)の返り値（戻り値）に　NOT演算したものを評価して

真なら、 Exit Function
義なら、End Ifの次の行に飛びます。

他7件のコメントを見る

はい、F8キーでステップ実行はしていたのですが…よくわかりませんでした。
kaoatoさんとrscさんのご回答で、関数に飛んでいるというのが判りました。

ただ度々すみません、

If Not AnimalReportNumberSQL(makeSQL) Then
Exit Function
End If

ですが、判定分として成り立っているのでしょうか。
makeSQLは、Falseの時に長いSQL文、Trueの時は…特に「Dim makeSQL As String」という変数宣言以外、値の格納などはしていないので、null値が入っているかと思います。

makeSQLの真偽判定を行うAnimalReportNumberSQLという関数ですが、SQL文やnull値の真偽というのは何なのでしょうか…。
makeSQLがどういう値の時に真、偽なのか、まだわかりかねるところがあります。
お手数ですが再度、お手すきの時や気が向いた時等に、コメント等いただけますと幸いです。
よろしくお願いします。

2019/12/03 20:00:46

■
Function ステートメント (VBA) | Microsoft Docs https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/function-statement

VBAのFunctionの戻り値は、Function名に値を代入することで返却します。

■
Public Function AnimalReportNumberSQL(ByRef makeSQL As String) As Boolean
AnimalReportNumberSQL = False
…
makeSQL=（SQL文のようなものがが10行ぐらい出てきます）
…
AnimalReportNumberSQL = True
Exit Function

AnimalReportNumberSQLの戻り値は、上記の関数の処理次第です。

仮に、処理の最後までプログラムが走って、

「AnimalReportNumberSQL = True」

が実行されてるのなら、

戻り値は、Trueです。

■
If Not AnimalReportNumberSQL(makeSQL) Then

AnimalReportNumberSQL(makeSQL)の処理が走って、戻り値が、Tureに確定すれば

If Not True Then

と同じ。

2019/12/03 20:46:25

ありがとうございます。そうなんですね。
makeSQLが戻り値だと思っているのですが…"()"内にある、という理由で、そう判断しております。
ただAnimalReportNumberSQL = Trueの時は、makeSQLにはSQL文等、何も入ってない…ということは、

AnimalReportNumberSQL(makeSQL)
↓
AnimalReportNumberSQL(null)

で、AnimalReportNumberSQLの戻り値はnullというのは誤解でしょうか…。
もう1回、一行ずつ実行して、イミディエイトウインドウでmakeSQLとAnimalReportNumberSQLの値を追ってみます。

2019/12/09 22:09:40

＞makeSQLが戻り値だと思っているのですが

「ByRef makeSQL」で、参照渡しになってるが、それは、関数の戻り値という意味ではない。

■
＞AnimalReportNumberSQL(null)
＞で、AnimalReportNumberSQLの戻り値はnullというのは誤解でしょうか…。

それは、Public Function AnimalReportNumberSQL()の処理の内容次第だと思う。

■
簡単なプログラムを組んで動作確認してみればよいかと思う。

Public Function FncTest(ByRef aa As String) As Boolean
FncTest = False
aa = "123456";
End Function

上記関数を作って、

aa= "xxx"
bb = FncTest(aa)

Debug.Print aa
Debug.Print bb

===
結果

aa => 123456
bb => False

===

「ByRef aa」は、参照渡しだけど、関数の戻り値とは別。

if Not FncTest(aa) Then
MsgBox "ようこそ！"
End If

2019/12/09 23:29:19

引数の値渡しと参照渡し - Visual Basic | Microsoft Docs https://docs.microsoft.com/ja-jp/dotnet/visual-basic/programming-guide/language-features/procedures/passing-arguments-by-value-and-by-reference

2019/12/09 23:30:24

AnimalReportNumberSQL(null)

参照渡しのところに、nullを渡しても大丈夫なように
AnimalReportNumberSQLは作られてるのか？逆に気になる。

「ByRef makeSQL As String」
なので、

SQLの文字列？は、makeSQL で返却して、
AnimalReportNumberSQLの戻り値で、成功・失敗を判断させてるとか
そういう構造の可能性とかも考えられる。

2019/12/09 23:34:01

ありがとうございます、サンプルプログラムまでいただきまして、助かります！
ぜひ実践させていただきます♪

2019/12/10 18:23:38

ちなみに、いただいたサンプルプログラムなのですが。
Accessの場合、Excel VBAで標準モジュールで実行するみたいに。
フォームとかフォームのボタンとかをクリックしたときのイベントプロシージャとかでなくても。

上記プログラムだけの実行は、できますでしょうか？
その場合、Accessのどの画面から稼働させればよいのでしょうか…度々すみません。
質問は締め切ってしまいましたが、もし気が向きましたらご助言いただけますと幸いです。
よろしくお願い致します<m(__)m>

2019/12/10 18:28:42

AutoExec マクロは、単に AutoExec という名前が付けられたマクロです。データベースの起動時、Access で他のマクロや VBA コードが実行される前に、AutoExec マクロが実行されます。

データベースを開いたときに実行されるマクロを作成する - Access
https://support.office.com/ja-jp/article/%E3%83%87%E3%83%BC%E3%82%BF%E3%83%99%E3%83%BC%E3%82%B9%E3%82%92%E9%96%8B%E3%81%84%E3%81%9F%E3%81%A8%E3%81%8D%E3%81%AB%E5%AE%9F%E8%A1%8C%E3%81%95%E3%82%8C%E3%82%8B%E3%83%9E%E3%82%AF%E3%83%AD%E3%82%92%E4%BD%9C%E6%88%90%E3%81%99%E3%82%8B-98ba1508-dcc6-4e0f-9698-a4755e548124

Public Function FncTest(ByRef aa As String) As Boolean
FncTest = False
aa = "123456"
End Function

Public Function Main() As Boolean
aa= "xxx"
bb = FncTest(aa)

Debug.Print aa
Debug.Print bb

End Function

AutoExec マクロを作成して、
そのマクロで、Main()が実行されるように設定すれば
どうでしょうか？

2019/12/10 18:49:46

kaoato · Accepted Answer · 2019-12-01T04:14:50+09:00

No.2

kaoato236862019/12/01 04:14:50ここでベストアンサー

1000pt

■
ご存じだとは思うのですが、

VBAの開発環境では、

・ステップ実行
・ブレイクポイントの設定

ができるはずですので、

実際に、ステップ実行させたら、動作がよくわかるのでは？と思います。

■

＞If Not AnimalReportNumberSQL(makeSQL) Then

この１行を実行する場合は、

まず　AnimalReportNumberSQL(makeSQL)　部分が実行されるはずです。

AnimalReportNumberSQL（）は、ユーザー定義関数だと思われますので、

当然、

Public Function AnimalReportNumberSQL(ByRef makeSQL As String) As Boolean

に飛びます。

で、その関数内で処理が終わったら、

元に戻ってきて、

AnimalReportNumberSQL(makeSQL)の返り値（戻り値）に　NOT演算したものを評価して

真なら、 Exit Function
義なら、End Ifの次の行に飛びます。

他7件のコメントを見る

はい、F8キーでステップ実行はしていたのですが…よくわかりませんでした。
kaoatoさんとrscさんのご回答で、関数に飛んでいるというのが判りました。

ただ度々すみません、

If Not AnimalReportNumberSQL(makeSQL) Then
Exit Function
End If

ですが、判定分として成り立っているのでしょうか。
makeSQLは、Falseの時に長いSQL文、Trueの時は…特に「Dim makeSQL As String」という変数宣言以外、値の格納などはしていないので、null値が入っているかと思います。

makeSQLの真偽判定を行うAnimalReportNumberSQLという関数ですが、SQL文やnull値の真偽というのは何なのでしょうか…。
makeSQLがどういう値の時に真、偽なのか、まだわかりかねるところがあります。
お手数ですが再度、お手すきの時や気が向いた時等に、コメント等いただけますと幸いです。
よろしくお願いします。

2019/12/03 20:00:46

■
Function ステートメント (VBA) | Microsoft Docs https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/function-statement

VBAのFunctionの戻り値は、Function名に値を代入することで返却します。

■
Public Function AnimalReportNumberSQL(ByRef makeSQL As String) As Boolean
AnimalReportNumberSQL = False
…
makeSQL=（SQL文のようなものがが10行ぐらい出てきます）
…
AnimalReportNumberSQL = True
Exit Function

AnimalReportNumberSQLの戻り値は、上記の関数の処理次第です。

仮に、処理の最後までプログラムが走って、

「AnimalReportNumberSQL = True」

が実行されてるのなら、

戻り値は、Trueです。

■
If Not AnimalReportNumberSQL(makeSQL) Then

AnimalReportNumberSQL(makeSQL)の処理が走って、戻り値が、Tureに確定すれば

If Not True Then

と同じ。

2019/12/03 20:46:25

ありがとうございます。そうなんですね。
makeSQLが戻り値だと思っているのですが…"()"内にある、という理由で、そう判断しております。
ただAnimalReportNumberSQL = Trueの時は、makeSQLにはSQL文等、何も入ってない…ということは、

AnimalReportNumberSQL(makeSQL)
↓
AnimalReportNumberSQL(null)

で、AnimalReportNumberSQLの戻り値はnullというのは誤解でしょうか…。
もう1回、一行ずつ実行して、イミディエイトウインドウでmakeSQLとAnimalReportNumberSQLの値を追ってみます。

2019/12/09 22:09:40

＞makeSQLが戻り値だと思っているのですが

「ByRef makeSQL」で、参照渡しになってるが、それは、関数の戻り値という意味ではない。

■
＞AnimalReportNumberSQL(null)
＞で、AnimalReportNumberSQLの戻り値はnullというのは誤解でしょうか…。

それは、Public Function AnimalReportNumberSQL()の処理の内容次第だと思う。

■
簡単なプログラムを組んで動作確認してみればよいかと思う。

Public Function FncTest(ByRef aa As String) As Boolean
FncTest = False
aa = "123456";
End Function

上記関数を作って、

aa= "xxx"
bb = FncTest(aa)

Debug.Print aa
Debug.Print bb

===
結果

aa => 123456
bb => False

===

「ByRef aa」は、参照渡しだけど、関数の戻り値とは別。

if Not FncTest(aa) Then
MsgBox "ようこそ！"
End If

2019/12/09 23:29:19

引数の値渡しと参照渡し - Visual Basic | Microsoft Docs https://docs.microsoft.com/ja-jp/dotnet/visual-basic/programming-guide/language-features/procedures/passing-arguments-by-value-and-by-reference

2019/12/09 23:30:24

AnimalReportNumberSQL(null)

参照渡しのところに、nullを渡しても大丈夫なように
AnimalReportNumberSQLは作られてるのか？逆に気になる。

「ByRef makeSQL As String」
なので、

SQLの文字列？は、makeSQL で返却して、
AnimalReportNumberSQLの戻り値で、成功・失敗を判断させてるとか
そういう構造の可能性とかも考えられる。

2019/12/09 23:34:01

ありがとうございます、サンプルプログラムまでいただきまして、助かります！
ぜひ実践させていただきます♪

2019/12/10 18:23:38

ちなみに、いただいたサンプルプログラムなのですが。
Accessの場合、Excel VBAで標準モジュールで実行するみたいに。
フォームとかフォームのボタンとかをクリックしたときのイベントプロシージャとかでなくても。

上記プログラムだけの実行は、できますでしょうか？
その場合、Accessのどの画面から稼働させればよいのでしょうか…度々すみません。
質問は締め切ってしまいましたが、もし気が向きましたらご助言いただけますと幸いです。
よろしくお願い致します<m(__)m>

2019/12/10 18:28:42

AutoExec マクロは、単に AutoExec という名前が付けられたマクロです。データベースの起動時、Access で他のマクロや VBA コードが実行される前に、AutoExec マクロが実行されます。

データベースを開いたときに実行されるマクロを作成する - Access
https://support.office.com/ja-jp/article/%E3%83%87%E3%83%BC%E3%82%BF%E3%83%99%E3%83%BC%E3%82%B9%E3%82%92%E9%96%8B%E3%81%84%E3%81%9F%E3%81%A8%E3%81%8D%E3%81%AB%E5%AE%9F%E8%A1%8C%E3%81%95%E3%82%8C%E3%82%8B%E3%83%9E%E3%82%AF%E3%83%AD%E3%82%92%E4%BD%9C%E6%88%90%E3%81%99%E3%82%8B-98ba1508-dcc6-4e0f-9698-a4755e548124

Public Function FncTest(ByRef aa As String) As Boolean
FncTest = False
aa = "123456"
End Function

Public Function Main() As Boolean
aa= "xxx"
bb = FncTest(aa)

Debug.Print aa
Debug.Print bb

End Function

AutoExec マクロを作成して、
そのマクロで、Main()が実行されるように設定すれば
どうでしょうか？

2019/12/10 18:49:46

VBAでIf文に入らずに別のFunctionに飛ぶ理由がわかりません

質問者から

ベストアンサー

kaoato236862019/12/01 04:14:50

その他の回答（1件）

rsc44974362019/11/29 21:46:12

kaoato236862019/12/01 04:14:50ここでベストアンサー

コメント（0件)

この質問への反応（ブックマークコメント）