No.5ベストアンサー
- 回答日時:
No.2・4です!
補足を読ませていただきました。
案内状もExcelでお作りだということなので・・・
コード自体は前回のコードで大丈夫だと思います。
ただしいらない行がありましたのでもう一度コードを載せておきます。
プリントアウトするSheetはSheet1でプリントアウトしたい役員名簿はSheet2のA1セルから入っているものとします。
尚、コード内にコメントを入れていますようにもしSheet1にSheet名を付けていらっしゃるのなら
コード内の「sheet1」の部分を変更してみてくださいね。
Sub test() 'この行から
Dim i As Long
Dim ws1, ws2 As Worksheet
Set ws1 = Worksheets("sheet1") '←Sheet名は適宜変更してください
Set ws2 = Worksheets("sheet2") '←こちらのSheet名も適宜変更
For i = 1 To ws2.Cells(Rows.Count, 1).End(xlUp).Row
ws1.Range("A1") = ws2.Cells(i, 1) '←Sheet1のA1セルに名前を表示
ws1.PrintOut
Next i
End Sub 'この行まで
コードの貼り付け方法・マクロの実行方法はNo.2に記載している通りです。
お役に立てば良いのですが・・・m(__)m
No.4
- 回答日時:
No.2です!
たびたびごめんなさい。
案内状はExcelではなくWordで作成されている訳ですよね?
前回のコードはExcelのSheet1で作成したものをプリントアウトするコードですので、読み流してください。
No.1のMackyNo1さんや No.3のCoalTarさんの方が参考になると思います。
何度も失礼しました。m(__)m
この回答への補足
tom04 様
回答ありがとうございます。
案内状はExcelです、Excelだけで出来るのならばありがたいです。
Excelで役員のデーターを作成して、Wordの差し込み印刷の方法を回答してくださる方がおられます。
tom04 様
先日はありがとうございました。
一部改造のお願い出来ませんでしょうか
sheet1のセルB1にも項目を追加したいのです。
データーはSheet2のB1から入力します。
よろしくお願い致します。
Sub 印刷() 'この行から
Dim i As Long
Dim ws1, ws2 As Worksheet
Set ws1 = Worksheets("sheet1") '←Sheet名は適宜変更
Set ws2 = Worksheets("sheet2") '←こちらのSheet名も適宜変更
For i = 1 To ws2.Cells(Rows.Count, 1).End(xlUp).Row
ws1.Range("A1") = ws2.Cells(i, 1) '←Sheet1のA1セルに名前を表示
ws1.PrintOut
Next i
End Sub 'この行まで
No.3
- 回答日時:
20件程度ならINDEX関数とフォームツールバー上にあるスクロールバーとの合わせ技でExcelのみで完結できると思います。
特に案内を出した履歴を保存しておきたい場合、
Wordの差し込み印刷ツールバーから<<Skip Record IF...>>で
例. A案内 等しくない 1
として新規文書に差し込むと1以外が除かれて差し込まれます。
No.2
- 回答日時:
こんばんは!
Excelでの方法をご希望のようなので・・・
VBAになってしまいますが、一例です。
Sheet2のA列(A1セル)から役員名を入力しておきます。
Sheet1のA1セルにSheet2のA1セルから順に役員名を表示し、Sheet2のA列の名簿分をプリントアウトするコードにしてみました。
Alt+F11キーでVBE画面が出ますので↓のコードをコピー&ペーストしてマクロを実行してみてください。
(Alt+F8キー → マクロ → 実行です)
Sub test() 'この行から
Dim i As Long
Dim ws1, ws2 As Worksheet
Set ws1 = Worksheets("sheet1")
Set ws2 = Worksheets("sheet2")
For i = 1 To ws2.Cells(Rows.Count, 1).End(xlUp).Row
ws1.Range("A1") = ws2.Cells(i, 1) '←Sheet1のA1セルに名前を表示
ws1.PrintOut
ws1.Cells(1, 1) = ""
Next i
End Sub 'この行まで
上記のコードではSheet1のA1セルにSheet2のA列に入力した氏名で順に印刷されますが、
役員名のセル番地は
ws1.Range("A1") = ws2.Cells(i, 1)
の「A1」部を適当に変更してみてください。
以上、参考になればよいのですが
他に良い方法があればごめんなさいね。m(__)m
No.1
- 回答日時:
ワードの差し込み印刷を使うと、エクセルのデータを簡単に案内状に差し込むことができます。
http://www.eurus.dti.ne.jp/~yoneyama/Word2007/wo …
http://kedu.kenet.ed.jp/hp/tips/tips017.pdf
ワードのバージョンによって操作法が大きく異なりますので、ご質問の際にはバージョンを明記するようにしましょう。
MackyNo1 様
早々の回答ありがとうございます。
詳しい内容の回答で非常によく判りました。
さっそく、手法を理解するために簡単なファイルを作り試してみました。
希望していた動きをしてくれました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 分譲マンション 総会前にきて、管理会社のフロントマンに振り回され役員一同が困っています。 5 2023/05/15 03:12
- ボランティア 町内会に入っていますか? 5 2022/04/06 08:52
- 分譲マンション 分譲マンションの管理組合で明らかに管理組合の会計ミスについて 10 2023/05/21 01:34
- 分譲マンション 分譲マンション・管理組合の委任状について 3 2023/04/23 23:49
- 財務・会計・経理 役員変更(重任)登記について 1 2023/06/09 10:33
- 分譲マンション 自治会規約の改定について 9 2022/06/25 08:11
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
- 公認会計士・税理士 会計限定監査役(司法書士試験関連) 3 2022/06/20 17:25
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- ビジネスマナー・ビジネス文書 町内会で回覧板を回しますが文章の書き方を教えて下さい 2 2023/01/15 19:37
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
役職が二つ以上ある方の宛名の...
-
恥を忍んで・・・(電話応対)
-
PTA総会には今年役員になっ...
-
社内メールの各位の使い方について
-
従業員数の正しい数え方
-
社長の所属と役職は?
-
CEOって宛名書く時どう表記...
-
持って行ってもらうの尊敬語は??
-
回覧板の書き方について。
-
PTAへの宛名書き
-
町内会で回覧板を回しますが文...
-
役員退職金をもらって、同じ会...
-
自社の執行役員の敬称
-
欠席の場合、役員に当たっても...
-
Commercial Directorはなんて...
-
取締役は職業を聞かれた時にど...
-
役員の妻はパートできますか?
-
自治会の会計年度と実務的な締め日
-
名刺の肩書きについて
-
官僚の課長クラスと対等な立場...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
おすすめ情報