Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


12413 / 13645 ツリー ←次へ | 前へ→

【10613】別シートのセル削除 kei 04/2/3(火) 17:22 発言
【10616】Re:別シートのセル削除 Jaka 04/2/3(火) 17:46 回答
【10629】Re:別シートのセル削除 kei 04/2/4(水) 9:31 お礼

【10613】別シートのセル削除
発言  kei  - 04/2/3(火) 17:22 -

引用なし
パスワード
   こんにちわ。いつも大変お世話になっております。

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

【10616】Re:別シートのセル削除
回答  Jaka  - 04/2/3(火) 17:46 -

引用なし
パスワード
   >  'いろいろ試した跡↓‥
>  'Worksheets("Sheet2").Cells(3, 1).Delete Shift:=xlUp
>  'Worksheets("Sheet2").Range("A3").Delete Shift:=xlUp
  
>  'With ThisWorkbook.Worksheets("sheet2")
>  '  .Range("A3").Delete Shift:=xlUp
>  'End With

これでうまく行きませんでしたか?

因みに、上にシフトするなら、これだけで良いと思います。

Worksheets("Sheet2").Range("A3").Delete

もしexcel97だったら、
最初に
Activecell.activate
か、
selection.select
とか入れてください。

【10629】Re:別シートのセル削除
お礼  kei  - 04/2/4(水) 9:31 -

引用なし
パスワード
   Jaka さんへ
いつもありがとうございます。

>Activecell.activate
>か、
>selection.select
↑を入れたことによりエラーが出なくなり、
別シートへのセル削除ができました。
ありがとうございました。

12413 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free