• ベストアンサー

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

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

質問者が選んだベストアンサー

  • ベストアンサー
  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.2

問題のワークシートにコマンドボタンを1つ貼りつける。 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 をVBEのコマンドボタンのクリックイベントプロセジュアに作る。 ボタンをクリックする。 上例では、38行-->3行、 Range(Cells(d - 3 + 1, "a")-->d-3+1をd-38+1 A-AV列-->A-D列 Cells(d, "d")).Copy-->"d"を"av" にしてますが、問題のとおりに修正してください。 関数式、書式の設定が引き継がれるところまでは確認しました。列幅も真下にコピーするので大丈夫です。 行高が引き継がれないのが残念です。 コマンドボタンの位置も隠れないように動きます。 動かない方が良ければ削除してください( CommandButton1.Top = Cells(d + 1, "a").Topの行)。

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (1)

  • taknt
  • ベストアンサー率19% (1556/7783)
回答No.1

カメラ機能を使うってのは どうでしょうか? http://oshiete1.goo.ne.jp/kotaeru.php3?q=532517 http://oshiete1.goo.ne.jp/kotaeru.php3?q=176535

enako
質問者

お礼

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

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • excel2003 関数式 コピー

    関数式をコピーする時に、セルの右下にカーソルを当ててポインタを十字にしてドラッグするとコピーされていたのに、その機能が使えません。 A1の式をA2以下にコピーしたくて上記のようにするのですが、式はコピーされているのですが、数値がどれもA1の数値になってしまいます。 元々違うバージョンのエクセルを使って作られている表なので、それが影響しているのかわかりませんが、とにかくできません。 どうしたらいいでしょうか? 宜しくおねがいします。

  • Excel2000のデータコピーについて

    A-1のシートとA-2のシートがあります。内容は各8000件あるデータでフォーマットは同じです。A-1の8001セルからA-2のデータを反映させて16000件になる方法は何か無いものでしょうか?フォーマットが同じなので普通にコピーしても出来るのですが、例えばリンク貼り付けとか、外部データの取り込み等で簡単に出来ないものですかね・・・ ちなみにコピー後のデータは編集しますので方法が分かる方、宜しくお願い致します。

  • EXCEL2007で値のみしかコピーができないです

    シートに入力をして、コピーをしようとしてマウスをクリックすると、「貼り付けのオプション」が[A]しか表示されていないんです。 「形式を選択して貼り付け」を選択すると「リンク元」「貼り付ける形式(A)」が出てきて「Unicodeテキスト」か「テキスト」を選択する画面になります。 そもそも、コピー元を選択したときに以前は範囲が点滅していたのですが、今は点滅しません。 どうしたらいいでしょうか?教えてください。

  • IEのページをワードにコピー貼り付けした時の格子のはずし方2

    IEのページをワードにコピー貼り付けしたのですが、ほぼ一行毎に表格で覆われています。全ての文字内容を表格からはずしたいのですが、どのようにすればいいのですか? IEで範囲指定コピー、WORDで[形式を選択して貼り付け]の[テキスト]で貼り付け。と言う操作をした場合絵や図が全部貼り付け出来ません。 絵や図も貼り付けしたいのですがどうすればいいですか? 詳しく教えて下さい。お願いします。

  • Word2007で、テキストボックスのコピー

    Word2007で、テキストボックスに一人一行で60名の氏名を並べています。ほぼA4縦置きにして 左側に上から下まで続いています。ここまで希望通りになっています。 次に、このテキストボックスを別のファイルにコピーすると、文字サイズと行間が大きくなり、10名分が表示範囲から外れてしまいます。 コピーの要領は 二つのWord2007ファイルを読み込み、一方は最小化し、もう一方を表示させて、表示―整列から 二つを同時表示し、コピーするテキストボックスをクリックし、「ここにコピー」し、それをもう一方へドラッグしております。 A4に収まっていたのが収まらなくなりました。ここで、コピーの場合はコピー元かコピー先に合わすのを選択できましたが、このテキストボックスではこの選択ができません。やり方が悪いのでしょうか?よろしくお願いします。

  • テキストボックスに入力された内容を他のテキストボックスにコピーしたい

    テキストボックスA、Bがあるとして、テキストボックスAに何らかの文字列を入力します。 その状態でボタンを押すと、テキストボックスAの内容をテキストボックスBにコピーするようにしたいのですが、このようなことはjavascriptで可能でしょうか?

  • EXCEL VBA カーソル移動方法?

    エクセル2000でユーザーフォームを作成し テキストボックス1~6まで作成し テキストボックス1~3を1段目、4~6を二段目で配置した場合 エンターキーでケキストボックス1⇒2・・・6のカーソル移動は わかるのですが、テキストボックス2から下に配置してある テキストボックス5に矢印キー↓でカーソルを動かすようにはどのように すればよろしいのでしょうか? 又、おなじようなことなのですがテキストボックス2から 矢印←でテキストボックス1にカーソルを移動させるのも 同じでしょうか? 宜しくお願いいたします。

  • 現金出納表の内容を別表の科目別欄に自動コピー出来ますか?

    父が自治会の会計をやっています。 そこで質問されましたが、出来るかどうか私では?なので 皆様にお願いします。 似たような質問を見ても応用出来ず困っています。 **** 出金があるごとに「A表」に記入している内容を 項目別に区切ってある「B表」のそれぞれの項目の行に 自動的にコピーできないでしょうか? A表に記入=B表にも記入される というのが理想です。 A表は出金があるごとに詰めて記入しています。 B表は数行空行がありますが一杯になると行の挿入しています。 こんなアバウトな出金簿ですが、スマートな方法がありましたら教えてください。 エクセルは「ビジコン2級」VBAは初級本をクリアした程度です。 A表。。。(sheet1) 日付 科目 内容明細 金額 ・・・・・・・・・・・・・・・・ B表。。。(sheet2) 科目1 日付 内容明細 金額 ------- ------- ------- 科目2 日付 内容明細 金額 ------- ------- ------- 科目3 日付 内容明細 金額

  • テキストのコピーがまるでできなくなってしまった

    IE7.0を使用しています。最近(今日気がついたのですが)リンクしている部分とテキストボックス部分以外ではマウス(カーソル?)が手の形になっています。ドラッグで画面がスクロールできるようになったんだ!知らないうちにIEは進化していた!と喜んだのも束の間、テキスト部分の選択がまるで出来なくなっているではないですか。当然気になったテキストのコピーとかもできません。どうしたら以前のような状態に戻せるのでしょうか。 教えてgoo!

  • 【Excel】貼り付けで、「範囲が大きすぎます。」

    こんにちは A1からY1に別シートを参照するVLOOKUP関数などがあります。 A1からY1をコピーして、A2からY53000にペースト使用とすると、 「範囲が大きすぎます」となります。 3000行程度ならペーストできるようなのですが、 マシンスペックの問題でしょうか。 何か、一度にペーストできる方法はないでしょうか。 WindowsXP Excel2007 です。

専門家に質問してみよう