配列に格納された各要素の長さをコンマで区切って調べ、その最初の桁を調べる方法

Question

配列に格納された各要素の長さをコンマで区切って調べ、その最初の桁を調べる方法

Sub validation() 

    Dim acc_validation As String 
    Dim acc_no As Variant, i As Integer 
    Dim flag1 

    flag1 = False 

    acc_validation = Range("I7").Value 

    acc_no = Split(acc_validation, ",") 

    For i = 0 To UBound(acc_no) 
     If (Len(acc_no(i) <> 16)) Then 
      If (flag1 = False) Then 
       MsgBox "Please enter the correct account number" 
       flag1 = True 
      End If 
     End If 
    Next i 

End Sub 

Answer 1

は、長さや、あなたの要素の最初の数字を取得するには、あなたがこれを試してください：：このことができます

For i = 0 To UBound(acc_no) 
    MsgBox "Length: " & Len(acc_no(i)) & " First digit: " & Left(acc_no(i), 1) 
    If (Len(acc_no(i) <> 16)) Then 
     If (flag1 = False) Then 
      MsgBox "Please enter the correct account number" 
      flag1 = True 
     End If 
    End If 
Next i 

希望..Hereは、コードです！