- ベストアンサー
VBAでフォームからシートへの転記
初心者の質問で、申し訳ございません。 フォームに入力された値を、シートへ転記させたいのですが。 入力値1＝行1 入力値2＝行2 入力値3＝行3 常に最終入力行の次の行に転記させるには、 どのようなコードが必要ですか？
- yuripp
- お礼率14% (60/407)
- その他（プログラミング・開発）
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
たとえば、 UserForm1のTextBox1のデータを列1に転記するとすれば、 転記したい行まで空白が無いとして、 with ActiveSheet r = 1 r = .Cells(r, 1).End(xlDown).Row r = r + 1 .Cells(r, 1) = UserForm1.TextBox1.Text End With で転記されていくと思う。
関連するQ&A
- 入力フォームをテーブルの真下に転記
エクセルのVBAで入力フォームを作成して、入力フォームのテキストをシート2の、テーブルの見出しの次の行から転記される用にしたいのですが、最終行を取得すると見出しから一行飛ばして二行目に転記されてしまいます。 テーブルを作成した時に見出しの下に空欄のデータシートが自動で追加されてしまうからでしょうか？ 何か対策はあるでしょうか？ コードで提示して頂くと助かります。 入力フォームはシート1で開く 転記 シート2のA列から順に、連番生成(1〜)、テキストボックス1.2.3..... 宜しくお願いします
- ベストアンサー
- Excel（エクセル）
- VBA シート上の転記について
If 入力シート.Range("A4").Value = "会社" Then Dim 会社シート最終行 As Long 会社シート最終行 = 会社シート.Range("AA65536").End(xlUp).Row + 1 会社シート.Range("A" & 会社シート最終行).Value = 入力シート.Range("A4").Value 会社シート.Range("A" & 会社シート最終行).Value = 入力シート.Range("B4").Value VBAで上記のように入力していて、これに会社シートのA行を別のシートに転記したい場合どういう入力方法になるのでしょうか。 同じ公式で会社シートの所をsheet1、入力シートの所を会社シートと入力したのですがまったく反映されませんでした。 VBAを始めたばかりなので試行錯誤しながらしています。
- ベストアンサー
- SE・インフラ・Webエンジニア
- ユーザーフォームからワークシートへの転記について
●質問の主旨 エクセルVBAの初心者です。 添付画像のユーザーフォームからデータベースへの転記の コードを記述しましたが、実行しようとすると15行目の「CelData」のところが 選択され、コンパイルエラー（変数の定義がされていません） が返されます。 １．「CelData」のコンパイルエラーはどのように修正すれば よいでしょうか？ ２．またこのコンパイルエラーを修正すれば、ユーザーフォームから ワークシートへの転記ができるでしょうか？ ●質問の補足 １．ユーザーフォームにある「入力No.」と 「入力日」（赤色で囲った部分）をそれぞれ A2セル、B2セル（青色で囲った部分）に転記しようと 考えています。 ２．添付画像のワークシートには手入力で「柴田8月分」 というシート名が予めつけられています。 ３．ユーザーフォームやワークシートには 他に入力、転記する個所がありますが質問を 簡単にするため省略しています。 ４．この質問に関するオブジェクト名は以下の 通りです。 ・「入力No.」＝TextBox3 ・「入力日」＝txtdate ・「データベース入力」＝CommandButton3 エクセルVBAにお詳しい方ご教示願います。 使用機種はWindows Vista Excel2007です。 なお、コードは以下の通りです。 1 Option Explicit 2 'ユーザーフォームの初期化 3 Private Sub UserForm_Initialize() 4 TextBox3.Value = 1 5 txtdate = Date 6 End Sub 7 'ユーザーフォームからデータベースへの転記 8 Private Sub データベース入力_Click() 9 Dim RowPos As Integer 10 Dim ColPos As Integer 11 RowPos = 2 12 ColPos = 1 13 Do 14 RowPos = RowPos + 1 15 CelData = Worksheets("柴田8月分").Cells(RowPos, _ 16 ColPos) 17 Loop While CelData <> "" 18 With Worksheets("柴田8月分") 19 .Cells(RowPos, ColPos) = TextBox3.Value 20 .Cells(RowPos, ColPos + 1) = txtdate.Value 21 End With 22 End Sub
- ベストアンサー
- Visual Basic
- 【VBA】元シートの内容を別シートへ転記する方法2
添付のピクチャの様に、元シートが有ります。(行数は変動します) 元シートの数式・書式を維持したまま転記出来るコード をご教示願います。既存のコードで特に困った点は、ピクチャのコメント部分です。 行いたい事は下記です。 ----------------------------------------------------------------------------- 2シート目へ元シート1行目の見出しと品番010の行を転記 3シート目へ元シート1行目の見出しと品番222の行を転記 4シート目へ元シート1行目の見出しと品番222の行を転記 5シート目へ元シート1行目の見出しと品番033の行を転記 同様に、A列の最終の品番迄、繰り返しシートを作成 ------------------------------------------------------------------------------ どうぞ宜しくお願い致します。 ※「切り取り」で別シートを作成する方法でも結構です。
- ベストアンサー
- Excel（エクセル）
- Excel VBA データの転記
Excel2003を使用しています。 Sheet1のB1セルとSheet2のB1セルのデータが一致したら、Sheet2のB1セル～E1セルのデータをSheet1のF1セル～Iセルに転記するというコードを書いています。 Sheet1のデータ最終行を取得して、上記の条件を満たさなかったSheet2のB1セル～E1セルのデータをSheet1のデータ最終行の1行下から順に転記するという内容を追加したいのですが、転記先の指定の仕方が悪いのか、希望通りになりません。 どなたか一例を示していただけないでしょうか？ スマホからの投稿で、実際に書いているコードを記載できず、分かりづらくて申し訳ないのですが、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルVBA シート１からシート２へ転記したい
シート１のデータはそのままで、 シート２に編集して転記したいです。 シート１にはA列からI列までデータが入っています。 行数は都度変わりますがデータは3行目から始まり 大体５００行くらいです。 転記方法は シート１のＤ列→シート２のＡ列 シート１のＥ列→シート２のＢ列 シート１のＦ列→シート２のＣ列 シート１のＣ列→シート２のＤ列 でシート１のＤ列の値が同じ場合は 転記先のシート２の行数は増やさずにシート１のＣ列の値を 同じ値のＦ列内にカンマでつないで転記したいです。 でそのつないだ合計数をシート２のＥ列に表示したいです。 イメージ Ｃ Ｄ Ｅ Ｆ ------------------------ A1 みかん 国内 Ｓサイズ A3 みかん 国内 Ｓサイズ D6 みかん 国内 Ｓサイズ D9 りんご 国内 Ｍサイズ G7 りんご 国内 Ｍサイズ F5 バナナ 海外 Ｌサイズ G1 バナナ 海外 Ｌサイズ A2 いちご 国内 Ｓサイズ D8 いちご 国内 Ｓサイズ F3 いちご 国内 Ｓサイズ H2 いちご 国内 Ｓサイズ ↓ Ａ Ｂ Ｃ Ｄ Ｅ ------------------------------------------- みかん 国内 Ｓサイズ A1,A3,D6 ３←3個 りんご 国内 Ｍサイズ D9,G7 ２←2個 バナナ 海外 Ｌサイズ F5,G1 ２←2個 いちご 国内 Ｓサイズ A2,D8,F3,H2 ４←4個 上記例の場合は元データは１１行ですが編集後は４行です。 配列は自力で作成できないので考え方を教えていただきたいです。 構文をそのまま書いていただいても大変助かります。 Do～LoopかFor～Nextで上から順最終行まで処理で シート１からシート２へ転記する構文をかいて Ｄ列の値が直前に処理した値と同じ場合は 転記はしないでＣ列の値を変数1に代入し シート２の該当行のＤ列も変数2に代入し 変数1&","&変数2で対象行のＤ列に転記と考えましたが うまくできませんでした。 またシート２のＥ列の求め方ですが、上記変数1,2に代入した後に 変数3=変数3+１とかの文でカウントし、 その値を転記すればいいのでしょうか？ すいません。今日1日頑張ってうまくできず 上手く説明できません。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- データ転記。うまく転記できないシートがあります。
エクセルのデータ転記について助けてください。 現在 エクセルで職場で使用する現金出納帳を作成中です。完成間近なのにつまずいてしまいました。 作成にもう長い時間かかっるので今週中になんとか仕上げたいのです。 （職場での周りの目がこわくって・・・） どうかどうかよろしくおねがいします。 ＊各シートの説明 【シート１（元帳）】は記入用シート（1年間の経費等の入力をします） A1は表題 ２行目はタイトル行で B列：月日、C列：曜日、：D列：経費部門コード（以下部C）、E列：経費部門名（D列の部C入力時に他シートにあるデータベースからLOOKUPで抽出して表示するようにしてます） F、G列は手入力用の内訳や備考の列、H列：収入金額、I列：支払金額、J列：差引残高。（I・J列は転記必要なしです） データはB3（日付）から入力します。 データ表の範囲はとりあえず１００行目まで（A1からJ１００） 【シート２～シート１６（シート名はD列の経費部門コード番号です）】 こちらが転記先シートです。 A1に部門コード、B2に部門コード名（A1のコードでデータベースより抽出）２行目はB列：月日、C列：曜日、D、E列：内訳、備考、F：支払金額 【シート１７（経費部門コードのデータベース）】 部門番号と部門名を表にして 元帳で入力の際 ここからひっぱってくるようになっています。 番号は１５種類（経理上不規則な番号）：1・2・4・5・6・7・8・９・１０・１２・２０・２１・２２・仕・給（これをシート名にしてます） ＊希望する完成仕様 元帳（シート１）に入力したデータが同時に部門C別シート（１５種類）に必要な項目だけ転記される。必要な項目は上記のシート説明参照。 ＊現在の作成状況 ・元帳のシート A3に'=COUNTIF($D$3:D3,D3)&D3 以下 A列はA3をコピー ・１５枚の部門番号のシート B3（転記初期行）に'=IF(ISERROR(VLOOKUP(ROW(元帳!A1)&$A$1,元帳!$A$1:$I$100,2,0)),"",VLOOKUP(ROW(元帳!A1)&$A$1,元帳!$A$1:$I$100,2,0)) C３,D３,E３,F３列はB３をコピーしLOOKUPの列番号を変更 ＊現在の状況と問題点 シート4・5・6・7・8・9・１０・１２・２０・２１・２２はきちんと転記する。 シート１（部門C：１）は部門C：１と部門C：２１のデータが転記されてしまう シート２ （部門C：２）は部門C：２と部門C：１２と部門C：２２のデータが転記されてしまう。 この２つのシートは 下１桁でひっぱってきてしまってるのは分かるのですが改善方法が分かりません。 どうかこの２シートがきちんと動く数式を教えていただけるでしょうか？ 文章力不足のため 質問の理解にさぞ悩まれるでしょうがどうぞよろしくお願いします。 補足：０１ ０２ ０４と 二桁でもしてみましたが反応は同じ。 よく分からなくて セルの表示変えても値は１・２・４になってしまうんです・・。 結局よく分かりませんでした。
- ベストアンサー
- オフィス系ソフト
- VBA：値をシート間で転記する方法
初投稿です。 最近ＶＢＡを学習しはじめた経理担当者です。 弊社指定納品書を売却した際の台帳をＶＢＡで管理しよう と思います。 月末にその台帳を集計して指定納品書売却代金を仕入れ 代金と相殺して買掛金を計上します。 注文があったさいには仕入先コードと枚数を入力すれば 自動で台帳に記録され、請求書（エクセル同じブックで 作成）も印刷されるように設定したいと思います。 そこで台帳のフォーマットと請求書のフォーマットに それぞれ入力する必要がないように入力用フォームを 別シートで作成しようと思います。 Ａ(sheet)：入力用シート Ｂ(sheet)：納品書売却台帳（Dsheetを参照する参照式有り） Ｃ(sheet)：請求書 Ｄ(sheet)：取引先マスター Ａsheetの入力必須項目は「仕入先コード」と「購入枚数」 とします。 Ａsheetで入力した値をBsheetに転記して、上から順番に 転記する方法はどうすればよろしいでしょうか？ （Ｂsheetは月別台帳の為月によってデータ数が異なります） 勉強はじめたばかりなので上記作業が可能かどうかも わかりません？（シート間の値の移動及び自動印刷） ご指導お願い致します。
- 締切済み
- オフィス系ソフト
- ユーザーフォームでの検索結果を別シートに転記
ユーザーフォームでの検索結果を別シートに転記して印刷したいのですが・・・ このようなイメージです↓↓ ・データファイルがあります A B C D 1 0001 みかん 3 300 2 0002 とうふ 1 500 3 0003 チョコ 2 100 4 0004 いか 10 300 ・データファイルとは別のファイルでユーザーフォームを表示します。 番号入力欄 ----- 印刷ボタン ・ユーザーフォームで番号が入力され、「印刷」が押された時に、 入力されたのと同じ番号をデータファイルから検索して、 その番号の列データを別シートに転記して印刷したいのです 別シートに 番号：0001 商品：みかん 数量：3 単価：300 と転記して印刷（番号、商品、などの項目名は、転記するひな形シートに元々入れてあります） *ユーザーフォームのイメージは、番号を入力するボックスと、「印刷」ボタンだけがある状態です。 ユーザーフォーム上で該当番号列のほかの値を表示する欄は持ちません。 また、列の情報が多いため、ユーザーフォーム上に表示させてそのまま印刷するというのは厳しいです *ユーザーにはデータファイルを直接触ってほしくないので、ユーザーフォームを介してデータを取り出すようにこのような形にしたいのですが・・・ 自分でいろいろと勉強する前に質問してしまい申し訳ありません。。。が 仕事で使うのに時間がなくお力を貸して頂ければと思います。 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- 急!!Excel VBA 転記マクロを教えて下さい
Excel VBA超初心者です、 急ぎ作らなければならない資料があり、ご助力願います。 次の様な転記するアクションをコマンドボタンに設定したいです。 Sheet1の列A（先頭セルA2）に入力したデータを、 追加した（入力間違い等を除き、保存した）データ分だけ Sheet2の列B（先頭セルB3)の最終行から転記させていく。 列Ａに入力したデータは、並び替えをするので （この分は、今回のVBAに含みません。入力・転記後、Sheet１で普通に並び替えをします。） 列Ａと列Ｂのデータの順番が異なる。 以上です。 どうぞ宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
的確なご回答、ありがとうございました。