Gizport
1 回答
0
Share (facebook)
63
view
全般

達人の方へお願いします。甘い考えですがよろしくお願いします。 &qu...

達人の方へお願いします。甘い考えですがよろしくお願いします。 "売上"と"伝票"2種シートを使います。

--売上げシート内容-----------------------

....A.............B.............C...........D...........E.............F
..印刷...日付......名前....担当....物件.....売上げ

10■.......1/8.......あ店....S様.....10㎡.....100円
.
11■......1/8........い店....O様.....50㎡.....500円

12■......1/9........う店.....Y様.....30㎡.....300円

13■......1/9........あ店....G様.....60㎡.....600円

14■......1/11......い店....O様.....50㎡.....500円

日々の売上げを毎日入力しています。1日に同じお客からの売上げを数回入力することもあります。

そして1件ごとに納品書が日々必要となります。

納品書の印刷には"伝票"シートのフォーマットを使用してB列からF列までコピー&ペーストを


"売上"B10 は "伝票" J10 へペースト
"売上"C10 は "伝票" K10 へペースト
"売上"D10 は "伝票" L10 へペースト
"売上"E10 は "伝票" M10 へペースト
"売上"F10 は "伝票" N10 へペースト

マクロかなにかで自動化してプリントしたいと考えてます。
後、フォーマットのクリアも。

配置したボタンにこだわりは無く、出来ればチェックボックスを並べて

チェックで選択した行を各1枚づつプリントしたいのです。

自分でもHP見ながらループやなど試しましたが及びませんでした。

VLOOKUP関数を "伝票"にあてはめた場合も良かったのですが

やはりボタンひとつでプリントするのが願いです。

この難件をこの場でご指導いただけるのは甘い考えかもしれませんが

よろしくお願いします。
Yahoo!知恵袋 5979日前
コメントする
お気に入り
1
質問者が選んだベストソリューション
とりあえず、マクロで作ってみました。参考にしてください。
大まかな使い方は、ワークシートを見ればわかると思います。
印刷の書式は、ご自分で工夫されてください。
あと、整理するためにA列にNOを挿入し追加しておりますのであしからず。
------------------------------------------------------
以下へジャンプしてBOOK1.xlsを保存後、実行してみてください。
(私のマイブリーフケースに保存しております。)
http://briefcase.yahoo.co.jp/bc/tosinori615/
Yahoo!知恵袋 5977日前
シェア
 
コメントする
 

参考になったと評価
  このQ&Aは参考になりましたか?

Share (facebook)
その他の解決方法を知っていますか?
回答する
全般
66
Views
質問者が納得カメラの機種名はK5ですよね? と言うよりK5以外は生産終了してますから。 私も所持してますが非常に良いカメラかと思います。 私は花をよく撮りますがやはりマクロレンズは必須かな。 極端ですがK5ボディーとマクロレンズ(4~6万円)を買う方法もあります。 予算次第ですがね。 時々蘭を撮影しますが個人的には余り良い被写体とは思えません。 撮影自体も他の花に比べて楽しくないし面白くありません(笑) ですから撮影に集中し過ぎて鑑賞が疎か・・・にはならないと思います。
4507日前view66
全般
88
Views
質問者が納得A1:A10セルを選択してコピー B1セルを選択して 右クリック[形式を選択して貼り付け] →[行列を入れ替える]にチェックを入れて[OK] A列を削除 でいいです。
4529日前view88
全般
107
Views
質問者が納得Book1で選択された範囲をBook2のアクティブなシートの同じセル位置にコピーするコード例です。 Sub コード例() Dim sh2 As Worksheet, rng As Range Workbooks("Book2.xls").Activate Set sh2 = ActiveSheet Workbooks("Book1.xls").Activate For Each rng In Selection rng.Copy sh2.Range(rng.Ad...
4537日前view107
全般
78
Views
質問者が納得条件を入力した際に「$A$1」となっていませんか? これだと、どのセルからでもA1セルの状態を見て、書式が変更されます。 もう一度、A1:J10を選択して、条件付き書式の設定ウィンドウを表示させ「$」をすべて削除してみて下さい。
4536日前view78
全般
72
Views
質問者が納得=IF(SUMPRODUCT(G10:G12*J10:J12)/3>150,"A",IF(SUMPRODUCT(G10:G12*J10:J12)/3>50,"B","C")) 三回修正--;
4535日前view72

取扱説明書・マニュアル

885view
http://fujifilm.jp/.../ff_finepixj10_mn_j101.pdf
142 ページ4.05 MB
もっと見る

関連製品のQ&A