Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

59030 / 76732

←次へ　｜　前へ→


	【22416】Re:コマンドボタンを利用してのマクロ作業

Jaka - 05/2/18(金) 17:32 -


	引用なし

	パスワード

こんにちは。
パッと見ただけですけど。

>　　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)
>　　ActiveSheet.Shapes("CommandButton1").Select
>　　Application.CutCopyMode = False
>　　Selection.Cut
>　　ActiveWindow.SmallScroll Down:=-9　　　　　　←いらないと思います。

　　　　↓

　　Sheets("基本sheet").Copy Before:=Sheets(1)
　　DoEvents
　　Sheets("基本sheet (2)").Move After:=Sheets(2)
　　Sheets("基本sheet").Cells.Copy
　　DoEvents
　　Sheets("基本sheet (2)").Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　　　　:=False, Transpose:=False
　　　 ↓この辺は、よくわかりません。ボタンを消すんですか？
　　ActiveSheet.Shapes("CommandButton1").Cut

0 hits

▼

【22391】コマンドボタンを利用してのマクロ作業 misaki 05/2/17(木) 19:47