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

السلام عليكم ورحمة الله وبركاته 

الأخ / أبوعبد الله

اين تذهب القيود بعد اتمامها ؟  هل توجد صفحة تجمع فيها القيود

وفقكم الله

كيفية حساب مساحة قطعة أرض مساحة قطعة أرض منتظمة الشكل

يمكن حساب مساحة قطعة أرض منتظمة الشكل بسهولة من خلال مجموعة من القوانين الحسابية الواضحة وسهلة الاستخدام، ومن هذه الأشكال ما يأتي:

قطعة أرض مربعة الشكل: المربع هو شكل هندسي منتظم يحتوي على أربعة أضلاع متساوية في الطول مع أربع زوايا قائمة بقياس 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

وفقكم الله

14 ساعات مضت, بن علية حاجي said:

السلام عليكم

تصحيح هذا الخلل موجود أيضا في منتدانا العريق "أوفيسنا" راجع الرابطين التاليين : رابط 1 و رابط 2

بن علية

جزاك الله خيرا  ، و عذرا لأنني لم أرى ردكم 

هل تظن أخي الكريم أنه سيظهر لي شيء آخر من المشكلات

وجدت أيضا انه يأخذ وقت كبير في اظهار الرسالة MsgBox ، ويتوقف الاكسيل أيضا احيانا 

وكان الغرض من التجديد الا يحدث ذلك  ــ انا اشتريت الجهاز i7ـ هل هو من ويندوز 10 ؟ ام من الاكسيل نفسه لاني وجدت الشكوى منتشرة على النت

الاكسيل 2013 وكنت استخدم 2007 والملف

السلام عليكم ورحمة الله وبركاته 

غيرت الجهاز واصبح الويندوز 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

فماذا افعل لاصلاح الوضع ؟ وفقكم الله

23 ساعات مضت, hassanask said:

هذا حل مبدأي

 

date.rar

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

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

أخي / سليم حاصبيا

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

وسأحاول تعديل بسيط فيه بتغيير الورقة التي يتم فيها العمليات لان الورقة الاصلية  الاعمدة التي استخدمتها للحل غير خالية بل مستخدمة 

فالورقة الاولى سيكون فيها البيانات فقط  ( عمود f , g  فقط ) 

والورقة الثانية سيكون فيها العمليات واظهار النتائج

وفقك الله 

 أخي / ياسر خليل أبو البراء

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

وأظن  ان الحل الذي تفضلت به يظهر قيمة واحدة فقط 

وقد تفضل اخونا سليم بحل 

فلكما جزيل الشكر ، وفقما الله 

اخي ياسر وفقك الله 

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

تفضل مع الشكر

اظهار اعلى 5 قيم.rar

السلام عليكم ورحمة الله وبركاته 

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

مثال

نشترط مثلا ان القيم التي ستظهر هى اعلى 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

اريد تلوين ايضا خليتين على يسار الخلية التي تحتوي على ( رصيد بداية )