Val関数の使い方はデータ型不一致の解決策。値を文字列型から数値型へ

こんにちは、じゅんぱ店長（@junpa33）です。

今回のテーマは、値のデータ型を「文字列型から数値型」へ変換してくれるVal関数についてです。

どういった時に使うかというとですが、

エクセルにおいての四則計算などでは、エクセルが融通を効かして

数値とみなせる文字列は『それは数値』として自動的に四則計算をしてくれます。

なので、いらない（気にしない）ことも多いかもしれません。

けれども・・・

・・・この関数を知っておかないと不都合な時が結構あります。

「関数リファレンス」を調べる

Val関数はデータ型不一致の解決策になる

Val関数は、文字列を数値に変換する関数です。

データ処理時に、文字列化した数字を演算してしまうとエラーストップしてしまいます。

また、同じ数字であっても数値型と文字列型では、データのソート、並び替えや抽出の処理の時には

想定している結果が得られないことが多くあります。

Val関数とはそういった困ったことが無いように、

データ型を変換することによって、問題を起こさないための関数です。

Val関数の構文

文字列の左端の文字から右へ順に数値に変換していきます。

数値化の対象は数字と、記号の中で「半角スペース」「タブ」「.(ドット)」になります。

それ以外の文字・記号が含まれていた時は、

左から順にその文字・記号が出てきた時点でストップし、そこまでの数値として変換、終了します。

Val関数の使い方とデータ型変換に関連したサンプルコード

「値を文字列型から数値型へ変換する」ことに関連しての例題を説明します。

例題の事前設定

元のデータベースとして「商品IDと商品名」があります。

「商品ID」はよくある「文字列型の数字データ」になっています。「商品名」はもちろん文字列型のデータです。

商品IDから検索して商品名を抽出するというプログラムを考えます。

Val関数のサンプルコード

Val関数テスト1

「データベースの商品IDの文字列型」と「検索商品IDの数値型」をそのままで変換せずに使います。

設定した変数

• 検索商品ID・・・SeleIDa
• リストアップ個数・・・EC
• データベースにSeleIDが掲載されている行NO・・・s
• ループ回数を表す変数・・・t

「If Range("A" & s).Value = SeleIDa Then」はデータ型が違う者同士の参照となるコードになっています。

テストコード1

Sub Val関数テスト1()

Dim SeleIDa As Long
Dim EC As Long
Dim s As Long, t As Long

'検索条件設定セル入力
    SeleIDa = Range("D3").Value
    EC = Range("E3").Value
    
'For Next でデータベースをチェック
        For s = 5 To 22
            If Range("A" & s).Value = SeleIDa Then
                Exit For
            End If
        Next s
    
        For t = 0 To EC - 1
            Range("D" & 6 + t) = Range("A" & s + t)
            Range("E" & 6 + t) = Range("B" & s + t)
        Next t

End Sub

【実行結果】

今回の場合は、結果、エクセル側で自動的に数字の文字列を数値と判断して、エラーストップを起こさずに実行完了してくれました。

たまたま的で、ノーマルなコード記述方法ではないと言えます。

MEMO

利用したステートメント

For ～ Next ・・・指定回数だけ同じ作業を繰り返す

エクセルVBA！For～Nextのループと入れ子構造をVBA最速理解

Val関数テスト2

このテストでは、Val関数を使わずに行います。

「データベースの商品IDの文字列型」に「検索商品IDの数値型」を合わす。

「検索商品IDの数値型」を文字列型に変換するという方法をとります。

『調べる側を元データの型に合わせる。』という一番ノーマルな方法です。

設定した変数

• 検索商品ID・・・SeleIDb
• 検索商品のデータベース掲載位置の行NO（相対位置）・・・MR
• 検索商品IDの文字列化したデータ・・・StrID
• ループ回数を表す変数・・・q

商品ID番号は、文字列化して桁数を統一していることが多く、今回は7桁に統一しています。
数値データを文字列化するときには、桁数の調整に注意します。

StrID = "0" & CStr(SeleIDb)

コード

Sub Val関数テスト2()

Dim SeleIDb As Long
Dim MR As Long
Dim StrID As String
Dim q As Long

'検索商品IDそれぞれをデータベースとマッチさせる
    For q = 0 To 4
        SeleIDb = Range("D" & 16 + q).Value
