VBA序列号

Question

Private Sub CommandButton1_Click()

RowCount = Worksheets("sheet1").Range("A1").CurrentRegion.Rows.Count
With Worksheets("sheet1").Range("A1")

.Offset(RowCount, 1).Value = Me.TextBox1.Value
.Offset(RowCount, 2).Value = Me.TextBox2.Value

If TextBox1.Text & TextBox2.Text = "" Then
Unload Me
UserForm1.Show
Else

.Offset(RowCount, 3).Value = Format(Now, "dd/mmm/yyyy hh:mm")

End If
End With
End Sub

请检查此EXCEL表：

当我向userform输入数据时，我需要为每个条目输入序列号。

条目的图像描述

我将此代码用于我的commandbutton1：

Private Sub CommandButton1_Click()
    RowCount = Worksheets("sheet1").Range("A1").CurrentRegion.Rows.Count
    With Worksheets("sheet1").Range("A1")
        .Offset(RowCount, 1).Value = Me.TextBox1.Value
        .Offset(RowCount, 2).Value = Me.TextBox2.Value
        If TextBox1.Text & TextBox2.Text = "" Then
            Unload Me
            UserForm1.Show
        Else
            .Offset(RowCount, 3).Value = Format(Now, "dd/mmm/yyyy hh:mm")
        End If
    End With
End Sub

Answer 1

在Excel日期＆amp;时间以序列号的形式存储。

dim id as double
id = Int(CDbl(Now) * 100000)

如果您需要更精确的ID，

在100000中增加0。

Answer 2

我认为没有序列号。或存储在vba中的唯一＃。

你可以做的是有一个命名范围，第一列是Serial＃。插入虚拟值＆＃34; 1＆＃34;到这个命名范围的第一行。

现在打开表单时，请将此数字+ 1拉出。当用户点击按钮时，将其保存到指定范围。

下次打开表单时，加载范围为＃2的范围的最后一行。