Excel VBA質問箱 IV

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

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


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

30912 / 76738

←次へ　｜　前へ→


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

takuya - 07/8/27(月) 21:31 -


	引用なし

	パスワード

もう1ついいでしょうか？
すいません、甘えてしまいますが、可変とはどうすればできるのでしょうか？

下記のとおりｺﾋﾟｰ元がバラバラにあり、2007データに横一列で追加できるようにはできますか？
Range("A2,B2,D12,F1").Select
　　Selection.Copy
　　Sheets("2007データ").Select
>▼マキチャンさん：
>>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は使用しなくてもマクロは作れるので、使用しない方が
>>いろいろ利点があるようです。過去ログなどで調べてもらえばいろいろ
>>アドバイスが出ていると思います。

1 hits

▼

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