| |
>・「マクロの記録」で記録したコード
>・エラーの内容（「なになに」ではなく、一言一句確実に）
>・エラーが出たときに「デバッグ」ボタンをクリックすると、どこでエラーになっ
> ているかが黄色反転されるので、その箇所
>これらの内容を教えていただけると、より具体的なアドバイスができると思います。
かみちゃんさんありがとうございます。
早速ですが私の試した方法です。
＜記録したコ−ド＞
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の内容を変えても履歴が順次右に蓄積されるようにできるでしょうか？
丁寧な回答ありがとうございました。
|
|
misaki
- 05/2/18(金) 13:40 -
