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