VBA 変数に代入された値が数値のみで構成か、数値と文字で構成されているかで条件分岐する方法

Question

下記内容で、book_numberの中身が数値のみの時と、英数字で構成されている場合があるのですが、これを条件分岐の条件としてIf文を作成したいです。
文字列が数値のみで構成されている場合をTrueとして条件分岐する場合、どのように記述したらよろしいでしょうか。
ウェブでも調べましたが、内容が一致するものが見つかりませんでしたのでよろしければご教授お願いいたします。

以上よろしくお願いいたします。

If　book_number ***  Then
folder_number = ThisWorkbook.Sheets(1).Range("A2").Value
folder_number = Left(number, 2)
book_number = ThisWorkbook.Sheets(1).Range("A2").Value
book_number = Left(number, 3)


book_number = 135(数字で構成）または　21A（英数字で構成）これを分岐条件としたい

Answer 1

book_number = "A123"
If IsNumeric(book_number) = True Then
    MsgBox "数字のみです"　& VbCrLf & book_number
Else
    ' この場合こちらを通りますね
    MsgBox "文字が混じっています"　& VbCrLf & book_number
End If

例えばこんなふうに記述できるのではありませんか？

あとはitagagakiさんも仰っている通り、お調べになるのがよろしいかと…

Comments

[退会済みユーザー]

PROoJI3様
ご返信ありがとうございます。

調べて無事解決いたしました。
ありがとうございました。

[PROoJI3]

それは良かったです

Answer 2

IsNumeric 関数 (Visual Basic for Applications) | Microsoft Docs
を使用すると良いと思います。

Comments

[退会済みユーザー]

itagagaki様

ご返信ありがとうございます。
教えていただいた内容で条件分岐できました。

ありがとうございました。