VBA Fuction 戻り値

以下はtarget変数に文字列が入っており、別のシートにその文字列が存在するか判定するプログラムです。
hikaku2プロシージャを複数呼び出して何回か処理しているのですが、別シートに存在するはずなのにFuction関数の戻り値がFalseになってしまいます。
Debug.printで結果がTrueになっていることも確認していますがhikaku2ではElseで処理されてしまいます。
以下のコードの中は問題ないのでしょうか
ちなみに以下のコードとほぼ同じものが、もう一つ存在します。複数回使えないものなどあるのでしょうか？

Sub hikaku2()

e = 2
Set this = ThisWorkbook.Worksheets("イベント")

Do While e = 2

target = this.Cells(2, 7).Value

         Application.ScreenUpdating = False
     
        If target Like "初期表示" Then '初期表示という文字列なら

           Call IsContained2(target)

           If kekka2 = True Then

             this.Cells(e, 9).Value = "一致"
             
           Else '全てこっちで処理されてしますう

             this.Cells(e, 9).Value = "不一致"

           End If
               
        End If
        

        If Not target Like "初期表示" Then　'初期表示という文字列以外なら
        
        Call tes2(target)

           If answer2 = True Then
           this.Cells(e, 9).Value = "一致"
           
           Else　'全てこっちで処理されてしまう
           this.Cells(e, 9).Value = "不一致"
           
           End If

        End If

      e = e + 1

 Loop
     
End Sub



Function IsContained2(target) As Boolean

On Error Resume Next

num2 = Application.WorksheetFunction.Match(target, ThisWorkbook.Worksheets("Sheet3").Range("A1:A1000").Offset(0, nn), 0) '　ここで別シートにtargetがあるか判定　nnは別で更新しています

On Error GoTo 0

If num2 = 0 Then
   kekka2 = False
Else 'こっちになるときもある
   kekka2 = True
End If

End Function




Function tes2(target) As Boolean

On Error Resume Next

num2 = Application.WorksheetFunction.Match(target, ThisWorkbook.Worksheets("Sheet3").Range("A1:A800").Offset(0, nn), 0)

On Error GoTo 0

If num2 = 0 Then
   answer2 = False

Else　'こっちになるときもある
   answer2 = True

End If


End Function

行動規範の内容に同意します

回答4件

解決済みですが、
Functionの機能を理解されていないようなので、補足説明します。

おそらくkekka2、answer2 をグローバル変数として宣言して(標準モジュールの先頭で宣言)解決したのだと思いますが、せっかくのFunctionの機能がまったく生かされていない使い方なのでもったいないです。
また、グローバル変数はコードの可読性が下がるし、バグの原因になりやすいので避けるべきだとされています。

下記のようにFunctionの戻り値を利用すればグローバル変数を使う必要はありません。
また、nnもグローバル変数としているようですが、引数で渡すように変更しましょう。
（詳細が不明なので、下のコードではグローバル変数のままにしてますが。）

