オブジェクト？？

質問

またまた困っております
inputboxで入力した日付を検索して複数選択しようとしたのですが
unionの使い方がよくわかりません(・・;)

どこが間違っているのかもしくは何が足りないのか教えてください<m(__)m>
どうかよろしくお願いします！

Option Explicit

Sub グラフ()
Const SH_NAME As String = "VBA"
Dim art As String
Dim i
Dim ws As Worksheet
Dim endrow As Long
Dim msg As String
Dim writerow As Integer
Dim grahu As Chart
Dim target As Range

Set ws = ThisWorkbook.Worksheets(SH_NAME)
writerow = 2

art = InputBox("日付を入力してください")
With ws
endrow = .Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To endrow
If art = .Range("A" & i) Then
Set target = Union(target, "D" & i)
Else
If InStr(msg, .Range("A" & i)) = 0 Then
msg = msg & .Range("A" & i) & vbCrLf
End If
End If
Next i
target.Select
End With

If msg <> "" Then
MsgBox msg
End If

MsgBox "グラフベースを作成しました"
End Sub

Set target = Union(target, "D" & i)

↑ここでエラーが起きて
「オブジェクトが必要です」と言われました
どうすればよいのでしょうか？

回答No.2

eden3616 · ベストアンサー

セルにどのような値が入っており、どのような結果を得たいかが明確に記述されず
コードだけ書かれた場合想定できる範囲に限界があります。

ご質問のコードより読みとれる範囲で作成した添付画像のデーたを用いて
最下のコードで実行しましたが完走いたします。
問題を具体的にご提示ください。

(1)対象のシート名は「VBA」である
Const SH_NAME As String = "VBA"
Set ws = ThisWorkbook.Worksheets(SH_NAME)

(2)B列の最終行を検索対象の最終行とし
endrow = .Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To endrow
～ Next

(3)A列の各行が入力値（日付）と一致しているか判定
If art = .Range("A" & i) Then
～ Else ～ End If

(4)入力値以外かつ、重複していないA列の一覧をダイアログ表示
If InStr(msg, .Range("A" & i)) = 0 Then
msg = msg & .Range("A" & i) & vbCrLf
End If
MsgBox msg

Option Explicit

■修正後のVBAコード

Sub グラフ()
Const SH_NAME As String = "VBA"
Dim art As String
Dim i
Dim ws As Worksheet
Dim endrow As Long
Dim msg As String
Dim writerow As Integer
Dim grahu As Chart
Dim target As Range

Set ws = ThisWorkbook.Worksheets(SH_NAME)
writerow = 2

art = InputBox("日付を入力してください")
With ws
endrow = .Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To endrow
If art = .Range("A" & i) Then
If target Is Nothing Then
Set target = Range("D" & i)
Else
Set target = Union(target, "D" & i)
End If
Else
If InStr(msg, .Range("A" & i)) = 0 Then
msg = msg & .Range("A" & i) & vbCrLf
End If
End If
Next i
target.Select
End With

If msg <> "" Then
MsgBox msg
End If

MsgBox "グラフベースを作成しました"
End Sub

回答No.1

eden3616

Set target = Union(target, "D" & i)
ヘルプを見て頂いたらわかるのですが、Rangeオブジェクトを指定する必要があります。
「"D" & i」ではなく「Range("D" & i)」や「Cells(i, 4)」など。
またtargetに初期のRangeを指定しておく必要があります。

ですので以下のような感じでどうでしょ。

Set target = Union(target, "D" & i)

の部分を以下のように修正

If target Is Nothing Then
Set target = Range("D" & i)
Else
Set target = Union(target, "D" & i)
End if

以下はunionの使用サンプルです。
（A列1,3,5,7,9行目を選択します）

Sub test()
Dim i As Long
Dim myRange As Range
Set myRange = Range("A1")
For i = 3 To 9 Step 2
Set myRange = Union(myRange, Range("A" & i))
Next i
myRange.Select
End Sub

お礼

ありがとうございます！
そこの問題は解決しました!(^^)!

でもそうしたら次は
target.select
のところでエラーが起きてしまいました(・_・;)
変数を設定しろと言われたのですがどうすればいいんでしょう、、、
お手数ですがよろしくお願いします、、

補足

訂正です、、、
さきほど最初の問題が解決したと言いましたが、
また同じエラーが起こるようになってしまいました
教えていただいたところを直した以外は上のコードと同じです
何度もすいませんがよろしくお願いします(~_~;)