excelで宝くじ様な連番をしたいです。
一枚ずつ同じものを印刷して一箇所だけ
番号加算していくような感じでやりたいのですが
1-1000番まで各紙に割り振りたいです。
ページの用に角につけるものではなくて
任意の場所にしたいのですが
http://oshiete1.goo.ne.jp/qa3198485.html
ここにも似たようなことがありましたが
VBEがうまくいきません2000だからですかね
2003を使っています、
よろしくお願いします。
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
参考にされた、スレのタイトルは
「ワードで抽選番号を振りたい。」です。
エクセルVBAについて、コマンド類、どの程度、ご存知でしょうか。
意味がわからず、モジュールをコピィしていても成長しませんよ。
ちなみに、私のパソコンで、マクロの記録、印刷、マクロの記録の終了
を操作した後に、作成されたモジュールは
Sub Macro1()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
です。シートを1枚、プリントするという意味です。
Sub Macro1()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("C4").Value=Range("C4").Value+1
End Sub
と、1行挿入することで、印刷すると、C1の値がひとつ増えます。
繰り返し処理は
For i = 1 To 100
**ここに、繰り返したい内容を記述
Next i
For ~ Nextの間を。変数 iがひとつずつ増えながら100になるまで繰り返すと云う事です。
No.2
- 回答日時:
参照されたスレは ワードでの事例のようですが。
VBA使った簡単な方法で、印刷したらセルの値が、ひとつ増える
ようにしては、いかがですか?
1、最初にボタンの作成
表示、ツールボックス、フォームでボタン選択してシートに配置
2、ボタンを右クリックして、マクロの登録、記録で、一枚印刷
記録の終了
3、記録したマクロに手を加えます。
ボタンを右クリックして、マクロの登録、編集で、VBエディターを開く。
仮に連番を入れたいセルがC10の場合
End Subの前の行に、
Range("C10").Value=Range("C10").Value+1
と1行挿入
これで、ボタンを押して印刷するごとに数値がひとつづつ増えると思います。
うまく出来たら
Do、Loop コマンドで100回でも繰り返す事も出来るかと思います。
VBAのコマンド少しずつでも理解していくと大変、重宝する機能ができます。がんばってみてください。
ありがとうこざいます。
VBエディターで
Sub hhh01()
For i = 1 To 3
ActiveDocument.Tables(1).Range.Cells(1).Select
Selection.TypeText Text:="番" & Format(i, "000")
ActiveDocument.PrintOut
Next i
Range("C4").Value=Range("C4").Value+1
End Sub
実行すると実行エラー424がでて
オブジェクトが必要です。
なるのですどうしてですか教えてください。
No.1
- 回答日時:
プリミティブな方法として「1000ページ分作ってしまえ!」というのもアリかと。
どのみち1000枚連続印刷なんて紙詰まりがあったりして大変ですから、
100枚程度づつ印刷すると思いますけど、とにかく1枚分を作ってしまい
印刷範囲をその1枚が印刷できるように調整した上で、数字の部分だけ
「=A1+1」とかにしておけば、コピーするだけで数字は増えていきます。
100ページ分作ったら印刷、後は先頭の数字部分だけを"101"とかに入れ
替えれば、次の100ページは一瞬にして出来ます。これ、分からない方法を
試行錯誤するより、案外速く出来ますよ。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【Excel】エクセルの1シートが2枚に分割されてしまうので印刷プレビューを押して閉 4 2022/12/13 13:12
- その他(Microsoft Office) Excelのマクロについて教えてください。 1 2022/03/25 10:03
- Excel(エクセル) 請求書と領収書の作成 4 2022/11/10 16:13
- Excel(エクセル) Excelで立ち上げたときに「参照が正しくありません」の表示がでる 7 2023/01/23 08:01
- その他(Microsoft Office) EXCELの1行を1枚の用紙にそれぞれ印刷したい。 3 2022/10/10 11:35
- Excel(エクセル) Excelへのデータ入力作業 4 2023/07/01 18:21
- Visual Basic(VBA) 数式が消える 1 2023/03/19 16:55
- ノートパソコン Windows11homeを新しく購入し、初期設定をしています。 前のパソコンでは無線のFAX機や有 5 2023/04/18 19:50
- Visual Basic(VBA) VBAでPDFのアクティブページ番号取得 1 2023/05/25 12:41
- くじ・懸賞 みずほ銀行のatmでたまに宝くじを買うんですが。万が一1等に当選した場合って勝手に自分の口座に振り込 3 2022/04/30 09:16
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
セルの文字を「印刷時だけ非表...
-
何もしていないのに印刷したら...
-
コンビニでpdfを四つで一つにし...
-
エクセルで「白字」を印刷した...
-
作成中のメールを印刷する方法...
-
wordで白抜き文字を印刷するには?
-
ワードの差込印刷部分の背景部...
-
画面通りに印刷されず(Word2013)
-
Excel セル内に見たことのない...
-
Thunderbirdで選択個所だけの印刷
-
PDF-XChange Editorのテキスト...
-
ワードで背景の画像を印刷しな...
-
違うページが印刷される
-
Excel フィルタをかけた後の各...
-
Accessのテーブル設計内容を印...
-
ネットのページをPDFで保存して...
-
ファミマでPDFを両面印刷したの...
-
WORD 印刷すると文字が重なる
-
word 最終ページのみ常に印刷し...
-
Edge、[画面で選択されたとおり...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
セルの文字を「印刷時だけ非表...
-
エクセルで「白字」を印刷した...
-
Excel フィルタをかけた後の各...
-
何もしていないのに印刷したら...
-
コンビニでpdfを四つで一つにし...
-
ワードの差込印刷部分の背景部...
-
wordで印刷の頁順を変えたい
-
PDF-XChange Editorのテキスト...
-
WORD 印刷すると文字が重なる
-
画面通りに印刷されず(Word2013)
-
ワードで背景の画像を印刷しな...
-
エクセルのみで長3封筒に宛名...
-
Edge、[画面で選択されたとおり...
-
背景色を消して白地に黒でモノ...
-
違うページが印刷される
-
[Acrobat]注釈を埋め込む 注釈...
-
ファミマでPDFを両面印刷したの...
-
作成中のメールを印刷する方法...
-
スマホで閲覧しているWebページ...
-
Thunderbirdで選択個所だけの印刷
おすすめ情報