5cm×5cmの連番入りのチケットを作ろうと思っています。

チケットのデザイン書式をひとつ作れば,あとは指定した連番(例えば1~1000)が入るような方法はありますでしょうか?
紙を節約したいため,1枚の用紙に複数枚印刷しようと思っています。

ワード,エクセル,アクセスがあります。

急いでいますので,すいませんが至急教えてくださいますようお願いします。
よろしくお願いします。

A 回答 (3件)

>5cm×5cmの連番入りのチケットを作ろうと思っています。


ちょうどのサイズが見当たりませんでしたが
Wordの差込印刷で 名札 を選んで印刷しては如何でしょうか?
バージョンが記述してないので2002で説明
準備
1、エクセルで
  番号
  1001
  1002
・・・と連番が入ったシートを準備して保存しておく
2、ワードを起動、ツール=>差し込み印刷=>差込印刷のウィザード
3、文書の種類で ラベル を選択
4、ラベルのオプション で 名札 を選択
5、リストの選択で 作成したエクセルのファイルとシートを選択
6、例えば 最初に 「あなたの番号は」 といれて
  次の行には 差込フィールドの挿入 で 番号 を選択すれば
A4の用紙に 横4列 縦9列で印刷されるます。
  
      
    • good
    • 0

さんこうに


●EXEL 毎ページ 数値を増やして印刷したい - Office系ソフト - 教えて!goo
http://oshiete.goo.ne.jp/qa/907834.html
    • good
    • 1

フリーのソフトを使う方が簡単。

ラベルメーカーが無償配布してます。リンク機能を使えば連番数字入力が簡単に作成出来ます。
http://www.labelyasan.com/home/download/
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qチケットを売る。

チケットを売るさいに、
高額で取引されるのって、
公演日何日前がいいのでしょう?

余ったチケットを売って、
他の公演を買いたいのですが。

Aベストアンサー

早いほうが良いですよ。
買うほうも都合がつけられ易いので。売れずに残ってしまったり
差し迫りすぎて買い叩かれる(値が上がらない)こともあります。
買うほうにしてみたら、売れ残りそうな時期に安く買おうという人も
いるでしょうが、良い席ならほって置いても高値になりますし。輸送トラブル等も考慮しても
少なくとも、1週間前には手許に欲しいでしょう。
逆算すれば、2週間前には出品されていることが必要かと。他の公演分を買いたいのであれば
なおさら早めに出品なさるほうが良いかと思いますが、2ヶ月以上先の
公演では予定が立ちにくいかもしれないので、少なくとも1ヶ月前くらいから落札相場をウォッチしておくといいかも。
参考URLでは落札相場がわかります。余り欲を出すよりも、それなりな
金額で折り合いをつけないと、損をすることになるかも知れませんので
お気をつけください。

参考URL:http://www.aucfan.com/

QWord2007で3cm×5cmの枠を作りたいのですが、どういう風に設

Word2007で3cm×5cmの枠を作りたいのですが、どういう風に設定すれば良いのでしょうか?
A4サイズの用紙いっぱいに3×5cm枠をたくさん作って、その中に文字等を書き込んで印刷したいのですが、どういう風に設定すれば良いのかがさっぱり分かりません。
滅多に使わない上に、グリッドや罫線は使った事が今までに1~2度しかなくさっぱり分かりません。

教えてください。よろしくお願いします。

Aベストアンサー

挿入⇒表を作成する

作った表を選択して右クリック

表のプロパティ⇒行・列タブをクリックし、幅・高さを指定する


これでいかがでしょうか?行・列の数はあとから挿入などして調節すれば良いと思います。


また、ページレイアウト⇒余白⇒ユーザー設定の余白

から余白を少なくすることで数を増やせると思います。

Qヤフオクでチケットを高く売る行為について

ヤフオクでチケットの落札金額が元の値段より相当高くなっているのを良く見かけます。売る側はそれを知っていて見る気がないのに転売目的で買ってチケットばかり売っているようです。
売る側も買う側も同じことなのでどっちもどっちですけれども、これはダフ屋と同じ、むしろ悪質な感じがするのですが、法律的にはOKなんでしょうか?取り締まりは全くないのでしょうか?
みんなが見たいイベントはどんどん取りにくくなってしまうのはしょうがないのでしょうか。

