عاطف عبد العليم محمد

السلام عليكم ورحمة الله وبركاته الأخ / أبوعبد الله اين تذهب القيود بعد اتمامها ؟ هل توجد صفحة تجمع فيها القيود وفقكم الله

كيفية حساب مساحة قطعة أرض مساحة قطعة أرض منتظمة الشكل يمكن حساب مساحة قطعة أرض منتظمة الشكل بسهولة من خلال مجموعة من القوانين الحسابية الواضحة وسهلة الاستخدام، ومن هذه الأشكال ما يأتي: قطعة أرض مربعة الشكل: المربع هو شكل هندسي منتظم يحتوي على أربعة أضلاع متساوية في الطول مع أربع زوايا قائمة بقياس 90 درجة، ويمكن حساب مساحته من خلال قياس طول ضلع هذه القطعة، ثم حساب المساحة بناءً على المعادلة التالية: مساحة المربع = طول الضلع × طول الضلع مثال: كم تبلغ مساحة قطعة أرض مربعة الشكل طول ضلعها 20م؟ الحل: مساحة قطعة الأرض=20×20=400م². قطعة أرض مستطيلة الشكل: المستطيل هو شكل هندسي منتظم يحتوي على أربعة أضلاع، كل ضلعين متوازيين ومتساويين في الطول مع أربع زوايا قائمة بقياس 90 درجة، ويمكن حساب مساحته من خلال قياس الطول والعرض لهذه القطعة، ثم حساب المساحة بناءً على المعادلة التالية: مساحة المستطيل=الطول×العرض مثال: كم تبلغ مساحة قطعة أرض مستطيلة الشكل طولها 20م وعرضها 30م؟ الحل: مساحة قطعة الأرض=20×30=600م². قطعة أرض مثلثة الشكل: المثلث هو شكل هندسي منتظم يحتوي على ثلاثة أضلاع، وثلاث زوايا بقياسات مختلفة، ويمكن حساب مساحته من خلال قياس طول القاعدة فيها، بالإضافة إلى طول الارتفاع، ثم حساب المساحة بناءً على المعادلة التالية: مساحة المثلث = ½ × طول القاعدة × طول الارتفاع. مثال: كم تبلغ مساحة قطعة أرض مثلثة الشكل طول قاعدتها 20م وارتفاعها 40م؟ الحل: مساحة قطعة الأرض=½×20×40=400م². مساحة قطعة أرض غير منتظمة الشكل لا يوجد قانون حسابي ثابت لقطع الأرض غير منتظمة الشكل، ولكن يمكن حساب مساحة هذه القطع من خلال تقسيم القطعة الواحدة غير المنتظمة إلى مجموعة من القطع منتظمة الشكل، حيثُ تحسب مساحة كل شكل منتظم فيها على حدة، ثم حساب المساحة الكلية من خلال جمع مساحات القطع المنتظمة والصغيرة في هذه الأرض. منقول

=ROW(b50) شكرا هذا هو الحل في خلية مثلا o1 توضع الصيغة اعلاه ثم في الماكرو المطلوب يوضع كود مثل Dim at As Integer at = Range("o1").Value If at < 50 Then MSG1 = MsgBox ("تم حذف بعض الصفوف ولذلك صف المجموع اصبح داخل نطاق مسح البيانات الذي سيتم ولذلك تحتاج اضافة صف او اكثر ليصبح صف المجموع رقمه اعلى من 50") Exit Sub Else End If

السلام عليكم ورحمة الله وبركاته هل يمكن تحديد خلية معينة ولتكن b50 ثم يحدث اضافة صفوف او حذف لصفوف فيظهر في خانة اخرى ان الخلية المحددة اصبحت في صف اقل من 50 ان كانت ؟ وفق الله الجميع

السلام عليكم ورحمة الله وبركاته عذرا نزلت الملف وعند فتحه يعطيني رسالة محتويات محتمل خطورتها تم حظرها ـ ماذا افعل ؟ اظن الرسالة من مايكروسفت شكرا وجدت الحل

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

السلام عليكم ورحمة الله وبركاته لو يتكرم علينا احد الاخوان اريد كود لحذف نطاق من الاعمدة احدده في كل مرة استخدم الكود ( عن طريق msbox ) فيتم ادخال العمود الاول وليكن a ثم يتم ادخال العمود الاخير وليكن عمود d فيتم حذف العمود a , b , c , d وفقكم الله

جزاك الله خيرا ، و عذرا لأنني لم أرى ردكم هل تظن أخي الكريم أنه سيظهر لي شيء آخر من المشكلات وجدت أيضا انه يأخذ وقت كبير في اظهار الرسالة MsgBox ، ويتوقف الاكسيل أيضا احيانا وكان الغرض من التجديد الا يحدث ذلك ــ انا اشتريت الجهاز i7ـ هل هو من ويندوز 10 ؟ ام من الاكسيل نفسه لاني وجدت الشكوى منتشرة على النت الاكسيل 2013 وكنت استخدم 2007 والملف

السلام عليكم ورحمة الله وبركاته ،، حل الرسالة الآتية : "Compile Error: The code in this project must be updated for use on 64-bit system. Please review and update Declare statements and then mark them with the PtrSafe attribute." فقط قم بعملية البحث والاستبدال في الدوال البرمجية المدونة في قسم Modules عن كلمة "Private Declare" واستبدلها بالعبارة الآتية "Private Declare PtrSafe" وتنتهي المشكلة بإذن الله ،، هذا الحل وجدته في منتديات الفريق العربي للبرمجة سأجربه

