• ベストアンサー

エクセルを使って開くたびに証明書番号表示したい。

エクセルを使っています。(office2003) 仕事上証明書番号をつけなければならなく、困っています。 ひとつの雛形を元に、そのファイルが開くたびに、証明書番号がW313【001】←【】は実際つけません。 【】の中の数字をファイルを開くたびに連番で番号を振っていきたいのですがやり方がわかりません。 どうぞ教えてください、 宜しく御願い致します。

質問者が選んだベストアンサー

  • ベストアンサー
  • monamucho
  • ベストアンサー率63% (7/11)
回答No.1

ワークブックを開く度に、連番で番号を振っていく例を示します。 1)雛形のワークブックファイルのWorkbook_Open()イベントに下記のコードを貼り付けて保存します。 Private Sub Workbook_Open() With Worksheets(1).Range("A1") .Value = Val(.Value) + 1 End With End Sub 2)雛形のワークブックファイルのシート1のセルA1に数字の"0"を入力します。 3)雛形のワークブックファイルのシート1のセルB1に下記の計算式を入力します。 ="W313【"&TEXT(A1,"000")&"】" 4)雛形のワークブックファイルを保存して閉じます。 5)雛形のワークブックファイルを再度開くと、セルB1の値が"W313【001】"に変わります。 6)雛形のワークブックファイルを閉じて再度開く度に連番で番号が振られていきます。 以上、ご参考まで。

akame_hiro
質問者

お礼

有難う御座います。早速やって見ます。 しかし、 1)雛形のワークブックファイルのWorkbook_Open()イベントに下記のコードを貼り付けて保存します。 ここがわかりません。 もしよろしければ教えてください。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • 続偏 エクセルを使って開くたびに証明書番号表示の件

    度々の投稿申し訳御座いません。 誤って締め切りしてしまったので質問できなくなってしまいました。 先ほど【monamucho】様からご教授頂いた表示の件、 Private Sub Workbook_Open() With Worksheets(1).Range("A1") .Value = Val(.Value) + 1 End With End Sub 2)雛形のワークブックファイルのシート1のセルA1に数字の"0"を入力します。 3)雛形のワークブックファイルのシート1のセルB1に下記の計算式を入力します。 ="W313【"&TEXT(A1,"000")&"】" 4)雛形のワークブックファイルを保存して閉じます。 5)雛形のワークブックファイルを再度開くと、セルB1の値が"W313【001】"に変わります。 6)雛形のワークブックファイルを閉じて再度開く度に連番で番号が振られていきます。 迄は、できたのですが、実際行うと余計に 1 W313001 ↑この1が付いてしまいます。 この1は必要ではなく、単純に上記のW313001⇒W313002⇒W313003 というように連番を振っていきたいのですが、 またお手数をお掛けしますが、ご教授頂ければ幸いです。 宜しく御願い致します。

  • エクセル行の内容ではなく行番号で並べ替えたい

    エクセルで、行の内容(値)ではなく行番号で降順に並べ替えたいです。 元の最終行が並べ替え後は1行目に来て、元の1行目が並べ替え後は最終行に来るようにしたいのです。 どこかの列に連番で数字を入れれば、その数字を元に並べ替えられるのは知っています。 それ以外の方法をご存知でしたら、教えて下さい。 よろしくお願いいたします。

  • エクセルの列番号の表示

    少し前のことなのですが、エクセルで何か操作をしていたとき、ふと見ると列番号の表示(A,B,C・・・)の部分が数字になっていました。(Aのところが1、Bのところが2・・・)行番号はいつものとおり数字表示でした。列番号が数字表示されることってあるんでしょうか? 自分でもどの操作をしたのかよくわかりません。 一旦エクセルを終了し、再起動したら元にもどっていました。 少し気になったので、ご存知の方教えてください。

  • 10000通りのシリアル番号を生成したい

    10000通りのユニークなシリアル番号を生成させるプログラムを 作りたいと考えています。 00000 00001 00002 ... 99998 99999 という数字が縦に並んだテキストファイルを用意して、それを読み込んで 00000→8401923 00001→4234420 00002→1354234 ... 99998→4235662 99999→9557346 というような7桁の数字だけのシリアル番号を作りたいのです。 また、一つのシリアル番号、仮に8401923という数字を利用して 下一桁をちょっと変更したぐらいでは、 他のシリアル番号にHitしないような作りにしたいと思います。 10000までの連番の数字に、何かしらのマスク処理をかけて シリアル番号を生成させる感じだと思うのですが その、マスクの部分の具体的な処理がよくわからないのです。 また、シリアル番号から、元の連番の数値も出したいと考えていますが それもどのように処理させればいいのでしょうか? 以上になりますが、どうぞよろしくお願い致します。

    • ベストアンサー
    • Perl
  • Excelの列番号表示について

    Excelの列番号が、ABCでなく、123と数字になります。 ツールーオプション-全般で「R1C1参照形式を使用する」のチェックが付いているので、オフにしても、またExcelを起動すると元に戻っています。何が原因でしょうか。

  • エクセル セル値を読み込んでの自動表示

    画像を御覧ください。 エクセルのシートに「連番選択」用のセルと「連番」、「項目」、「日付」、「番号」、「表示」の列があります。 連番選択のセルに96を入れていますが、この時「連番」96の行を参照し、この右隣のセル項目の中に”A”が入っていれば、同行の「表示」に14-09-003と表示を行いたいと思います。 14-09-は同行「日付」の”yy-mm-”で、003は「番号」の”000”を取得したものです。 連番のセルに何も入っていない時には「表示」列には何も表示させたくありません。 このようなことが可能でしょうか? よろしくお願い致します。 本サイトでは日頃からエクセルのご指導をいただき感謝しております。

  • エクセルでA4上下に3桁の通し番号を入れ印刷

    エクセルでA4用紙、上下に二枚チケットを印刷し、それぞれに通し番号でチケット右上のセルに印刷枚数分連番数字をいれたいのです。こちらで検索をして連番を入れるような記事を見つけたのですが、上下に連番をする方法をおしえてください。たとえば H2に001、H20に002、50枚印刷すると100番まで連番で印刷されるようには出来るのでしょうか?エクセルは2003です。よろしくお願いします。

  • excelで抽選券を作り、通し番号を入れたいです

    excelで抽選券を作り、通し番号を入れたいのですが、 やり方がサッパリわからなかったので質問させていただきます。 A4用紙に抽選券8枚分をexcelで作り、 その抽選券に連番(No.0001~No.1400)を入れていきたいです。 予算がない為、印刷所にお願いする事ができません。 手入力で連番を入力していくのにも1400まであるので参っています。 何か他に良いアイデアや連番を入れる方法がありましたらお願いします。

  • EXCEL 重複する番号をひとつにする

    EXCELについて教えて頂きたい内容がありますのでよろしくお願い致します。 C列の重複する番号を一つにまとめ、 一つにまとめた中でもH列の数字のMAXを抽出したいです。 【例】 1236148  3 1236148  5 ↓ 1236148  5のみに表示 このように出来る関数などはありますでしょうか? もしくはマクロなどを教えて頂きたいです。 よろしくお願い致します。

  • エクセルの列番号

    通常はアルファベットのエクセルの列番号が数字になってしまい、元に戻したいと知人から質問を受けたのですが、こんなことってあるのでしょうか。 あるとすればどのようにもとにもどすのでしょうか。 教えてください。

専門家に質問してみよう