別シートのデータをクリア

解決


菜菜  2005-05-24 23:24:05  No: 121879

Activateシートのボタン押下、別のシートの指定されたRANGEのデータを削除したいです。下記のように書いたですが、エラーが出てきて、だめみたいです。ピカピカな新人なんですが。助けって!!
Private Sub CommandButton1_Click()
Sheets("1test").Range(Cells(2, 1), Cells(L, 200)).ClearContents
End Sub


36NET  2005-05-24 23:37:44  No: 121880

Cells(2, 1)とCells(L, 200)がActivateシートのセルを参照してしますので

Sheets("1test").Range(Cells(2, 1), Cells(L, 200)).ClearContents

Sheets("1test").Range(Sheets("1test").Cells(2, 1), Sheets("1test").Cells(L, 200)).ClearContents

個人的には

with Sheets("1test")
    .Range(.Cells(2, 1), .Cells(L, 200)).ClearContents
end with

かな?


菜菜  2005-05-24 23:55:44  No: 121881

36NET さんへ
ありがとうございました。(=^▽^=)
これから、もっともっと頑張ります。


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加