لو سمحتم هل احد عنده فكره داله لعمل الارقام السريه بالكنترول
 

لو سمحتم هل احد عنده فكره داله لعمل الارقام السريه بالكنترول

التالى هو برمجة فيجوال بيزك يمكن أن تضعيه داخل ماكرو وسترين النتيجة
Dim x As VbMsgBoxResult
Dim button As VbMsgBoxStyle
Dim a, b, n, ss, r As String
Dim aa, bb, s, i As Integer
s = 12
Do
a = InputBox("أدخل اول رقم فى السلسلة التى تريد إنشاءها")
aa = Val(a)
b = InputBox("أدخل آخر رقم فى السلسلة التى تريد إنشاءها")
bb = Val(b)


For i = aa To bb
n = Str$(i)
ss = Str$(s)
r = "b" & s
Range(r).Select
ActiveCell.FormulaR1C1 = n
s = s + 1
Next i
button = OkCancel
x = MsgBox("هل تريد إدخال سلسلة أرقام سرية أخرى", vbOKCancel)

Loop While x = VbMsgBoxResult.vbOK

فكرة الارقام السرية تكون مجموعات متفرقة مثال

كل خمس ارقمام متسلسلة و غير مكملة للخمس الارقام التالية

يعنى اول خمس اولاد من 50 الى 55 ثم تانى خمس اولاد من 70 الى 75

هل ممكن يكون دة اتوماتيك على العدد الاجمالى مرة واحدة

معلش محتاج اعرف يعني ايه ماكرو وازاي استخدمه في الاكسل

جزاك الله كل خير
 

السلام عليكم
اولا اشكرك جدا لانك قمت بالرد لانى كنت زعلانه جدا لان لم يهتم احد بالرد وان شاء الله سوف اجرب ذلك لانى اريد دائما ان نتعلم سويا من اساتذه هذا المنتدى الرائع الذى اثق فيه دائما

سأحاول على هذا ولكن ممتاذ والله هذه الأفكار