Buat Nombor Rekod Unik - Petua Excel

Janet dari England mengemukakan soalan hari ini.

Kita perlu tahu cara mengatur makro yang akan memberikan nombor invois unik, bagaimana untuk menyediakan makro kedua yang akan menyimpan invois yang lengkap sebagai nombor unik.

Inilah aplikasi hipotesis yang saya bayangkan. Terdapat buku kerja dengan lembaran kerja Invois dan lembaran kerja Menu. Saya mencadangkan untuk menyimpan nombor invois terakhir pada sel di luar lembaran kerja Menu, katakan Z1. Sekiranya nombor invois sepatutnya masuk dalam sel H2 lembaran kerja invois, maka makro ini akan melakukan helah:

Sub GetNextInvoiceNumber() LastInv = Worksheets("Menu").Range("Z1").Value NextInv = LastInv + 1 Worksheets("Invoice").Range("H2").value = NextInv Worksheets("Menu").Range("Z1").value = NextInv End Sub

Kemudian, untuk menyimpan Invois, seperti ini:

Sub SaveInvWithNewName() ' Copy Invoice to a new workbook Worksheets("Invoice").Copy NewFN = Range("H2").Value & ".xls" ActiveWorkbook.SaveAs NewFN ActiveWorkbook.Close End Sub