السلام عليكم ورحمة الله وبركاته غيرت الجهاز واصبح الويندوز 10 و الاوفيس 2013 وهذه اول مشكلة نتيجة لذلك وارجو ان تكون الاخيرة عند فتح ملف الاكسيل فتح على الكود الموضوع في thisworkbook Option Explicit Private Declare Function sndPlaySound32 Lib "winmm.dll" _ Alias "sndPlaySoundA" (ByVal lpszSoundName _ As String, ByVal uFlags As Long) As Long ومضيء كلمة function واعطى هذه الرسالة the code in thise projet must be updated for use on 64-bit systems please review and update declare statments and then mark them with the PtrSafe attribute فماذا افعل لاصلاح الوضع ؟ وفقكم الله

السلام عليكم ورحمة الله وبركاته هل يوجد حل للتواريخ الهجرية ؟

بارك الله فيك و في اولادك ( ومنهم نورهان ) وجزاك الله خيرا

أخي / سليم حاصبيا جزاك الله خيرا وحل ممتاز وسأحاول تعديل بسيط فيه بتغيير الورقة التي يتم فيها العمليات لان الورقة الاصلية الاعمدة التي استخدمتها للحل غير خالية بل مستخدمة فالورقة الاولى سيكون فيها البيانات فقط ( عمود f , g فقط ) والورقة الثانية سيكون فيها العمليات واظهار النتائج وفقك الله أخي / ياسر خليل أبو البراء جزاك الله خيرا وأظن ان الحل الذي تفضلت به يظهر قيمة واحدة فقط وقد تفضل اخونا سليم بحل فلكما جزيل الشكر ، وفقما الله

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

تفضل مع الشكر اظهار اعلى 5 قيم.rar

السلام عليكم ورحمة الله وبركاته اريد بعد اذنكم كود يظهر اعلى 5 قيم في صف بعد اشتراط محتوي الخلية التي بجانبه مثال 3 قيد يومية 189 قبض نقدي 203 صرف نقدي 10 قيد يومية 20 قبض نقدي 200 صرف نقدي نشترط مثلا ان القيم التي ستظهر هى اعلى 5 قيم لقيد اليومية وجدت هذا الكود ولم استطع التعديل عليه Sub big5() Dim rngTestArea As Range, i As Integer, j As Integer, MyResult As String Set rngTestArea = ThisWorkbook.Worksheets("ورقة1").Range("A1:A25") j = 0 For i = 1 To 5 j = Application.WorksheetFunction.Large(rngTestArea, i) MyResult = MyResult & "Rank " & i & " is " & j & vbCr Next i MsgBox MyResult End Sub

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

وفقك الله أخي ياسر خليل أبو البراء وجزاك الله خيرا

اخي ابو البراء جزاك الله خيرا ، حلك هو المطلوب ويكفي وان شئت ان تزيدنا كرما فعند مسح الاجابات مثلا يظهر رسالة type mismath فهل يوجد حل لمنع هذه الرسالة من الظهور وكل عام وانتم بخير

السلام عليكم ورحمة الله وبركاته حاولت بهذا الكود عمل تدريب على جدول الضرب فإن تمت الاجابة يسمع صوت رسالة اما بالصواب او الخطا ولكن في الواقع يظهر الصوت عند تغيير اي خلية ويظل يتكرر فضلا التكرم بالحل Private Sub Worksheet_Change(ByVal Target As Range) For Each cell In Range("f7:f500") If ActiveCell.Value = ActiveCell.Offset(-2, 0).Value * ActiveCell.Offset(-4, 0).Value Then Application.Speech.Speak "correct answer" Else Application.Speech.Speak "Wrong answer try again" End If Next End Sub جدول الضرب.rar

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

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

استاذي /سليم حاصبيا حل حضرتك يلون الخلايا عند المرور عليها فقط ، جزاك الله خيرا انا وجدت حل يلبي رغبتي Sub رصيدبداية() Application.EnableEvents = False Application.ScreenUpdating = False d = Range("f7", Range("f7").End(xlDown)).Count a = 17 For I = 1 To d Cells(709, a).Select If ActiveCell.Value Like "*رصيد بداية*" Then ThisWorkbook.ActiveSheet.Range(Cells(709, a), Cells(709, a + 2)).Interior.ColorIndex = 40 End If a = a + 9 Next I Range("i7").Select Application.EnableEvents = True Application.ScreenUpdating = True End Sub واعلم ان المعطيات التي اوضحتها لم تكن كافية لتعطيني الحل عاليه جزاك الله خيرا على تفضلك بالرد ، وفقكم الله

استاذي /سليم حاصبيا ادرجت الماكرو في موديول جديد ولا اعرف كيف يتم تشغيله ! لم يظهر ضمن قائمة الماكروات وفقك الله

السلام عليكم ورحمة الله وبركاته لدى هذا الكود Dim cell As Range Rows(709).Select For Each cell In Selection If cell.Value Like "*رصيد بداية*" Then cell.Interior.ColorIndex = 40 Next cell اريد تلوين ايضا خليتين على يسار الخلية التي تحتوي على ( رصيد بداية )