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

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

  1. ابو جودي

    ابو جودي

    أوفيسنا


    • نقاط

      14

    • Posts

      6,503


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

    سليم حاصبيا

    أوفيسنا


    • نقاط

      9

    • Posts

      8,723


  3. jjafferr

    jjafferr

    أوفيسنا


    • نقاط

      7

    • Posts

      9,724


  4. qathi

    qathi

    04 عضو فضي


    • نقاط

      7

    • Posts

      954


Popular Content

Showing content with the highest reputation on 05 نوف, 2019 in all areas

  1. تسلم اخي جعفر وهذا حسب طلب الاخ محمد صلاح MP3_WAV_Player_SEMO_Pa3x(3).accdb
    3 points
  2. وانا فرحت لما شاهدت الاعجاب حدثتنى نفسى انك قمت بالتجربة ونالت رضاكم
    2 points
  3. انا اعتمد علي تلك الطريقة وتعمل معي بكل سهولة والطريقة ناجحة بدون المديول
    2 points
  4. أخي @بلال اليامين تفضل قمت بأنشاء ملف تابع الشرح الموجود بالصور مرفق ملف : IconsQ.rar
    2 points
  5. لا لزوم للكود في هذه الحالة تكفي هذه المعادلة ( في الخلية C2 و تسحب نزولاً) =SUMPRODUCT((الديون!$C$6:$C$100=$B2)*(الديون!$E$6:$E$100-الديون!$G$6:$G$100))
    2 points
  6. السلام عليكم باستعمال معادلة (طويلة نوعا ما) تم عمل المطلوب... يمكن تبسيط الحل باستعمال الأكواد (وأترك هذا للإخوة الكرام). بن علية حاجي Bulding.xlsm
    2 points
  7. عليك السلام ورحمة الله وبركاته تم الحل بعمل دالة معرفة فتكون المعادلة هكذا =الشقق(C4:S4) Bulding.xlsm
    2 points
  8. بعد اذن الاخ حسين 1-هذا الكود يضيف لك Hypperlink من كل صفحة (في الخلية F1) الى الصفحة الرئيسية SALIM 2-في حال تكرار الاسم الماكرو يتجاهل هذا الامر (دون رسالة خطأ) 3-كما يضيف لك حرية الانتقال الى الصفحة التي تريد من خلال الضغط على الاسم الذي تحتة خط في الصفحة SALIM 4-كل ما عليك هو تغيير اسم الشيت الاولى الى SALIM لحسن نسخ الكود ولصقة دون ظهور احرف و كلمات غير مفهومة في الكود Option Explicit Sub ADD_SH_with_Hyper() 'code to add Sheets One Time WITH HYPERLINKS 'Crated By Salim Hasbaya On 5/11/2019 Dim Rg As Range Dim sh As Worksheet Dim LA%, K%, i%, m%: m = 2 Dim x Dim ws As Worksheet Set sh = Sheets("SALIM") Application.ScreenUpdating = False Application.DisplayAlerts = False For Each ws In Sheets If ws.Name <> "SALIM" Then ws.Delete End If Next Application.DisplayAlerts = True LA = sh.Cells(Rows.Count, 1).End(3).Row For Each Rg In sh.Range("A2:A" & LA) If Rg.Value <> "" Then If Not Application.Evaluate("ISREF('" & Rg.Value & "'!A1)") Then Sheets.Add(after:=Sheets(Sheets.Count)).Name = Rg.Value With ActiveSheet .Hyperlinks.Add Anchor:=.Range("F1"), Address:="", SubAddress:= _ "SALIM!A1", TextToDisplay:="Goto SALIM" For K = 2 To LA If sh.Range("A" & K) = .Name Then .Cells(m, 2) = sh.Range("B" & K) m = m + 1 End If Next K m = 2 .Cells(1, 2) = .Name .Range("B:B,F:F").EntireColumn.AutoFit End With End If End If Next Rg With Sheets("SALIM") .Hyperlinks.Delete For i = 2 To LA x = Application.CountIf(sh.Range("A2:A" & i), sh.Range("A" & i)) If x = 1 Then .Hyperlinks.Add Anchor:=.Range("A" & i), Address:="", SubAddress:= _ "'" & .Range("A" & i) & "'!A1", TextToDisplay:=.Range("A" & i).Value Else sh.Range("A" & i).Font.Underline = False End If Next .Select Application.ScreenUpdating = True End With End Sub الملف مرفق للتجربة Create_sheet_with Hyperlink.xlsm
    2 points
  9. أهلا وسهلا ومرحبا بمعلمنا الجليل جعفر نورت المشاركة نحن بانتظار ملاحظات سيادتكم بفارغ الصبر . ويعلم الله أن لكم معزة خاصة ودائما أتعلم من ردودك المتميزة .
    2 points
  10. رحم الله والديك ، سهلت علينا الطريق هلا والله أبوآمنة 🙂 اشوف واخبرك ، بس للعلم ، انا ملاحظاتي مو اللي تجي على بالك جعفر
    2 points
  11. السلام عليكم ورحمة الله تفضل الحل بمعادلة في الملف المرفق... new (1).xlsx
    2 points
  12. كلمة المرور:123 لم اهتم بذكرها لأنها متعارف عليها لدى المبرمجين . والبرنامج مفتوح المصدر وقد ذكرتها في الاصدار الأول . أما كلمة المرور الخاصة بالتعديل على الفواتير السابقة هي : 123456 أيضا واضحة في الكود ولم أقم بالتشفير . وبالتوفيق وشكرا لك معلمنا ابا جودى قد شرفت مشاركتنا فلك منا كل الاحترام والتقدير والمحبة .
    2 points
  13. وأخيرا ولله الحمد تم التوصل للنتيجة المطلوبة بفضل الله تعالى ثم ارشادات وتوجيهات معلمى القدير واستاذى الجليل واخى الجبيب الاستاذ @AlwaZeeR أخبرنى انه يمكن تثبيت والتحكم فى هوامش التقارير برمجيا وبحثت عن ذلك ووجدت الأكواد جزاكم الله حيرا استاذى واللهم اسأل ان يفرج عنك كربات الدنيا والآخرة كما فرجت عنى كربى ----------------------------------- كما اننى أدين كذلك بكل الفضل لاستاذى الجليل ومعلمى القدير ووالدى الحبيب الاستاذ @jjafferr لتصحيحه ما وقعت به من خطأ وبفضل الله تعالى ثم فضلكم الذى سوف اظل ادين به لكم ما حييت تم حل مشكلتى وتدارك ما وقعت به من خطأ بارك الله تعالى لكم فى العمر والعلم والاهل والولد ورزقكم من طيبات الدنيا وطيبات اعلى درجات الجنان ان شاء الله تعالى ولتعم الفائدة اضع المرفق ليكون مرجعا لمن يتعثر فيما تعثرت فيه Consumable Material Check List.accdb
    2 points
  14. الف مليون مرحب ربنا يزيد يبارك الف الف مبروك بهم اعانهم الله تحياتي
    2 points
  15. تفضل اخوي ابو ياسين ، فالموضوع تابع للسؤال 🙂 وشكرا لك على مراعاة قوانين المنتدى 🙂 جعفر
    2 points
  16. السلام عليكم امتداداً لتطويرات برنامج الخليل المحاسبي يسرني أهدي لكم الإصدار الثاني مع تعديلات وإضافات جميلة كما أشكر أستاذي الفاضل @sandanet لقد استفدت من طريقته في الحماية حسب مشاركته القيمة : اترك لكم البرنامج . وآملاً أن اتلقى ملاحظاتكم القيمة بعد استخدام البرنامج . تقبلوا فائق المحبة والتقدير BuySal20_V14.accdb BuySal20_V14.accdb.mdb.zip
    1 point
  17. الحمدلله انه طلع المطلوب كل اعضاء المنتدى على راسي منفوق مازلنا نتعلم وبالتوفيق اخي ابو زاهر
    1 point
  18. ممتاز بارك الله فيك استاذي ابو ياسين والشكر موصول لتاج الراس استاذي ابو عبدالله لم تتضح له الفكره لاتزعل يابو ياسين ههههههههه كلكم تاج راسي الله يعطيكم العافيه
    1 point
  19. بعد اذن اخي ابو عبدالله اتفضل هذا طلبك Set rs = CurrentDb.OpenRecordset("SELECT * FROM Alsnaf WHERE ID_Sanf ='" & Me.txt_2 & "'" & _ "or A2='" & Me.txt_2 & "'") If rs.RecordCount > 0 Then ID_Sanf = rs!ID_Sanf Sanf = rs!Sanf A2 = rs!A2 Else MsgBox "لايوجد رقم" 'Rajmsanf = "" Sanf.SetFocus txt_2.SetFocus ID_Sanf = Null Sanf = Null A2 = Null End If
    1 point
  20. دورة اكسس للمبتدئين تابعوا الشرح على هذا الرابط
    1 point
  21. تفضل اخي الكريم مثال.rar تحياتي
    1 point
  22. وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Me.m1 = DLookUp("Almwka","Alsnaf","[ID_Sanf]=" & Me.ID_Sanf & " AND [Criteria2]='" & Me.Text2 & "'") مع تغيير ما يلزم تحياتي
    1 point
  23. تحياتي الخالصة، تم التعديل على تنسيق الخلية من التنسيق : [$-,201]yyyy/mm/dd;@ إلى التنسيق: [$-,201]yyyy/mm/dd;;0 أرجو أني فهمت ما تريد ووفقت في الإجابة.... بن علية حاجي حسابالجودة2019.xlsx
    1 point
  24. تذكرت فورا بمجرد قراءة مشاركتك أستاذى الجليل ومعلمى القدير ومن وقت ان اشرتم على بعدم استخدام الاحرف العربية داخل المحرر لم ولن استخدمها ان شاء الله
    1 point
  25. هلا والله 🙂 يعني لازلت تذكر 🙂 جعفر
    1 point
  26. نعم تم غلق النسخة ولم يظهر امر الدخول
    1 point
  27. بدون ملف مرفق من الصعب التكهن لكن ربما يفيدك هذا المثال tones.xlsx
    1 point
  28. بشر نفسك انت انت من تريد تلك الحمايه
    1 point
  29. أستاذي @ابا جودى وأستاذي @sandanet أبشركم بما يسركم .. قبل وبعد الفرمات ظهر الرقم نفسة حتى يتضح ماقمت توضيح الخطوات: - التجربة قبل وبعد فصل الشبكة ظهر نفس الرقم - التجربة بعد أعادة تشغيل .. قبل وبعد فصل الشبكة ظهر نفس الرقم - التجربة بعد الفرمات .. قبل وبعد فصل الشبكة ظهر نفس الرقم - النظام قبل الفرمات ويندوز 10 - 64Bit أوفس 2016 32Bit - النظام بعد الفرمات ويندوز 7 - 32Bit أوفس 2016 32Bit
    1 point
  30. وعليكم السلام 🙂 اذا OLE ، اذن لا توجد لغة صحيحة بها UNICODE 🙂 جعفر
    1 point
  31. صدقت أستاذي @ابا جودى وأنت الصادق أنا أقصد المساعدة في حل المشكلة .. بارك الله فيك
    1 point
  32. فعلا والله انا لا اعلم ويعلم الله تعالى اننى لا اخفى علما علمنيه ربي سبحانه وتعالى فقط قمت بعمل قاعدة جديدة ولكن بتنسيق 2002-2003 وقمت باعادة التصميم مرة اخرى حتى لم اقم باستيراد الكائنات ربما اختلاف المكتبات كان له اثر فى شئ والله اعلم
    1 point
  33. أخي @محمد سلامة شكرا على التاكيد .. يبدو عندي برنامج واحد الذي لا يعمل ألا بوجود هذا المديول وماعداة يعمل بشكل طبيعي .. قد أكون أخطاءت في أمر ما .. سأراجع ذلك
    1 point
  34. أستاذي @ابا جودى ملفك يعمل تمام .. لكن ممكن أفهم سبب الرسالة .. لانها تظهر عند فتح ملفات أخرى ؟؟؟
    1 point
  35. عيوني لك ياغالي 🌺🌺 بس للأسف ليس لدي شبكة داخلية حالياً في العمل حتي استطيع التجربة
    1 point
  36. دائما اعمل هذه الطريقة في برامجي جربت والطريقة ناجحه
    1 point
  37. أخي kaser906 قمت بتجربة ذلك من قبل ولم تنفع .. جرب بنفسك
    1 point
  38. الظاهر انني نسيت ان اخبرك انها تعمل عندي اوفيس 365
    1 point
  39. وهذا في حدث الشيت ان كان اليبل والتيكست بوكس على صفحة العمل Private Sub Worksheet_Activate() If Label1.Caption = "" Then TextBox1.Visible = False Else TextBox1.Visible = True End If End Sub
    1 point
  40. العفو منكم اخى الحبيب واحبكم الله تعالى الذى احببتمونا فيه ولأجل وجهه للعلم انا فتحت القاعدة ولكن كنت اداعبكم واسهل الامر لمن لا يستطيع الوصول من طلاب العلم الى البيانات حتى تعم الفائدة جزاكم الله خيرا
    1 point
  41. العفو منكم والدى الحبيب واستاذى الجليل ومعلمى القدير احسست من ردكم انكم مشغولون ومن أجل ذلك هممت بتقديم المساعدة جزاكم الله خيرا فدائما وابدا لن استطيع ايفائكم حقكم وقدركم وساظل أدين اليكم ما حييت فكل الشكر والتقدير لكم انتم شكر الله لكم واحسن الله اليكم كما تحسنون الى كل طلاب العلم
    1 point
  42. نعم هو كما تقول اخى ولكن هناك اختلاف بسيط عن السابق هو انى لا اقوم بتحميل الملف النصى الى الجهاز . الان قاعدة البيانات تقرأه اونلاين بدون تحميل ////////////////// بهذا المرفق تسطيع التحكم فى فتح قاعدة البيانات واغلاقها حتى لو قام المستخدم بتغيير تاريخ الجهاز انت فقط المتحكم on & off كلمتان تكتبها فى الملف النصى وتجعل قاعدة البيانات تقرأها
    1 point
  43. السلام عليكم الرمز LOG هو رمز الدالة "اللوغاريتم العشري" (الذي أساسه 10) والرمز LN هو رمز "اللوغاريتم النيبري" (الذي أساسه e)... ومن بين خواصهما : (LOG(a^n)=n.LOG(a أو (LN(a^n)=n.LN(a وللحصول على العدد n (الذي هو قوة -أس- للعدد a) يجب القسمة على (LOG(a أو (LN(a حسب الدالة المستعملة... وفي مثالنا العدد a هو 2 والعدد n هو قوته (أسه) لأن : بقسمة 12 على 3 نجد 4 و 4=2^2 وبقسمة 24 على 3 نجد 8 و 8 = 2^3 وبقسمة 48 على 3 نجد 16 و 16 = 2^4... أرجو أني وفقت في الشرح... بن علية حاجي
    1 point
  44. شكرا اخوي ابا جودي ، سهلت عليّ المهمة 🙂 جعفر
    1 point
  45. عذرا استاذى انا طالب عالم ويحق لى ان اسأل كما اشاء وواجب عليك ان تتحمل طلاب العلم
    1 point
  46. وعليكم السلام ورحمة الله وبركاته على حسب الية الترقيم المستخدمة وفي أي حدث يتم استخدام الترقيم مثلا اذا كنت تستخدم دالة Dmax في حدث قبل الادراج فسوف يتم الترقيم لأكبر رقم موجود في حقل الترقيم وهذا يعتمد على من قام بالحفظ اولا
    1 point
  47. هل يمكن ان يتكرر نفس الصف لا وجود للمستحيل مع اكسل فقط جرب هذا الملف maktaba.xls
    1 point
  48. الحمد لله الذي بنعمته تتم الصالحات اولا .. اشكر ادارة المنتدى الغالي على هذه الثقة واخص بالذكر اخي الفاضل الاستاذ . @jjafferr ثانيا ... اشكركم جميعا على حسن الظن بي وارجو للجميع التوفيق والسداد ثالثا ... ارجو ان يوفقني الله عز وجل في تقديم كل ما استطيعه للمنتدى ورواده الافاضل رابعا ... اتقدم بالتهنئة لاخي الاستاذ الفاضل @ابوآمنة على استحقاقه لهذا اللقب واسأل الله له الاعانة والسداد. بارك الله فيك جميعا اخوتي
    1 point
  49. وبفضل الله تعالى تم الوصول الى النتيجة المطلوبــــة اضع هذا العمل المتواضع بين اياديكم شكرا لكل استاذتى الكرام الذين اثقلت عليهم بهذا الامر شكر لكل من ساعدنى سواء بالمحاولة او التشجيع او الافكار شكر لكل من اثقلت عليهم وكنت اطلب منهم التجربة فى رسائل خاصة ولم يكلوا او يملوا شكر لكل القائمين على هذا الصرح الشامخ فلولا الله سبحانه وتعالى اولا ثم كل اساتذتى واحبابى ما توصلت لشئ شكر الله لكم واحسن اليكم وغفر الله لكم ورزقكم البركة فى العمر والعلم والاهل والولد ورزقكم جميعا والمسلمون ان شاء الله شربة هنيئة مريئة من يد سيدنا وحبيبنا محمد صلوات ربى وسلامه عليه Connect To Network.mdb
    1 point
×
×
  • اضف...

Important Information