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