- ベストアンサー
Excel初心者のための連続印刷マクロ
yamada82の回答
- yamada82
- ベストアンサー率28% (15/53)
たぶんWordの差し込み印刷機能を使う方が現実的だと思います。 「Word 差し込み印刷 はがき」 とかで検索すればやり方が出てきます。
関連するQ&A
- Excelの関数またはマクロを教えて下さい。
Exsel2000の関数で、現在以下の関数まで出来たのですが、これを応用して検索値「A1」を２つのセル「A1＆B1」にしたいのですが、どうすればよいのでしょうか？どなたか方法を教えて下さい。 =VLOOKUP(A1,Sheet1!$A$1:$E$2000,4) 上記の関数から判るように、これは 例えばSheet2のC1のセルにこの式を入れる場合、A1と同じ内容の値を、Sheet1のA列から検索して、そして同じ行のSheet1のD列の値をSheet2のC1のセルに返すという関数です。 これを応用して、「A1と同じ内容…のA1を、A1＆B1の２つが一致するセルを検索して、同じ列のSheet1のD列の値をSheet2のC1のセルに返すという関数にしたいのです。 どなたかおわかりになる方がおりました宜しくお願いいたします。 また、マクロを使う方法でも良いのですが、当方マクロは詳しくないので出来るだけ判りやすくお願いいたします。
- ベストアンサー
- 会計ソフト
- マクロを使って印刷したい
以前にも質問させて頂きましたが、私の説明が悪かったため再度させて頂きます。 A8：C50まで下記のようなデータが入っているとして No.1 山田産業 1230 No.2 東物産 2562 No.3 北村建設 3127 … … … A1:C3に下記のような表を作成します。 A列 B列 C列 1行目 □ VLOOKUP($A1,$A$8:$C$50,2,0) VLOOKUP… 2行目 □ VLOOKUP($A2,$A$8:$C$50,2,0) VLOOKUP… 3行目 □ VLOOKUP($A3,$A$8:$C$50,2,0) VLOOKUP… ----------------------------------- A列の□にA列の8行目に入っている数字を自動的に上から3づつ（No.1、No.2、No.3）表示させてはA1:C3を印刷したいのです。 （No.1,No.2,No.3表示→印刷 No.4,No.5,No.6表示→印刷・・・・・・） 例えばNo.50までデータがあるとして1クリックで最後まで順番に印刷させることはマクロで出来ますでしょうか？ 知恵をお借りできれば幸いです。宜しくお願い致します。
- ベストアンサー
- その他（プログラミング・開発）
- マクロの記録で作成したマクロがデータが代わると誤動作する。
マクロの記録で作成したマクロがデータが代わると誤動作する。 エクセルファイルにてＡ列からＪ列までデータがあります。 行数は２，０００行です。データは全て半角です。 Ａ列の値が １＝入庫 ２＝出庫 ３＝戻入 と全て置換 Ｂ列の値が １＝社内品 ２＝社外品 ３＝受入 と全て置換。 でこのＢ列が３で受入に置換えたら その隣のＡ列の値を 受入に置き換えたい。 さらに Ａ列の値が置換え後の入庫と戻入場合はその行のＪ列の値を切り取り、Ｋ列に貼付をし Ａ列の値が置換え後の出庫の場合はその行のＪ列の値を切り取り、Ｌ列に貼付をしたいです。 マクロの記録で行いましたが、 いったんデータを全て消して別データを貼り付けしたらＡ列Ｂ列の置換えは正常ですが Ｂ列が３の場合にＡ列を再置換えと、Ｊ列の値を切り取り、Ｋ列、Ｌ列への貼付が 誤動作します。 （別データは雛形は同じです。入力規則も同じですがデータは変わります。 例：セルＡ１のデータは１、 新しいデータはセルＡ１は２ 等） マクロの記録中では、並べ替えでソートし上記条件でセルを選択しコピペをしました。 並べ替えは2回です。 マクロ文を見ると、セル名がずらずら並んで、セル番号が指定されてます。 （マクロ記録中に選択したセル番号が全部記録されてます。） 文を見ると、上記条件で置換えやコピペでなく このセルはこう置換え、このセルはこうコピペのように読めます。 これでは、データが代わったら、別の動きになるのかな？と思いました。 こういう場合はマクロではどうやって記録すればいいでしょうか？
- ベストアンサー
- オフィス系ソフト
- excelでマクロを使用した連続印刷について
A2セルから通し番号、氏名、住所等のデータが入力されている「データ」シートがあり、 VLOOKUPを使用してB3セルに「データ」シートのA列にある「通し番号」を 入力すると氏名・住所等が反映される「印刷」シートがあります。 例えば「データ」シートのC列（住所）に「東京都」という文字列が 含まれている宛名のみを連続で印刷したい場合、 どのようなマクロになりますでしょうか？ （マクロ内に「東京都」と指定する方法と、 シート内の特定セルに入力した文字列で指定する方法が ありますでしょうか？） wordでの差し込み印刷や、宛名ソフト等の使用は考えておりません。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- 連続番号を振るマクロ
マクロ初心者です。 以下のようにA列に番号を振るマクロを教えてください。 A B 1 001 ああああ 2 002 ああああ 3 003 ああああ 4 011 いいいい 5 012 いいいい 6 021 うううう B列のセル内容が変わると10の位が1つ増え、次に内容が変わるまでカウントします。 よろしくおねがいします。
- ベストアンサー
- オフィス系ソフト
- ちょっと特殊な連続印刷のマクロを教えてください
次のような名簿があるとします。 A列 B列 通し番号 名前 １ 阿部 ２ 佐々木 空白 空白 ４ 木村 ５ 田辺 空白 空白 空白 空白 ８ 三浦 通し番号が入力されていない場合は、名前も表示されない様になっています。 セルC1に通し番号を順々に表示（マクロで指定） セルC2にその番号の名前を参照表示←個人票として印刷 番号があれば（名前が表示されれば）印刷 としたいです。 個人票を連続印刷したいのですが、空白を飛ばして、 番号が入っている人だけを印刷、というマクロがどうしても組めません。 一つ一つ、番号が入っていれば名前を印刷のようなマクロを延々と 組むことは出来るのですが、名簿が長大なのでそれは避けたいです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VLOOKUP関数とCONCATENATE関数で封筒に宛名印刷
エクセルで、A列には郵便番号、B列に住所、C列は会社名、D列に名前が入力された表があります。 ひとつのセルを検索ワード入力専門のセルとし、そこに会社名を入れることで、VLOOKUP関数とCONCATENATE関数を使って封筒の宛名印刷をしようと思いますが、式の組み方がよくわかりません。 ご助言下さい。 マクロはわかりません。 宛名印刷ソフトを使ったりせず、会社の封筒に体裁を合わせて印刷しようと思いますので、エクセルで宛名印刷したいです。
- 締切済み
- オフィス系ソフト
- 昇順に並んだデータでVLOOKUP関数を使いたい
EXCELの関数について教えてください。 VLOOKUP関数では左端列のデータを 昇順に並べることがルールになっていますよね。 しかし、データの並べ順が変えられない場合 どうしたらいいのでしょう。 例えば １等 １００点 ２等 ５０点 ３等 ０点 と並べられたデータがあったとして ４５点以上の最下位は何等かを求める関数です。 これが ０点 ３等 ５０点 ２等 １００点 １等 であれば VLOOKUP(45,A1:B3,2) でいいのでしょうか。 マクロにも簡単なものになら ふれるようになってきましたが 関数についてさえも まだまだ分からないことがたくさんあります。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- マクロ（Ｅxcel）で検索して値の返し方について
マクロの初心者です。関数でいうvlookupなどを使って、 検索した値を反映させるマクロをお教え下さい。 ファイル名「担当ID.xls」のB列へ「顧客名簿.xls」から 検索したC列（地域）を返したいです。 お手数おかけしますが、全くの初心なので、マクロの 説明コメントも記載して頂けると助かります。 ■ファイル名：担当ID.xls 列A B C 顧客番号 地域 担当ID A-1111 ？ os123 A-2222 ？ nr456 A-3333 ？ wk789 ■ファイル名：顧客名簿.xls ■シート名：Sheet1 列A B C 顧客番号 名前 地域 A-1111 A 大阪 A-2222 B 奈良 A-3333 C 和歌山 以上です。よろしくお願いいたします。
- ベストアンサー
- その他（プログラミング・開発）
- マクロをすっきりさせたい・・・
いつもお世話になっております。 下記、マクロを組んだのですが、 簡潔にまとめるには、どうしたら良いでしょうか・・・ 宜しくお願い致します。 Set 範囲 = Workbooks("A.xls").Worksheets("マスター").Range("A2:G4000") ThisWorkbook.Activate 列番号 = 7 検索値 = (Worksheets("B").Range("B24")) Range("D14").Value = WorksheetFunction.VLookup(検索値, 範囲, 列番号, False) Set 範囲 = Workbooks("A.xls").Worksheets("マスター").Range("A2:G4000") ThisWorkbook.Activate 列番号 = 7 検索値 = (Worksheets("B").Range("B25")) Range("D15").Value = WorksheetFunction.VLookup(検索値, 範囲, 列番号, False) Set 範囲 = Workbooks("A.xls").Worksheets("マスター").Range("A2:G4000") ThisWorkbook.Activate 列番号 = 7 検索値 = (Worksheets("B").Range("B26")) Range("D16").Value = WorksheetFunction.VLookup(検索値, 範囲, 列番号, False)
- ベストアンサー
- オフィス系ソフト
お礼
とても現実的はアドバイスを有難うございました！ 結論から申し上げますと、Wordの差し込み印刷でできました。 無地の封筒に料金別納郵便のマークと差出人情報、内容物等、何とかすべて印字でき、満足のいくものができました。 皆様のお返事を待ってからですと、間に合わなかったと思います。 本当に有難うございました。
補足
ご回答ありがとうございます。 他の質問を確認した際、マクロ使用の回答が多かった事と、封筒に他の印字もあり、Excelの方が印刷位置の微調整が私は簡単に感じるとので、このような質問になりました。 投稿後あまりにも丸投げな質問だと感じ、後悔しています。 WORDのラベル差し込みはできるので、確認してみます。