1

以下のコードの小さな変更に関する私の問題を整理するためにあなたの助けをお願いします。行を挿入しながら行を挿入するコードがあります。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

上記のコードを変更するのを手伝ってください。

4

1 に答える 1

0

シリアル番号は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
于 2013-02-04T10:14:44.877 に答える