Aベストアンサー

多くのチケット販売会社では対策の為の規定を設けています。
下記はその一例です。(投稿制限のため一部省略しました)
第7条(禁止事項)
弊社から購入したチケットを、営利を目的として第三者に転売し、または転売のために第三者に提供することは禁止、 チケットを券面金額より
高い価格で転売し、または転売を試みる行為、オークションまたは
インターネットチケットオークションにかけて転売し、または転売を試みる行為についても禁止し 上記の行為が判明した場合、興行主催者が自らの判断でチケットを無効とし、チケット代金の返金を認めず、入場を認めないことがある。既に入場している場合には退場を命じられることもある。
最近の事例
http://www.hokkaido-np.co.jp/Php/kiji.php3?&d=20061020&j=0034&k=200610200221
法律的に難しいのはダフ屋として取り締まるには
「不特定の人に転売する目的でチケットなどを購入する」行為か
「チケットなどを公共の場所で売る」行為のどちらかが適用できれば、
ダフ屋行為を摘発できるのですが転売する目的であったかどうかの
判断が難しいのです、例えば何十枚も売られているとか
スタート価格が定価を上回っている場合に限られてます。

多くのチケット販売会社では対策の為の規定を設けています。
下記はその一例です。(投稿制限のため一部省略しました)
第7条(禁止事項)
弊社から購入したチケットを、営利を目的として第三者に転売し、または転売のために第三者に提供することは禁止、 チケットを券面金額より
高い価格で転売し、または転売を試みる行為、オークションまたは
インターネットチケットオークションにかけて転売し、または転売を試みる行為についても禁止し 上記の行為が判明した場合、興行主催者が自らの判断でチケットを...続きを読む

Qエクセルで名簿を作成します。たとえばマクロを使って番号5番から10番ま

エクセルで名簿を作成します。たとえばマクロを使って番号5番から10番まで(ここは自由に入力)と入力して、表から5番から10番の番号と、名前を白い字にして見えなくしてしまいたいのですがどのようにすれば いいでしょうか。固定した番号と名前を削除するのはできるのですが、削除開始と削除終了の番号を変えてのやり方がわかりません。ご教授お願いします。

Aベストアンサー

たとえば、白くしたい範囲として
    B3 ~ C6
のセルの文字の色を白にするのでしたら、

For i = 3 To 6
For j = 2 To 3
Cells(i, j).Font.ColorIndex = 2
Next j
Next i

でできます。
(例えば セルB3は Cells(3,2) で表します。 3行2列目の意味です)

範囲が分かっているのなら、

Range("B3:C6").Font.ColorIndex = 2

でもできます。
あるいは、仮にセルB1に  B3:C6  と入力しておいて

s = Cells(1, 2)
Range(s).Font.ColorIndex = 2

としても同じ結果になります。

こんな感じでいかがでしょうか

Qオークションでチケットを売る時の注意点

苦労してゲットしたコンサートのチケットなんですが、
急用でその日に行けなくなってしまい、
ネットオークションでチケットを売りたいと思っています。

そこで、ネットオークションでチケットを売る時に注意しなければならないことがあったら教えてもらいたいです。


・座席番号を隠す。
・定価以下で売り出す。


以外にあるでしょうか?
よろしくお願いしますm(_ _)m

Aベストアンサー

チケットは公演日があるためキャンセルとかされたら困りますよね。
●日以内に返事や入金がなければ落札者都合として取り消すとか、迅速な取引をしてくれる人だけとかそういう記載は必ずしておいた方が良いです。
あと相手の評価もしっかり見ましょう。

Qエクセルで名簿を下のように作成します。マクロを使って番号5番から10番

エクセルで名簿を下のように作成します。マクロを使って番号5番から10番まで(ここは自由に入力)と入力して、表から5番から10番の番号と、名前を白い字にして見えなくしてしまいたいのですがどのようにすれば いいでしょうか。固定した番号と名前を削除するのはできるのですが、削除開始と削除終了の番号を変えてのやり方がわかりません。ご教授お願いします。

Aベストアンサー

