条件分岐について想定の動きができない

前提・実現したいこと

条件分岐でセルにパスが設定されているかを判断したいのですが、
C3セルが空(パスが設定されていない)の状態の場合は、MsgBox "設定されていません"があるところに通すようにしたのですが、うまく行きません。
Elseルートに処理が進んでしまいます。

逆にB3にはパスを設定していて、そこを対象にして条件を通すと想定のElseに入ってくれます。

該当のソースコード

VBA
1
2Function 条件分岐()
3 
4    Dim filepath As String
5 
6    'filepath = Range("B3").Value '設定あれている
7    filepath = Range("C3").Value '設定されていない
8    
9    If Dir(filepath) = "" Then
10        MsgBox "設定されていません"
11  
12    Else
13         MsgBox "設定されています"
14    
15　　End If
16 
17End Function
18

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

回答4件

ExcelVBA
1Sub testメイン()
2    Dim sPath As String
3    
4    sPath = Range("A1").Value
5    
6    If chk存在確認(sPath) Then
7        MsgBox "有り"
8    Else
9        MsgBox "無し"
10    End If
11End Sub
12
13Private Function chk存在確認(ByVal s As String) As Boolean
14    If Len(s) > 0 Then
15        If Len(Dir(s)) > 0 Then
16            chk存在確認 = True
17        End If
18    End If
19End Function

こんな構えの方が関数らしい振る舞いでは？
自作した関数も、VBAに元からある関数も、使い方は一緒なので、
元からある関数がどのような振る舞いをしているか、
いろいろ試してみて研究してみましょう＾＾

それから、
やりたいことはファイルの存在確認ですか？
そして、有った場合には何がしたいのですか？
参考までに。。。。
もしかしたら、もう少し踏み込んで聞いてみた方が、
いろいろなアドバイスが貰えるかも？

投稿2019/09/04 06:46

mattuwan

総合スコア2136

vba
1    If filepath ="" Or Dir(filepath) = "" Then
2        MsgBox "設定されていません"
3    Else
4         MsgBox "設定されています"
5　　End If

かな？
ただ、If の条件は両方評価するので、Dir("")判定が無駄になるので、拘るなら下記で。

vba
1    If filepath ="" Then
2        MsgBox "設定されていません"
3    ElseIf Dir(filepath) = "" Then
4        MsgBox "設定されていません"
5    Else
6        MsgBox "設定されています"
7　　End If