Excel VBA質問箱 IV

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

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


55331 / 76732 ←次へ | 前へ→

【26179】Re:入力用のブックのシートから「累積用...
回答  kobasan  - 05/6/25(土) 20:48 -

引用なし
パスワード
   こんばんは

ここに書いてあることは、マクロ記録でだいたいの骨格は作れます。
マクロ記録をどんどんやってみて、VBAをマスターしてください。
完成はさせていませんが、参考にして、みて自分でやりたいものに作り上げください。
親切でなくてごめんなさい。

>やりたいこと:「入力用のブック」のシートに入力されたデータ(500件/日)を「累積用のブック」のシートに転送したい。


>1.コマンドボタン(=入力用ブックから処理したい)を押したときに、「入力用のブック」の入力されたデータを2.「累積用のブック」のシートに移したい。

>3.「入力用のブック」のシートからは、データを「累積用ブック」に移し保存した後に、クリアする。


>「累積用のブック」のシートにはすでに保存されているデータの最終行の次の行から書き込み保存したい。
>「累積用のブック」は出来れば開かずに処理して保存したい。

1.2.3.をマクロ記録で骨格を作ったものです。
Sheet1は元データ
Sheet2は累積用

Macro1
Macro2はマクロ記録少し変化させたもの
Macro3が最終的に使えるようにしたものです。
データはA〜F列まであるとします。


Sub Macro1()
' マクロ記録日
  'コピー
  Range("A1:A9").Select
  Selection.Copy
  '貼り付け
  Sheets("Sheet2").Select
  Range("A1").Select
  Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
  '---------------------------------------
  '元データを消去
  Sheets("Sheet1").Select
  Range("A1:A9").Select
  Selection.ClearContents
  '---------------------------------------
  'escでコピーモード終了
  Application.CutCopyMode = False
End Sub

Sub Macro2()
' マクロ記録Macro1を変更したもの
  'コピー
  Sheets("Sheet1").Range("A1:A9").Copy
  '貼り付け
  Sheets("Sheet2").Range("A1").PasteSpecial Paste:=xlValues
  '---------------------------------------
  '元データを消去
  Sheets("Sheet1").Range("A1:A9").ClearContents
  '
  'escでコピーモード終了
  Application.CutCopyMode = False
End Sub

Sub Macro3()
' マクロ記録Macro2を変更したもの
  '1.コピー
  Sheets("Sheet1").Range("A1:A9").Copy
  '2.貼り付け
  Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1).PasteSpecial Paste:=xlValues
  '---------------------------------------
  '3.元データを消去
  Range("A1", "F" & Range("A65536").End(xlUp).Row).ClearContents
  '
  'escでコピーモード終了
  Application.CutCopyMode = False
End Sub

以上です。がんばってください。
0 hits

【26174】入力用のブックのシートから「累積用のブック」のシートにデータを転送する... skuroyan 05/6/25(土) 19:11 質問
【26176】Re:入力用のブックのシートから「累積用の... かみちゃん 05/6/25(土) 20:14 発言
【26187】Re:入力用のブックのシートから「累積用の... skuroyan 05/6/26(日) 5:24 回答
【26177】Re:入力用のブックのシートから「累積用の... ponpon 05/6/25(土) 20:24 発言
【26188】Re:入力用のブックのシートから「累積用の... skuroyan 05/6/26(日) 5:29 回答
【26194】Re:入力用のブックのシートから「累積用... ponpon 05/6/26(日) 17:17 発言
【26179】Re:入力用のブックのシートから「累積用... kobasan 05/6/25(土) 20:48 回答
【26181】Re:入力用のブックのシートから「累積用... kobasan 05/6/25(土) 21:28 発言
【26189】Re:入力用のブックのシートから「累積用... skuroyan 05/6/26(日) 11:57 お礼
【26218】開いた Book を見えないようにして kobasan 05/6/27(月) 20:49 発言

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