无论行删除还是插入，都要添加序列号

Question

我请求您的帮助，通过以下代码进行一些小改动来解决我的问题。 我有插入行时插入行的代码我也想添加序列号，就像1,1.1,1.2和1.3 ....

下面的代码已经在添加序列号的工具中提到，有人可以告诉我如何调整代码以实现1,1.1,1.2格式的序列号，如果删除或插入行，则应添加基于先前序列号的序列号0.1值

dim m as integer
m = 0
Application.WorksheetFunction.Max(.Columns(columnidCol))
.Cells(r, columnidCol).Value = m + 1

上面的代码将值设为1，当我插入行时，“columnidcol”派生自公开声明的常量，如下所示

Public Const numberoneCol As Integer = 2
Public Const columnidCol As Integer = numberoneCol

请帮我修改上述代码。

Answer 1

您可以将序列号存储在ThisWorkbook.CustomDocumentProperties：

中

ThisWorkbook.CustomDocumentProperties.Add Name:="SerialNumber", Type:=msoPropertyTypeString
....
ThisWorkbook.CustomDocumentProperties("SerialNumber").Value = ThisWorkbook.CustomDocumentProperties("SerialNumber").Value + 1
....
dim m as integer
m = ThisWorkbook.CustomDocumentProperties("SerialNumber").Value
.Cells(r, columnidCol).Value = m + 1