ナンバリング印刷について -　はじめまして　ＶＢＡ初心者です。下記のような-

エクセルの表に複数枚印刷したときに連番をつけたい

Sub NumberPrint() Dim idx As Integer Dim frmPage, toPage frmPage = Application.InputBox("連番を挿入して印刷します" & Chr(13) _ & "開始番号を入力してください", Type:=1) toPage = Application.InputBox("終了番号を入力してください", Type:=1) If frmPage > 0 And toPage >= frmPage Then For idx = frmPage To toPage Range("AW3").Value = idx ActiveSheet.PrintOut Next idx Else MsgBox "開始番号、終了番号が不適切です。印刷は行いません" End If End Sub過去の質問をみて上記マクロを使用して印刷できましたがスタートの番号は3000001番からスタートさせたいのですがエラーが出てしまいます。どのようなコードにしたらいいのか分からないため教えて下さい。素人で今まで使用したことがないのですいません

マクロ連番印刷の桁数でオーバーフロー

マクロ初心者です。OSはＷｉｎｄｏｗｓ７Ｐｒｏです。伝票に連番を印刷したくて、当サイトで見つけた下記のマクロをエクセル2010で実行しました。連番桁数が5桁までは問題なく実行できるのですが、6桁になると「実行時エラー’6’オーバーフローしました」となります。デバッグのボタンをクリックすると10行目の「For idx = frmPage To toPage」がマーカーで表示されます。伝票の連番は６桁しか使いません。私にはお手上げです。どなたか教えてください。 Sub 連番印刷() Dim idx As Integer Dim frmPage, toPage frmPage = Application.InputBox("連番を挿入して印刷します" & Chr(13) _ & "開始番号を入力してください", Type:=1) toPage = Application.InputBox("終了番号を入力してください", Type:=1) If frmPage > 0 And toPage >= frmPage Then kakunin = MsgBox("番号" & frmPage & "～" & toPage & "で印刷をしますか？", 4, "番号の確認") If kakunin = 6 Then For idx = frmPage To toPage Range("e1").Value = idx ActiveSheet.PrintOut Next idx End If Else MsgBox "開始番号、終了番号が不適切です。印刷は行いません" End If End Sub

印刷履歴を別シートに自動で残していきたいです

下記のコードを使用して連番での印刷を実行しています。 Sheet1とSheet2を使用していて、各番号ごとにSheet1と2が印刷されていきます。ここにSheet3を追加して印刷履歴を自動で残していくことはできますでしょうか。履歴には、（印刷日）（開始番号）（終了番号）を残せたらと思っています。また、追加したSheet3は確認用としてのみ利用したいので印刷はこれまで通りSheet1と2のみでいければとても助かります。現在使用しているコードについては、いろいろと自己流で調べてなんとかたどり着いた感じですので、自身には１から作れるような知識はありません。ご教授いただけませんでしょうか。宜しくお願い致します。 Sub NumberPrint() Dim idx As Integer Dim frmPage, toPage frmPage = Application.InputBox("連番で印刷します" & Chr(13) _ & "開始番号は？", Type:=1) toPage = Application.InputBox("終了番号は？", Type:=1) If frmPage > 0 And toPage >= frmPage Then For idx = frmPage To toPage Range("D7").Value = idx ActiveWorkbook.PrintOut Next idx Else MsgBox "開始番号と終了番号を正しく入力し直してください" End If End Sub

VBAに範囲を指定して印刷

特定のセルに数字を入力することでＶＬＯＯＫＵＰで印刷ページを検索して指定できるシートを作成しています。下記のようなＶＢＡを作成しました。印刷開始ページと印刷終了ページを指定する場合、セルの指定はどのようにすれば、よいのでしょうか？開始ページと終了ページが同じセルの為、開始ページ＝Rnage("セル") 終了ページ＝Rnage("セル") としてしまいますと、エラーが出てしまいます。 Sub 印刷() Dim S As Long Dim B As Long S = Application.InputBox("印刷開始ページを入力", Type:=1) If 開始ページ = 0 Then Exit Sub B = Application.InputBox("印刷終了ページを入力", Type:=1) If 終了ページ = 0 Then Exit Sub ActiveSheet.PageSetup.Order = xlOverThenDown ActiveWindow.SelectedSheets.PrintOut _ From:=S, To:=B, Collate:=True End Sub 宜しくお願い致します。

