マクロ 記述が悪くエラーがかかります。

質問

いつも回答ありがとうございます。
最後らへんの記述で実行時エラー【型が一致しません】がかかります。
Worksheets("集計用").Range(b1, b2).Copy _
Destination:=Worksheets(b3).Range("B2")　←　ここでエラーがかかる。
ワークシート名に変数を使用しているせいだと思います。
解決する方法を御指導して頂けないでしょうか？宜しくお願い致します。

Sub グラフの作成()
Dim Date1 As Date
Dim Date2 As Date
Dim SName As String
Dim b1 As Variant
Dim b2 As Variant
Dim b3 As Variant
Dim d1 As Variant
Dim d2 As Variant
Dim d3 As Variant

With Worksheets("集計用")
s1:
Date1 = Application.InputBox("最初の日付を2012/12/1のように入力してください。")
If Date1 = 0 Then
MsgBox "キャンセルされました。", vbOKOnly
Exit Sub
End If

Set b1 = .Columns("B").Find(Date1, , xlValues, 1)
If b1 Is Nothing Then
If MsgBox("入力した日付が見当たりません。" & vbNewLine & _
"再度入力しますか？", vbYesNo) = vbYes Then
GoTo s1
Else
MsgBox "処理を中止しました", vbOKOnly
Exit Sub
End If
End If
d1 = b1.Row
s2:
Date2 = Application.InputBox("最初の日付を2012/12/31のように入力してください。")
If Date1 = 0 Then
MsgBox "キャンセルされました。", vbOKOnly
Exit Sub
End If

Set b2 = .Columns("B").Find(Date2, , xlValues, 1)
If b2 Is Nothing Then
If MsgBox("入力した日付が見当たりません。" & vbNewLine & _
"再度入力しますか？", vbYesNo) = vbYes Then
GoTo s2
Else
MsgBox "処理を中止しました", vbOKOnly
Exit Sub
End If
End If
d2 = b2.Row
s3:
SName = Application.InputBox("商品名を入力して下さい。")
If SName = "False" Then
MsgBox "キャンセルされました。", vbOKOnly
Exit Sub
End If

Set b3 = .Rows("3").Find(SName, , xlValues, 1)
If b3 Is Nothing Then
If MsgBox("入力した商品名が見当たりません。" & vbNewLine & _
"再度入力しますか？", vbYesNo) = vbYes Then
GoTo s3
Else
MsgBox "処理を中止しました", vbOKOnly
Exit Sub
End If
End If
d3 = b3.Column
End With
Worksheets.Add After:=Worksheets("集計用")
ActiveSheet.Name = b3
Worksheets("集計用").Range(b1, b2).Copy _
Destination:=Worksheets(b3).Range("B2")
Worksheets("集計用").Range(Cells(d1, d3), Cells(d2, d3)).Copy _
Destination:=Worksheets(b3).Range("C2")
End Sub

回答No.1

mitarashi · ベストアンサー

問題が発生したときは、現象を単純化すると解決につながり易いです。下記３行のコードでも現象は再現できます。

>ワークシート名に変数を使用しているせいだと思います。
>解決する方法を御指導して頂けないでしょうか？宜しくお願い致します。

ここまでおわかりなら、質問するまでもない気がしますが、Sheets()の括弧内は、整数か文字列でなければ嫌というエラーなので、オブジェクトではなくて、その値を与えてやればOKです。b3 -> b3.value

Sub test()
Dim b3 As Range

Set b3 = Sheets(1).Range("A2")
Sheets(1).Range("A1").CurrentRegion.Copy Destination:=Sheets(b3.Value).Range("A1")
End Sub

下記の様な記述はやめて、b3.valueとする様にしていると、オブジェクトなのか値なのかで混乱する事も減ると思いますがいかがでしょうか。
ActiveSheet.Name = b3

お礼

回答ありがとうございました。
Valueを後ろに付けたらよかったんですね。勉強になりました。