|
こんにちわ。いつも大変お世話になっております。
EXCEL97で
シート1上にコマンドボタンを作成し、ボタンが押されると
別シート(Sheet2)のセルを削除する。(削除後上にシフト)
と、いったことをしたいのですが、色々試したのですが
うまくいきません。
どなたかどこが悪いのかお教え下さいませんでしょうか?
どうぞ宜しくお願いいたします。
Private Sub CommandButton1_Click()
Worksheets("Sheet2").Range("A3").Select
Selection.Delete Shift:=xlUp
'いろいろ試した跡↓‥
'Worksheets("Sheet2").Cells(3, 1).Delete Shift:=xlUp
'Worksheets("Sheet2").Range("A3").Delete Shift:=xlUp
'Worksheets("Sheet2").Cells(3, 1).Select
'Selection.Delete Shift:=xlUp
'With ThisWorkbook.Worksheets("sheet2")
' .Range("A3:A3").Delete Shift:=xlUp
'End With
End Sub
|
|