別シートのリストを参照して印刷作業をVBA登録

別シートのリストをVLOOKUPで参照して印刷する作業をVBA登録したいと考えています。そこで下記のようなVBAを作成しました。 Sub 印刷() z = Application.InputBox("印刷開始番号") x = Application.InputBox("印刷終了番号") For o = z To x Range("G6").Value = o ActiveSheet.PrintOut Next End Sub セルＧ6をVLOOKUＰで参照して、開始ページと終了ページをINPUTBOXで入力できるよにしています。しかしエラーがでてしまいます。どこが、問題ありますでしょうか？宜しくお願いします。

Inputboxに開始番号と終了番号を入力し印刷

InputboxにInputboxに印刷する番号の開始番号と終了番号を入力して、自動で印刷できるようにしたいと考えています。シートにはセルG6に数字を入力すれば、VLOOKUPで印刷内容を変更できるように設定しています。以下のようなVBAを作成しました。しかし、Loopが止まらないです。どうすればよいでしょうか？また他に間違いは有りますでしょうか？ Sub 印刷() Do a = InputBox("開始番号を入力") z = InputBox("終了番号を入力") Range("G6") = a a = a + 1 ActiveWindow.SelectedSheets.PrintOut Copies:=1 Loop Until a = z End Sub

エクセルで連続印刷した範囲を印刷済とわかるように

エクセルで以下のようなプログラムで変数ｓ、ｅに入力の範囲でシートの連続印刷しております。印刷し終わった後ですが、変数ｓ～ｅの範囲を赤くして印刷済かどうかをひと目でわかるようにしたいと思います。可能でしょうか。 Sub 範囲を指定して印刷() Dim s As Long Dim e As Long Dim i As Long On Error Resume Next s = InputBox("開始No.を入力して下さい。") If s = 0 Then Exit Sub e = InputBox("終了No.を入力して下さい。") If e = 0 Then Exit Sub For i = s To e Worksheets("A").Range("C1") = i Application.Wait Now + TimeSerial(0, 0, 10) Worksheets("B").PrintOut Next i End Sub

EXCEL　VBA（初心者）印刷ループについて

こんばんは。 EXCEL　VBA初心者です。以下のような印刷ループのVBAを作りました。（シート１にデータを入力しシート２で印刷） Sub 連続印刷() Dim x As Integer x = Application.InputBox( _ prompt:="先頭ページの番号を入力してください") Y = Application.InputBox( _ prompt:="最終ページの番号を入力してください") line: Worksheets("１").Select Range("B1").Select For i = x To Y 'ループ開始番号と終了番号を追加 ActiveCell.FormulaR1C1 = i '変数 i を代入するように修正 ' Range("B1").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next　i '次へループ End Sub というものです。以下の問題点を改善したいのです。 (1)開始番号と終了番号のいずれかが　”空白”の場合は　VBAを中止し何も印刷しない（何もメッセージを表示しない） (2)開始番号が終了番号より数字が大きい場合も(1)と同様の処理にしたいというものです。初心者のためご教授ください。よろしくお願いいたします。

印刷枚数を指定して印刷（印刷しないシートを含む場合）

マクロ（ＶＢＡ）の超超初心者です。エクセルのブックの全シート(13sheet)の印刷を1つのシートで管理するマクロを作りたいと思っています。下記のマクロでチェックしたシートのみ印刷することは可能になりました。 Sub チェックしたシートの印刷() Dim rng, shChk, PrtSh For Each rng In Range("IDX") If rng.Offset(0, -1) = 1 Then shChk = shChk & rng.Value & "," End If Next shChk = Left(shChk, Len(shChk) - 1) PrtSh = Split(shChk, ",") Sheets(PrtSh).Select ActiveWindow.SelectedSheets.PrintOut End Sub そこにさらに印刷枚数を指定して印刷したいのですが、下記のマクロだと、０枚（印刷しないときの）の設定ができません、、、０枚でもマクロを実行できるよにするにはどうしたらよいのでしょうか、、、さらに、このマクロを簡単に書きたいのです。（ほぼ同じことの繰り返しなので、、、、） Sheets("sheet1").PrintOut Copies:=Range("A1").Value Sheets("sheet2").PrintOut Copies:=Range("A2").Value ・　　　・・ Sheets("Sheet13").PrintOut Copies:=Range("A13").Value End Sub 超超初心者があつかましい質問ですが、ご教授のほうよろしくおねがいいたします。

