Excel VBA質問箱 IV

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

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


59038 / 76732 ←次へ | 前へ→

【22408】Re:コマンドボタンを利用してのマクロ作業
発言  misaki E-MAIL  - 05/2/18(金) 13:40 -

引用なし
パスワード
   >・「マクロの記録」で記録したコード
>・エラーの内容(「なになに」ではなく、一言一句確実に)
>・エラーが出たときに「デバッグ」ボタンをクリックすると、どこでエラーになっ
> ているかが黄色反転されるので、その箇所
>これらの内容を教えていただけると、より具体的なアドバイスができると思います。

かみちゃんさんありがとうございます。
早速ですが私の試した方法です。

<記録したコ−ド>

Private Sub CommandButton1_Click()
'
' Macro1 Macro
' マクロ記録日 : 2005 2 18 ユーザー名 : misaki
'

'
  ActiveWindow.SmallScroll Down:=-12
  ActiveSheet.Shapes("CommandButton1").Select
  Sheets("基本sheet").Select
  Sheets("基本sheet").Copy Before:=Sheets(1)
  Sheets("基本sheet (2)").Select
  Sheets("基本sheet (2)").Move After:=Sheets(2)
  Sheets("基本sheet").Select
  Cells.Select
  Selection.Copy
  Sheets("基本sheet (2)").Select
  Cells.Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
  ActiveSheet.Shapes("CommandButton1").Select
  Application.CutCopyMode = False
  Selection.Cut
  ActiveWindow.SmallScroll Down:=-9
End Sub

<エラ−内容>
実行時のエラ−'1004'
RangeクラスのSelectメソッドが失敗しました。

<デバックボタン押した時>
ActiveWindow.SmallScroll Down:=-12
  ActiveSheet.Shapes("CommandButton1").Select
  Sheets("基本sheet").Select
  Sheets("基本sheet").Copy Before:=Sheets(1)
  Sheets("基本sheet (2)").Select
  Sheets("基本sheet (2)").Move After:=Sheets(2)
  Sheets("基本sheet").Select
  Cells.Select         ←(ここの行が黄色く反転されてます)
  Selection.Copy
  Sheets("基本sheet (2)").Select
  Cells.Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
  ActiveSheet.Shapes("CommandButton1").Select
  Application.CutCopyMode = False
  Selection.Cut
  ActiveWindow.SmallScroll Down:=-9

と具体的な内容は上記のとおりです。
このやり方では新たなsheetのマクロボタンは削除されないしスム−ズに実行されないしと困惑してました。
あと基本Sheet上のボタンを押すと基本sheetの内容を変えても履歴が順次右に蓄積されるようにできるでしょうか?

丁寧な回答ありがとうございました。
0 hits

【22391】コマンドボタンを利用してのマクロ作業 misaki 05/2/17(木) 19:47 質問
【22392】Re:コマンドボタンを利用してのマクロ作業 かみちゃん 05/2/17(木) 20:09 発言
【22393】Re:コマンドボタンを利用してのマクロ作業 misaki 05/2/17(木) 20:19 お礼
【22394】Re:コマンドボタンを利用してのマクロ作業 かみちゃん 05/2/17(木) 20:37 発言
【22408】Re:コマンドボタンを利用してのマクロ作業 misaki 05/2/18(金) 13:40 発言
【22416】Re:コマンドボタンを利用してのマクロ作業 Jaka 05/2/18(金) 17:32 発言
【22420】Re:コマンドボタンを利用してのマクロ作業 ponpon 05/2/18(金) 21:40 回答
【22421】Re:コマンドボタンを利用してのマクロ作業 bykin 05/2/18(金) 23:41 回答
【22422】Re:コマンドボタンを利用してのマクロ作業 ponpon 05/2/18(金) 23:58 発言
【22424】Re:コマンドボタンを利用してのマクロ作業 bykin 05/2/19(土) 0:24 発言
【22426】Re:コマンドボタンを利用してのマクロ作業 misaki 05/2/19(土) 10:44 お礼

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