VBAの参照方法について

こんにちは．
VBAの方法についての質問です！
セルのA1にinput boxで入力した値が含まれていれば参照というようなコードを書きたいのですが，うまくいきません．
回答をしていただければありがたいです．


数値=inputbox(...)
if range("A1").value = "*数値"　then
range("A2").value=2
end if

No.2 ベストアンサー 回答者： GooUserラック 回答日時： 2017/01/17 18:36

A1セルには数値として数が入っているのでしょうか？(標準では右寄せになっています)

それとも文字列で数が入っているのでしょうか？(標準では左寄せになっています)

どちらにしても「.text」を使えば表示されている状態の文字列で比較出来るので、それを使ってみました。
-----------------------------------------------------------------------------
Sub test()
If InStr(Range("A1").Text, InputBox("値を入れて下さい")) > 0 Then
Range("A2").Value = 2
Else
Range("A2").Value = ""
End If
End Sub
-----------------------------------------------------------------------------

この回答へのお礼

ありがとうございます！
とても参考になりました！

お礼日時：2017/01/17 22:59

No.1 回答者： tatsu99 回答日時： 2017/01/17 18:25

以下のようにしてください。

dim 文字 as string
文字=inputbox(...)
if instr(range("A1").value,文字) > 0　then
range("A2").value=2
end if

この回答へのお礼

ありがとうございます！
とても参考になりました！

お礼日時：2017/01/17 22:59