ようこそ ゲスト さん、新規登録（無料）して気になる疑問を解決しませんか？
はじめての方へ｜ヘルプ｜FAQ
スポンサーサイト（詳細）

質問
QNo.4012716 エクセルＶＢＡでの自動ファイル保存
質問者：na714 エクセルＶＢＡを使い入力したシート（ファイル）を、一定のデータが
入力された時点で指定した場所に例えば作成日をファイル名にして自動
的に保存していくようにしたいのですが、プログラムはどのようにすればいいのでしょうか？
実現させたいプログラムは、このような感じにしたいです。
１.ＶＢＡで指定シートにデータ入力→２.データ数１０個で自動的に日付をファイル名にして自動的に保存→３.更に、データ１０個追加された時点で前に作成されたファイルを自動で更新→４.データの入力完了で更に自動で更新
２〜４のプログラムをご教授お願いします。
困り度：
  • 困っています
質問投稿日時：
08/05/10 22:44
この質問に対する回答は締め切られました。

回答良回答20pt
ANo.1 (1)どのイベントでやるつもりでしょうか？
　　シートのChangeイベントですかね。
(2)何をもって10個とするのでしょうか？
　　変更のあった行番号が10で割り切れたらとか。
(3)どうしたら入力完了と分かるのでしょうか？

以下は参考です。
(1)日付をファイル名
Format(Date,"YYYYMMDD") & ".xls"
(2)名前を付けて保存
ThisWorkbook.SaveAs ファイル名
(3)上書き保存
ThisWorkbook.Save
回答者：nda23
種類：アドバイス
どんな人：専門家
自信：参考意見
回答日時：
08/05/11 16:17
この回答への補足ご返答ありがとうございます。
説明不足の部分があったので補足させていただきます。

現在はユーザーフォームを使い入力していく状態でプログラムを組んで
います。１０項目くらいの項目を１行入力したら、コマンドボタン「入力」の
クリックでシートの指定された行に転送するというものです。

（1）どのイベントでやるつもりでしょうか？
　　　そうですね、Changeイベントが適しているかと・・・。
（２）何をもって１０個とするのでしょうか？
　　　入力されたセルの行数が１０行になったらです。
　　　（例えば２行目から入力が始まったら、１１行目の入力が
　　　　完了した時点でと考えています。
（３）どうしたら入力完了と分かるのでしょうか？
　　　データ入力が完了したら、ユーザーフォームに配置された
　　　「完了」のコマンドボタンで終了となります。
　　　（データの全入力数は毎回違います。）

あと、もう一つお聞きしたいのですが、例えばデスクトップ上に指定して
保存する場合はどのようにプログラムしていけばよいのでしょうか？

宜しくお願いいたします。
この回答へのお礼この回答にお礼をつける(質問者のみ)
 
スポンサーサイト（詳細）
このページのトップへ