'検索商品IDを文字列型に変換する
        StrID = CStr(SeleIDb)
'桁数をチェックして統一桁数に揃える
            If Len(StrID) = 6 Then
                StrID = "0" & CStr(SeleIDb)
            End If
'Match関数でデータベース参照する
            On Error Resume Next
            MR = WorksheetFunction.Match(StrID, Range("A5:A22"), 0)
            
            Range("E" & 16 + q) = Range("B" & MR + 4)
    Next q

End Sub

【実行結果】

調べる側のデータ型をデータベースの方に合わせて変換し、問題なく商品名を抽出することが出来ました。

数値型を文字列型に変換するCStr関数を利用しました。

Match関数を利用する場合は、セットのコードとして、

On Error Resume Nextというエラー回避のコードも記述しておきます。

MEMO

利用した関数

CStr関数・・・「数値型」を「文字列型」に変換する

Str関数とCStr関数 データ型変換方法の知っておくべき違いと使い方

Len関数・・・対象の文字列の文字数を調べる

Len関数・LenB関数で文字列の文字数を知る方法。使用例で解説します

Match関数・・・データを検索しその存在位置の行または列番号を返す。

エクセルVBAで使うMatch関数 活用度アップでテッパン関数に！

Sub Val関数テスト3()

Dim SeleIDc As Long
Dim MR As Long
Dim m As Long, n As Long

'元のデータベースを数値型に変換する
'数値型に変換したデータを新たな列に並べる
    For m = 5 To 22
        Range("G" & m) = Val(Range("A" & m))
    Next m
    
    Range("G3") = "商品ID(数値)"
    
    For n = 0 To 4
        SeleIDc = Range("H" & 16 + n).Value
'Match関数でデータを参照する
        On Error Resume Next
        MR = WorksheetFunction.Match(SeleIDc, Range("G5:G22"), 0)
        
        Range("I" & 16 + n) = Range("B" & MR + 4)
    Next n

End Sub

Val関数の使い方のまとめ

エクセルVBAコードの進行の中で、データ同士を比較参照させるという流れは多くあります。

その中で発生するエラーの少なくない部分で「データ型の不一致によるエラー」があります。

数値型を文字列型に変換するStr関数やCStr関数があり、

文字列型を数値型に変換するものにVai関数があります。

この2種類はエラー回復のための必須の関数といっても言い過ぎではありません。

このVal関数以外にも同じような働きをするValue関数、ClLng関数、CDbl関数などがあります。

いずれも、「ある種の文字列」では数値変換時に「エラーコード（メッセージ）」を吐き出します。

つまり、VBAコードを停止させてしまいます。

Val関数では、数値変換不能時には「0」を吐き出しますので、

「0」を監視していれば、条件式でエラー回避することが出来ます。

また、数字の間に数値変換不可の文字が混ざっていても、

「InStr関数」や「Replace関数」などで文字ゴミを取り除くこともできます。

このような理由で、オールラウンダーのVal関数を知っていれば大丈夫かと思います。

MEMO

「InStr関数」について詳しくはこちらです。

Instr関数・InstrRev関数は文字列を検索する。ファイルパス取得に威力

「Replace関数」について詳しくはこちらです。

Replace関数は文字列を置換・削除する利用度の高い関数

短期間でエクセルVBAの独学習得を目指したいなら

エクセルVBAを独学する独習方法は、学習者それぞれ十人十色、多種多様と思われます。

けれども、

出来るだけ効率よく学習するためには、いくつかの大切なポイントがあります。

独学でもVBA習得の中級クラスに達するのはそんなに難しいことではありません。

先人が行った勉強方法をあなたがそのまま利用すればよいということです。

2021年3月18日 エクセルVBAを独学で習得する！ために大切な7つのポイントを解説します

独習のための大切な7つのポイントは、上記記事にて解説しています。

正直、VBAの学習について自分の周りの仕事（業務）からだけ実例を得るのでは効率良い習熟は無理です。

ハッキリ言って、

本当に短い期間でVBA習得を成功させたいなら、今使っている参考書が良書かどうかを判断し、新ツールとしてオンライン学習も取り入れて行うことが、

手っ取り早く短期間習得できるというのは間違いないでしょう。

エクセルVBA最速理解で必要な知識を集めよう！

今回の記事はここまでです。   最後までご覧いただき有難うございました。