エクセルで売上と伝票を自動化する方法とは?
- エクセルで日々の売上げを入力し、それを元に伝票を自動的に作成する方法について教えてください。
- 売上げと伝票のシートを使って日々の売上げを管理していますが、手動で伝票を作成するのが手間です。自動化するにはどうすれば良いでしょうか?
- 売上げの情報を元に、伝票を自動的に作成する方法を教えてください。チェックボックスを使用して、選択した行の伝票をプリントしたいです。
- ベストアンサー
ループで出来ませんでした。ズバリお願い致します。
達人の方へお願いします。甘い考えですがよろしくお願いします。 "売上"と"伝票"2種シートを使います。 --売上げシート内容--------------------------------------------- ........A.........B............C..........D...........E............F ....ボタン..日付....名前....担当....物件.....売上げ 10...■....1/8.....あ店....S様.....10m2.....100円 11...■....1/8.....い店....O様.....50m2.....500円 12...■....1/9.....う店....Y様.....30m2.....300円 13...■....1/9.....あ店...G様.....60m2.....600円 14...■....1/11....い店...O様.....50m2.....500円 日々の売上げを毎日入力しています。1日に同じお客からの売上げを数回入力することもあります。 そして1件ごとに納品書が日々必要となります。お客によって納品書をいる・いらないが有り。 納品書の印刷には"伝票"シートのフォーマットを使用してコピー&ペースト。(選択範囲は連続していません) "売上"B10 は "伝票" O3 へペースト(英文字オーの3) "売上"D10 は "伝票" D5 へペースト "売上"E10 は "伝票" S15 へペースト "売上"EF0 は "伝票" D15 へペースト "売上"G10 は "伝票" J15 へペースト マクロかなにかで自動化してプリントしたいと考えてます。 後、フォーマットのクリアも。 配置したボタンにこだわりは無く、出来ればチェックボックスを並べて チェックで選択した行を各1枚づつプリントしたいのです。「1」の打ち込みとかの選択でも可です。 自分でもHP見ながらループやなど試しましたが及びませんでした。 VLOOKUP関数を "伝票"にあてはめた場合も良かったのですが やはりボタンひとつでプリントするのが願いです。 この難件をこの場でご指導いただけるのは甘い考えかもしれませんが よろしくお願いします。
- -kamekame-
- お礼率35% (19/53)
- オフィス系ソフト
- 回答数3
- ありがとう数3
- みんなの回答 (3)
- 専門家の回答
質問者が選んだベストアンサー
Sub Macro1() Dim Sheet1 As Worksheet Dim Sheet2 As Worksheet Set Sheet1 = ThisWorkbook.Worksheets("売上") Set Sheet2 = ThisWorkbook.Worksheets("伝票") Dim baseRow As Long ' 2行目から、2列目(日付)が空になるまでループ baseRow = 2 Do While (Sheet1.Cells(baseRow, 2).Value <> "") '1列目(A列)に1が入っていた時のみ印刷 If (Sheet1.Cells(baseRow, 1).Value = 1) Then ' O3 に 2列目の値を代入 ' D5 に 4列目の値を代入 Sheet2.Range("O3").Value = Sheet1.Cells(baseRow, 2).Value Sheet2.Range("D5").Value = Sheet1.Cells(baseRow, 4).Value Sheet2.Range("S15").Value = Sheet1.Cells(baseRow, 5).Value 'Sheet2.Range("D15").Value = Sheet1.Range("EF0").Value Sheet2.Range("J15").Value = Sheet1.Cells(baseRow, 7).Value ' 印刷プレビュー Sheet2.PrintPreview End If '次の行 baseRow = baseRow + 1 Loop Set Sheet2 = Nothing Set Sheet1 = Nothing End Sub
その他の回答 (2)
- nak777r
- ベストアンサー率36% (49/136)
>画面を何度もスクロールするようなブックですがお教えいただいたマクロを実行するボタンはいつも画面上に表示しておきたいのですが何か良い方法あれば教えてください ショートカットでよければ、 EXCEL メニュー[ ツール > マクロ > マクロ ] でマクロダイアログを表示し 実行するマクロを選択して[オプション]を選択 ショートカットキーの入力欄でがあるので、 半角大文字の A を登録 " Ctrl + Shift +[ A ]" で OK 後は、いつでも、[Ctrl]+[Shift]+[A] でマクロが実行されます。 (半角 a にすると [Ctrl]+[a]になる、Ctrl+AがWindows標準のショートカット(全選択)とかぶるので、[Ctrl]+[Shift]+[何か]の方がいい キーボードの位置を考えると [Ctrl]+[Shift]+[A] が一番楽だと思う) EXCELのメニューバーやツールバーに登録する方法もありますが 説明が面倒なのでやめておきます (あとで、ボタンが消えたとか言うトラブルもでてきそうだし・・・)
お礼
長々と本当にお世話になりました。 本当にありがとうございます。 短い文面ですがかなり心こめて2行打ち込みしました。 違う分野では私にも"回答"で人助けできる部分もあると思います。 この感謝をそういう形で返していきたいと思います。 機会があればよろしくお願いいたします。
- nak777r
- ベストアンサー率36% (49/136)
' 2行目から、2列目(日付)が空になるまでループ baseRow = 2 この部分を変更してみてください 10行目から実際のデータがあるなら baseRow = 10 です
お礼
ほんとに機転がきかない自分ですいません。 印刷確認できて周囲の人間も喜んでおります。貴重なお時間ありがとうございました。 ところで再度あつかましいのですが売上のシートは750行程度有り、画面を何度もスクロールするようなブックですがお教えいただいたマクロを実行するボタンはいつも画面上に表示しておきたいのですが何か良い方法あれば教えてください。自分でも勉強して考えてみます。 ありがとうございました。
関連するQ&A
- ACCESSによる店舗の在庫管理
ACCESS初心者です。 洋服を売る店の在庫と月売上が分かるデータベースを 作ってみたいのですが、どうしたらよいかわかりません。 納品書、売上表、返品伝票などをもとにして、納品された商品から売り消しをしていき、月末に在庫と売上が分かるようにしたいのです。 納品伝票をもとにしたテーブルと日々の売上のテーブルは作りましたが、売り消しの方法がわかりません。どうか教えてください。
- ベストアンサー
- オフィス系ソフト
- 売上補助元帳の書き方を教えて下さい
売上補助元帳の書き方で質問です。 納品伝票をもとに記帳しています。振替伝票は使用していません。 同じ日付で同じ品番が複数枚の納品伝票で売上がある時の書き方なのですが、 3枚納品伝票があったとします(1枚1行として) 日付 摘要 数 単価 売上 1/1 ○○ 10 10円 100円 1/1 ○○ 20 10円 200円 1/1 ○○ 20 10円 200円 と記帳しています。 日付 摘要 数 単価 売上 1/1 ○○ 50 10円 500円 と合算して記帳してはダメでしょうか? 同じ日付と商品で数十枚に伝票がなるときがあり、まとめる方法はないでしょうか? 知識がなく、困っています。宜しくお願いします。
- ベストアンサー
- 財務・会計・経理
- VBAのマクロに詳しい方!!
初歩的なことですが、マクロ初心者なので 教えて下さい。 A,1に分類、B,1に商品名、C,1にH店の売上個数、D,1にK店の売上個数が入っている時、 sheet1のB列の抜き出したいセルをマウスでドラッグすると、そこの行がコピーされ、sheet2にその行がペーストされる仕組みのマクロを作りたいのですが、どうすればいいのでしょうか(´・_・`) 例えば、マクロボタンを押して、mainを選択したら、"商品を選択してください"といったinputboxが出てきて、B4:B8を選択したら、4行目から8行目までが、sheet2の2行目から6行目にコピーされているようにしたいということです。 詳しい方、教えて下さい!
- ベストアンサー
- Visual Basic
- どうぞよろしくお願い致します。
どうぞよろしくお願い致します。 いきなりですが、 総勘定元帳は、専用のものではなくても大学ノートに線を引いて転記しても大丈夫なのでしょうか? そのとき、月ごとに1ページ使うのでしょうか? 仕訳帳ごとの項目を作り、ものによっては一ヶ月2行くらいしか記入していないのに月が変われば次のページ…というように使うんでしょうか? それと、仕訳伝票から仕訳帳に記入して最後は総勘定元帳に記入…。 仕訳帳で記入したものは結局総勘定元帳に転記するのに仕訳帳何冊か用意してまで記入する必要の意味がわかりません。。。 個人事業を始めるため1から簿記を勉強し始めました。 趣味程度から始めるお店ですのでそんなに売上が無いと考え自分でやってみようと思いましたが、頭がぐちゃぐちゃになってきて困ってます… 簡易簿記ではなく、どうせ勉強するなら今後のためにも複式簿記でやろうと思っています。 それにしても専用の帳簿って高いですね。 もう1点!! 入出金伝票等をスクラップブックに貼り付けて保存していますが、入金伝票・出金伝票・振替伝票・領収書・レシート、他に同じファイルで貼り付ける書類はありますか? 納品書は別で保管してますか? どうぞ初心者的な質問にみなさまご回答よろしくお願い致します。
- ベストアンサー
- 財務・会計・経理
- エクセルの関数を教えてください。
エクセルの関数を教えてください。 sheet1は売上明細を入力、sheet2は入金確認票です。 sheet1のO列に伝票NO(同じNOを何度入力するが、その場合の日付は同じ) sheet1のA列に日付です。 sheet2のD列に伝票NOを入力した時に、F列にsheet1の日付を持ってくる方法を教えてください。 よろしくお願い致します。
- ベストアンサー
- Windows XP
- 弥生販売で納品書をPDFで保存する方法はありますか?
弥生販売08プロフェッショナルを使っています。売上伝票の画面で、印刷ボタンを押したときにできる納品書と請求書をPDFで保存したいのですが、方法がわかりません。 ちなみに、その納品書と請求書は、メールに添付するためにPDFにします。 分かる方、ご教示いただければ助かります。
- 締切済み
- 会計ソフト
- エクセルで別シートをマッチングする方法
エクセル2007のマッチングに関する質問です シート1にはA列から店コード、4月売上、5月売上・・・・年間売上合計が入力されています。 シート2には同様のフォーマットで仕入れ合計、シート3には広告費合計が入力されています。 これらの3つのシートを店コードをキーにして売上-仕入れ-広告費を シート1-3と同様のフォーマットでシート4に作りたいのですが、関数を使って簡単に出来ますか? ご教授のほどよろしくお願いします
- 締切済み
- その他MS Office製品
- 見積書・注文請書と納品書・請求書の記載について
見積書・注文請書と納品書・請求書の表示について教えてください。 次のように伝票を記載しても問題はありませんか? 【見積・受注時】 ==================================================== 伝票No.M00001 商品A 1000円(外税) 商品B 1000円(外税) (計) 2100円(税込)(うち消費税 100円) ==================================================== 伝票No.M00002 商品C 1000円(外税) 商品D 2100円(内税) (計) 3150円(税込)(うち消費税 150円) ==================================================== 伝票No.M00003 商品E 2000円(内税) 商品F 3250円(内税) (計) 5250円(税込)(うち消費税 250円) ==================================================== 【売上(納品)・請求時】 ==================================================== 伝票No.N00001 商品A、B 2100円(内税) 商品C、D 3150円(内税) 商品E、F 5250円(内税) (計) 10500円(税込)(うち消費税 500円) ====================================================
- 締切済み
- 財務・会計・経理
- ご指導お願い致します。
データ整理で悩んでるんですが、どなたかご提案願います。 VBAは初心者なのでご指導も願います。 テキストボックスで記入する欄が8個ほどあります。 記録用シートにコマンドボタンで転送させます。その記録用シートには A B C D F 1 テキスト1 テキスト2 テキスト3 テキスト4 テキスト8 2 テキスト5 3 テキスト6 3 テキスト7 となっています。 その後登録ごとに同じような内容が転送されるようます。 転送・記録の手順は整いましたが、記録用シートで管理・検索もしようと思ったらどうしたらいいのかわからなくなってきました。 検索するときはオートフィルタなどでも良いと思いましたが、テキスト1でフィルタしてもD列にあるテキスト5~7は検索にひっかからないな・・・と思いまして。 本当は最初の転送させる前のテキストボックスにクリックなどしたら表示されたらいいんですが。説明不足だと思いますが、なにとぞご教授願います。 尚最初の転送前のシートには下記のようなフォームであります。 オプションボタン1(転送先シートを決定するため) オプションボタン2 ・ ・ ・ オプションボタン6 テキストボックス1(先ほどの転送前のテキストボックス) テキストボックス2 テキストボックス3 テキストボックス4 テキストボックス5 テキストボックス6 テキストボックス7 テキストボックス8 コマンドボタン1(クリックしたらオプションボタン別にシートを分別しているので、選択シートにテキストボックスが転送されるマクロを登録)
- 締切済み
- Visual Basic
- Excel2007で質問です。
sheet1にセルD3から下に向かってデータが2000個以上入ってます。 (1)マクロボタンを押します。 (2)D列で任意の行番号の値(今回は1000行目)をコピーします。 (3)sheet2,sheet3,sheet4のN6に(2)をペイストします。 (4)、(1)に戻りマクロボタンを押します。 (5)、(2)に行きまして、1つ下の1001行目をコピーします。 (6)、(3)に行きN6の下のN7にペイストします。 これをマクロボタンを押す度に繰り返したいです。
- ベストアンサー
- Excel(エクセル)
補足
ご回答本当にありがとうございます。 実際にお会いして頭下げたい気持ちです。 標準モジュールにそのままコピペしても印刷プレビューまでたどり着けませんでした。 何故でしょうか。返答お待ちしております。