| |
こんにちわ。いつも大変お世話になっております。
EXCEL97で
シート１上にコマンドボタンを作成し、ボタンが押されると
別シート（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
|
|
