VBA SERIAL NUMBER

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 

THIS Excelシートをご確認ください：

私は私が私の各エントリのシリアル番号を必要とするユーザーフォームにデータを入力していますが。

エントリ

の

画像記述私は自分の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

私はシリアル番号がないと思います。 vbaに格納されている固有の＃です。

あなたができることは名前付き範囲があり、その中に最初の列がシリアル＃であることです。この名前付き範囲の最初の行にダミーの値「1」を挿入します。

フォームを開くときに、この数字を+1します。ユーザーがボタンを押すと、名前付き範囲に保存されます。彼は、フォームを開く

次回は、ロードExcelの日付&時間でシリアル＃2

Answer 2

を持っています範囲の最後の行は、シリアル番号の形式で保存されています。

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

正確なIDが必要な場合は、100000で0を増やしてください。