数値を入力してメッセージに入力した数値以上が表示されるようにしたい

Question

前提・実現したいこと

VBAでメッセージに数値を入力し、A1～A10の範囲でその入力された値以上が表示できるようにしたい

発生している問題・エラーメッセージ

IngTotalの型が一致せず、コンパイルできない状態です。

型が一致しません

該当のソースコード

Sub 練習()
Dim strIn As String                                                
    Dim lngIn As Long                                                   
    Dim i As Long                                                        
    Dim lngTotal(10) As Long 
    Erase IngTotal

    strIn = InputBox("数値を指定して下さい。", "数値入力")   
    If strIn = "" Then

        MsgBox "数値が指定されませんでした。", , "警告"      
    Else
        lngIn = strIn                                                    
                                                          
        For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row         
            If Cells(i, 1) >= lngIn Then                              
                lngTotal(10) = Cells(i, 1)     
            End If
        Next i
        MsgBox "数値以上" & lngTotal, , "結果"                                  
    End If


    
End Sub

試したこと

配列に要素を入れて複数の値が入るようにした。

補足情報（FW/ツールのバージョンなど）

Microsoft Visual Basic

Answer 1

Dim lngTotal(10) As Long 
Erase IngTotal

↑宣言しているのは「lngTotal」。「IngTotal」ではない。

Dim strIn As String
Dim lngIn As Long

'中略

lngIn = strIn

↑「lngIn」はlong型。「strIn」はString型。long型の変数にString型の値は入らない。

MsgBox "数値以上" & lngTotal, , "結果"

↑lngTotalは配列。MsgBoxで配列は表示できない。

Comments

[bd_]

IngTotalは修正しました。もし何も入力されなかった場合はlngTotalでどう表現すればよろしいでしょうか。3つ目の表示の仕方に関してはCells(1, 2) = lngTotal(10)で表示すれば良いでしょうか。

[tkturbo]

> もし何も入力されなかった場合は

？？？その場合のエラーハンドリングは自分で書いてますよね？

[tkturbo]

> 3つ目の表示の仕方

「vba」「配列」「MsgBox」あたりのキーワードで検索してみては？

Answer 2

多分、指定した数値以上のものを列挙して表示させたいのだと思いますが、コンパイルエラー以外にも配列の扱いを誤っています。

スペルミスを防ぐにはOption Explicitによって変数の宣言を強制させると、コンパイル時のエラーとすることができます。

Option Explicit

Sub 練習()
Dim strIn As String
    Dim lngIn As Long
    Dim i As Long, j As Long
    Dim lngTotal(10) As String '()内は配列のサイズ
    Erase lngTotal '←スペルミス

    strIn = InputBox("数値を指定して下さい。", "数値入力")
    If strIn = "" Then

        MsgBox "数値が指定されませんでした。", , "警告"
    Else
        lngIn = strIn
        j = 0
        For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
            If Cells(i, 1) >= lngIn Then
                lngTotal(j) = Cells(i, 1)  '()内はアクセスする配列の位置
                j = j + 1
            End If
        Next i
        MsgBox "数値以上" & Join(lngTotal, ","), , "結果"　'表示用なので配列を文字型にした
    End If
End Sub

Answer 3

１次元配列は、Join([配列],",") 等とすると、文字列に変換できます。