Ali Mohamed Ali

يجب عليك عمل كوبى لهذا الكود فى كل صفحة تريد تغيير الخلايا فيها

وهذه طريقة اخرى بوضع هذا الكود فى موديول جديد Public Function getDistance(latitude1, longitude1, latitude2, longitude2) earth_radius = 6371 Pi = 3.14159265 deg2rad = Pi / 180 dLat = deg2rad * (latitude2 - latitude1) dLon = deg2rad * (longitude2 - longitude1) a = Sin(dLat / 2) * Sin(dLat / 2) + Cos(deg2rad * latitude1) * Cos(deg2rad * latitude2) * Sin(dLon / 2) * Sin(dLon / 2) c = 2 * WorksheetFunction.Asin(Sqr(a)) d = earth_radius * c getDistance = d End Function وبعد ذلك ضع هذه المعادلة فى الخلية E3 واسحب للأسفل =GETDISTANCE(A3,B3,C3,D3)

وعليكم السلام جرب هذه المعادلة =distVincenty(SignIt(A3), SignIt(B3), SignIt(C3), SignIt(D3))

وذلك بأن تقوم بتغيير اسم الخلية الموجودة فى كود الصفحة المشار اليها فى الصورة المرسلة لك الى الخلية التى تريدها جزاك الله كل خير

أهلا بك اخ كريم فى المنتدى تفضل لك ما طلبت sum k9 numbers.xls

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

تفضل -2شغل المساحات.xlsx

وعليكم السلام استاذ هشام-اهلا بك اخ كريم فى المنتدى تفضل هذ الكود به طلبك -يعمل على حماية الخلايا بعد الحفظ Public Sub Ziad_Prodc() Dim Sh As Worksheet Dim Rng As Range Ch_P On Error Resume Next With Application .ScreenUpdating = False .Calculation = xlCalculationManual .EnableEvents = False For Each Sh In ThisWorkbook.Worksheets If Sh.ProtectContents = True Then Sh.Unprotect Password:="123": Sh.Cells.Locked = False If Not Sh.Cells.HasFormula Then Sh.Cells.Locked = False Else Sh.Cells.FormulaHidden = True With Sh.Cells .SpecialCells(2).Locked = True .SpecialCells(-4123).Locked = True End With If Sh.Cells(1, "IV") = "True" Then Sh.Protect Password:="123" Next .EnableEvents = True .Calculation = xlCalculationAutomatic .ScreenUpdating = True End With End Sub Private Sub Ch_P() Dim Sn As Worksheet For Each Sn In ThisWorkbook.Worksheets If Sn.ProtectContents = True Then Sn.Unprotect Password:="123": Sn.Cells(1, "IV") = "True": Sn.Protect Password:="123" Next End Sub

اخى الكريم هل المعادلة الموجودة فى ملفك المرسلة لك من قبل لم تحل طلبك وسؤالك ؟

جرب هذا بالمعادلات -1التقرير.xlsm

وعليكم السلام اهلا بك اخ كريم فى المنتدى تفضل Monthly Time Sheet1.xlsx

تفضل لك ما طلبت -1التقرير.xlsm

أخى الكريم من فضلك لاحظ ذلك فى ملفك ان الأقسام الموجودة فى صفحة بيانات غير مساوية وغير مطابقة للأقسام الموجودة فى صفحة بيانات التلاميذ -عليك تعديل هذا ورفع الملف مرة اخرى بعد التعديل جزاك الله كل خير

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

بعد اذن استاذنا الكبير بن علية حاجى جرب هذا تقريب الرقم العشري.xls

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

تفضل هذا بالمعادلة -1استدعاء الاسماء من عمودين وجعلها في عمود واحد بدون فراغات.xlsx

أهلا بك اخ كريم فى المنتدى من فضلك قم برفع الملف حتى تتمكن الأساتذة من مساعدتك بارك الله فيك

تفضل اخى الكريم هذه طريقة من ضمن الطرق ومشروحة فى هذا الفيديو : https://www.youtube.com/watch?v=tepVkCldCts استدعاء الاسماء من عمودين وجعلها في عمود واحد بدون فراغات.xlsx

بارك الله فيكم جميعا كلها حلول رائعة اتمنى انها تخدم وتفيد صاحب الموضوع جزاكم الله جميعا كل خير وجعله الله فى ميزان حسناتكم

أهلا بك اخ كريم فى المنتدى تفضل محمد خاطر-1.xlsx

وعليكم السلام -من فضلك يجب عليك مسح وحذف المشاركة الأخرى فهى نفس هذه المشاركة -بارك الله فيك تفضل New ورقة عمل Microsoft Excel (2).xlsx

تفضل معادلة جلب بيانات.xls

أخى الكريم رمز الحماية هو : 123

أهلا بك اخ كريم بالمنتدى يمكنك رفع سؤالك بمشاركة جديدة مستقلة ومنفصلة مع التأكيد على رفع ملف العمل وشرح عليه ما تريد بالتفصيل وان شاء الله ستلقى المساعدة بارك الله فيك