vba
1Option Explicit '変数宣言強制 バグを防ぐために必須
2
3Dim nn As Long
4
5Sub hikaku2()
6    Dim this As Worksheet
7    Set this = ThisWorkbook.Worksheets("イベント")
8
9    Dim e As Long
10    e = 2
11
12    Application.ScreenUpdating = False
13
14    Do While e = 2  'このDo While は必要ですか？現状だと常に一回しか実行れません。
15        Dim target
16        target = this.Cells(2, 7).Value
17
18        If target Like "初期表示" Then    '"初期表示"という文字列なら
19
20            If IsContained2(target) = True Then 'Functionの戻り値で判別
21                this.Cells(e, 9).Value = "一致"
22            Else
23                this.Cells(e, 9).Value = "不一致"
24            End If
25
26        Else  '"初期表示"という文字列以外なら
27
28            If tes2(target) = True Then 'Functionの戻り値で判別
29                this.Cells(e, 9).Value = "一致"
30            Else
31                this.Cells(e, 9).Value = "不一致"
32            End If
33
34        End If
35
36        e = e + 1
37
38    Loop
39
40    Application.ScreenUpdating = True    '画面更新許可に戻しておく
41
42End Sub
43
44Function IsContained2(target) As Boolean
45
46    On Error Resume Next
47    
48    Dim num2 As Long
49    num2 = Application.WorksheetFunction.Match( _
50               target, _
51               ThisWorkbook.Worksheets("Sheet3").Range("A1:A1000").Offset(0, nn), _
52               0)
53                   'ここで別シートにtargetがあるか判定
54                   'このnnはどこで取得しているか不明なのでそのままにしているが、
55                   'グローバル変数とするのではなく引数で渡すようにすべき
56    On Error GoTo 0
57
58    If num2 = 0 Then
59        IsContained2 = False '結果を関数名に代入することで戻り値して利用できる。
60    Else
61        IsContained2 = True '結果を関数名に代入することで戻り値して利用できる。
62    End If
63    
64    '上記の4行は下記のように1行で記述することもできる。
65    IsContained2 = (num2 = 0)
66
67End Function
68
69Function tes2(target) As Boolean
70
71    On Error Resume Next
72
73    Dim num2 As Long
74    num2 = Application.WorksheetFunction.Match( _
75               target, _
76               ThisWorkbook.Worksheets("Sheet3").Range("A1:A800").Offset(0, nn), _
77               0)
78                   'ここで別シートにtargetがあるか判定
79                   'このnnはどこで取得しているか不明なのでそのままにしているが、
80                   'グローバル変数とするのではなく引数で渡すようにすべき
81
82    On Error GoTo 0
83
84    If num2 = 0 Then
85        tes2 = False
86    Else
87        tes2 = True
88    End If
89    
90    '上記の4行は下記のように1行で記述することもできる。
91    tes2 = (num2 = 0)
92
93End Function

投稿2020/09/11 08:08

hatena19

総合スコア34075

sousuke

2020/09/11 08:56

めんどくさくて書かなかったことをやってもらって申し訳ない気分だぁ…ありがとうございます！m(__)m

yakumo02

2020/09/11 13:51

ご指摘ありがとうございます！

行動規範の内容に同意します

解決してしまっていますが、一言二言。

今回の原因を再発させないためにも、コード内冒頭でOption Explicitを定義することをお勧めします。
これを定義しておくと未定義の変数はエラーになります。

またコード内に全角スペースが3ヵ所をありました（コメント内を除く）
基本的にプログラムのコードに全角スペースは論外です。
VBAは割とルーズなので許されているようですが、他の言語ではほぼエラーになります。
今はVBAだからいいじゃん、という考えもありますが、半角か全角かは意識して使うようにしたほうがよいでしょう。

投稿2020/09/11 08:12

ttyp03

総合スコア17000

yakumo02

2020/09/11 13:51

ご指摘ありがとうございます！

行動規範の内容に同意します

私の認識ではVBAのFunctionの戻り値というのは
「そのFunction内でFunction名に対して代入して呼び出し元に値を返す」
ことを言います。

提示のコードを直すと以下のようになります。

vba
1Function IsContained2(target) As Boolean
2
3On Error Resume Next
4
5num2 = Application.WorksheetFunction.Match(target, ThisWorkbook.Worksheets("Sheet3").Range("A1:A1000").Offset(0, nn), 0) '　ここで別シートにtargetがあるか判定　nnは別で更新しています
6
7On Error GoTo 0
8
9If num2 = 0 Then
10   ' kekka2 = False
11    IsContained2 = False ' Booleanを返す
12Else 'こっちになるときもある
13   ' kekka2 = True
14    IsContained2 = True
15End If
16
17End Function

で呼び出し元で「Functionの戻り値」を受け取ります。

vba
1    Dim kekka2 As Boolean ' 変数は宣言しましょ
2'~~~ 略
3
4    'Call IsContained2(target)
5    kekka2 = IsContained2(target)  ' Functionの戻り値を変数に代入する
6
7    if kekka2 = True Then