0

'07 エクセル VBA エラーについて Private Sub CommandButton1_Click()
Dim lrow As Long
Dim i As Long

With Worksheets("data100")
For i = 1 To 48 'コントロールの繰り返し処理
'もし納品先に入力があればシートに表示
If Me.Controls("ComboBox" & i) <> "" Then
lrow = .Range("B" & Rows.Count).End(xlUp).Row + 1
.Range("B" & lrow) = ComboBox49
.Range("C" & lrow) = ComboBox50
.Range("d" & lrow) = ComboBox51

.Range("E" & lrow) = Me.Controls("ComboBox" & i)
.Range("F" & lrow) = Me.Controls("c" & i)
.Range("G" & lrow) = Me.Controls("f" & i)
End If
Next i

ComboBox49.Value = ""
ComboBox50.Value = ""
ComboBox51.Value = ""


For i = 1 To 48
Me.Controls("ComboBox" & i).Value = ""
Me.Controls("c" & i).Value = ""
Me.Controls("f" & i).Value = ""
Next i

End With

End Sub

この構文を実行、コンボボックスやテキストボックスにより数値を入れて「登録」を押すと別シートの表に数値やデータが反映させる処理で、B・F・G列に数値ではなく文字列でセルに反映してしまいます。
緑の△が出て、エラー構文が「文字列として保存されています」となります。
どうしてでしょうか。
セルの書式設定を標準や数値にしてもエラーが解消されず、「！」をクリックして「数値に変換する」をクリックで通常の数値として判別されます。

質問者が選んだベストソリューション

Yahoo!知恵袋 5028日前