「10桁の値の頭から4桁目の数字が何か」というのを見たいです。

Question

10桁の値がいっぱいセルに入れてあります。
必ず10桁で、たいていは数字ですけど、もしかしたらアルファベットが混じるかもしれません。
こんなかんじ

6170807942
5252531929
6530129749
3270879329
4109506321
5979403547
8894818880
1946147951
5167185123
2071739034
…（後略

これの頭から4桁目の数字は何でしょうか
というのを見るためのものを書きました。

Function atama4(ByVal strNum As String)

Dim arrNum(9) As String
Dim i As Long

For i = 0 To 9
    arrNum(i) = Mid(strNum, i + 1, 1)
Next i
atama4 = arrNum(3)

End Function

atama4(5167185123)
ってやると
7
が返ります。

これでいいんですけど
なんか
初心者みたい…
いや初心者なんですけど…

世の中の皆様は
頭から何桁目の値を持ってくる
というときには、普通はどのようにしていらっしゃるのでしょうか？

Answer 1

折角Mid使ってるんだから、活用しないと！

Function atama4(ByVal strNum As String)
    atama4 = Mid(strNum, 4, 1)
End Function

Comments

[sumire_cl]

あ
そっか
midだけでもいけますね(^^;
難しく考えすぎてました…

Answer 2

現在macの環境しかなく動作確認出来ていないのですが、今までの回答などを踏まえ、
実装してみました。

[要件]
*指定の文字列(あらゆる文字が混じる)から指定した番目に登場した数字を返却
*(自分で追加)上記が存在しない場合は異常と皆し、異常値を返却する

[補足]
*もしかしたらアルファベットが混じるかもしれません
提示頂いたコードはこの要件が満たせていません。
回答されている方のコードの多くも満たせていません。

' 引数 pStr から pNumber 回目に登場する数字を返却
' (pStr に pNumber 個の数字が存在しない場合は -1 を返却)
Private Function GetNumber(ByRef pStr As String, Optional ByRef pNumber as Long = 4) as Long
    
    ' 変数宣言
    Dim numCount as Long
    Dim i As Long
    
    ' 数字出現回答初期化
    numCount = 0
    
    ' 全文字走査
    For i = 1 To Len(pStr)
        
        ' 文字が数値だった場合
        If IsNumeric(Mid(strNum, i, 1)) Then

            ' 数字出現回数をカウントアップ
            numCount = numCount + 1
        
            ' 出現回数が pNumber に達した場合はその値を返却し処理終了
            If pNumber = numCount Then
                GetNumber = Mid(strNum, i, 1)
                Exit Function
            End If

        End If

    Next
    
    ' 対象が見つからなかった場合は -1 を返却
    GetNumber = -1

End Function

Comments

[sumire_cl]

うわあありがとうございます！
ご推察のことと思いますがこの10桁はコードで
頭から4桁目（この桁は絶対数字のはず）の数字で、このデータがどのDBに入ってるかを見分ける
というものです。
別の桁にはアルファベットが来るかもしれない桁もあります。

実はアルファベットが来たらそこを抜かして数字だけ数えて何個目みたいな判定もしないといけないところもあり
そこんとこはどうしようかなと思っていました。
質問が稚拙で足りなかったのにそこらへんまて回答していただいてマジすごい！エスパーですか！と喜んでおります。

Answer 3

何桁目？も可変にするなら、こんな感じで。

Function atama(ByVal strNum As String, n As Integer)
    atama = Mid(strNum, n, 1)
End Function

４桁目なら、n=4で。
しかしここまで書いてみて、セルにmid関数入力するのと何が違うの？と自問してしまいました＾＾；

Comments

[sumire_cl]

ありがとうございます。
関数をセルにぴゃーって入れちゃえばラクチンなんですが
そのようなわけにいかない事情があり…(´・ω・｀)

Answer 4

Right(Left(Num,4),1) なんてのも見たことあるような笑

折角なんで、数字かどうかの判定用関数を参考まで。
※単純に数値だけで良ければ IsNumeric で十分です。
場合によっては、円マークはいいとか、小数の有無とか、
そういう微調整が簡単にできるマニア向けな感じです。

Public Function IsNumbers(Expression As Variant) As Boolean
'対象が数字か判定
    
    If CStr(Expression) = "" Then Exit Function
    
    '各文字毎に、数字かどうか判定し、
    Dim i   As Long
    For i = 1 To Len(CStr(Expression))
        
        '対象外があれば終了
        If InStr(1, "0123456789", Mid$(Expression, i, 1), vbTextCompare) = 0 Then Exit Function
        
    Next
    
    IsNumbers = True
    
End Function