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

التالى هو برمجة فيجوال بيزك يمكن أن تضعيه داخل ماكرو وسترين النتيجة
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

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

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

التالى هو برمجة فيجوال بيزك يمكن أن تضعيه داخل ماكرو وسترين النتيجة
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
السلام عليكم
اولا اشكرك جدا لانك قمت بالرد لانى كنت زعلانه جدا لان لم يهتم احد بالرد وان شاء الله سوف اجرب ذلك لانى اريد دائما ان نتعلم سويا من اساتذه هذا المنتدى الرائع الذى اثق فيه دائما

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