• ベストアンサー

エクセル 自動転載

・入力欄は1行目です。 ・入力欄は情報を都度上書きします。 ・3行目からリストが始まりますので 3行目(1番)・4行目(2番)…と次々自動転載する方法を教えて下さい。 よろしくお願いいたします。 ☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆ 入力欄 1月2日 もも 5 1:1月1日 リンゴ 4 ------------------------------ 2:1月2日 もも  5 ------------------------------ 3: ------------------------------

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

  • ベストアンサー
  • qualheart
  • ベストアンサー率41% (1451/3486)
回答No.4

S2~BG2に入力したものを S7~BG7 S8~BG8 S9~BG9 に入力するには、以下のコードにすればOKです。 n = 7 Do If Cells(n, 19) = "" Then For a = 19 To 59 Cells(n, a).Value = Cells(2, a) Next Exit Do Else n = n + 1 End If Loop 試してみてください。

c-blossoms
質問者

お礼

ありがとうございます。 おかげさまで 効率化がはかれそうです。

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

その他の回答 (3)

  • qualheart
  • ベストアンサー率41% (1451/3486)
回答No.3

VBを使った手法でも良いのでしょうか? 以下の手順で可能だと思います。 1.表示→ツールバー→コントロールツールボックスでコントロールツールボックスを表示します。 2.コントロールツールボックスでコマンドボタン(ボタンのアイコン)を選択し、入力欄の右横など適当な場所にボタンを作成します。 3.追加したボタンを右クリックし、「プロパティ」を選択します。 4.「Caption」欄でボタンに表示するテキスト(「追加」など)を入力し、プロパティを閉じます。 5.追加したボタンを右クリックし、「コードの表示」を選択します。 6.VBが起動しますので、「Private Sub CommandButton1_Click()」と「End Sub」の間に以下のコードをコピーします。 n = 3 Do If Cells(n, 1) = "" Then Cells(n, 1).Value = n - 2 & ": " & Cells(1, 2) Exit Do Else n = n + 1 End If Loop これで、入力欄に文字を追加し、[追加]をクリックすれば、3行目以降のA列セルで空いているセルに入力していきます。 このスクリプトは、入力欄がB1、自動転載するセルがA列3行目以降になっています。入力欄を日付、名前、個数で分けている場合などは、また少し変わってきますので、その場合は言ってくだされば、その場合のVBも記載させていただきます。

c-blossoms
質問者

お礼

ありがとうございます。 実際には S2~BG2に入力したものを S7~BG7 S8~BG8 S9~BG9  ・  ・  ・ に転写できるよう 教えていただけないでしょうか。 よろしくお願いいたします。

全文を見る
すると、全ての回答が全文表示されます。
  • n-jun
  • ベストアンサー率33% (959/2873)
回答No.2

参考URL エクセル 自動転載 http://okwave.jp/qa3315138.html

全文を見る
すると、全ての回答が全文表示されます。
  • hana-hana3
  • ベストアンサー率31% (4940/15541)
回答No.1

「データフォーム」では駄目ですか? http://www.jpita.or.jp/hpv3/ziten/mokutekibetu/ex_13.html

c-blossoms
質問者

お礼

ありがとうございます。 入力欄も手打ちでなく、条件式のIFですので これをどうにか活かす方法はないのでしょうか。 もしおわかりでしたら教えて下さい。 よろしくお願いいたします。

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

