استاذى ومعلمى وحبيبى
سليم بك حاصبيا
ملك المعادلات
بصراحه انا كنت مقرر انى اقف جنب الحيط واشوف العمالقه وهما يتصارعون فى مصارعه الاكسل الحره واتعلم منهم واستفيد طبعا وانا واقف بعيد ليجينى كود اروح فيها وانا مش مستغنى عن عمرى دا الكبير ياسر بقى مقتول هههههههه وعامل تعبان
ولكن بعد دعوتك خجلت من نفسى وكان لازم البى الدعوه -( فقم للمعلم ووفه التبديلا كاد المعلم ان يكون رسولا)
علشان خاطر عيونك حل لغز الجدول المتحرك بالاكواد وتم اضافه خيار لتحديد بداية تسلسل الجدول
اتمنى ان يحوز اعجابك
Sub ÌÏæá()
ActiveSheet.Unprotect Password:="111"
If [j2] = "" Or [k2] = "" Or [l2] = "" Then MsgBox "فضلا قم بتحديد عدد الصفوف والاعمده وبداية تسلسل الجدول": Exit Sub
Application.ScreenUpdating = False
Range("a3:zz100000").ClearContents
[a3] = [l2]
Lr = Range("j2").Value
Ll = Range("K2").Value
For i = 4 To Lr + 2
For o = 2 To Ll
Cells(3, o).Value = "=RC[-1]+r2c10"
Cells(i, 1).Value = "=R[-1]C+1"
Cells(i, o).Value = "=R[-1]C+1"
Next
Next
ActiveSheet.Protect Password:="111", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
جدول متحرك.zip