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

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

  1. ابوبسمله

    ابوبسمله

    الخبراء


    • نقاط

      6

    • Posts

      918


  2. Barna

    Barna

    الخبراء


    • نقاط

      4

    • Posts

      959


  3. سليم حاصبيا

    سليم حاصبيا

    أوفيسنا


    • نقاط

      3

    • Posts

      8,723


  4. Ali Mohamed Ali

    Ali Mohamed Ali

    المشرفين السابقين


    • نقاط

      3

    • Posts

      11,621


Popular Content

Showing content with the highest reputation on 09 ينا, 2021 in all areas

  1. Between [ادخل تاريخ البداية] And [ادخل تاريخ النهاية]
    3 points
  2. وعليكم السلام ... يمكنك استخدام هذه المعادلة بالتنسيقات الشرطية =OR(AND(I5=$F5,I5<>""),AND(I5=$G5,I5<>"")) حساب.xlsx
    3 points
  3. وعليكم السلام 🙂 استخدم هذه الجزئية من الكود الذي عندك ، لأن الباقي مافي له داعي ، وهو الذي يبطئ العملية : Private Sub أمر43_Click() Dim LastValue As double ' Dim x As Long LastValue = Me.HNO ' x = Me.ID 'MsgBox x DoCmd.GoToRecord , , acNewRec ' DoCmd.RunCommand acCmdSaveRecord ' DoCmd.RunCommand acCmdRefresh Me.HNO = LastValue + 0.1 ' x = Me.ID ' Me.Requery ' Me.OrderBy = "HNO" 'MsgBox x ' DoCmd.FindRecord x, acAnywhere, , acSearchAll Me.nass.SetFocus End Sub . يعني هاي الاسطر فقط : Dim LastValue As Double LastValue = Me.HNO DoCmd.GoToRecord , , acNewRec Me.HNO = LastValue + 0.1 Me.nass.SetFocus جعفر
    2 points
  4. ربما يساعدك هذا الملف المعادلات المطلوبة في الأعمدة D و E (مخفية حفاظاً عليها من العيث بها عن طريق الحطأ) اكتب في الخلية (G1) حرف أو عدة جروف واضغط على سهم القائمة المنسدلة في الصفحة الأولى الاسماء حسب الحرف (الحروف) اينما وجدت في الصفحة الثانية (Salim) الاسماء حسب أول حرف(حروف) من الاسم عسى ان ينال الاعجاب harb_Drop.xlsx
    2 points
  5. السلام عليكم مشاركه مع اخوانى واساتذتى جزاهم الله خيرا انظر للاستعلام qry ان كان ما تريد اكمل باقى حقولك بالاستعلام واجعله مصدر التقرير بالتوفيق can (2).accdb اهلا بك اخى واستاذى العزيز وعودا حميدا فلم ارك منذ زمن نورت المنتدي ان شاء الله تكون بخير انت والاهل والاحباب
    2 points
  6. السلام عليكم ورحمة الله وبركاته أحمد شوقي ، من الأعضاء الفاعلين المتميزن في منتدنا العتيد، وقد امتاز برفع مجموعة كبيرة من الأمثلة الرائعة والمفيدة. أحببت هنا، حفاظا على تراث المنتدى أن ألخص لكم ما قدمه أخي شوقي المعطاء حتى الآن "مستخدما كلماته الجميلة" : 1. ( مراسلات ) يعني نظام محفوظات او الصادر والوارد او سميه زي ما انت عايز 2. ( مسج بوكس بتاع الاكسس ) يعني message box بس انت اختار نوع البوكس عايزه ايه ( ستوب - استعلام - تنبيه - باسوورد ....؟ ) وتختار العلامة وتكتب انت عايزيطلع معاك في البوكس 3. ((( مسير رواتب ))) لقيته من المخزن عندي مدفون وعدلت عليه شئ بسيط جدا ( يعني خلفية وشوية لوازم ) مع الاعتذار لصاحب الموضوع اللي انا مش عارفه بس انشاء الله ربي يجازيه خير 4. اجندة مواعيد ( خواجات ) وبشغلات حلوة اخليك انت تشوف وتحكم 5. اجندة مواعيد بالاكسس , حلوة جدا جدا وطريقة جديدة ومش حتصدق انها معمولة بالاكسس 6. ازاي تبعت ايميل بكشف درجات الطلبة او الطالب باستخدام الاكسس ( شغل خواجات ) 7. اقولك ايه ... طب بص على الازرار دي وقولي رايك ...... بالذمه مش حلوة 8. البرنامج اسمه ( المهن والحرف ) وهو خاص بتسجيل اعضاء في مؤسسة حرفيه ومهنية وفتح ملفات وظيفية لكل عضو وكمان عاملها الاستاذ ( كمال النحال ) اللي عامل البرنامج عاملها انترفيس حلو 9. البرنامج ده بتاع شغل الباراكود (( جامد )) عبارة عن ADDIN وبيديك خاصية التعامل مع الباراكود من خلال الاكسس 10. البرنامج ده بيصلح قاعدة البيانات بعد ما تنضرب ويرجع البيانات التالفة وينقذك بكل تأكيد من مأزق محقق 11. البرنامج ده عبارة عن برنامج تربوي تنظيمي للمدارس .... يعني بيخدم قطاع التعليم 12. الرشاقة .......... يعني ايه ؟؟؟؟ طيب ايه علاقة الاكسس بالرشاقة ......... بص وشوف واحكم انت بنفسك ؟؟؟؟ 13. الشامل للتقيم الاداري بالمؤسسات التعليمية, برنامج كامل ورائع بالاكسس يخدم المؤسسات التعليمية 14. المؤذن بالاكسس 15. المرفق عبارة عن سجلات منسقة على فورم ...... سهلة ......... لا لا استنى مش اي فورم 16. آه ..... ودي بقه قاعدة بيانات كاملة وحلوة وانيقة ( حركات الميكروسوفت ) لادارة المراكز التجارية بس بغير شكل .... جرب وشوف الحلاوة 17. اهو مثال اخر للساعات ........ بيديك توقيت مدن وعواصم في العالم 18. مثال حلو يارب يعجبكم عن كيفية النسخ ومكان النسخ وكيفية اجراء نسخ احتياطي للقاعدة .... ممكن ترفقه ببرنامجك وتسوي به حركات فنانة ومحترفة 19. بالاستعانة بخبرات الخبراء في منتدانا اوفيسينا ... ادامه الله استطعت ان البي رغبة صديقي ببناء قاعدة بيانات لجهة عمله ( المرافق والاسكان ) 20. بر نامج النهارده بيحولك قاعدة بياناتك لـ SQL 21. برنامج بالاكسس لصناعة ازرار احترافية للاكسس 22. برنامج محاسبة ثقيل اجنبي على الاكسس اسمة ( بيت البيانات DataHouse 4.2 ) مش بس كدة ده معاه المانوال بتاعوا او كتيب التعليمات 23. برنامج مسير رواتب - كلمة سر 123 24. برنامج يخدم اصحاب المصحات البرنامج ده بعمل ريبورت لحالات المرضى عن بنض القلب وضغط الدم وعمليتي ( السيستول والدياستول ) يعني ( الانقباض والانبساط القلبي ) 25. تحويل الملفات mde الى mdb 26. تعرف ترسم خريطة بالاكسس وادل على مكان ؟؟؟ خريطة جغرافية يعني ؟؟؟ ولا صعبة ولا حاجة 27. ثلاث برامج ( 3 ) لعمل رسائل الاكسس 28. جايبلكم كتاب حلو ...ز استفدت منه في بداية تعليمي للاكس ودلني عليه احد اخوتي في المنتدي ... الكتاب ده اسمه اكسل & اكسس بس تحفه ... خطوة بخطوة لغاية الاحتراف 29. حد منكم فكر يتجوز ؟؟؟؟؟؟؟ طيب ليه ما تحمل البرنامج بتاع شغل الاكسس ده وتتفرج وتشوف انت عايز ايه علشان تتجوز ؟؟؟؟؟ اوعوا تتخضوا 30. برنامج اكواد الاكسس ... كمان معمول بالاكسس حيديك ( الاكواد المستخدمة في النماذج - والاكواد المستخدمة في الجداول - والاكواد المستخدمة في التقارير والماكروات وكل شئ 31. صيانة قواعد البيانات المعطوبة وطريقة استخدامه بسيطة وسهلة للغاية 32. صيدلية ..... علشان الصيادلة ما يزعلوش ( كاملة ومفتوحة المصدر ومفيش باس وورد ولا حاجة ) 33. طب وعلى ذكر سيرة التعليم ... مرة لقيت برنامج كان عاملة الاستاذ حسام سفر .. طيب الله ذكره ... برنامج عن المعاهد وكل ما يختص بالمعاهد التدريبية او التعليمية ... يعني شؤون الطلبة ... شؤون ا 34. قاعدة بيانات اسلامية معمولة بالاكسس فيها طريقة العرض وطريقة البحث واشياء اخرى ممكن تكتشفوها وحدكم 35. قاعدة بيانات بالاكسس وواجهة استخدام حلوة لمصحة طبية اسمها ( مصحة مرحبا ) . يوجد بها خيارات عديدة تخدم الجانب المالي والجانب الوظيفي والرواتب ونسبة الطبيب من كل حالة كشف على مريض 36. قاعدة بيانات لجهة عمله ( المرافق والاسكان ) 37. قاعدة بيانات للمخالفات المرورية مش كبيرة ولا معقدة ........... بسيطة ... بس شاشتها حلوة ..... تنسيقها جميل 38. قاعدة بيانات للموظفين 39. قاعدة بيانات لمعظم الادوية المصرية 2008 40. كل كوم ولما تعرف امكانية اكسس في عمل صفحات انترنت .... وموقع كامل معمول بالاكسس ... ده هو اللي مش معقول 41. كمان برنامج الميزان للمحاسبة التجارية والميزانية العمومية شجرة الحسابات الرائعة و........ البرنامج كامل من كله ومفتوح المصدر يعني ( بالسورس كود ) جميل وقوي وبدون اي حماية 42. مثال اخر حلو برضة عن كيفية تغيير الخط واختيار اللون ونوع الخط .......... ممكن تستفيد منه باضافة الخاصية الى برامجك 43. مثال عن الجمعيات التعاونية قاعدة البيانات مقسمة الى قسمين ( واجهة استخدام + قاعدة بيانات لتخزين البيانات ) 44. مثال يشمل استخدامات عديدة للميكرو 45. محاسبة لمكتب تدريبي ( بيدي دورات في الحاسب الالي واللغات ..... ومش عارف ايه ) 46. برنامج مخازن 47. ننظام محاسبي حلو .... طريقة تقسيم قاعدة البيانات الى قسمين ... واجهة هيكلية لادخال البيانات و قاعدة بيانات لاستيعاب البيانات ... حلووووو جدا 48. نظام مخازن ومبيعات وعملاء ومحاسبة تكاليف ومشتريات كلمة السر 11796376 49. هو برنامج كامل لمحلات الحلويات ( زبائن وحلويات وفواتير وموظفين ومبيعات ومشتريات ومردود مبيعات وطلبيات واحصائيات وتقارير ..... حلو طبعا مفتوح المصدر 50. وده بيديك معلومات عن الهارد ديسك بتاعك 51. وده مثال اجنبي عن كيفية اجراء النسخ الاحتياطي لقاعدة البيانات ... المثال لقاعدة بيانات زبائن وبضائع بالصور 52. وده مثال حلو لامكانية تكيبر الصورة وتصغيرها .... ابداعات في الاكسس ملهاش حدود 53. ودي ...... ايوه ..... دي اله حاسبة .... بش مش زي الة حاسبة ثانية ... دي الة حاسبة للمعادلات الكيميائية .... يعني مركبات كيميائية واوزان جزيئية و... بلاوي زرق في الكيمياء 54. ودي قاعدة بيانات للخدمات الطبية للاخ اكسس من منتدانا ..... يعطيه العافية 55. يا سلام يا شباب ..... الباحث في القرآن بالاكسس ولمن عنده داون لوود سريع اقدم هذا الرابط من مخزني لديوان الشوقيات الذي يشمل (55) المثال المذكورة أعلاه بحجم مضغوط 50 ميجا بايت وبعد فك الضغط تصبح 176 ميجا بايت. أسأل الله أن يكتب لشوقي بكل حرف كتبه أو رفعه الأجر. إضغط هنا لإنزال الشوقيات ولمحبي شوقي اقدم هديتي لكم ، هذا البرنامج وهو عبارة عن فهرس لموضوعاته حيث يوضع المجلد السابق بعد فك الضغط عنه في الدليل الرئيس \:c ويوضع فهرس الشوقيات التالي في سطح المكتب ويصبح بذلك عندك أداة للوصول السريع للشوقيات. Ahmad_Shouqi.zip مع وافر الاحترام والتقدير
    1 point
  7. السلام عليكم، لو اردنا ان نقوم بحفظ السجلات المحددة في النموذج الفرعي سنلجئ لعمل CheckBox في الجدول ومن ثم نقوم بعمل استعلام يقوم بفلترة جميع الـ Checkbox التي تكون قيمتها True ومن ثم نقوم بحفظها. لكن! ماذا لو كانت قاعدة البيانات تعمل بنظام الشبكة ( Multi Users ) اذا قام المستخدم رقم 1 بوضع علامة صح على مثلا مادة ( برتقال ) وقام المستخدم رقم 2 بوضع علامة صح على مثلا مادة ( رمان ) عندما يضغط اي مستخدم على حفظ البيانات فـ ستحفظ البيانات وتكون النتيجة خاطئة لان البيانات ليست هي المطلوبة انا اخترت ( برتقال ) فأتتني النتيجة ( برتقال + رمان ) وكذا بالنسبة للمستخدم الثاني والثالث وغيرهم، ممن يعملون على قاعدة البيانات بوقت واحد، صراحة واجهتني هالمشكلة لكن وجدت الحل لها كما انني رأيت موضوع للأخ ابا جودي يتكلم عن هذه المشكلة ارفقت لكم طريقة مختلفة في تحديد السجلات وهي الضغط على مُحدد السجلات للأمانة الطريقة ليست كلها من برمجتي الحقوق لـ arnelgp انا فقط قم اضافة وتعديل بعض الامور البسيطة تحياتي لكم RecordSelectorClick.accdb
    1 point
  8. If IsNull(date1)then MsgBox "من فضلك ادخل التاريخ" else If IsNull(nam2)then MsgBox "من فضلك ادخل اسم الفرع" end if end if أرجوا أن يكون المطلوب
    1 point
  9. ممكن تزودنا بمرفق مصغر لما تريد ....
    1 point
  10. كان عليك لزاماً استخدام خاصية البحث بالمنتدى فطلبك تكرر كثيرا - تفضل لماذا الاكسل تختفي منه الاكواد عند نقله لبرنامج اكسل في جهاز اخر؟
    1 point
  11. وعليكم السلام هل هذا ما تريد ؟ Aziz.rar
    1 point
  12. جرب هذه الملف ويمكن التعديل عليه ليتناسب مع ملفك Option Explicit Dim lr% Const How_many = 10 Dim Sh As Worksheet Dim i%, k%, x '+++++++++++++++++++++++++++++++ Sub Begining() Set Sh = Sheets("Sheet1") lr = Sh.Cells(Rows.Count, 1).End(3).Row End Sub '++++++++++++++++++++++++++++++++++++ Private Sub CommandButton1_Click() Begining Dim t: t = 1 If lr < How_many + 1 Then Exit Sub x = lr - How_many + 1 With Me.ListBox1 .Clear .AddItem .List(.ListCount - 1, 0) = "Count" .List(.ListCount - 1, 1) = Sh.Cells(1, 1) .List(.ListCount - 1, 2) = Sh.Cells(1, 2) .List(.ListCount - 1, 3) = Sh.Cells(1, 3) For k = x To lr .AddItem .List(.ListCount - 1, 0) = t t = t + 1 For i = 1 To .ColumnCount - 1 .List(.ListCount - 1, i) = _ Sh.Cells(k, i) Next i Next k End With End Sub '+++++++++++++++++++++++++++++++ Private Sub UserForm_Initialize() Begining With Me.ListBox1 .AddItem .List(.ListCount - 1, 0) = "Count" .List(.ListCount - 1, 1) = Sh.Cells(1, 1) .List(.ListCount - 1, 2) = Sh.Cells(1, 2) .List(.ListCount - 1, 3) = Sh.Cells(1, 3) For k = 2 To lr .AddItem .List(.ListCount - 1, 0) = k - 1 For i = 1 To .ColumnCount - 1 .List(.ListCount - 1, i) = _ Sh.Cells(k, i) Next i Next k End With Me.CommandButton1.Caption = _ "Laste " & How_many End Sub Laste_10.xlsm
    1 point
  13. وهذا الشيء لوكانت البيانات اقل من 10 Private Sub UserForm_Initialize() Dim lr1, lr Dim lr2 Dim i, k ListBox1.ColumnCount = 3 lr = Cells(Rows.Count, 2).End(3).Row If lr < 9 Then MsgBox "البيانات اقل من10": Exit Sub lr1 = Cells(Rows.Count, 2).End(3).Row - 10 lr2 = Cells(Rows.Count, 2).End(3).Row k = 0 For i = lr1 To lr2 ListBox1.AddItem ListBox1.List(k, 0) = Cells(i, 1).Value ListBox1.List(k, 1) = Cells(i, 2).Value ListBox1.List(k, 2) = Cells(i, 3).Value k = k + 1 Next i End Sub
    1 point
  14. ضع هذا الشيء في حدث الفورم Private Sub UserForm_Initialize() Dim lr1 Dim lr2 Dim i, k ListBox1.ColumnCount = 3 lr1 = Cells(Rows.Count, 2).End(3).Row - 10 lr2 = Cells(Rows.Count, 2).End(3).Row k = 0 For i = lr1 To lr2 ListBox1.AddItem ListBox1.List(k, 0) = Cells(i, 1).Value ListBox1.List(k, 1) = Cells(i, 2).Value ListBox1.List(k, 2) = Cells(i, 3).Value k = k + 1 Next i End Sub
    1 point
  15. رائع اخى واستاذى @محمد أبوعبدالله جزاك الله خيرا وهذا الموضوع شبه المطلوب ولكن للاشهر لاخى واستاذى @ابو تراب جزاه الله خيرا والتعديل ليتناسب مع طلب الموضوع Private Sub btnGenerate_Click() Dim rs As DAO.Recordset Dim fromDate As Date Dim toDate As Date Set rs = CurrentDb.OpenRecordset("table1") While Not rs.EOF fromDate = rs("DAT") rs.MoveNext If Not rs.EOF Then toDate = rs("DAT") addMissingMonths fromDate, toDate End If Wend End Sub Public Sub addMissingMonths(ByVal fromDate As Date, ByVal toDate As Date) Dim missingDate As Date Dim missingMonths As Integer Dim i As Integer missingMonths = DateDiff("d", fromDate, toDate) - 1 ' missingMonths = DateDiff("m", fromDate, toDate) - 1 For i = 1 To missingMonths missingDate = DateAdd("d", i, fromDate) ' missingDate = DateAdd("m", i, fromDate) Me.lstMissingMonths.AddItem missingDate DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO Table1 ( DAT ) values (" & Format(missingDate, "\#mm\/dd\/yyyy\#") & ");" DoCmd.SetWarnings True Next End Sub يالتوفيق اخوانى
    1 point
  16. شكرا أستاذي الفاضل المحترم قمت بتنفيذ ( " تم ترحيل بيانات العميل الذي تم اختياره إلى صفحة الطباعة Print ثم يتم تنفيذ كود الطباعة " ) عند الضغط على الزر الخاص بالطباعة باقي ربط الخلية الخلية D3 في الشيت Data بالقيمة الموجودة في Textbox1 الموجود على الفورم . عموما بارك الله في حضرتك وإن شاء الله أقوم بعمل موضوع جديد أطلب فيه ما هو باق .
    1 point
  17. وفيك بارك الله اخى واستاذى العزيز الشكرلله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير اللهم آمين واياكم بالتوفيق
    1 point
  18. اخي الكريم كان عليك طلب هذا منذ المشاركة الاولى عليك بطلب جديد في مشاركة جديدة ولكن حاول اختصار طلبك في فورم نظيف بدون مشاكل. تحياتي
    1 point
  19. ممكن اخوي أن تقوم بتغيير اتجاه الورقه.. إلى العرض
    1 point
  20. جزاك الله خيرا اخى الحبيب تمام هذا ما اريده
    1 point
  21. سلسلة تعليم بور كويري الجزء الثالث أنواع البيانات في البور كويري Data types explained في الفيديو دة تقدر تتعرف على أنواع البيانات داخل البور كويري https://www.youtube.com/watch?v=Q4HDzz9DfgA 02_01_DataTypes.xlsx
    1 point
  22. ا احمد الفلاحجي الف شكر ربنا يجعله في ميزان حسناتك كده كل شئ تمام
    1 point
  23. السلام عليكم لاعادة ترتيب الارقام استخدم نفس الكود بالاضافة الى الكود التالي mySQL = "Select * From [مسند] Order By HNO" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst CurrentDb.Execute "UPDATE [مسند] SET [مسند].HNO = Null" For i = 1 To rst.RecordCount rst.Edit rst!HNO = i rst.Update rst.MoveNext Next Me.Requery مسند.rar تحياتي
    1 point
  24. السلام عليكم تفضل اخي الكريم On Error GoTo Err: '1 '=================================================== mySQL = "Select * From Table1" Set rst = CurrentDb.OpenRecordset(mySQL) '=================================================== '2 rst.MoveLast rstMax = rst!DAT.Value rst.MoveFirst rstMin = rst!DAT.Value rstDate = rstMin rstTemp = rstMin rst.MoveNext '=================================================== '3 While rst.EOF = False And rstTemp < rstMax rstTemp = rst!DAT.Value XNew = DateAdd("d", 1, rstDate) Do While DateDiff("d", XNew, rstTemp) >= 1 And XNew < rstMax rst.AddNew rst!DAT.Value = XNew rst.Update XNew = DateAdd("d", 1, XNew) Debug.Print XNew Loop rstDate = rstTemp rst.MoveNext Wend MsgBox "تم اضافة التواريخ المفقودة بنجاح", vbInformation, "Officena" '=================================================== Err: MsgBox "لا توجد بيانات في الجدول", vbInformation, "Officena" New Microsoft Access Database (2).rar تحياتي وهذه نفس الطريقة ولكن لاضافة التواريخ المفقودة في جدول منفصل On Error GoTo Err: '1 '=================================================== mySQL = "Select * From Table1" Set rst = CurrentDb.OpenRecordset(mySQL) mySQL3 = "Select * From Tablel3" Set rst3 = CurrentDb.OpenRecordset(mySQL3) '=================================================== '2 rst.MoveLast rstMax = rst!DAT.Value rst.MoveFirst rstMin = rst!DAT.Value rstDate = rstMin rstTemp = rstMin rst.MoveNext '=================================================== '3 While rst.EOF = False And rstTemp < rstMax rstTemp = rst!DAT.Value XNew = DateAdd("d", 1, rstDate) Do While DateDiff("d", XNew, rstTemp) >= 1 And XNew < rstMax rst3.AddNew rst3!DAT.Value = XNew rst3.Update XNew = DateAdd("d", 1, XNew) Debug.Print XNew Loop rstDate = rstTemp rst.MoveNext Wend MsgBox "تم اضافة التواريخ المفقودة بنجاح", vbInformation, "Officena" '=================================================== Err: MsgBox "لا توجد بيانات في الجدول", vbInformation, "Officena" New Microsoft Access Database (2).rar تحياتي
    1 point
  25. اخي الكريم كلما زادت الاعمدة قلت الهوامش وستصغر احجام الاعمدة لقد حاولت كثيرا حتى وصلت الى 58% لا ادري اذا كان هناك طريقة اخرى ولكن ان اردت ان تظهر بوضوح عليك سحب البيانات بشكل افقي من اعدادات هوامش الصفحة مثال.xlsx
    1 point
  26. السلام عليكم ورحمة الله وبركاته مثال.xlsx
    1 point
  27. وعليكم السلام-تفضل كل هذه برامج مهمة جداً وستفيدك مخازن وبيع.xls 1067967013_.xls.xlsx sales المشتريات و المبيعات.xls
    1 point
  28. رجاء ارفاق مرفق لأننا يجب ان نعمل تجارب ، فالافضل عمله على واقع المشكلة 🙂 جعفر
    1 point
  29. ايه المشكله فى الموضوع الاخر الذى تمت الاجابه عليه ؟ برجاء التوضيح اكتر حتى تجد ما تريد ويرجى اضافه مثال لما تريد افضل
    1 point
  30. وهذه طرق اخرى يمكن الاستفادة منها ضع الصيغة في العمود f =IF(E4<0;E4*-1;E4) وهذه طريقة اخرى ضعها في خيار المخصص ضمن خيارات التنسيق اذا اردت التطبيق على الارقام في نفس العمود حدد العمود وطبق عليها
    1 point
  31. يمكنك تعديل الأمر من printout إلى printpreview واذا كنت لا تريد إخفاء اليوزرفورم يمكنك حذف امر إخفاء الفورم انا لست خبير فى الvba ولكن هذا الأمر مر على قبل ذلك وتم معالجته بما قولته لحضرتك بالتوفيق.
    1 point
  32. السلام عليكم ورحمة الله وبركاته فكرة بسيطة .. تم استخدام معادلة Vlookup .. واستخدام الرموز .. اكتب في الخلية A2 .. النتيجة تظهر في الخلية D2 .. ممكن ان تطبقها في الملف الخاص بك .. اتمنى ان تعجبك .. clock.xlsm
    1 point
  33. كل الشكر والتقدير لاخوانى الكرام واساتذتى على مشاعركم الطيبة تنويه بسيط .. تم التعديل على المرفق بحذف سطرين كنت قد نسيت ازالتهما اناا جدا اسف ☺️ كما تم تفعيل هاى لايت عند التأشير باختيار السجل على كامل السجل كنت قد نسيت ايضا تفعيله محدش يزعق انا عرفت غلطى
    1 point
  34. انا مكنتش فاهم انك تريد بدء الجمع من بداية 2020 هاهاهاهاهاهاهاهاهاهاهاا معلش صعيدى تسلم ايدك استاذ @husamwahab
    1 point
  35. نعم ... اسف جدا جدا لنسياني كلمة السر ( للمستخدم : admin ... كلمة السر 1234 ) اما المستخدم الثاني ( khalid فكلمة السر 1837 ) يمكنك الدخول بالمستخدم admin يعني مسؤول واضافة وتعديل المستخدمين فللمسؤول كافة الصلاحيات ... اما المستخدم الثاني فصلاحياته محدودة .... وللعلم فان البرنامج غير محمي ويمكنك الدخول الى القاعدة وتعديل كلمات السر وما الى غير ذلك بالضغط على الزر شيفت اثناء تحميل البرنامج كما هو معروف ومن ثم التعديل على الجداول والفورمز ....... اتمنى لك الاستفادة الكاملة .......... ونحن في خدمة منتدانا ورواده ان شاء الله
    1 point
×
×
  • اضف...

Important Information