エクセル2003　別シートへ抽出して印刷するマクロについて

エクセル2003　別シートへ抽出して印刷するマクロについて Sheet1のデータ（1～60のナンバーを入れています）を、Sheet2のA1にナンバーを入力、関数を反映させた同一の印刷範囲を繰り返し印刷させるマクロについて教えてください。下記マクロで ActiveSheet.PrintOut Copies:=1 のところでファイルの保存の窓が出てきてしまいます。種類はXPSだけで選択はできないようです。こんな窓が出てくるのも不思議ですが、 vistaではない（XPです）のにXPSというのも不思議です。保存窓の後ろには印刷中の窓が出ています（印刷はされません）キャンセルで窓を閉じるとエラー400がでます。どういった修正をしたらいいのか教えてください。よろしくお願いいたします。 Sub SAHIKOMI() Dim SNO As Integer, ENO As Integer, I As Integer SNO = InputBox("開始No.を入力") ENO = InputBox("終了No.を入力") Sheets("Sheet2").Activate For I = SNO To ENO Worksheets("Sheet2").Range("A1") = I ActiveSheet.PrintOut Copies:=1 Next I End Sub

エクセルマクロ　特定の文字列を含む行のみを残す　（マクロ修正）

以下のマクロは、EXCEL２００３で「特定の文字列が含まれている列を削除する」動作をするマクロです Sub Macro1() Const col As String = "A"　'文字列が入力されている列 Dim idx As Long Dim keyWord keyWord = Application.InputBox("削除対象の文字列は？", Type:=2) If TypeName(keyWord) <> "Boolean" And Len(keyWord) > 0 Then 　　For idx = Cells(65536, col).End(xlUp).Row To 1 Step -1 　　　　If InStr(Cells(idx, col).Value, keyWord) > 0 Then '　　　　If Application.CountIf(Rows(idx), "*" & keyWord & "*") > 0 Then 　　　　　　Rows(idx).Delete 　　　　End If 　　Next idx End If End Sub このマクロを、「特定の文字列が含まれている行のみを残し、それ以外を削除する」というマクロに変更したいと思っています。是非ご回答お願いいたします。

指定した文字列が含まれる行を削除する

データの照合をしています。指定した文字列が、「Ｏ列」に入っていたら、その行を削除し、行をつめるというようなマクロを組みたいのですが、エラーがかかってしまいます。（下のＶＢは、ネットで公開されていたのを使用させていただいております。） Sub Macro1() Const col As String = "A"　'文字列が入力されている列 Dim idx As Long Dim keyWord keyWord = Application.InputBox("削除対象の文字列は？", Type:=2) If TypeName(keyWord) <> "Boolean" And Len(keyWord) > 0 Then 　　For idx = Cells(65536, col).End(xlUp).Row To 1 Step -1 　　　　If InStr(Cells(idx, col).Value, keyWord) > 0 Then '　　　　If Application.CountIf(Rows(idx), "*" & keyWord & "*") > 0 Then 　　　　　　Rows(idx).Delete 　　　　End If 　　Next idx End If End Sub 「下から３行目のＮＥＸＴに対応するｆｏｒがない」とエラーがでます。ご教授、お願いいたします。

エクセルのVBAの記述に関する初歩的な質問です

エクセルのVBA初心者です。アドバイスいただきたいのですが、下記のソースは、E1のセルの値を1から20まで増加させながら印刷していくものです。 Dim 番号 As Integer For 番号 = 1 To 20 Sheets("宛名印刷").Range("E1").Value = 番号 Sheets("宛名印刷").PrintOut Next 番号これだと20で終わってしまいますが、例えばA8に開始番号、A11に終了番号を入力し、 For 番号 = [開始番号] To [終了番号] という印刷をさせるにはどのような記述にすればよいのでしょうか。 VBAを知っている方には初歩過ぎるかもしれませんがよろしくお願いします。

集約印刷のマクロについて

