エクセルの学校：全文検索：Hyper Estraier：フォーマット　自動　印刷

Results of 1 - 1 of about 103 for フォーマット　自動　印刷 (0.009 sec.)

フォーマット (1423), 自動 (14517), 印刷 (5708)

[[20190630183320]]: #score: 8138; @digest: 404deaa7773f5cb2a4492b9af88e0358; @id: 80049; @mdate: 2019-07-01T04:50:09Z; @size: 3643; @type: text/plain; #keywords: 出金 (17825), 金明 (17779), 金一 (16263), 別帳 (12695), 帳票 (10928), 払先 (10377), ・支 (9484), 票名 (9378), 金分 (9146), 目no (7716), 払額 (7055), 目一 (5244), 計” (5018), 科目 (4893), 支払 (4555), 先・ (4436), 価1 (4350), 支出 (3341), 原価 (2877), 覧シ (2616), 費1 (2471), 費2 (2464), 各支 (2360), 票を (2331), 経費 (2296), 明細 (2277), 付・ (2178), 覧") (2137), 入出 (2133), 名2 (1975), sht (1857), ルブ (1695); 『出金一覧表から、個別帳票をシートに作成する』（こっすー）
出金の明細が記載されている一覧表から、各支出の個別帳票をシートに作成する作業を自動化したいと考えています。ブック名:出金明細シート名1:出金一覧シート名2:科目名一覧シート名3:帳票雛形＜シート名1:出金一覧＞ A B C D 1 日付支払先支払額科目No. 2 2019/06/01 A社 1,000 301 3 2019/06/02 B社 2,000 302 4 2019/06/03 C社 3,000 401 5 2019/06/04 A社 4,000 402 ＜シート名2:科目一覧＞ A B 1 科目No. 科目名 2 301 原価1 3 302 原価2 4 401 経費1 5 401 経費2 上のデータから、例えば、下記のような帳票を作成したいです。 1出金、1シートです。 A B C D 1 ”帳票名” 2 “支払先:” A社 2019/06/01 3 301 原価1 1,000 4 5 “合計” 1,000 出金数は、一度の作業時で100ほどです。新規のシートはシート3の後に作成され、シート名はただの通し番号で問題ありません。わかりづらいかもしれませんが、どうぞよろしくお願いいたします。＜使用 Excel:Excel2016mac、使用 OS:MacOSX ＞ ---- 手作業で実施する場合、どんな手順にしますか。箇条書きで、できるだけ具体的に、説明できますか。（マナ） 2019/06/30(日) 19:46 ---- マナさん、コメントありがとうございます。返信遅くなりました。現在の手作業の方法は、下記の通りです。 1）別のエクセルブックの入出金明細から、出金分だけを抜き出しシート1にコピペする 2）シート3を開く（帳票のフォーマットが縦に並んでいる） 3）上の支出から順に、日付・支払先・支払額をシート1からコピペする 4）科目はプルダウンで選ぶ 5）出金の数だけ繰り返す 6）全ての帳票（A5）を印刷する現在は、1つのシートで全ての帳票を作成しています。これでおわかりいただけましたでしょうか。よろしくお願いします。（こっすー） 2019/06/30(日) 22:06 ---- ＞1）別のエクセルブックの入出金明細から、出金分だけを抜き出しシート1にコピペするこれは、今回の次号化は、2）以降と考えてよいですか。＞（帳票のフォーマットが縦に並んでいる）意味がわかりません。＞3）上の支出から順に、日付・支払先・支払額をシート1からコピペする＞4）科目はプルダウンで選ぶコピペは、1行だけですか。違いますよね。他は、数式で表示されるようになっているのですか。例えば、合計とか。＞5 “合計” 1,000 （マナ） 2019/06/30(日) 22:25 ---- Sub main() Dim sht As Worksheet, i As Long Set sht = Sheets("出金一覧") For i = sht.Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1 Sheets.Add after:=Sheets(3) ActiveSheet.Name = i - 1 With ActiveSheet .Range("A1").Value = "帳票名" .Range("A2").Value = "支払先" .Range("A3").Value = sht.Range("D" & i).Value .Range("B2").Value = sht.Range("B" & i).Value .Range("B3").Value = Sheets("科目一覧").Range("A:A").Find(sht.Range("D" & i).Value, , , xlWhole).Offset(, 1).Value .Range("B5").Value = "合計" .Range("C3").Value = sht.Range("C" & i).Value .Range("C5").Value = sht.Range("C" & i).Value .Range("D2").Value = sht.Range("A" & i).Value End With Next i End Sub （mm） 2019/07/01(月) 13:24 ---- mmさん、お考えいただきありがとうございました。作動させてみましたら、きちんと各シートごとに帳票が作成されました! どうもありがとうございます。（こっすー） 2019/07/01(月) 13:50 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201906/20190630183320.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