اذهب الي المحتوي
أوفيسنا

abouelhassan

05 عضو ذهبي
  • Posts

    2,833
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    7

مشاركات المكتوبه بواسطه abouelhassan

  1. الاخوة الاساتذة

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

    لا اعلم شئ عن الاكواد وال ALT f11

    محتاج اتعلم حتى اساعد فى خدمة الاخوة واساعد نفسى

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

    اخيكم

  2. السلام عليكم ورحمة الله

    أخي الكريم يمكنك استعمال الدالة TRUNC برقمين بعد الفاصلة (الجزء العشري) مع الدالة SUM بالمعادلة التالية:

    =TRUNC(SUM(A1:A614);2)
    وفي بعض الأجهزة
    =TRUNC(SUM(A1:A614),2)

    وستحصل بإذن الله على النتيجة التي تريدها...

    أخوك بن علية

  3. المشكلة فى الملف ان الناتج النهائى فى هذا الملف يزيد على الجمع بالالة الحاسبة بمقدار0.1 بمعنى ان قرش يزيد على الالة

    وهذا المشكلة غريبة حاولت بكل الطرق ولا اعرف لماذا يزيد والارقام صحيحة واجمعها بالالة صحيحة اما الاكسيل يزيد بقرش

    محتاج الاخوة للتفسير والحل

    1.rar

  4. المشكلة فى الملف ان الناتج النهائى فى هذا الملف يزيد على الجمع بالالة الحاسبة بمقدار0.1 بمعنى ان قرش يزيد على الالة

    وهذا المشكلة غريبة حاولت بكل الطرق ولا اعرف لماذا يزيد والارقام صحيحة واجمعها بالالة صحيحة اما الاكسيل يزيد بقرش

    محتاج الاخوة للتفسير والحل

  5. الاخوة الاساتذة الافاضل

    احد الاساتذة الاخوة الافاضل اهدانى هذا الكود

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

    Private Sub Worksheet_Change(ByVal Target As Range)
    i = 3
    [dx100] = 0
    For r = 2 To 63
    Application.ScreenUpdating = False
    [dx100] = [dx100] + 1
    [dx101] = ActiveSheet.Name
    Cells(i, r) = ActiveSheet.Name & "/" & [dx100]
    If Cells(i - 1, r).Value = [dx101] Then
    Cells(i, r).EntireColumn.Hidden = False
    Cells(i, r).ColumnWidth = 26
    r = r + 1
    Else
    Cells(i, r).EntireColumn.Hidden = True
    End If
    Next
    [dx100] = ""
    [dx101] = ""
    Application.ScreenUpdating = False
    
    End
    End Sub
    
    ;

    احترامى اخيكم

    ____.rar

×
×
  • اضف...

Important Information