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