|
こんにちは。かみちゃん です。
>シート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
|
|