Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


59463 / 76738 ←次へ | 前へ→

【21964】Re:連番
回答  かみちゃん  - 05/2/4(金) 20:30 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>シート1に入力ボタンを作り、それを押すたびに
>AAA001、AAA002、AAA003・・・のようになった連番のモノを
>別のシートにジャンプして表示する
>といった型番の新規登録のようなモノを作りたいのですが
>うまくいかずに困っています

どううまくいかないのかよくわからないのですが、とりあえず以下のような感じで
できると思います。
Option Explicit
Sub Macro1()
 Dim CurrentSheet As Worksheet, TargetSheet As Worksheet
 
 Dim c As Range
 Dim strNo As String
 
 strNo = "AAA"
 Set CurrentSheet = ActiveSheet
 Set TargetSheet = Sheets("Sheet2")
 
 TargetSheet.Select

 Set c = Cells(Columns(1).Rows.Count, 1).End(xlUp)
 If c.Value <> "" Then
  c.Offset(1).Value = strNo & Format(Val(Replace(c.Value, strNo, "")) + 1, "000")
 Else
  c.Value = strNo & "001"
 End If
 CurrentSheet.Select
End Sub
0 hits

【21958】連番 クロ月 05/2/4(金) 18:51 質問
【21964】Re:連番 かみちゃん 05/2/4(金) 20:30 回答
【22006】Re:連番 クロ月 05/2/7(月) 10:26 お礼

59463 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free