すみません教えてください。
収支会計.XLSの売上台帳のシートを別ファイル確定申告2.xlsの売上作業範囲シートに貼り付けたく自動マクロを記録したのですが、いまいち動きがぎこちなく重く何とかスムーズに出来ないでしょうか?
Sub 売り上げ書き込み()
'
' 売り上げ書き込み Macro
' Range("A2:F251").Select
Selection.Delete Shift:=xlUp
Application.Left = 20.8
Application.Top = 34
Windows("収支会計.XLS").Activate
With ActiveWindow
.Top = 3.4
.Left = 9.4
End With
Sheets("売上台帳").Select
ActiveWindow.SmallScroll Down:=-55
ActiveWindow.ScrollRow = 1
With ActiveWindow
.Top = 87.4
.Left = 37
End With
Range("D5:H1004").Select
Selection.Copy
Windows("確定申告2.xls").Activate
Range("B2").Select
ActiveSheet.Paste
Range("A2").Select
Windows("収支会計.XLS").Activate
Range("C5:C430").Select
Application.CutCopyMode = False
Selection.Copy
Windows("確定申告2.xls").Activate
ActiveSheet.Paste
Range("H8").Select
End Sub
宜しくお願いします。
No.3ベストアンサー
- 回答日時:
こんにちは。
別に問題ないですよ。
実行時エラー 9
インデックスが有効範囲にありません。
はこの場合「そんなシートは無い」を意味しますので、シート名の指定が間違っているのでしょう。
売上台帳作業範囲(2)
売上台帳作業範囲(2)
売上台帳作業範囲(2)
売上台帳作業範囲 (2)
上記は似ていても全部違います。
シートタブで右クリックし、名前の変更で選択状態にしてから Ctrl + Cキー でコピーし、VBE画面で Ctrl + Vキーで貼付けしてみては?
Workbooks("収支会計.XLS").Sheets("売上台帳").Range("D5:H1004").Copy _
Destination:=Workbooks("確定申告2.xls").Sheets("売上台帳作業範囲(2)").Range("B2")
再度 ご指導ありがとうございました
Ctrl + Cキー でコピーし、VBE画面で Ctrl + Vキーで貼付けしてみては? は気がつきませんでした。
実は右クリツクでコピーが出来ないのであきらめて、
仕方が無いので 自動マクロでシート名書き出し コピーペーストしました。
F8とも いらない構文を削除しすっきりしました。
早速他のファイルの同じような部分直してみました。
無事解決しましたが、これはかなりの知識が要りそうですね。
No.2
- 回答日時:
はじめまして。
私でよろしければ、さほど難しくないようですのであなた様がおやりになりたいことが自動でできるマクロを作ってみたいと思います。
もしご希望の節は、あなた様のおやりになりたいことを具体的に詳しくお知らせ下さい。
お手数をおかけいたします。よろしくお願いいたします。
早々 ご回答ありがとうございます。
ANO。#1の方の方法でとりあえず解決しました。
いずれにしても
日ごろあまに踏み込まない分野なので未知数が多く
少し勉強しながらやってみたいと思います。
ネット上で参考になるところがありましたら情報をお願いします。
No.1
- 回答日時:
こんにちは。
自動記録は不要なコードも吐出します。、
ほぼやった通りの順番に記述されているだけですから、少しご自分でも考えて見ると上達しますよ。
例えば、
Application.Left = 20.8 はアプリケーションを左に20.8
ActiveWindow.SmallScroll Down:=-55 はアクティブウィンドウを-55スクロール
こんな記述はいらないと解かるでしょう。
VBEウィンドウとExcelウィンドウを並べて、デバック-ステップインでF8キーを押して行くと動作を見ながら確認出来ますよ。
ちなみに手っ取り早いのは、先頭に Application.ScreenUpdating = False を入れるだけです。
あと、下は改良版です。
お望みの動作になるかは不明なので、テスト環境でどうぞ。
Sub 売り上げ書き込み()
'
' 売り上げ書き込み Macro
' Range("A2:F251").Select
'Selection.Delete Shift:=xlUp
Application.ScreenUpdating = False
Workbooks("収支会計.XLS").Sheets("売上台帳").Range("D5:H1004").Copy _
Destination:=Workbooks("確定申告2.xls").ActiveSheet.Range("B2")
Workbooks("収支会計.XLS").Sheets("売上台帳").Range("C5:C430").Copy _
Destination:=Workbooks("確定申告2.xls").ActiveSheet.Range("A2")
Application.CutCopyMode = False
Range("H8").Select
End Sub
この回答への補足
早々ご回答 ありがとうございます。
Workbooks("収支会計.XLS").Sheets("売上台帳").Range("D5:H1004").Copy _
Destination:=Workbooks("確定申告2.xls").ActiveSheet.Range("B2")
貼り付け場所をActiveSheetではなくて
Workbooks("確定申告2.xls").Sheets("売上台帳作業範囲(2)")としたいのですが 構文が変わってしまうでしょうか? エラー 9が出てしまいます。
すみませんが 宜しくご指導お願いします。
早々 ご回答ありがとうございます。
さっそくやったところ、スムーズになりました。
ありがとうございます。日ごろあまに踏み込まない分野なので未知数が多く今後もよろしくお願いします
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Excel(エクセル) ②Excel 簡単にシートコピーしたら前日の残高と日付を変更させたい→マクロの記録でエラーが出ます 8 2022/07/16 20:40
- Excel(エクセル) エクセル VBAでシートのコピーを作りたい 1 2023/05/18 07:42
- Visual Basic(VBA) ExcelVBA No.を自動連番で設定をしながらデータ入力をしたい 2 2022/08/03 18:19
- Excel(エクセル) エクセルマクロで教えてください 2 2022/05/04 09:07
- Visual Basic(VBA) マクロを短くする 1 2023/01/15 00:11
- Excel(エクセル) エクセルのVBAにショートカットキーの割り当て 3 2022/07/13 14:19
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
自閉症スペクトラムの人でコミ...
-
計算式
-
販売管理、工事管理
-
エクセルで縦2列の表を横1列に...
-
javaのeclipseでのプログラミン...
-
XML形式に沿ったデータファイル...
-
会計ソフトへのの入力にについ...
-
ACCESS 2003のフォーム抽出につ...
-
アイコンを押して、答えの出せ...
-
接客業の在り方 少し長文です。
-
ACCESS クエリの抽出条件で全...
-
アクセス2003 各売上日の...
-
関東の大手私鉄が合併したらJR...
-
4階からの飛び降りって成功率ど...
-
デパ地下で冷凍の馬刺しが売っ...
-
REGZAとハイセンス REGZAも製造...
-
機会損失の対義語
-
利益計算
-
無風エアコン買いたいのですが...
-
一次利益とは何ですか? 検索し...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ACCESS クエリの抽出条件で全...
-
XML形式に沿ったデータファイル...
-
弥生販売08プロフェッショナル...
-
【同人】【DLsite】同人販売作...
-
実績に対しての日数換算 月の売...
-
同人誌の数え方
-
前年度の売掛金が今年の売上高...
-
日付に対応する月度の表示
-
都内のタクシー運転手の仕事っ...
-
アクセスでの年度別集計
-
売上管理システムを構築するには
-
関東の大手私鉄が合併したらJR...
-
エクセル2000 複数のセル...
-
関数 「単価×売上数量」
-
ピポットテーブルに関して
-
反省していてもしていないよう...
-
アイコンを押して、答えの出せ...
-
Excel 指定した条件での並び替え
-
エクセルでグラフ作成
-
売上構成比が変わった場合の利...
おすすめ情報