- ベストアンサー
Excel2010で自動ナンバリングする方法について
- Excel2010で自動ナンバリングする方法について詳しく教えてください。
- A4サイズの紙にナンバリングされたチケットを作成する方法をExcel2010で教えてください。
- Excel2010で印刷枚数が変わるたびにナンバリングが自動的に変化する方法を教えてください。
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- エクセルで印刷時にナンバリングを複数個所にしたい。
エクセルでラベルを作成印刷したいのですが、 A4サイズを4等分の大きさで、1枚で4枚分同時に印刷し、 それぞれのラベルにナンバリングしながら印刷したいのです。 1枚目の印刷には、ラベルが4枚印刷されて No1~4 のナンバリング 2枚目の印刷にも、ラベルが4枚印刷されて No5~8 のナンバリング : : このように印刷枚数×4のナンバリングの方法を教えてください。 完全素人です。解る方お願いします。助けてください。
- 締切済み
- その他(ビジネス・キャリア)
- アクセス2003:ナンバリングが出来るようにしたい
初めまして。アクセス初心者です。 下記内容をアクセスで作るためにはどのようにしたら 良いのか、アドバイスをお願いいたします。 仕様:windows xp / アクセス2003 内容: 毎日ハガキが1000枚位届く事務局をやっています。 そのハガキ全てに、通しナンバーをふるために、 ナンバリングマシン(ガチャンガチャンっていうやつ)で、 1枚につき1ナンバーをつけています。 毎日毎日やっているのは辛いし、時間がかかるので、 パソコンで簡単に印刷が出来ればいいなと思い、 アクセスに挑戦しました。 アクセスにしたのは、過去にいつ、どのナンバーをふったのかを 把握するために「日付」「スタートNo.」「エンドNo.」を データベース化したかったためです。 イメージとしては、フォーム画面で、 「今日の日付」「担当者ナンバー」「スタートNo.」 「エンドNo.」を入れて、印刷ボタンを押すと、 ハガキ1枚づつ7ケタのナンバーが印刷されるというものです。 「今日は、「2587544~2598574」までナンバリングしよ~。」 というカンジで、毎日続き番号になります。 明日は「2598575~」という形ですが、日々のハガキの枚数により ズレがあります。 こんなワガママ聞いてもらえますか? お手数ですが、何卒アドバイスお願いいたします。
- ベストアンサー
- Windows XP
- イラレでナンバリングする方法
こんばんわ。 初めて質問致します。 自分は、趣味でイラレをたしなむ程度なのですが 今回、知り合いから「ライブのチケット100枚作ってほしい」 と言われました。 デザインは何とか完成し、印刷しようと思ったのですが 「チケットだからナンバリングもつけて欲しい」と要望があり 途方に暮れています。 自力でネット検索し、何とかナンバリングをしてくれる「javasprict」 を発見致しました。 早速試したところ、チケット1枚につきナンバリング1か所であれば 成功したのですが、チケットなので控えと半券両方にナンバリングが欲しいとの事。 つまり、簡単に言うと1枚に2か所のナンバリングが必要なのです。 自分で改造しようと、色々試しましたが完全にお手上げ状態です。 何とかお力添えを頂ければ幸いです。 ソースは下記の通りです。 // JavaScript Document docObj = activeDocument; var minNum=prompt("チケットナンバーの開始値"); var maxNum = prompt("チケットナンバーの終了値"); var ticketsPerPage = 5; //一ページ当たりのチケット枚数 var printPageNum = Math.ceil( (maxNum - (minNum-1))/5 ); // 何ページ印刷するか var maxDegit = 4; //最大桁数。これに基づいて、テキスト整形 var prefix = "抽選番号 No. "; //連番のプリフィックス var suffix = " "; //連番のサフィックス for(var i = 0 ; i < printPageNum ; i++){ //必要なページ数ループ for(var h = 0 ; h < ticketsPerPage ; h++){ //各ページにはticketPerPageだけナンバーを設定 var obj_name = "No."+(h+1); //テキストオブジェクトの名前(事前にaiファイルで編集・設定) var numberItem = docObj.pageItems.getByName(obj_name);//テキストオブジェクトの取得 numberItem.contents= getNumberText(i*ticketsPerPage + Number(minNum)+ Number(h)); //ナンバーを設定 } //プリント docObj.print(); } //数値を受け取って、ナンバリング用文字列を返す function getNumberText(num){ var len = num.length; var numText = prefix; for( var i = 0 ; i < maxDegit - len ; i++){ numText += " "; } numText += num; return numText + suffix.toString(); } 上記の物を、同じテキストボックス名を2か所設置して動かしても片方にしか ナンバリングが反映されませんでした。 まったくの初心者ですので、御面倒おかけしますが何卒お力添えをお願い致します!
- 締切済み
- JavaScript
- Excelでの自動ナンバリング後の印刷について
自分がやりたい事はExcelでブックを開く度にナンバリングが自動生成され、都度印刷の度に部数に応じてその数が自動で加算されていくというようなものです。 過去の質問において下記のような回答を見つけました Private Sub Workbook_Open() Dim cnt As Long Dim シート名, セル, 文字列 As String シート名 = ActiveSheet.Name セル = "B2" '←ナンバーを入れるセル(Range("C2")なら"C2")…(1) cnt = Len(Sheets(シート名).Range(セル)) If cnt = 0 Then Sheets(シート名).Range(セル) = "No." & Format(InputBox("発行No.の初期値をセットしてください。"), "0000") Else 文字列 = Right(Sheets(シート名).Range(セル), cnt - 3) cnt = Val(文字列) cnt = cnt + 1 Sheets(シート名).Range(セル) = "No." & Format(cnt, "0000") '←桁数をセット(5桁なら"00000")…(2) End If End Sub 上記の記述は自分のやりたい事とほぼ一致しているのですが、この場合では複数枚印刷すると同じナンバリングの用紙がでてきてしまいます。 例えば、ブックを開いた際に自動生成された数がNo.0005だとして、10枚印刷した場合にNo.0005から連番で印刷され、次回ブックを開いた際にNo.0015から始まるといったような事です。 別シート等を使うような方法でも構わないので何か良い方法はありますでしょうか? また不特定多数の人が出力した際に上書き保存をして終了しない人がいた場合等は上記の記述でのナンバリングは成立しませんが、そのような環境において通しでのナンバリングを成立させる方法はありますでしょうか?(Excel以外になったとしても) 解りにくいかもしれませんが、ご教授頂ければ幸いです。
- ベストアンサー
- オフィス系ソフト
- エクセルのナンバリング方法
エクセルの表でナンバリングについての質問です。B1に『=IF(B1="""","",(A1+1))』など関数を入れてドラッグする方法ではなく、自動的にナンバリングできる方法があれば教えて下さい、お願いします。表をシートごとはなく一つのシートに連続表示させておかなくてはいけない仕様の仕事なので、ドラッグのナンバリングがいちいち面倒なのです。途中途中に『小計』など別の符号が入ったりスペースをあけたりしているので、できればその『1』を入力してから空白セルの続く場所まで、と指定したいのですがうまくいきません。以前上司がどこかの会社から貰ったデータでA1に『1』を入れるだけで空白セルが全部埋まったと云っていたので探しているのですがそういうやり方はありませんでしょうか?(そのデータは既に紛失してしまったので遡れませんでした)宜しければお知恵をお貸し下さい。
- ベストアンサー
- オフィス系ソフト
- ナンバリング印刷について
はじめまして VBA初心者です。下記のようなマクロを見つけました。下記のマクロを実行すると開始番号、終了番号を入力すると印刷までいってしまいます。 開始番号、終了番号を入力した後、開始番号と終了番号の確認画面が出で、確認後に印刷か中止かを選択できるようにしたいと思っています。 よろしくお願いします。 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("e1").Value = idx ActiveSheet.PrintOut Next idx Else MsgBox "開始番号、終了番号が不適切です。印刷は行いません" End If
- 締切済み
- その他(ビジネス・キャリア)
- EXCEL2007で、当選者番号だけ抽出したい
簡単にできそうで、できなかったので質問いたします。 ナンバリングされている6000名の名簿の中から 200名を抽選する作業をしており 当選者のナンバーが別シートであります。 6000名のリストに、そのナンバーを当て込みたいのですが 何かよい方法はありますか? 数式でもなんでも良いのですが 200名分の当選ナンバーを地道に探すことも可能ですが 何かもっと簡単な方法がないのかと探しておりました。 なかなか検索にひっかけることができなかったので 同じような質問があるかと思いますが、よろしくお願い致します。
- ベストアンサー
- その他MS Office製品
- 自動的に昇順になるのを防ぎたい
Access2002で名簿つくりをしているのですが、 もともと手元にあるメモの順番ではなくしてほしいということで、 番号がすべてふってあります。 テーブルとフォームを作って入力を開始したのですが、 フォームを保存した後、 再び開くと、フッタ番号が自動的に昇順になってしまっています。 (そういう理由なので、オートナンバー型ではなく、数値型を指定してあります。) そうすると、どこまで入力していてどこまで入力していないかわからなくなってしまうので、 入力したとおりにしておいて、最後の最後に、昇順に並び替えたいのですが、そういうことってできますか?
- ベストアンサー
- その他(データベース)
- ローソンチケットの先行予約について
ローソンチケットのHPやロッピーでの先行販売で、開始時刻と同時にアクセスしてつながったにもかかわらず「予定枚数終了」と表示されたことが何度かあります。 人気の高いチケットならいざ知らず、それほど人気のないチケットでもこのようなことがあったので、本当にチケットを出しているのかと思ってしまいます。 開始時刻と同時につながったとしても、画面に必要事項を入力して申し込みを完了するまで何十秒かはかかると思うのですが、ほんの数秒で「予定枚数終了」と表示されてしまうのは、最初からチケットを出していないのではと思いたくなります。 それより先の先行予約で枚数が出てしまい、割り当てがなくなってしまったとか、最初から割り当て枚数が少ししかなかったとか、いろいろ考えてしまうのですが、ご存知の方がいらしたら教えてください。
- ベストアンサー
- 国内アーティスト
- アクセス2003でIDフィールドのデータをオート入力(規定値)したいのですが
こんにちは。 教えてください。 オートナンバー型を利用せずに単票フォームからNOフィールドのデータを入力したいのです。 ↓こんな考え方で レコード新規作成時 : NO 規定値 総レコード件数+1 です。 オートナンバー型を利用するとたとえばNO10を後での削除をすると その10は欠番になり利用不可ですよね。 そこらへんは柔軟に必要があればいつでも欠番になっている10という値をNOフィールドに手入力で再利用したいのです。 いろいろ調べてみたのですがいい感じな方法が見つけられませんでした。 お願いします!!
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございます。 試してみます。