Excel VBA質問箱 IV

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

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


30928 / 76732 ←次へ | 前へ→

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

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

1 hits

【51044】データベースの作成 takuya 07/8/26(日) 17:34 質問
【51045】Re:データベースの作成 neptune 07/8/26(日) 19:14 発言
【51047】補足Re:データベースの作成 takuya 07/8/26(日) 21:52 発言
【51048】Re:補足Re:データベースの作成 neptune 07/8/26(日) 22:09 回答
【51064】Re:補足Re:データベースの作成 マキチャン 07/8/27(月) 11:38 回答
【51070】Re:補足Re:データベースの作成 Jaka 07/8/27(月) 14:11 発言
【51084】Re:補足Re:データベースの作成 takuya 07/8/27(月) 21:19 お礼
【51086】Re:補足Re:データベースの作成 takuya 07/8/27(月) 21:31 質問
【51089】Re:補足Re:データベースの作成 マキチャン 07/8/28(火) 8:45 回答
【51090】Re:補足Re:データベースの作成 じゅんじゅん 07/8/28(火) 10:18 発言
【51095】Re:補足Re:データベースの作成 マキチャン 07/8/28(火) 11:06 発言
【51099】Re:補足Re:データベースの作成 じゅんじゅん 07/8/28(火) 11:36 回答
【51092】Re:補足Re:データベースの作成 Jaka 07/8/28(火) 10:32 発言

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