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

[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

[نجوم]

المشاركة الأصلية كتبت بواسطة 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

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