□ 戻る　 □VBAのサロン　 □ 使用方法　 □ 新着記事 　□ 新規に質問する！　 □ トピック一覧　 □ 検索 　□ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
番号の自動取得(数字とアルファベット混合)

    [134182] 番号の自動取得(数字とアルファベット混合)-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ ｍｉ -(2023/12/01(15:28))
    □U R L/ 
      いま注番を自動に取得するようにしています。


 lngSNO = Application.InputBox("開始番号？", Default:=Sheets("控").Range("D65536").End(xlUp) + 1, Type:=1)
    If lngSNO = False Then Exit Sub
 With Worksheets("工事受付票")
        For i = lngSNO To lngSNO
        .Range("AD1").Value = Format(i, "00000")
             Title = "シートのコピー"
             IfMsbox = "工事受付票をコピーします。よろしいですか"
              answer = MsgBox(Msg, vbYesNo, Title)
    If answer = 6 Then
 
この5桁の番号の前2桁を西暦とし【24***】で使用したいと思います


ただ3桁では1000番台になると【25***】となるため翌年重複します。
なので【24999】の次は【2400A】その後【2499A】→【2400B】と取得する
事は可能でしょうか 
または最初から【2400A】から始まり【2499A】→【2400B】と番号を
取得する事が可能でしょうか

最初の【24***】の【24】はセルからとりますので3桁でコードを教えて下さい
000〜999→00A〜99A→00Bへ
又は
00A〜99A→00B〜99B→00Cへ

Excel2019です。


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



    [134183] Re[1]: 番号の自動取得(数字とアルファベット混合)-

    ■解決！！ありがとうございました！ / 記事引用/メール受信=OFF■

    □投稿者/ ｍｉ -(2023/12/01(15:30))
    □U R L/

      すみません
      場所間違えましたので再度質問します。



このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->　 図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決！！ありがとうございました！ 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜！ Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内)　

- Child Forum -
Edit:ゆう-Ｇ