vba - 添加序列号而不考虑行删除或插入

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