VBAのIF分で値を入れる場合

VBAのIF分で値を入れる場合

以下のInputBoxで入力された値をもとにSheetの変数に値をセットしたいのですが「同じ適用範囲内で宣言が重複しています。」というエラーが出てしまいます。
解決方法を教えてください。


rwms = InputBox("メーカー名はどちらですか。" & Chr(13) & "キャンセルで入力終了", "メーカー名", "MS")
If rwms = "RW" Then
Const Sheet = "履歴RW"
Else
Const Sheet = "履歴MS"
End If

No.1 ベストアンサー 回答者： NNori 回答日時： 2010/09/24 19:02

Const は変数（定数）の宣言ですので、

変数Sheet は　あらかじめ Dim 文で宣言し、代入するところには、 Const は書きません。

Dim Sheet as string
rwms = InputBox("メーカー名はどちらですか。" & Chr(13) & "キャンセルで入力終了", "メーカー名", "MS")
If rwms = "RW" Then
Sheet = "履歴RW"
Else
Sheet = "履歴MS"
End If

ちなみに Sheet って WorkSheet として使うのであれば、こんな風ではできません。

この回答へのお礼

回答ありがとうございました。
お礼メールが遅くなりましたことをお詫びします。
プログラム初心者で参考プログラムの寄せ集めでコピーペーストで行っているためこのような質問をしてしまいました。
大変失礼いたしました。

お礼日時：2010/09/27 09:56