اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

نجوم المشاركات

  1. Eng.Qassim

    Eng.Qassim

    الخبراء


    • نقاط

      3

    • Posts

      2383


  2. Ezril

    Ezril

    03 عضو مميز


    • نقاط

      2

    • Posts

      149


  3. kkhalifa1960

    kkhalifa1960

    الخبراء


    • نقاط

      2

    • Posts

      2024


  4. طاهر الوليدي

    طاهر الوليدي

    04 عضو فضي


    • نقاط

      2

    • Posts

      781


Popular Content

Showing content with the highest reputation on 04/03/23 in all areas

  1. مرفق الحل . طبقا للتسعير بطريقة الوارد اولا يصرف اولا ورقة.xlsx
    2 points
  2. حياك الله ياغالي للاسف يجب ان يكون لديك وسيط لكي تستخدم رسيل sms شركة معينة لكي تربط بها برنامج عن طريق الapi وفي شركات كثيرة وكل شركة اكوادها تختلف عن الثانية وهذا مثال
    2 points
  3. عمل جميل استاذ @عبد اللطيف سلوم...جزاك الله خيرا الكثير من الاخوة يحتاجون لمثل هذا العمل ..جعله الله في ميزان حسناتك لي تعديل جدا بسيط ..ان سمحت لي ..الافضل ان يكون كشف الحساب يظهر من زر (كشف الحساب ).. ولايكون في صفحة تسجيل العملاء استميحك عذرا ان عدلت على برنامجك.. القروض والديون.rar
    2 points
  4. اهداء الى كبيرنا استاذ جعفر برنامج للتطوير بتحديث سيط 1- تحويل الكل بضغطة زر الى صور مع زر فقط هذه الصفح الى صوره 2-عرض للطباعة او اعادة الدمج تم استعراض الاصدار السابق كيف دمج البرامج فقط اما تحديث القادم بعد برامج اخرى ومن قال لا يمكن! يعمل بدقة شاشة 1920HD مفتوح المصدر واذا كان لديك بتعديل اي من البرامج المرفق عدله تحميل برابط مباشر وسريع ميديا فير https://www.mediafire.com/file/7l6psnywnpg5e0d/XPDF-Ezril_V2.0.0.X.rar/file Ezril في اعتقادي ، مشاركة أكثر من شخص في الرد على السؤال ، يفتق الاذهان ويدمج التجارب ويبلور الافكار وفائدة للجميع ، فمنه نتعلم الطرق الاخرى للإجابة على السؤال لعرض الطباعة مع
    1 point
  5. وكمان هذا الرابط https://www.dz-techs.com/ways-to-send-check-sms-messages-from-pc/
    1 point
  6. ويوجد محاولة عن طريق ربط الجوال بالابتوب ومن خلال ذلك يمكن تطوير اكواد تقوم بارسال رسائل مباشره من الابتوب sms بدون وسيط وكمان يوجد لابتوبات تركب فيه رقم جوال حسب ما افادنا https://support.microsoft.com/ar-sa/topic/إرسال-رسائل-نصية-وتلقيها-من-جهاز-الكمبيوتر-43189e43-8121-35f6-7930-db095bf938a4
    1 point
  7. دينامو الاكسيس استاذ موسى أكن لك كل الاحترام لمجهودك الملحوظ ومساعدتك للجميع واخلاصك فى إيجاد حلول تساهم فى انتهاء المبرمجين من أعمالهم بصورة مرضية ولا انسى الشكر لجميع الخبراء والاعضاء والقائمين على إبقاء منتدى اوفيسنا هو الافضل على مستوى العالم العربى من حيث العلم والتعليم واحترام الجميع @للجميع وكل عام وحضرتك بخير
    1 point
  8. جزاك الله خيرا اخي دمت كما تحب
    1 point
  9. وعليكم السلام ورحمة الله وبركاته 🙂 تفضل أخي عمر : enable.accdb
    1 point
  10. وعليكم السلام ورحمة الله وبركاتة اخي لما ذا لا تستخدم اله البحث .. فهذا الموضوع مكرر كثيراً انظر https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=53809 ايضاً https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=51564 ايضاً https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=63802
    1 point
  11. اذا كان هذا طلبك لا تنسى الضغط على أفضل اجابة .
    1 point
  12. فقط كررها مع اضافة شرط ثان وهو الجنس .... sifa: IIf([sin]>=20 And [jins]="ذكر";"قائد";IIf([sin]>=18 And [jins]="ذكر";"جوال";IIf([sin]>=15 And [jins]="ذكر";"كشاف متقدم";IIf([sin]>=11 And [jins]="ذكر";"كشاف";IIf([sin]>=6 And [jins]="ذكر";"شبل";IIf([sin]>=20 And [jins]="انثى";"قائده";IIf([sin]>=18 And [jins]="انثى";"جواله";IIf([sin]>=15 And [jins]="انثى";"مرشدة متقدمة";IIf([sin]>=11 And [jins]="انثى";"مرشدة";IIf([sin]>=6 And [jins]="انثى";"زهرة")))))))))) انظر المرفق لتفهم مقصودي ........ sma - Copie.accdb
    1 point
  13. وعليكم السلام .. السبب ..انك لم تضع تاريخ الميلاد لكي يقرأه الكود Gestion.rar
    1 point
  14. السلام عليكم أخي العزيز يبدو انني استخدمت خاصية في 2010 ليست موجودة في 2003 عدل تلك الكود كله إلي Sub PV_Table() LR = [A60000].End(xlUp).Row Range("K3:IV" & LR).Select Selection.FillDown [A1:J1].Select Range(Selection, Selection.End(xlDown)).Select ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "Sheet1!R1C1:R" & LR & "C10").CreatePivotTable TableDestination:="R4C11", TableName:="PivotTable1" With ActiveSheet.PivotTables("PivotTable1") .PivotFields("كود الصنف").Orientation = xlColumnField .PivotFields("كود الصنف").Position = 1 .PivotFields("كود الصنف").PivotItems("(blank)").Visible = False .AddDataField ActiveSheet.PivotTables("PivotTable1").PivotFields("الكمية بالكجم"), "Count of الكمية بالكجم", xlCount End With With ActiveSheet.PivotTables("PivotTable1").PivotFields("Count of الكمية بالكجم") .Caption = "Sum of الكمية بالكجم" .Function = xlSum .NumberFormat = "#,##0" End With ActiveWorkbook.ShowPivotTableFieldList = False Range([J3], [J3].End(xlToRight)).EntireColumn.AutoFit [J3].Select End Sub
    1 point
×
×
  • اضف...

Important Information