طلب شرح كود العلامه عبد الله بقشير - تحويل المعادله الى كود

[إبراهيم محمد]

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

مع توضيح كيفيه التعديل عليه ليتاسب مع اى ملف واى معادله

ويفينى فى اساتذة هذا المنتدي فى العطاء وبذل العلم  لنفع الجميع

بارك الله لكم  ودائما نتعلم منكم  المزيد والمزيد 

وجعلكم الله  نورا يهتدى به فى دروب العلم

 

 

 

 

Option Explicit



Sub kh_Copy_Formula()
On Error GoTo kh_Err

kh_Application False

'=============================================
kh_cFormula Range("الاخطاء!$I$1:$I$1"), 3, 3900
'"kh_cFormula Range("ورقة2!$D$4:$G$4"), 10, 44
'kh_cFormula Range("ورقة3!$D$5:$G$5"), 11, 20
'=============================================

kh_Err:
kh_Application True

If Err Then
MsgBox "Err.Number : " & Err.Number
Err.Clear
Else: MsgBox " تم نسخ المعادلات بنجاح", vbMsgBoxRight, "الحمدلله"
End If
End Sub

' MyRng : الصف المخفي الذي يحوي المعادلات ملحوق باسم الورقة
' iRow : اول صف للبيانات
' Lastrow : آخر صف للبيانات

Sub kh_cFormula(MyRng As Range, iRow As Integer, Lastrow As Long)
Dim Col As Range
Dim R As Long
'========================
For Each Col In MyRng.Cells
If Col.HasFormula Then
For R = iRow To Lastrow
With MyRng.Worksheet
.Cells(R, Col.Column).FormulaR1C1 = Col.FormulaR1C1
.Cells(R, Col.Column).Value = .Cells(R, Col.Column)
End With
Next R
End If
Next
'========================
Set Col = Nothing
End Sub

Sub kh_Application(ibol As Boolean)
With Application
.ScreenUpdating = ibol
.Calculation = IIf(ibol, -4105, -4135)
.EnableEvents = ibol
End With
End Sub
 

[طارق محمود]

السلام عليكم

أخي العزيز

ماتطلبه صعب جدا

لأن الكود من أعمال استاذنا الجليل / عبدالله باقشير ، حفظه الله

وكالعادة يتميز بدقة غير عادية ومراعاة لكافة الإحتمالات التي قد تنتج عند استخدام الكود

ولاأدري ، هل فهمت كل مايريده من الكود أم لا

ولكن وبعد إذنه طبعا

تفضل المرفق ، قد يكون شرحا متواضعا للكود

وأدعو الله ألا يقلل الشرح البسيط من قيمة الكود العالية

 

تفضل المرفق

شرح الكود3.rar

[عبدالله باقشير]

السلام عليكم

اخي الحبيب طارق------------حفظك ربي

 

تواضعك المعهود  يزيدك رفعة ,,

لو شرحت الكود انا لن اشرحه بهذه الدقة

وبهذا الطرح البديع...

 

جزاك الله خيرا وبارك فيك

 

تقبل تحياتي وشكري

[طارق محمود]

السلام عليكم

أخي الحبيب وأستاذي الجليل / عبد الله باقشير (خبور خير)

هذه والله شهادة ووسام علي صدري

جزاك الله كل خير علي كلماتك الطيبة ومرورك الكريم

[إبراهيم محمد]

الاستاذ الفاضل / طارق محمود   

جزاك الله خير الجزاء على هذا الشرح  الواضح و الذى يظهر بذل الجهد فيه  وزادك الله علما ورفعه وجعله الله فى ميزان حسناتك 

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

 

الاستاذ الفاضل والعلامه / عبد الله باقشير  

فى البدايه اعتذر عن الخطاء الاملائي فى كتابه اسمكم الكريم  وقد تنبهت له من مشاهدتي لكيفيه كتابه الاسم فى المشاركه 

واشكر لك  جهدك وبذلك فى العطاء بهذة الاكواد الاحترافيه والتى تدل على انه يكمن خلفها عالم جليل فى العلم والخلق الكريم 

فبارك الله لك فى علمك واهلك ومالك وجعلك دوما ذخرا وعطاءا  اللهم  امين 

 وجزاكم الله خيرا 

[اسلام سيد]

السلام عليكم استاذ طارق

 

بارك الله فيك

 

كيف يمكن استخدام هذا الكود فى تحويل معادلات الملف التالى الى اكواد

 

33333333.rar

[حمادة عمر]

السلام عليكم

الاستاذ العملاق / طارق محمود

 

انت اكثر من رااائع

شرح بطريقة ابداعية

جزاك الله خيراً

[طارق محمود]

بارك الله فيك أخي حمادة

وجعلني دائما عند حسن ظنكم

[طارق محمود]

السلام عليكم

أخي العزيز / إسلام الشيمي

 

لنفرض أنك تريد فقط تشغيل الكود في المدي F6:L8 بالورقة: التقرير اليومى أي (Sheet2)

سيقوم الكود بنسخ معادلات الصف الأول من المدي (أي الصف السادس) لباقي الصفوف

ثم يغير قيمة الخلايا لتكون قيم وليست معادلات

 

إذن كل ماعليك هو تغيير مجال عمل الكود من الأسطر الأولي في أول الكود لتكون كالتالي

 

Option Explicit



Sub kh_Copy_Formula()
On Error GoTo kh_Err


kh_Application False


'=============================================
'kh_cFormula Range("الاخطاء!$I$1:$I$1"), 3, 3900
kh_cFormula Sheet2.Range("$F$6:$K$6"), 6, 8
'kh_cFormula Range("ورقة3!$D$5:$G$5"), 11, 20
'=============================================