Sub 印刷() Sheets("印刷用").Select If Range("$A$3") > Range("$B$3") Then End '印刷開始と終了の矛盾回避 Range("$B$1") = Range("$A$3") - 1 '印刷開始番号のセット For A = Range("$A$3") To Range("$B$3") '印刷繰り返し回数のセット Range("$B$1") = Range("$B$1") + 1 '印刷する番号の加算 If Range("$B$1") > Range("$B$4") Then Exit For '印刷終了番号にを越えたら終了 ActiveWindow.SelectedSheets.PrintOut Copies:=1 '印刷命令 Next A End Sub 　EXCELで以上のようなマクロを組みました。 A3のセルに印刷を開始するシート２にあるデータを含むページ（VlOOKUPで参照）のページ数を、B1に印刷を終了する同じシート２にあるデータを含むページ（VlOOKUPで参照）のページ数を入力して、A４で１５０枚程度の印刷を行うマクロです。　用紙節約のため、A４の用紙に４枚、あるいは２枚を集約して印刷したいのですが、上の特定のページから特定のページへ印刷するマクロにどのようなマクロを組み込めば、A４の用紙に４枚、あるいは２枚を集約して印刷ができるでしょうか。ご教示のほど宜しくお願いいたします。　バージョンはEXCEL 2007　　OS　Windows 10です。印刷機器はNEC2900Cです。

マクロ　inputbox ブランクで入力した時

いつも回答して頂きありがとうございます。 InputBoxに何も入力せず、OKを押してしまった場合、マクロの処理を終了させたいのですが、どうしたらよろしいでしょうか？宜しくお願い致します。 Sub 名前を入力する() Dim a As Long a = Application.InputBox("班を数字で入力して下さい。", Type:=1) If a = 0 Then MsgBox "キャンセルされました。", vbOKOnly Exit Sub End If With ActiveSheet .Range("E4:F5").Value = Worksheets("名前一覧").Cells(2, a).Value End With End Sub

作成したVBAの改善点をお願いします（初心者）。

こんばんは。VBAを勉強中ですが、参考書等を見ながら簡単なプログラムを作ってみましたが、もっと簡単な記述やベテランの方から見た改善点等があれば教えていただければと思います。（EXCEL2000を使用しています）。 ★内容・inputboxを使用し印刷枚数を入力し、印刷するものです（印刷枚数は1枚以上31枚以下）。・（K23)のセルには通し番号が入っており、印刷した枚数分だけ通し番号に1ずつ足していく。 Sub 印刷() Dim aaa As Integer aaa = InputBox("印刷枚数を入力してください", "印刷枚数", "") If 1 <= aaa And aaa <= 31 Then MsgBox "印刷を開始します" ElseIf aaa = "" Then MsgBox "キャンセルされました" ElseIf IsNumeric(aaa) = False Then MsgBox "入力内容が違います" ElseIf aaa <= 31 Then MsgBox "31日までの範囲で入力してください" Else For i = 0 To aaa Worksheets(1).PrintOut Worksheets(1).Range("k23").Value = Range("k23") + 1 Next i End If End Sub 一応、動きますが、勉強中なのでご教授をお願いいたします。

エクセルマクロでinputboxメソッドゼロ入力

エクセル２００７です。以下のマクロで、inputboxメソッドで質問させると、キャンセルボタンを押すと、うまいぐあいに止まります。しかし、０を押しても、止まってしまいます。本当は、Ｃ２にゼロと表示させたいのです。 Sub 練習() Dim myR myR = Application.InputBox(prompt:="数量を入力しなさい", Type:=1) If myR = False Then Exit Sub Range("C2").Value = myR End Sub

VBAで指定範囲の整理NOを付けたい

下記VBAで整理NOを例えば　　最初と最後を0010～0050と指定したいのですが命令文を指導願います Sub ページ番号付印刷() Dim mypage As Integer mypage = InputBox(Prompt:="最終となるページ番号を入力してください。") For i = 1 To mypage Range("D47") = i ActiveSheet.PrintOut Next End Sub

Word：日付を入れ替えながら印刷したい