関連するQ&A

  • エクセル 自動転載

    入力欄 1月1日 リンゴ 4 1:1月1日 リンゴ 4 ------------------------------ 2: ------------------------------ 3: ------------------------------ 入力欄に記載すると自動に、2番3番…と自動転載される方法を教えて下さい。 よろしくお願いいたします。

  • EXCEL(エクセル)のデータをWebフォームへ入力

    エクセルの行(複数セル)に入力したデータがあります。 この複数セルの選択した部分を、Webフォームのテキスト入力欄へ連続して入力したいです。 (入力 → Tab → 入力 → Tab → 繰り返し… のような) エクセルシート A列    B列    C列    D列    E列      【りんご   みかん   もも】←セルの選択範囲 Webフォーム テキスト入力欄1[りんご] テキスト入力欄2[みかん] テキスト入力欄3[もも] Webフォーム上にはいくつものテキスト入力欄があり、点滅カーソルのある入力欄からペーストを開始したいです。 また、エクセルで参照するデータも何種類もあり数が変動しますので、決まったセル範囲ではなく、その都度アクティブセルを指定したいです。(行は1行です。) 以上のようなことはマクロで可能でしょうか? マクロに詳しくないので、実現可能なコードを教えていただけると、大変助かります。 どなたかお詳しい方、よろしくお願い致します。

  • エクセル行の自動挿入

    エクセルで行の自動挿入の方法を教えてください。 例えば、売上表を作成します。(下記のような)  工事日  顧客名  現場名  作業内容 受注金額 3月1日  ○Δ建築  ×■邸   ■   100,000 3月2日  ×■塗装  ●△邸   ▽    120,000 3月3日  □×建設  ▽○邸   ●    280,000     ↓      ↓      ↓     ↓     ↓ という表で、月によって60行の時もあれば20行という月もあります。 そして入力最終行に 受注金額の合計を出したいのです。 しかも、顧客名、作業内容はリスト入力になってます。 また、罫線も自動的に追加されるようになってます。 マクロは苦手なんですが、ご指導お願いします。 似たような、ご質問もありましたが、お願いします。

  • 文字を入力したら数値が自動入力!(エクセル)

    いつもお世話になっています。 例えばA列の1行目に「りんご」と入力(若しくはリストの中から選択)すれば、B列の1行目には自動的に「5」と数値が入力されるという仕組みを教えて頂ければと思います。 因みにA列1行目に入力する文字(上記の例では「りんご」)が仮にA列の1行目以外に入力しても、それに対応し、数値を出せるようにしたいのです。(例:A列5行目に「りんご」を入力すると、B列5行目に数値の「5」が表示) 以上の説明で分かりにくいかもしれませんが、宜しくお願いします。

  • EXCEL スケジュール 日付などを自動入力

    OS95です。excel ヴァージョン7,0 と古いですが、 予定表の日付をいちいち入力せずに済む方法はないでしょうか? 例 ○月1日 ○月2日 ○月3日 ○月4日 ・ ・ ・ 最初の○月1日 を入力したらあとの行は すべて自動入力のようなもので入力したいです。 お願いします。

  • EXCELで重複している行をまとめたい。

    例えば、EXCELで りんご りんご りんご りんご りんご もも もも もも もも なし なし なし なし バナナ バナナ バナナ バナナ バナナ などと各行に重複して文字が入力されているとします。 これを重複しているものをまとめて、 りんご もも なし バナナ と、重複している余分な行を削除してくれる機能はないのでしょうか。

  • Excelで特定の文字列から自動的に数値を入れたい

    A列1行目の文字に対してB列1行目に自動的に数値が表示されるようにしたいのですが可能なのでしょうか?   A   B 1 林檎 150←自動的に表示したい。 例えばA列1行目に『林檎』と入れたらB列1行目に『150』、A列1行目に『梨』と入れたらB列1行目に『200』という感じにしたいのです。 ちなみにA列1行目はデータ入力規則でリストから選択肢を選ぶように設定されています。

  • Excel 異なるシートに自動入力 請求書作成

    例ですが、以下のようにsheet1のセルに入力されています    【sheet1】     A      B      C      D 1  品物   お届け先  配送料   名前 2  リンゴ   品川     100    佐藤 3  みかん  足立      150 田中 4  リンゴ   太田     100    加藤 5  いちご   品川     100    佐藤               ・               ・               ・               ・ *ABCD、12345はセルの位置を示しています。 sheet2に 以下のように自動で入力させ、佐藤さんへの配送料の請求書を作成を考えております。 ・名前がsheet1に「佐藤」と入力されたものだけseet2に 「品物」「配送料」を自動で入力 ・空白は無くA2セルから順に入力される ・「品物」「お届け先」「合計」が入力されている、行には入力しない  (入力されている行は飛ばしてその次の行から入力) 【sheet2】     A      B      C      D 1  品物   お届け先                ←「品物」、「お届け先」は固定  2  リンゴ    100                  ←入力欄 3  いちご 100                  ←入力欄       4                              ←入力欄     5 合計    200                  ←「合計」 は固定  6                              ←入力欄 VLOOKUP関数を用いて自動で入力させようと考えたのですが、TRUEではないセルは「#N/A」(もしくはIF文で空白)と入力させてしまうため,他の方法がございましたら、と思い皆様の知恵をお借りしたく投稿いたしました。 宜しくお願いいたします。

  • エクセルの関数を教えてください。

    エクセルの関数について教えてください。 条件を満たした数を合計させる関数を教えてください。 たとえば果物屋さんで下記のような売上個数の表があったとします。        A       B     C     D 01行  4月01日  青森産  りんご   1個 02行  4月01日  秋田産  りんご   5個 03行  4月01日  新潟産  りんご   4個 04行  4月01日  青森産  みかん   3個 05行  4月01日  秋田産  レモン   4個 06行  4月01日  青森産  レモン   2個 07行  4月02日  青森産  レモン   1個 08行  4月02日  青森産  みかん   8個 09行  4月02日  秋田産  みかん   7個 10行  4月02日  秋田産  りんご   3個       ・       ・       ・       ・ 31行  4月31日  秋田産  りんご   2個 といった一ヶ月の売り上げ個数リストがあったとして 教えてほしい関数は、上記の中から ”青森産” の ”りんご” が 1日~31日 の間に 売れた数の合計を求める関数が知りたいのですがそんな関数はありますか? =SUMIF(C1:C31,"りんご",D1:D31)として『りんご』のみの合計の出し方はわかるのですが 『りんご』に『青森産』などといった複数の条件をつけた際の合計の方法がわかりません。 また、フィルター機能で青森産、りんごと絞り込んだ後での合計ではなく あくまで、関数で求める方法を教えていただけませんでしょうか?

  • EXCELで自動で行が挿入できますか?

    EXCEL2000を使用しています。 1.下記のようなプロジェクトリストを作成しています。 A列:プロジェクト B列:試験 C列:施設名 2.C列に施設名を入力すると、自動的に行の挿入ができるようにしたい。 3.試験が決定されると次々と施設が決まっていくため、予め、施設名を入力することができません。 4.その都度、行の挿入を行えばいいのかもしれませんが、複数の方が入力するため、自動的にできたらいいなと考えています。 厄介な質問で申し訳ありませんが、何かよい方法はありますでしょうか? どうぞよろしくお願いいたします。

このQ&Aのポイント
  • 日本にはオレオレ詐欺を指示する組織図が存在する
  • 現在の日本は富裕層の高齢者によって消費が支えられているが、彼らがなくなると借金大国に転落するかもしれない
  • 若者をターゲットにした犯罪は今後も増える可能性があり、警察は追いつけていない
回答を見る

専門家に質問してみよう