- ベストアンサー
助けてください。印刷マクロを
myeyesonlyの回答
- myeyesonly
- ベストアンサー率36% (3818/10368)
あ～もう何やってんだか。m(__)m Sub 印刷() y1 = InputBox("最初の行番号", "印刷範囲の", 1) y2 = InputBox("最後の行番号", "印刷範囲の", y1) Range(Cells(y1, 1), Cells(y2, 19)).printout End Sub 最後の命令が、select の訳ないですよね。 printout に修正しました。 何度も失礼いたしました。m(__)m
関連するQ&A
- すみません。印刷マクロをもう一度
以前印刷マクロを教えていただいたのですが、もう一度お助けください シートに下のようなデータベースがあります。 受付番号 氏名 〒 住所・・・・・印刷日（T列） １００１ １００２ １００３ １００４ ・ ・ ・ 印刷時に受付番号を入力することで印刷できるものです。 １回印刷したデ－タは次回は印刷範囲外で判断基準を印刷日とし印刷を実行した日に自動的に日付が印刷日に入力されるものをです。 たとえば、最初に受付１０５４までを印刷、次は受付１１３６までを印刷と印刷件数は不変であり、最初の時に１０５４までの印刷日に全て日付が入力、次は１１３６までの全ての印刷日に日付が入るようにです。 ご教授くださいませ。
- ベストアンサー
- オフィス系ソフト
- 印刷マクロを教えてください。
マクロは初心者です。よろしくお願いいたします。 エクセルで、列ＡからＨまでにデータを入力しています。 また、Ａの1から、Ａの３までは行タイトルとしています。 列Ａ４から下の行にＮｏ１～の順番号をいれていますが、 例えばNo20からN045までのデータ分だけを印刷したい時など、指定したNoの範囲のデータだけを印刷出来るようなマクロがあれば教えてください。 印刷Noの指定は、行番号でもかまいません。 これまでの質問で印刷関係をみてみましたが、多すぎてわかりませんでした。どなたかよろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- 教えて！エクセルでの印刷マクロ
シート１に下のようなデータベースがあります。 受付番号 氏名 〒 住所 １ ２ ３ データを１から順に入力して、入力内容が日によって違いがあるのですが、入力した分だけ印刷できるマクロがわかりません。 前日、１から１５まで入力して印刷、今日は１６から５０まで入力して、その分（１６～５０まで）を印刷（前日印刷した分は印刷しない）、次の日は５０件入力（印刷は５１～１００まで）となるようなマクロです。 どなたか、ご教授くださいませ。
- ベストアンサー
- オフィス系ソフト
- excelでマクロを使用した連続印刷について
A2セルから通し番号、氏名、住所等のデータが入力されている「データ」シートがあり、 VLOOKUPを使用してB3セルに「データ」シートのA列にある「通し番号」を 入力すると氏名・住所等が反映される「印刷」シートがあります。 例えば「データ」シートのC列（住所）に「東京都」という文字列が 含まれている宛名のみを連続で印刷したい場合、 どのようなマクロになりますでしょうか？ （マクロ内に「東京都」と指定する方法と、 シート内の特定セルに入力した文字列で指定する方法が ありますでしょうか？） wordでの差し込み印刷や、宛名ソフト等の使用は考えておりません。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルで差込印刷：マクロとVLOOKUP
みなさん、こんにちは。 今回、マクロを作成する際にどうしてもうまくいかない部分がありまして とても困ってしまい、初めて会員登録し質問させていただいております。 皆様に御教授いただき真摯に勉強させていただきます。 どうぞよろしくお願いいたします。 （マクロ初心者で簡単なガイドブックやネットを参考に作成しています。） 今回エクセルのみを使った差込印刷のマクロを作成したいのですが、 まず、Sheet1に「5列×20行の表」があり、下記内容が入っています。 A列：行番号1～20 B列：会員番号 C列：所属名 D列：日付 E列：氏名 Sheet2に「手紙のフォーム」があり、 Sheet1の表の各項目を、VLOOKUPを使用し、 Sheet2の各位置へ差込むように設定をしました。 （VLOOKUPの検索値は、Sheet2の"R1"となるよう設定しています。） データを差し込んだSheet2の1ページを印刷したいです。 今回どうしてもうまくできないのが、手紙は毎回違う人へ違う人数分作成するので、 印刷時点で表に入力されている人の数だけを印刷したいため、 E列（氏名）が空白になったら停止する設定をしてみたのですが 下の自分で作ったマクロを実行すると、全ページが印刷されてしまいます。 Sub 差込印刷() 行 = 2 Dim 番号 As Integer For 番号 = 1 to 20 If Sheets("sheet1").Cells(行,5).Value = "" Then Exit for Sheets("sheet2").Range("R1").Value = 番号 Sheets("sheet2").PrintOut from:=1,To:=1 Next 番号 行 = 行 + 1 End Sub とても単純なミスをしているのだと思うのですが なにぶん初心者なためそれに気がつくことができません。 （For～Next等も見よう見まねで初めて使いました・・・） 月曜日までに分かるととても助かるのですが、 皆様どうぞよろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- マクロ vba 印刷
エクセルの印刷に関するマクロで教えて下さい。今ページ設定のシート設定で１～８行までを固定しています。Ｂ列の９～４４行までが必要に応じて数字が入力されます。そして２ページ目の５０～８５行までが同じく必要に応じて数字が入力されます。３ページ目の９１行～１２６行までが又同じく必要に応じて数字が入力されます。このように１０ページまであります。つまり固定した１～８行までを見出しに下に表がずらーっとあります。ここで印刷をする際に、数字の入ったページまでを印刷するマクロを作りたいのです。普通に印刷すると１０ページ印刷されてしまいます。例えば１２行目まで入力があるならば、１ページだけを印刷。９８行目まで入力があるならば、３ページ目までを印刷といった具合です。ちなみに途中数字が空白になる事はありません。詳しい方いらっしゃいましたら、お手数ですが教えて頂けませんでしょうか。宜しくお願いします。
- ベストアンサー
- Visual Basic
- 開始行と最終行を指定して差し込み印刷するマクロ
エクセルのマクロで、最終行と最終行を指定して差し込み印刷するマクロをお教えください。 印刷したい個人番号のスタートと終了を指定して、数字を1ずつ増やしながら印刷する場合は、下記のマクロでうまくいきます。 「個人票」のシートを差し込み印刷します。「個人票」シートの個人番号をA8セルに入力すると別に作成した「成績表」シートからVLOOKUP関数を使って氏名や各科目の得点、合計得点を表示するようにしてあります。「個人票」シートのA3セルには「自」、B3セルには「至」、A8セルには「個人番号」と名前を付けてあります。 Sub 個人票印刷() Range("個人番号") = Range("自") Do While Range("個人番号") <= Range("至") Sheets("個人票").PrintOut Range("個人番号") = Range("個人番号") + 1 Loop End Sub 今回、行いたいのは「成績表」シートのＡ列にある個人番号が不連続であったり、欠番があったりします。そこで、「成績表」シートのＡ列の例えば、Ａ４からＡ１０までというように、開始行と最終行を指定して、差し込み印刷するようにしたいのです。 できれば上の構文を生かしたいのですが、ご教授のほどよろしくお願い申し上げます。
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロ
教えてください。 Ａ Ｂ Ｃ １ 部品番号 ○ 済印 ２ 111111 ○ 済 ３ 222222 ○ 済 ４ 333333 ○ という表があるとします。 Ｂ列にマクロのボタンを作っておき、 Ａ列に部品番号を入力したら、マクロのボタンを押して、 Ｃ列に済、という字を表示したいのです。 １部品入力するごとに、その表示をさせたいです。 ２行目、３行目・・・と一つずつマクロを登録して いく方法は、（マクロについては詳しくないので、マクロの記録、マクロの停止、という方法しかわかりません）入力するデータが１００件以上あるため、それもどうかな・・と悩んでいます。超初心者なのですが、何とか完成したいと思っています。 よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- マクロの連続印刷
エクセルのシート1に情報が登録してあり、A列の番号をシート2のセルA1に入力すると情報が入る仕様のブイルックを組んでいます。 これを連続してA1,A2,A3と連続印刷したいのですがどのようなマクロを組めばよいのでしょうか？
- 締切済み
- その他（ビジネス・キャリア）
- excelの印刷用マクロ。
excelで分からない事があり困っています。 横がA～I列、縦がＢ列のB-1から文字が入力されている最後の行までの範囲を選択して、印刷するマクロを作りたいのですが、どうすればよろしいでしょうか。印刷したいシートには、オートフィルタが掛かっている場合もあります。その場合は、その状態のまま印刷出来る様にしたいです。 どなたか分かる方が居ましたら回答お待ちしています。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
補足
myeyesonlyさん早々の回答ありがとうございます。 ＞Range(Cells(y1, 1), Cells(y2, 19)).printout 実行時エラ－’１００４ アプリケ－ション定義またはオブジェクト定義エラ－になります。 後からのインプットボックス入力の際前の番号が残ったままですが？