- ベストアンサー
Excel VBAを利用して宛名シール作成について
akito0417の回答
- akito0417
- ベストアンサー率20% (55/266)
再度間違い発見。。。 N02を見ればわかりますが、印刷した分のデータ削除処理はif thenの中にいれてくださいね。
関連するQ&A
- EXCELデータで宛名シール作成する方法
EXCELにはいっているデータを A4横サイズの宛名シール(縦5枚x横4枚)に ぴったりくるよう、並べ替える良い方法ってありますでしょうか?(もしくは、封筒に宛名を印刷する方法でもよいです)。アドバイスよろしくお願いします。
- 締切済み
- オフィス系ソフト
- エクセルデータから宛名シールを作成する場合
エクセルデータからワードの差込み機能を使い宛名シールを作成しようと思っています。 データが100件ほどあるのですが、差込みをしたら2枚目の頭の宛名シールにデータの2件目が出てきてしまいます。 12面の宛名シールのため、2枚目は13件目から差込みをしたいのですが、何かいい方法はないでしょうか? 分かりずらい質問ですが、よろしくお願いします。
- 締切済み
- その他(インターネット・Webサービス)
- 急!!Excel VBA 転記マクロを教えて下さい
Excel VBA超初心者です、 急ぎ作らなければならない資料があり、ご助力願います。 次の様な転記するアクションをコマンドボタンに設定したいです。 Sheet1の列A(先頭セルA2)に入力したデータを、 追加した(入力間違い等を除き、保存した)データ分だけ Sheet2の列B(先頭セルB3)の最終行から転記させていく。 列Aに入力したデータは、並び替えをするので (この分は、今回のVBAに含みません。入力・転記後、Sheet1で普通に並び替えをします。) 列Aと列Bのデータの順番が異なる。 以上です。 どうぞ宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- タックシールで全て違う宛名で印刷するには
こんにちは 筆ぐるめVer15です。 タックシール(3列×8行)で宛名を印刷していますが、全て異なった宛名で印刷したいんです。 いつも一つの宛名ごとに印刷しているので、シート1枚につき24回印刷作業をしなくてはいけません。 まとめて印刷する方法ってありますか。
- ベストアンサー
- 筆まめ・はがき作成
- Excel VBA データの転記
Excel2003を使用しています。 Sheet1のB1セルとSheet2のB1セルのデータが一致したら、Sheet2のB1セル~E1セルのデータをSheet1のF1セル~Iセルに転記するというコードを書いています。 Sheet1のデータ最終行を取得して、上記の条件を満たさなかったSheet2のB1セル~E1セルのデータをSheet1のデータ最終行の1行下から順に転記するという内容を追加したいのですが、転記先の指定の仕方が悪いのか、希望通りになりません。 どなたか一例を示していただけないでしょうか? スマホからの投稿で、実際に書いているコードを記載できず、分かりづらくて申し訳ないのですが、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ワード2010で宛名シールを作成、印刷すると
ワード2010で宛名シールを作成しました。 データは、エクセルで作ったものをつかいました。 1、120名ほどですが、印刷すると、その人数を過ぎても印刷が続きます。 つまり、エクセルの空欄分まで-----途中でやめなければ、6000人分くらいまで、印刷されてしまいます。 データ人数分だけ印刷する方法を教えてください。 2、2003では、できた文書をページをめくるように1枚ずつ順番に表示することができました。 2010では、それができないようです、操作が違うのかもしれませんが。 何か方法があるのでしょうか。 よろしくお願いします、。
- ベストアンサー
- Windows 7
- VBAに詳しい方に質問です。
VBAに詳しい方に質問です。 私はVBA初心者です、お力添えのほどよろしくお願いいたします。 エクセルで入力し、それを一覧表に転記し、最終的に出力フォームにデータを呼び出し印刷するプログラムを作成しています。 1つの項目のデータを表に転記したり、呼び出すVBAはなんとか作成できました。 しかし、複数のセルのデータを表に転記するVBAが作ることができません。 ☆シート1 入力フォームがあり、 氏名・電話番号・住所等の項目を100人ほど表で入力します。 それらをシート2へ転記します。 1 2 3 4… 1 日付 名前 年齢 電話番号 2 2010/07/01 石川花子 12才 090-×× 3 4 ↓以下100名ほど入力 5 ※列も行も数値で表すように設定してあります。 ・ ・ ・ ☆シート2 これまでに入力したデータをすべて一覧表にします。 シート1のデータはこれまでに入力されたデータの下に転記されます。 1 2 3 4… 1 日付 名前 年齢 電話番号 902010/06/28 山田太郎 33才 090-×× 912010/07/01 石川花子 12才 090-×× 92 ↑このように日付欄に空白を見つけ、そこからデータを転記する。 93 ・ ・ ・ 私が考えたVBAは、 sub 転記マクロ() set 入力 = worksheet("シート1") set 一覧 = worksheet("シート2") 日付1=入力.cells(2,1) 名前1=入力.cells(2,2) 年齢1=入力.cells(2,3) 電話1=入力.cells(2,4) 日付2=入力.cells(3,1) 名前2=入力.cells(3,2) 年齢2=入力.cells(3,3) 電話2=入力.cells(3,4) '以下○○100まで ※一覧.(縦,2)に縦+1をしていき""の場所を探す。 (すみません、データを会社に置いてきたので表記の仕方を忘れてしまいました^^;) 一覧.(縦,1)=日付1 一覧.(縦,2)=名前1 一覧.(縦,3)=年齢1 一覧.(縦,4)=電話1 一覧.(縦+1,1)=日付2 一覧.(縦+1,2)=名前2 一覧.(縦+1,3)=年齢2 一覧.(縦+1,4)=電話2 '以下+100まで end sub 何も見ずに思い出しながら書いたので、もしかしたらどこか間違っているかもしれませんが、 このような感じで書いていきました。 さすがにこのようなことを100回繰り返すのは大変なので、for next関数でなんとかならないか試行錯誤したのですがなかなか解明できず困っています。 詳しい方、どうか教えてください。
- ベストアンサー
- オフィス系ソフト
- エクセルVBAで、行コピーを複数行にペーストする方法
エクセルVBAでプログラミングしたいです。 A2:J100の範囲に顧客住所録データがあります。 それをコピーして、別シートにペーストしたいのですが、 F列は、宛先シールの印刷枚数を入れてあります。 例えば、2行目の客先の宛名シールは5枚必要という意味です。 Wordで差し込み印刷をする為のエクセルのデータを作るので、 2行目のデータが5枚必要ならば、5行ペーストしたいのです。 顧客によってシールの必要枚数が違います。 パソコン教室のVBAのコースに通っていますが、自分の作りたいものはまだ作れるようにはなれず、質問も教科書内の事に限られています。 どなたか助けて頂きたく宜しく御願い致します。
- ベストアンサー
- オフィス系ソフト