توليد رقم عميل مميز "لا يتكرر" تلقائيا

[moon_808]

اود من الاخوة الكرام مساعدتي

كيف يمكن كتابه كود يعمل على توليد رقم عميل مميز اوتوماتيكيا بعد كل مرة يتم فيها النقر على زر معين, وا ضافته الى الخليه

generate a unique id automatically

تم تعديل سبتمبر 20, 2010 بواسطه moon_808

[طارق محمود]

السلام عليكم

رحبا بك أخي الكلايم بين إخوانك

الكود الذي تريد هو

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

 If Target.Column <> 1 Or Target.Row <> 1 Then Exit Sub

 Dim x As Range


 Set x = [b2000].End(xlUp)

 If [a1].Value <> 0 Then x.Offset(1, 0).Value = [a1].Value

 b = x.Row + 1


50 a = WorksheetFunction.RandBetween(100, 1000)

 For i = 2 To b

	If Cells(i, 2).Value = a Then GoTo 50

 Next i

 [a1].Value = a



End Sub

ويتم تخزينه في حدث الورقة

عن طريق دبل كليك علي الخلية A1

يتم توليد رقم عشوائي بين 10 ، 1000

وينقل السابق إلي العمود B لمقارنة الرقم العشوائي بكل الموجود بالعمود B

حتي لايتكرر الرقم العشوائي المتولد وإلا يولد غيره

ويعمل الكود وإن كان العمود B مخفيا

لكني أظهرته لك لتعرف الفكرة

تفضل المرفق

وتستطيع إخفاء العمود B

moon.rar