| |
こんばんは。
色々試されたみたいですね！！
こういうのは、分かってしまえば何てことはないのですけどね！！
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
試してみてください
|
|
ichinose
- 07/2/27(火) 19:09 -
