Excel2002である部分のコピー＆貼り付けを自動にしたい

質問

こんにちは。
Excel2002を使用しています。

A1:AV38に売上明細表を作りました。
その範囲内にはテキストボックスも
配置してあります。
売上表が一枚に収まらない場合は、A1:AV38
の内容(フォーマット)をA39:AV76にコピー
するように、下の方にA1:AV38の内容をどん
どんコピーして使用したいと考えています。
カーソルがどこにあってもそのようにコピー
でくるテクニックがあれば教えていただきた
いと思います。
よろしくお願いいたします。

回答No.2

imogasi · ベストアンサー

問題のワークシートにコマンドボタンを１つ貼りつける。
Private Sub CommandButton1_Click()
d = Cells(Rows.Count, "a").End(xlUp).Row
MsgBox d
Range(Cells(d - 3 + 1, "a"), Cells(d, "d")).Copy
Cells(d + 1, "a").Select
ActiveSheet.Paste
CommandButton1.Top = Cells(d + 1, "a").Top
End Sub
をＶＢＥのコマンドボタンのクリックイベントプロセジュアに作る。
ボタンをクリックする。
上例では、３８行－－＞３行、
Range(Cells(d - 3 + 1, "a")-->d-3+1をd-38+1
Ａ－ＡＶ列－－＞Ａ－Ｄ列
Cells(d, "d")).Copy－－＞"d"を"av"
にしてますが、問題のとおりに修正してください。
関数式、書式の設定が引き継がれるところまでは確認しました。列幅も真下にコピーするので大丈夫です。
行高が引き継がれないのが残念です。
コマンドボタンの位置も隠れないように動きます。
動かない方が良ければ削除してください（
CommandButton1.Top = Cells(d + 1, "a").Topの行）。

回答No.1

taknt

カメラ機能を使うってのは どうでしょうか？

http://oshiete1.goo.ne.jp/kotaeru.php3?q=532517
http://oshiete1.goo.ne.jp/kotaeru.php3?q=176535

お礼

takntさん、こんにちは。
早速の回答ありがとうございます。
ためしにカメラ機能、やってみようと思います。
どうもありがとうございました。