| |
取り敢えず、条件付で。
** ThisWorkbook モジュールに
Option Explicit
Private Sub Workbook_Open()
Dim i As Long
ReDim strSheetName(1 To Worksheets.Count)
For i = 1 To Worksheets.Count
strSheetName(i) = Worksheets(i).Name
Next i
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim i As Long
If Sh.Index <> Worksheets.Count Then Exit Sub
For i = 1 To UBound(strSheetName)
If Sh.Name = strSheetName(i) Then Exit Sub
Next i
Sh.Range("A1:A15").Formula = "=ROW() + " & Application.Max(Sh.Previous.Range("A1:A15"))
ReDim Preserve strSheetName(1 To Worksheets.Count)
strSheetName(Sh.Index) = Sh.Name
End Sub
---------------------------------------
'** 標準モジュールを追加して
Option Explicit
Public strSheetName() As String
---------------------------------------
シートが追加されるのは、必ず右端で、そのすぐ左隣のシートの
A1:A15のセルの最大値+1 から始まる連番を、追加したシートに振ります。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
