Excel VBA質問箱 IV

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

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


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

31003 / 76807

←次へ　｜　前へ→


	【51064】Re:補足Re:データベースの作成

マキチャン - 07/8/27(月) 11:38 -


	引用なし

	パスワード

takuyaさんこんにちは。私も初心者です。
takuyaさんの作られたものを最大限に生かし、
neptuneさんのアドバイスを利用すると
次のようになると思います。

Sub ああ()
Dim ret As String

Range("A2:C5").Select
　　Selection.Copy
　　Sheets("2007データ").Select
　
　　ret = Range("A" & Rows.Count).End(xlUp).Offset(1).Address
　
　　Range(ret).Select
　　 ActiveSheet.Paste
　　Sheets("本日分").Select

　　Application.CutCopyMode = False
End Sub

これで、本日分のシートから2007データのシートにデータは
累計されていきます。
しかし、いくつか使い勝手という点から問題があると思いませんか？
１．本日分のシートも"C2:A5"というように固定でなく、
　　少なくても行数は可変にした方が、いちいちマクロを直さなくていいですよ　　　ね。これは、累計の方を可変にした要領で、考えてみてください。
２．本日分は累計したら、クリアーしておいた方が、次の日に入力するのに
　　便利かもですね。もちろん累計の最後にクリアーを入れればいいと思います。
　　（念のためバックアップのためにとっておきたいという考えもあるかもしれま　　　せんが）

また、SELECTは使用しなくてもマクロは作れるので、使用しない方が
いろいろ利点があるようです。過去ログなどで調べてもらえばいろいろ
アドバイスが出ていると思います。

0 hits

▼

【51044】データベースの作成 takuya 07/8/26(日) 17:34