advanced help
per page, with , order by , clip by
Results of 1 - 1 of about 296 for 差し込み印刷 (0.002 sec.)
[[20060203115826]]
#score: 8241
@digest: c05741ca312d933e036c9646071bc31a
@id: 19774
@mdate: 2006-02-08T05:08:16Z
@size: 2757
@type: text/plain
#keywords: ポ50 (22494), 郎24 (17590), 所横 (14426), 市・ (8704), 成環 (7323), 理制 (7055), 所3 (6447), 横浜 (6036), 浜市 (5664), 務所 (4490), 所1 (4137), ーポ (4019), 所2 (3601), 込印 (3243), 票作 (3093), 差込 (3014), 帳票 (2980), 住所 (2808), 承下 (2629), ○× (2503), ・コ (2320), 郵便 (2101), 予期 (1886), 便番 (1768), 事務 (1547), 刷シ (1501), 了承 (1310), し込 (1286), ・単 (1132), ブリ (1105), 語検 (1098), 印刷 (946)
差し込み印刷』(さとみ)
エクセルで、ワードのような差し込み印刷をする方法はありますでしょうか? Excel2000 Windows2000 ---- マクロになりそうですが〜 上の新・単語検索で差し込み印刷などで検索されると色々事例もありますよ^^ (かなれっと) ---- 作ってみました シート1の住所録をシート2の印刷シートへ差し込みます sheet1 A B C D E F 氏名 郵便番号 住所1 住所2 住所3 電話 横浜太郎 240-0000 横浜市・・コーポ505 ○×事務所 横浜次郎 240-0001 横浜市・・コーポ506 ○×事務所 横浜三郎 240-0002 横浜市・・コーポ507 ○×事務所 sheet2 A 1 氏名 2郵便番号 3住所1 4住所2 5住所3 sheet1のタブを右クリック コードの表示 下記コードを貼り付け sheet1 へもどり ダブルクリックで実行 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim x As Long Dim i As Long Dim ws As Worksheet Set ws = Worksheets("Sheet2") x = MsgBox("差込印刷を開始します", vbYesNo) If x = vbNo Then Exit Sub With Worksheets("Sheet1") i = 2 Do Until .Cells(i, 1).Value = "" ws.Range("A1") = .Cells(i, 1).Value '名前 ws.Range("A2") = .Cells(i, 2).Value '郵便番号 ws.Range("A3") = .Cells(i, 3).Value '住所1 ws.Range("A4") = .Cells(i, 4).Value '住所2 ws.Range("A5") = .Cells(i, 5).Value '住所3 i = i + 1 ws.PrintOut Loop End With End Sub A1からA5は実際のレイアウトに合わせて変更して下さい (kohe) ---- 私の職場では、ワードで帳票を作るのが苦手で、少しでも罫線が入るものとなるとエクセルを使うという人が少なからずいるようです。 で、時々その帳票を使っての差込印刷を頼まれるのですが、データを受け取ってみて初めて「うわっ、差し込むったってエクセルで帳票 作ってんじゃん!?」という状態になることがあります。 そこで、「エクセルde差込印刷」なるものを作ってみました。 数ヶ月前から作り始めたのですが、仕事の空き時間に少しずつ手を付ける程度なので、未だ自分のイメージには到達していません。です が、とりあえず使用できるレベルにはなったと思うので、試しにアップロードしてみます。 まだReadMeやヘルプファイルのようなものは作っていないので、適当にいじってみて下さい。 また、マクロを正常に動作させるために処理制限をかけている部分もありますし、作成環境で少し動作確認しただけなので、予期せぬエ ラーが起こるかもしれませんが、その辺はご了承下さい。 Yahoo!ブリーフケース http://briefcase.yahoo.co.jp/bc/siroto_sh/vwp2?.tok=bctxesWBsu2Uu86N&.dir=/d516&.dnm=%a5%a8%a5%af%a5%bb%a5%ebde%ba%b9%b9%fe%b0%f5%ba%fe+ver1.0.xls&.src=bc (シロ) 仕事の片手間にやってたら、時間がかかってしまいました。でも、なんとかコピーやらしてみたら、うまくできました。ありがとうございました。 ...
https://www.excel.studio-kazu.jp/wiki/kazuwiki/200602/20060203115826.txt - [detail] - similar
PREV NEXT
Powered by Hyper Estraier 1.4.13, with 97049 documents and 608241 words.

訪問者:カウンタValid HTML 4.01 Transitional