VBA データの抽出とシートへの書き出し

Question

VBAについてです。

ある列から3つの種類の値を抽出して、それぞれの行を3つのシートへ転記しようと考えています。

3つの値を　「0」　「10から始まる数」　「その他」　といった風に分類しようと思います。
その際に、IF文を使えば条件の分岐ができるとは思うのですが、「10から始まる数字」という分類がどう定義すればいいのかわかりません。

参考になるサイトなどあればぜひ教えて頂きたいです。
よろしくお願いいたします。

Comments

[tatsu99]

3つの種類の値は、全て０以上の整数という前提で良いのですか。
それとも、-32とか3.5とかaaaとか等も含まれますか。

[meg_]

正規表現はどうでしょうか？
「vba 正規表現」で検索すれば情報がたくさんあるはずです。

[yama0131]

tatsu99さん
全て0以上の整数になります！

meg_さん
ありがとうございます！調べてみます！！！

Answer 1

＞「10から始まる数字」という分類がどう定義すればいいのかわかりません。
もっとも簡単なのが、文字列に変換して、先頭の２ケタが"10"かどうかで判定する方法です。
like演算子を使います。

以下は、数値が与えられら時、その分類を返す関数です。

Option Explicit

Sub 数値判定()
    Debug.Print 1019, 分類(1019)
    Debug.Print 1100, 分類(1100)
    Debug.Print 10, 分類(10)
    Debug.Print 13, 分類(13)
    Debug.Print 0, 分類(0)
End Sub

'0の場合：0を返す
'先頭が10の場合：1を返す
'上記以外の場合：2を返す
Private Function 分類(ByVal val As Long) As Long
    Dim str As String
    If val = 0 Then
        分類 = 0
        Exit Function
    End If
    '文字列に変換
    str = CStr(val)
    If str Like "10*" Then
        分類 = 1
        Exit Function
    End If
    分類 = 2
End Function

実行結果

 1019          1 
 1100          2 
 10            1 
 13            2 
 0             0 

Comments

[yama0131]

ありがとうございます！
無事10から始まる数を抽出できました！