- ベストアンサー
Excel VBAについて
UserFormからデータ(氏名、生年月日・・)を入力し、「登録」ボタンをクリックすると Sheet2に入力データを上から(1行目、2行目・・）格納していきます。 そして、Sheet1上に作成した「印刷」ボタンをクリックすると、Sheet2で順に格納されたデータをある定められたフォーマットで両面印刷（表に1行目のデータ、裏に２行目のデータ)できるようにしたいのですが、可能でしょうか。
- piopao
- お礼率44% (40/90)
- Visual Basic
- 回答数1
- ありがとう数0
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- ＜エクセル＞マクロを使ってデータを入力したいのですが・・
エクセル初心者のため、 どなたかご存知の方がいらっしゃいましたら教えていただけないでしょうか。 エクセルで、ある申込書のフォームにデータ（氏名・フリガナ・生年月日・年齢等を入力したいのですが１００名分くらいあるためマクロを作って元データからコピーできれば・・と考えています。 １００人分の元データはＳｈｅｅｔ１にあり、 １名につき１行で、Ａ１に氏名、Ｂ１にフリガナ、Ｃ１に生年月日・・・（～F1まで）となっています。（～１００行目まで） そのデータをＳｈｅｅｔ２にある申込書フォームの該当欄にコピーしたいのですが、簡単な方法はありますでしょうか。 Ｓｈｅｅｔ２には１０名分の入力欄があるので、、 Ｓｈｅｅｔ１の１行目の人のＡ１(氏名)のデータをＳｈｅｅｔ２のＢ１２（氏名入力欄）へ、 Ｓｈｅｅｔ１の２行目の人のＡ２(氏名)のデータをＳｈｅｅｔ２のＢ１４（氏名入力欄）へ、 ・・・・・ Ｓｈｅｅｔ１の１０行目の人のＡ１０（氏名）のデータをＳｈｅｅｔ２のＢ３０（氏名入力欄）へ、 という感じでコピーしていきたいです。 （フリガナ、生年月日、年齢などそれぞれ欄があります） とりあえず１０人分ずつＳｈｅｅｔ２にコピーできるマクロが組めれば大変助かるのすが・・・。 説明も上手にできず申し訳ないのですが・・・。 私の知識レベルでは１００人分こぴぺこぴぺする方が早いのかもしれませんが どなたかアドバイスをいただければ大変うれしいです。 どうか、宜しくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルＶＢＡのマクロ文について
エクセルVBAで、シート上のボタン（フォーム）をクリックすると、UserForm1が表示されてその中のTextBoxに別のシートのセルに入力したいる値を表示させたくて、以下のようにボタン（フォーム）にマクロを入力したのですが、エラーがでてきてうまくいきません。 入力したマクロが間違っているのでしょうか？ Sub ボタン1_Click() UserForm1.Show UserForm1.TextBox1 = Sheets("入力").Ranges("Ｄ１１").Value End Sub すみませんが、ご存知の方、教えてくださいませんか？
- ベストアンサー
- その他MS Office製品
- エクセルＶＢＡでテキストボックスに入力があった場合のみ、ワークシートに転記したい
現在顧客名簿シートがあり、修正フォームから顧客情報を修正できるようにマクロを組んでいる最中です。 例えば、textbox1→氏名、textbox2→生年月日、textbox3→住所、としていて、住所のみ変更情報を入力し修正ボタンをクリックすると氏名、生年月日が未入力のため顧客名簿の氏名、生年月日が消えてしまいます。 このような場合、入力がないtextboxのシート転記プログラムを飛ばす、若しくは入力があるtextboxのみシート転記を実施する方法を教えてください。
- ベストアンサー
- Visual Basic
- エクセルVBA シートから抽出して伝票に印刷
初心者です。 エクセル2010を使用しています。 シート1（出庫台帳）にあるデータを、シート2（出庫依頼票）に転機させて印刷をしたいと思っています。 シート1にデータを毎日入力していくのですが、1行入力するごとに、シート1内に作成した印刷ボタンを押すと、その時一番下にある行（一番新しいデータ）が出庫依頼票に転機され、印刷プレビューがでるようにしたいのですが、どうしてもできません。 また、フォームからボタンを作りたいのですが、どこにあるのか探せません。 イメージを添付してみました。 どなたか、どうか教えてください。
- ベストアンサー
- Windows 7
- Excelで
ブックのsheet1に住所録のようなものを行単位で入力します。1行目に斉藤という氏名、2行目に後藤という氏名等を入力し、sheet2のどこかのセルを（例えばA１）1箇所決めて、そこに関数などをいれて先ほどの斉藤というセルをクリックすると、そのsheet2のA1に自動的に斉藤がはいり、次に後藤をクリックすると今度は同じA1が後藤に代わる なんてことは出来ますか？差込印刷などではないようです。ちょっとわかりにくい説明で申し訳ありませんが、お願いします。
- ベストアンサー
- Windows系OS
- エクセルVBAで、テキストボックスにセルの値を入れる
宜しくお願いします。 エクセルデータの各項目を、すでに書式（表）が印刷された用紙のそれぞれの項目の位置に印刷させたいのですが・・・ 各項目には、500行ぐらいのデータがあり、別のワークシートの表示させたい位置（すでに印刷された用紙にあわせてある）に各項目ごとのテキストボックスを作っておいて、そのテキストボックスに各項目のデータを1行ごとに表示させて、テキストボックスのフォント調整、印刷 ～を繰り返したいのですが、どのようなコードを書けばよいのでしょうか？ 進め方としては、データシートからテキストボックスに各項目のデータが表示されたら、シート上でテキストボックスのフォントや位置の微調整が出来るようにしておいて、印刷ボタンをクリックすると印刷され、次へのボタンをクリックすると、次の行のデータがテキストボックスに表示されるようにしたい。 ※印刷する場合は、テキストボックス内の文字のみ印刷（シートには印刷したくない文字書きたいので・・・） また、そのフォームには、パターンが５つあって、データには1行ごとにパターン番号が入力されているとして、それぞれのパターンにあわせたテキストボックスの配置してあるシートへ行くようにもしたい。 データの入れ替わりが多いので、別のワークブックと繋がるような仕組みにしておいて、テキストボックスの配置してあるブック側から、データのあるブックを呼びに行ってデータを取りに行くようにしておきたい。 以上、条件が多くてすみませんが、VBAは初心者で、ほんの部分的にしかまだ分かりません。どなたか詳しい方宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excel VBA 別ブックを開かずに転記
Excel2007のユーザーフォームについて教えてください。 ユーザーフォームを以下のように作成しました。 ■テキストボックス6つ テキストボックス2→件名 テキストボックス3→数 テキストボックス4→名前 テキストボックス5→備考1 テキストボックス6→備考2 ■コマンドボタンが1と3の2つです。 コマンドボタン1→転記と印刷 コマンドボタン3→終了 ■シートの構成 sheet"作成と一覧" 1行目を以下の項目で使用しています。 Ａ1→番号（テキストボックス1を表示） Ｂ1→件名（テキストボックス2を表示） Ｃ1→数（テキストボックス3を表示） sheet"印刷" Ａ1→番号（テキストボックス1を表示） Ａ2→件名（テキストボックス2を表示） Ｂ2→数（テキストボックス3を表示） Ａ3→名前（テキストボックス4を表示） Ａ4→備考１（テキストボックス5を表示） Ａ5→備考2（テキストボックス6を表示） テキストボックスに入力した値を２つのシートにそれぞれ転記して、 シート"印刷"を2部印刷しています。 ここまで以下のコードで行いました。 Private Sub CommandButton1_Click() '入力値を作成と一覧シートに転記 行 = ActiveCell.Row 列 = ActiveCell.Column Cells(行, 列) = UserForm1.TextBox1.Value Cells(行, 列 + 1) = UserForm1.TextBox2.Value Cells(行, 列 + 2) = UserForm1.TextBox3.Value '入力値を印刷シートにに転記 Worksheets("印刷").Range("A1") = UserForm1.TextBox1.Value Worksheets("印刷").Range("A2") = UserForm1.TextBox2.Value Worksheets("印刷").Range("B2") = UserForm1.TextBox3.Value Worksheets("印刷").Range("A3") = UserForm1.TextBox4.Value Worksheets("印刷").Range("A4") = UserForm1.TextBox5.Value Worksheets("印刷").Range("A5") = UserForm1.TextBox6.Value 部数 = 2 Worksheets("印刷").PrintOut Copies:=部数, Collate:=True UserForm1.TextBox1.SetFocus Cells(行 + 1, 列).Select End Sub Private Sub CommandButton3_Click() '終了ボタンで値をクリアしてウィンドウを閉じる Dim Ctrl As Control For Each Ctrl In Controls If TypeName(Ctrl) = "TextBox" Then _ Ctrl.Value = "" Next Ctrl Unload Me End Sub 教えて頂きたい事なのですが・・・ コマンドボタン1の入力値を作成と一覧シートに転記の所なのですが、 アクティブセルではなく、常にA列の最後の値の次の空白行に転記するようにしたい場合、 どのように書き換えればいいのでしょうか？ もう一点ですが、 別ブックにテキストボックス1から6が入力された一覧があります。 この別ブックを開かずに、 テキストボックス1に入力された番号を探して、 テキストボックス2から6に表示されるようにしたいのです。 うまく説明できないのですが・・・ 別ブックの名前は"たちつ" 別ブックは、あいうサーバーの かきくフォルダの中のさしすフォルダです。 ブック"たちつ"に"一覧"というシートがあります。 一覧のシートのD列の3行目以降には番号が入力されており、日々増えています。 テキストボックス1に入力された番号を、 一覧のD列から探し、 I列の値をテキストボックス2へ K列の値をテキストボックス3へ L列の値をテキストボックス4へ M列の値をテキストボックス５へ J列の値をテキストボックス6へ転記させたいのです。 同じブックの別シートを参照するときには Application.VLookupで出来たのですが、 マクロの記録でやってみても、解決できませんでした。 コードをご覧いただいてお分かりの通り、 VBA超初心者です。 ネットを見ながら試行錯誤している状況です。 コードの間違い等あるかもしれませんが、 ご教示よろしくお願いいたします。
- 締切済み
- Excel（エクセル）
- Excel VBAについて
UserForm上に配置しているComboBox1はSheet3からデータを読み込んで表示するようにしているのですが、現在はComboBox1に直接手入力でもいれることができてしまいます。 これをできなくするのはどうしたらよいのでしょうか。
- ベストアンサー
- Visual Basic
- EXCELのVBAで出来ますか？
WINXP、EXCEL2002を使用しています。 今、シート「入力」-シート「帳票」-シート「履歴」の3シートがあり、以下の処理を行う為の手続きの記述について、ご教授お願いします。 ●シート「入力」に対し、氏名、住所、電話番号を入力し、実行ボタンを押下する事により、⇒ シート「入力」の内容がシート「帳票」に転記され、(←この部分は、今回の質問範囲ではありません。)シート「帳票」が印刷され、同時に、シート「入力」のレコードをシート「履歴」に書き込み、終了する。 以降、シート「入力」に入力されたレコードが実行ボタン押下により、シート「履歴」に追加される仕組みを作成したい。 宜しくお願いします。
- ベストアンサー
- Visual Basic
