|
こんばんは。
色々試されたみたいですね!!
こういうのは、分かってしまえば何てことはないのですけどね!!
Blueさんからもヒントがありましたが、
一日考えていただいたのでこれ以上は・・・ね!!
>Private Sub CommandButton9_Click()
> i = WorksheetFunction.CountA(Range("C8:C27"))
> Sheets("aaa").Select
msgbox cells(2,4).parent.name
' ↑ここで何が表示されるか確認してください
' このコードが記述されているシート名が表示されますよね?
> ActiveSheet.Range(Cells(2, 4), Cells(1 + i, 31)).Select
' よって、アクティブシート(aaa)のセル範囲を指定するのに
' cells(2,4)(違うシートのセル)を指定しているので
' 「1004 アプリケーション定義またはオブジェクト定義のエラーです。」
' というエラーになります。
>End Sub
Private Sub CommandButton9_Click()
Dim i As Long
i = WorksheetFunction.CountA(Range("C8:C27"))
With Sheets("aaa")
.Select
.Range(.Cells(2, 4), .Cells(1 + i, 31)).Select
'このようにCellsプロパティのオブジェクトもきちんと指定すると
'正しく作動すると思いますよ!!
End With
End Sub
試してみてください
|
|