[[20041023101525]] 『案内者の名前だけ変える方法』(まなみ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『案内者の名前だけ変える方法』(まなみ)

皆様こんにちは
早速なのですがエクセル2000で

−−−−−−−−−−−−

 ******               |
                            |
|---------------------|   |
| このたびは          |   |
| お申し込みいただき  |   |
| 誠に有難うございます|   |
|                     |   |
| 〜〜〜              |   |
| 〜〜〜              |   |
| 〜〜〜〜〜〜〜      |   |
| 〜〜〜〜〜〜〜      |   |
|                     |   |
 -----------------------    |
                            |
              2004/10/23    |
−−−−−−−−−−−−−−
この様なA4の案内状みたいなものの
******の部分だけを印刷ごとに
差し替えて本文は固定にして印刷したいのですが
(ワードの差込印刷のように)
エクセルではどのようにすればいいのでしょうか?
今こちらの環境がエクセルしかないので
どなたかご教授ください
よろしくお願いします。

 こんな感じでどうでしょう??
(SoulMan)
 A
宛名
パタリロ
バンコラン
イチロウ
コジロウ
こたろう
大吾朗
Sub てすと()
Dim i As Long
With Worksheets("Sheet1")
    For i = 2 To .Range("A65536").End(xlUp).Row
        .Range("E1").Value = .Range("A" & i).Value
        .PrintPreview
    Next
End With
End Sub

お返事有難うございます。(まなみ)

これはビジュアルベーシックなのでしょうか?

名前だけは知っているのですが
使い方は解りません。

教えていただいたのに
私のスキル不足で理解できず
申し訳ありません

他の方法で何か応用があるのなら
教えていただきたいと思います。

又このビジュアルベーシックを
未経験者でも解る様に説明していただければ
助かります。

わがままを言いまして申し訳ありませんが
どなたかよろしくお願いします。


 ありゃま、失礼しました。
Sheet1のA列に何か項目を入力していただいて、
宛名
パタリロ
バンコラン
イチロウ
コジロウ
こたろう
大吾朗
このように
で、上のコードをAltキーを押しながらF11を押して
VBE画面を立ち上げて、真っ白なところに貼り付けます。
普通のエクセルの戻って
ツール→マクロから
てすとを実行してみてください。
どうかな??
わからなかったらまた聞いてください。
追伸!
VBE画面を立ち上げて、
標準モジュールを挿入して、そこに貼り付けます。
に訂正させてください。
(SoulMan)

 効率はよいとはいえませんが、手作業の差込は、このようにしてもできます。
 C1:C6に宛名を配置し、D1に指定行番号を入力します。
 A1に=INDEX(C1:C6,D1)&" 様"と数式を入力しておきます。
 D1に数値を再入力し、印刷のアイコンをクリックを繰り返します。       (LOOKUP)

  A         B  C      D
1 吉永小百合 様      倍賞千恵子  2
2             吉永小百合	↑
3             栗原小巻   再入力	
4 このたびは       十朱幸代	
5 お申し込みいただき   浅丘ルリ子	
6 誠に有難うございます  竹下景子	
7 

(まなみ)
SoulManさん、LOOKUPさん教えていただき有難うございました

ビジュアルベーシック凄いです!!
でもプログラムちんぷんかんぷんです・・・(汗

上の通りにやったら出来ました。
後はコードのセルを指定してるところを変えて
調整してみます。

どうもご丁寧に有難うございました。


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.