ご覧いただきましてありがとうございます。 Wordで、文書の１行目にある日付を入れ替えながら連続で印刷したいと思い（手書き用の日誌を日付入りで大量に作りたいのです）、マクロで処理できないかと下記のように書き始めたのですが、肝心の日付の入れ替え部分がわかりません。 Sub 日付連続印刷() 　　Dim dBeginDate As Date 　　Dim dEndDate As Date 　　mybegindate = InputBox$("開始日(yy/MM/dd):") 　　myenddate = InputBox$("終了日(yy/MM/dd):") 　　dBeginDate = DateValue(mybegindate) 　　dEndDate = DateValue(myenddate) 　　For i = dBeginDate To dEndDate 　　　　Selection.InsertAfter i 　　　　ActiveDocument.PrintPreview 　　Next End Sub 例えば、開始日：09/12/5　終了日：09/12/7 と入力すると、平成21年12月5日 -> 印刷平成21年12月6日 -> 印刷平成21年12月7日 -> 印刷となってほしいのですが、現在のコードでは 2009/12/052009/12/062009/12/07 -> 印刷となります。そこで、文字列を上書きで書き換えていく方法と、その際の文字列を和暦の日付とする方法をwebなどで調べてみたのですが、結局わかりませんでした。どなたかお分かりになられる方、よろしくご教示の程お願いいたします。なお、使用環境はWindowsXP+Word2002です。

エクセルのマクロについて

エクセルでマクロを作成しました。インプットボックスに日付を入力するのですが、インプットボックスのキャンセル時に、マクロを停止したいのですが、色々試しましたが、上手く出来ません。（IfやOn Erorrなど)どの様な方法があるでしょうか？入力する日付は○/１と入力しています。 Dim a As Date a = InputBOx("日付を入力してください") この様なコードで開始しています。

ナンバリング印刷について

みんなの回答

関連するQ&A

エクセルの表に複数枚印刷したときに連番をつけたい

マクロ連番印刷の桁数でオーバーフロー

印刷履歴を別シートに自動で残していきたいです

VBAに範囲を指定して印刷

別シートのリストを参照して印刷作業をVBA登録

Inputboxに開始番号と終了番号を入力し印刷

エクセルで連続印刷した範囲を印刷済とわかるように

EXCEL　VBA（初心者）印刷ループについて

印刷枚数を指定して印刷（印刷しないシートを含む場合）

エクセル2003　別シートへ抽出して印刷するマクロについて

エクセルマクロ　特定の文字列を含む行のみを残す　（マクロ修正）

指定した文字列が含まれる行を削除する

エクセルのVBAの記述に関する初歩的な質問です

集約印刷のマクロについて

マクロ　inputbox ブランクで入力した時

作成したVBAの改善点をお願いします（初心者）。

エクセルマクロでinputboxメソッドゼロ入力

VBAで指定範囲の整理NOを付けたい

Word：日付を入れ替えながら印刷したい

エクセルのマクロについて

注目のQ&A

カテゴリ

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

ナンバリング印刷について

みんなの回答

関連するQ&A

エクセルの表に複数枚印刷したときに連番をつけたい

マクロ連番印刷の桁数でオーバーフロー

印刷履歴を別シートに自動で残していきたいです

VBAに範囲を指定して印刷

別シートのリストを参照して印刷作業をVBA登録

Inputboxに開始番号と終了番号を入力し印刷

エクセルで連続印刷した範囲を印刷済とわかるように

EXCEL VBA（初心者）印刷ループについて

印刷枚数を指定して印刷（印刷しないシートを含む場合）

エクセル2003 別シートへ抽出して印刷するマクロについて

エクセルマクロ 特定の文字列を含む行のみを残す （マクロ修正）

指定した文字列が含まれる行を削除する

エクセルのVBAの記述に関する初歩的な質問です

集約印刷のマクロについて

マクロ inputbox ブランクで入力した時

作成したVBAの改善点をお願いします（初心者）。

エクセルマクロでinputboxメソッドゼロ入力

VBAで指定範囲の整理NOを付けたい

Word：日付を入れ替えながら印刷したい

エクセルのマクロについて

注目のQ&A

カテゴリ

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

EXCEL　VBA（初心者）印刷ループについて

エクセル2003　別シートへ抽出して印刷するマクロについて

エクセルマクロ　特定の文字列を含む行のみを残す　（マクロ修正）

マクロ　inputbox ブランクで入力した時