IMPUT BOXで複数のセルを選択すると、「オブジェクトが必要です」

質問

IMPUT BOXで複数のセルを選択すると、「オブジェクトが必要です」というエラーが発生します。

IMPUTBOXでひとつのセルを選択すると、正常に作動しますが、複数のセルを選択するとエラーが発生します（たまに複数のセルを選択しても正常にさどうすることがあります）
コードは下記のようなものです。

　　Dim myRange1 As Range
Dim myRange2 As Range
Dim myArea As Range
　　　　　Set myArea = Range("A1:B50")
Set myRange1 = Application.InputBox _
(Prompt:="セル範囲をドラッグしてください", Type:=8)
For Each myRange2 In myRange1
myRange2 = Application.WorksheetFunction.VLookup(myRange2.Offset(, 13), myArea, 2, False)

Next

原因のわかる方、ご回答のほどよろしくお願いいたします。

回答No.2

hige_082 · ベストアンサー

＞他のサイトで、エクセル２００３で条件式書式を使用しているランジを指定すると、エラーになるという情報がありました
検索するとヒットしました
http://support.microsoft.com/kb/959029/ja?spid=2512&sid=659

しかし、回避策として
＞RefEdit コントロールを使用して同じ機能を実装するように開発します。
と、なっておりUserFormを作成しなくてはならないようです

そこで、UserFormを使用しない回避策

Dim myRange1 As Range
Dim myRange2 As Range
Dim myArea As Range
Dim myStr As String
Set myArea = Range("A1:B50")

'Set myRange1 = Application.InputBox _
(Prompt:="セル範囲をドラッグしてください", Type:=8)

'回避策----------------------------------------------------------------------
myStr = Application.InputBox(Prompt:="セル範囲をドラッグしてください", Type:=0)
myStr = Application.ConvertFormula(myStr, xlR1C1, xlA1)
Set myRange1 = Range(myStr)
'----------------------------------------------------------------------------

For Each myRange2 In myRange1
myRange2 = Application.WorksheetFunction.VLookup(myRange2.Offset(, 13), myArea, 2, False)
Next

参考まで

お礼

ご回答ありがとうございます。
本日上記のコードで試したところ、問題なく作動いたしました。
本当にありがとうございます！助かりました。

回答No.1

hige_082

質問にあるようなエラーが出ないのですが
エラー時、デバッグボタンを押すと
どの行が黄色くなりますか？

お礼

Set myRange1 = Application.InputBox _
(Prompt:="セル範囲をドラッグしてください", Type:=8)の部分です。
ここで複数のセルを指定すると、「オブジェクトが必要です」というエラーが発生します。

ブック内では条件付き書式を使用しているのですが、それも関係しているのでしょうか（他のサイトで、エクセル２００３で条件式書式を使用しているランジを指定すると、エラーになるという情報がありました）。
そのため、該当するセルの条件付き書式を解除したのですが、それでも複数選択ですと、エラーになります。
逆に条件付き書式の使用していも、指定したセルがひとつであると、正常に作動します。