エクセルの学校：全文検索：Hyper Estraier：差し込み印刷

Results of 1 - 1 of about 296 for 差し込み印刷 (0.002 sec.)

[[20090916174555]]: #score: 8241; @digest: f7b6b9f84e24838ec19fe1cf10659e9b; @id: 45462; @mdate: 2009-11-30T04:39:23Z; @size: 2679; @type: text/plain; #keywords: 筒印 (15038), 封筒 (10945), 刷封 (7380), 郵送 (7282), 所録 (7186), 認ra (6506), 送" (4525), ョコ (4166), 刷en (3868), 様分 (3837), 住所 (3091), 刷終 (3038), vbcancel (2923), 名分 (2601), vbokcancel (2571), 録") (2288), 行ボ (2278), トif (2024), チョ (1781), 印刷 (1757), に郵 (1606), 刷用 (1566), るチ (1465), 刷() (1314), tbl (1189), cancel (1132), 録は (942), 列最 (899), 終行 (858), d11 (837), 了" (791), コ） (735); 『住所録を封筒印刷』（ちろるチョコ）
シート2に住所録があります。シート1が封筒印刷用のシートになっていてシート1のD11に郵便番号C13に住所1、C15に住所2、D18に氏名が入るようになっています。シート2のA列に郵送と入っている列を順番に封筒印刷するのはどうしたらよいでしょうか? 現在は1列ずつ転記して印刷するマクロを組んでいますが、250名分位あるのでこの方法だと時間がかかります。 ---- Excelにこだわらなければこんな方法もあります。住所録はExcelのまま印刷用をWordで作り「差し込み印刷」すると一気にやってくれます。 yahooで調べるとでますよ^^ (AA) ---- ＞現在は1列ずつ転記して印刷するマクロを組んでいますがってのを載せてみたら? (HANA) ---- Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim tbl As Variant If Intersect(Target, Columns(2)) Is Nothing Then Exit Sub Cancel = False If MsgBox("「 " & Target.Value & " 」様分を転記します。", vbOKCancel) = vbCancel Then MsgBox "終了します" Cancel = True: Exit Sub End If tbl = Range("B" & Target.Row).Resize(1, 4).Value With Worksheets("印刷封筒用") .Range("D18") = tbl(1, 1) .Range("D11") = tbl(1, 2) .Range("C13") = tbl(1, 3) .Range("C15") = tbl(1, 4) End With Cancel = True End Sub こんな感じです。1名分ずつ処理しなくてはならないので手間がかかります(≧д≦) (ちろるチョコ） ---- 1.マクロは住所録のあるシートに実行ボタンを作成し実行しますか? 2.住所録は、1行目が見出し 2行目からデータが入っていますか? 3.住所録シートのB列の入力がある最終行は、住所録の範囲の最終行と一致しますか? (HANA) ---- HANA様研修に行っていて返事が遅くなりましたm( __ __ )m 1.実行ボタンは封筒フォームページにあります。 2.住所録は2行目が見出し、3行目からデータが入っています。 3.B列最終行と最終行は一致します。 (ちろるチョコ） ---- コードはこんな感じどうでしょう。 '------ Sub 印刷() Dim tbl As Variant, i As Long If MsgBox("封筒印刷を開始します。", vbOKCancel) = vbCancel Then MsgBox "終了します" Exit Sub End If With Sheets("住所録") tbl = .Range("A1").Resize(.Range("B" & Rows.Count).End(xlUp).Row, 5).Value End With For i = 3 To UBound(tbl, 1) 'データが3行目からなので i = 3 からスタート If tbl(i, 1) = "郵送" Then '1列目の内容を確認 Range("D18").Value = tbl(i, 2) Range("D11").Value = tbl(i, 3) Range("C13").Value = tbl(i, 4) Range("C15").Value = tbl(i, 5) ActiveSheet.PrintOut '印刷 End If Next MsgBox "印刷終了" End Sub '------ マクロを動かすとすぐに印刷されますのでテスト時はプリンタを一時停止にして下さい。 (HANA) ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200909/20090916174555.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