InputBox関数について教えて下さい。

質問

InputBox関数について教えて下さい。
記述内容は以下の通りです。

Sub 追加()
Dim tuika As Double
tuika = Application.InputBox( _
Title:="追加", _
Prompt:="追加する項目を【全角大文字】で入力して下さい。", _
Left:=700, _
Top:=100, _
Type:=2)
If tuika = False Then Exit Sub
With Worksheets("Sheet1")
.Range("B10").Value = tuika
LastRow = Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row + 1
Worksheets("Sheet2").Range("A" & LastRow).Value = Worksheets("Sheet1").Range("B10").Value
End With
End Sub

困っているのは、Type:=2)の部分です。
文字列を指定しているのですが数値は入力出来るのですが肝心の文字列が入力出来ない状況です。

どなたかご指導をお願い致します。

【環境】
OS = WindowsXP SP3
Excel = 2003

回答No.2

merlionXX · ベストアンサー

問題点が2箇所です。

Dim tuika As Double　では型があいません。
また、
If tuika = False Then Exit Sub　も型ちがいのため修正が必要です。

Sub 追加()
　　Dim tuika As String
　　tuika = Application.InputBox( _
　　Title:="追加", _
　　Prompt:="追加する項目を【全角大文字】で入力して下さい。", _
　　Left:=700, _
　　Top:=100, _
　　Type:=2)
　　If tuika = "" Then Exit Sub
　　With Worksheets("Sheet1")
　　　　.Range("B10").Value = tuika
　　　　LastRow = Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row + 1
　　　　Worksheets("Sheet2").Range("A" & LastRow).Value = Worksheets("Sheet1").Range("B10").Value
　　End With
End Sub

お礼

ご回答ありがとうございます。

問題解決しました。

回答No.3

Zeus_Sphere

(1)　tuikaの型が違います（stringにする)
(2)　If tuika = False Then Exit Subを
　　If tuika = "" Then Exit Sub に変更する

マクロは以下の様になると思います。

Sub 追加()
Dim tuika As String
tuika = Application.InputBox( _
Title:="追加", _
Prompt:="追加する項目を【全角大文字】で入力して下さい。", _
Left:=700, _
Top:=100, _
Type:=2)
If tuika = "" Then Exit Sub
With Worksheets("Sheet1")
.Range("B10").Value = tuika
LastRow = Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row + 1
Worksheets("Sheet2").Range("A" & LastRow).Value = Worksheets("Sheet1").Range("B10").Value
End With
End Sub

お礼

ご回答ありがとうございます。

問題解決しました。

回答No.1

f272

これ
Dim tuika As Double
のせいでしょうね。文字列では型が合いません。

お礼

ご回答ありがとうございます。

問題解決しました。