こんばんは!
フライング気味のような感がありますけど・・・
表がどのような配置か判らないので勝手に↓のように2列の単純な表でのVBAにしてみました。

一例です。
単にNOと名前の文字色を表示しない場合のVBAは

Sub test1()
Dim i, j, k, L As Long
k = InputBox("開始番号を入力してください。")
L = InputBox("終了番号を入力してください。")
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
For j = k To L
If Cells(i, 1) = j Then
Range(Cells(i, 1), Cells(i, 2)).Font.Color = xlNone
End If
Next j
Next i
End Sub

削除の件も出ていたので余計なお世話かもしれませんが・・・
削除のコードもやってみました。

Sub test2()
Dim i, j, k, L As Long
k = InputBox("開始番号を入力してください。")
L = InputBox("終了番号を入力してください。")
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
For j = k To L
If Cells(i, 1) = j Then
Rows(i).Delete (xlUp)
End If
Next j
Next i
End Sub

今回の場合はあくまで連続している数値を処理する方法です。
もし飛び飛びのNOでの処理をしたいのであれば他の方法を考える必要があると思います。

この程度ですが、
参考にならなかったらごめんなさいね。m(__)m

こんばんは!
フライング気味のような感がありますけど・・・
表がどのような配置か判らないので勝手に↓のように2列の単純な表でのVBAにしてみました。

一例です。
単にNOと名前の文字色を表示しない場合のVBAは

Sub test1()
Dim i, j, k, L As Long
k = InputBox("開始番号を入力してください。")
L = InputBox("終了番号を入力してください。")
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
For j = k To L
If Cells(i, 1) = j Then
Range(Cells(i, 1), Cells(i, 2)).Fo...続きを読む

Qいらなくなったチケットを金券ショップに売るには??

チケットを金券ショップに売ろうと
思います。
ショップに持って行くだけでいいのでしょうか??
ショップで買ったことは
あるのですが売るのは初めてなので
わかりません。
売ったことのある方、知っている方教えてください。
よろしくお願いします。

Aベストアンサー

あまり気がねなく金券ショップを利用されたらどうでしょうか?よく使いますよ~。
下に書かれているように犯罪防止の為にあなたの住所と名前を書いて欲しいと求められる事があります。
私が利用しているところでは金額に関係なく書かされると所と1回の取引が1万円以上だと住所と名前を紙に書くように提示されます。
ここで、住所などを詐称されると大変後ろめたいでしょうが、逆に名簿業者に流れてもなぁなどと…思いつつ真実を書いちゃいます。
それと、2件から3件で売る前に値段を聞ければ条件の良い方で買い取ってもらいましょう。合法的に取得したチケットなら何事もなく売買できるでしょうからあまり気になさらずに行ってみましょう。

QAccess連番について

Accessで以下の様な取引先テーブルがあります。

集計用CD、取引先CD、取引先名、グループCD
10、S01006、トキワ、201
10、S02004、トキワ、202
11、S00005、日本、200
11、S01029、三製薬、201
12、S01018、化成、201
13、S00053、ナプラ、200
13、S01019、ナプラ、201
取引先テーブルに新たにデータを追加する毎に集計用CDが
連番(この場合は14から始まる)となる様にしたいのですが
どの様な関数を用いれば良いのでしょうか?

WinXP、Access2003です

Aベストアンサー

解決したでしょうか。
連番の取得のしかたは場面によって違って
くるので一概にどの関数でとは言いきれない
のですが、
(1)
Dim lnNum As Long
とし、
lnNum = DMax("集計用CD", "取引先テーブル")
inNum = lnNum + 1
のようにしてlnNumを連番に使う。

(2)
自作関数をつくり、必要な場面で呼び出す。

といった手法が考えられます。(2)の自作関数
は場面によって関数の形態が変わると思われるので
場面とタイミングがわかればいいのですが。

Qイベントのチケットを効率よく売るには?

私は学生なのですが、サークルの企画で今月末にクリスマスイベントを行います。
イベント内容など、演出面に関しては徐々に決まりつつあるのですが、肝心のチケットがなかなか売れません。
大学生のみのイベントなので他大学の文化祭に行ってチラシを配ったり、友達にイベントのメーリスを流してもらったり、mixiなどで告知を行ったりしていますが思うように効果が出ません。
また、学生なので資金面で苦しく、告知にあまりお金をかけることができないんです。
どのようにすればチケットをたくさん売ることができると思いますか?
回答お願いします。

