【EXCEL2007 VBA】Validation入力規則→編集

【EXCEL2007 VBA】Validation入力規則→編集

こんにちは。
通常Validation入力規則を使用すると、入力したセルデータはそのまま使用しますが、例えば↓のようなコードで"山梨県"を選択し、その同一セル内で"山梨県"に加えて"甲府市"と入力するとエラーが現れます。
そのエラーが現れなく方法はあるのでしょうか？

Sub ChooseThenEdit()
With Range("D2").Validation
.Delete
.Add Type:=xlValidateList, _
Formula1:="福岡県,岡山県,山梨県"
End With
End Sub

Validationの使用にはこだわりませんが、とにかく
１．選択肢の表示
２。選択
３．編集
を素早くやりたいのです。

注１．上の例であれば隣のセルで山梨県の市を選べるようにすればいいじゃないか、という指摘があるかもしれませんが、あくまでも例なので、それはナシとして下さい。
注２．ListBoxを使用すればまあ出来ますが、ちょっと素早くできないと思うので、ご勘弁ください。

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

No.1 ベストアンサー 回答者： keithin 回答日時： 2010/04/22 16:11

＞その同一セル内で"山梨県"に加えて"甲府市"と入力するとエラーが現れます。

＞そのエラーが現れなく方法はあるのでしょうか？

Sub ChooseThenEdit()
With Range("D2").Validation
.Delete
.Add Type:=xlValidateList, _
Formula1:="福岡県,岡山県,山梨県"

.showerror= false

End With
End Sub

この回答へのお礼

keithin様。動いてこれで正しいことが確認できました！ただのヘルプの読み不足でしたね。。ご回答ありがとうございました。

お礼日時：2010/04/23 02:47

No.2 回答者： kybo 回答日時： 2010/04/22 16:11

End With

の前に、以下の1文を入れて見て下さい。

.ShowError = False

この回答へのお礼

kybo様。ご回答ありがとうございました。動いてこれで正しいことは確認できたのですが、なんと同時刻に正解を送ってきてくださった方がいて、向こうの方がほんの少し早いので、No1の方をベストアンサーとさせていただきます。ご容赦くださいませ。

お礼日時：2010/04/23 02:45