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

[نجوم]

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

[hassanalhawy]

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

[khhanna]

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

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

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

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

[راجى عفو الخلاق]

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

[نجوم]

المشاركة الأصلية كتبت بواسطة hass****hawy

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

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

[عماد محمد صقر1]

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