Aベストアンサー

初めまして。スコンチョといいます。(^_^) 

>イベント内容など、演出面に関しては徐々に決まりつつあるのですが、
>肝心のチケットがなかなか売れません。

あなた自身が「買う立場」になってみれば分かると思いますが、「購入金額
+そこまで行くコスト<楽しい(or得する)」でなければ、買わないですよね。
厳しい話ですが、売れないと言うことは「楽しい(or得する)」という期待感
が乏しいと言うことなのです。とくに、今年初めての企画内容であれば、それ
を期待感で満たしてやることは、プロがやっても難しいモノなのです。

具体的にアドバイスしようにも、サークルや内容が分からなくては難しいので、
もう少し決定している内容を具体的に書かれて、再度質問し直されることを
オススメいたします。イベントには、来客が少ない・赤字でもやることに意義
がある場合(何らかの宣伝・啓蒙活動等)もあり、質問者さんや開催される皆さんの
目的から記載してもらったほうが、解答も書きやすいのです。

例) しっかり儲けたい、○○を知ってもらうために一人でも多く来て欲しい、
自分たちの活動の集大成として開催することに意義がある等々

ちなみに、告知(プロモーション)のテクニックにだけ長けていても、来た人
たちからひんしゅくを買うようなイベントは望んでおられないと思います。
イベントに対して他の人たちから反応が悪いのであれば、自分たちのできる範囲
で内容の煮詰め直しをされる方が、結果として得られるものが多いと思いますよ。

初めまして。スコンチョといいます。(^_^) 

>イベント内容など、演出面に関しては徐々に決まりつつあるのですが、
>肝心のチケットがなかなか売れません。

あなた自身が「買う立場」になってみれば分かると思いますが、「購入金額
+そこまで行くコスト<楽しい(or得する)」でなければ、買わないですよね。
厳しい話ですが、売れないと言うことは「楽しい(or得する)」という期待感
が乏しいと言うことなのです。とくに、今年初めての企画内容であれば、それ
を期待感で満たしてやることは、プロがやっ...続きを読む

QAccessでの連番設定に関して

Accessでの連番設定に関して教えて下さい。
Access2010で注文DBを作成しています。
注文フォームにはサブフォームが設けてあり、サブフォームに注文明細を入れています。
サブフォームには明細IDのフィールドが作成してあります。

注文フォームを開けた時に常にサブフォームの明細IDが1から始まるようにしたいと考えているのですが、方法をお教えいただければと思います。

よろしくお願いします。

Aベストアンサー

新規追加したとき、あるいは、途中のレコードを削除したときも、含めて、常にサブフォームの明細IDが1から始まる連番になるコード例です。

'削除後確認
Private Sub Form_AfterDelConfirm(Status As Integer)
  If Status <> acDeleteOK Then Exit Sub
  If Me.NewRecord Then Exit Sub
  With Me.RecordsetClone
    .Bookmark = Me.Bookmark
    Do Until .EOF
      .Edit
      !明細ID = .AbsolutePosition + 1
      .Update
      .MoveNext
    Loop
  End With
End Sub

'更新前処理
Private Sub Form_BeforeUpdate(Cancel As Integer)
  If Me.NewRecord Then Me.明細ID = Me.CurrentRecord
End Sub


「サブフォーム 連番を維持する」をキーワードにググるといろいろサンプルコードが見つかると思います。

新規追加したとき、あるいは、途中のレコードを削除したときも、含めて、常にサブフォームの明細IDが1から始まる連番になるコード例です。

'削除後確認
Private Sub Form_AfterDelConfirm(Status As Integer)
  If Status <> acDeleteOK Then Exit Sub
  If Me.NewRecord Then Exit Sub
  With Me.RecordsetClone
    .Bookmark = Me.Bookmark
    Do Until .EOF
      .Edit
      !明細ID = .AbsolutePosition + 1
      .Update
      .MoveNext
    Loop
  End...続きを読む


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報