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

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

  1. Ali Mohamed Ali

    Ali Mohamed Ali

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


    • نقاط

      44

    • Posts

      11643


  2. الـعيدروس

    الـعيدروس

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


    • نقاط

      9

    • Posts

      3277


  3. SEMO.Pa3x

    SEMO.Pa3x

    الخبراء


    • نقاط

      6

    • Posts

      540


  4. ابو جودي

    ابو جودي

    أوفيسنا


    • نقاط

      5

    • Posts

      7227


Popular Content

Showing content with the highest reputation on 10/31/19 in all areas

  1. تفضل اخي الكريم Dim mySQL As String mySQL = "SELECT TOP 4 * FROM Table1" mySQL = mySQL & " ORDER BY num DESC;" Me.RecordSource = mySQL Me.Requery test(2)(1).accdb تحياتي
    3 points
  2. تفضل لك ما طلبت على الرغم انى افضل العمل على ملف الإكسيل مباشرة دون العمل على الفورم Followup patients.xlsm
    3 points
  3. السلام عليكم 🙂 بالاضافة الى ميزات الاكسس الشخصية ، فيه امكانية مخاطبة البرامج الاخرى بعدة طرق ، احدها عن طريق Command line ، بحيث يمكننا ان نرسل اوامر من الاكسس الى هذا البرنامج الذي يقبل الاوامر من Command line . البرنامج pdftk (في المرفق) احد هذه البرامج : https://www.pdflabs.com/tools/pdftk-the-pdf-toolkit/ المرفق فيه برنامج اكسس وملف a.pdf و b.pdf ، وبزر من الاكسس ، سيتم دمج الملفين الى ملف ab.pdf ، وفي المرفق ملف الاوامر التي يقبلها برنامج pdftk . البرنامج يستطيع التعامل مع ملفات pdf بعدة طرق ، لذلك وجب قراءة ملف الاوامر 🙂 وهذا هو الكود: Private Sub cmd_combine_Click() 'Merge Two or More PDFs into a New Document 'pdftk 1.pdf 2.pdf 3.pdf cat output 123.pdf Dim pdftk_File As String Dim a_FILE As String Dim b_FILE As String Dim ab_FILE As String Dim Command_Line As String pdftk_File = Chr(34) & Application.CurrentProject.Path & "\" & "pdftk" & Chr(34) a_FILE = Chr(34) & Application.CurrentProject.Path & "\" & "a.pdf" & Chr(34) b_FILE = Chr(34) & Application.CurrentProject.Path & "\" & "b.pdf" & Chr(34) ab_FILE = Chr(34) & Application.CurrentProject.Path & "\" & "ab.pdf" & Chr(34) Command_Line = pdftk_File & " " Command_Line = Command_Line & a_FILE & " " Command_Line = Command_Line & b_FILE & " " Command_Line = Command_Line & "cat output" & " " Command_Line = Command_Line & ab_FILE 'Debug.Print Command_Line Shell_n_Wait Command_Line, vbHide End Sub جعفر اعتقد عندي هذا الملف من سنة 2009 --------------------------------------------------------------- تعديل 31-10-2019 : - استخدام الوحدة النمطية Shell_n_Wait والتي تقبل حروف unicode - utf-8 ، من https://github.com/xxdoc/vb6-Shell-Wait/blob/master/Shell %26 Wait v2/modShellWait.bas http://www.vbforums.com/showthread.php?700373-VB6-Shell-amp-Wait&p=4288285&viewfull=1#post4288285 - تم تغليف مسار الملفات بالاشارة " ، وذلك لحل مشكلة وجود مسافات في اسم المسار او الملف ، - تم تفكيك خط الامر الى مكونات اصغر ، لسهولة تغيير اي جزء منه. --------------------------------------------------------------- تعديل 15-01-2023 : يمكننا استعمال الاسم القصير Short FileName للتغلب على مشكلة اللغة العربية في استعمال هذا البرنامج 🙂 يصبح الكود: Private Sub cmd_combine_Click() On Error GoTo err_cmd_combine_Click: 'Merge Two or More PDFs into a New Document 'pdftk 1.pdf 2.pdf 3.pdf cat output 123.pdf Dim pdftk_File As String Dim a_FILE As String Dim b_FILE As String Dim ab_FILE As String Dim Command_Line As String pdftk_File = Chr(34) & Application.CurrentProject.Path & "\" & "pdftk" & Chr(34) 'File 'a_FILE = Chr(34) & Application.CurrentProject.Path & "\" & "a.pdf" & Chr(34) a_FILE = Chr(34) & get8_3FullFileName(1, Application.CurrentProject.Path & "\" & "ملف1" & "\" & "a.pdf") & Chr(34) b_FILE = Chr(34) & Application.CurrentProject.Path & "\" & "b.pdf" & Chr(34) 'Folder 'ab_FILE = Chr(34) & Application.CurrentProject.Path & "\" & "ab.pdf" & Chr(34) ab_FILE = get8_3FullFileName(2, Application.CurrentProject.Path & "\" & "المجلد النهائي") & "\" & "ab.pdf" Kill ab_FILE ab_FILE = Chr(34) & ab_FILE & Chr(34) Command_Line = pdftk_File & " " Command_Line = Command_Line & a_FILE & " " Command_Line = Command_Line & b_FILE & " " Command_Line = Command_Line & "cat output" & " " Command_Line = Command_Line & ab_FILE 'Debug.Print Command_Line Shell_n_Wait Command_Line, vbHide Exit_cmd_combine_Click: Exit Sub err_cmd_combine_Click: If Err.Number = 53 Then 'file not for for deletion Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_cmd_combine_Click End If End Sub . وهذه الدالة التي يتم مناداتها لتغيير المسار الى 8.3 Function get8_3FullFileName(F_or_F As Integer, ByVal sFullFileName As String) As String ' ' Convert the normal path to the old DOS 8.3 path ' this solves the problem of spaces in the path ' and reading Unicode names ' ' F_or_F : File or Folder ' 1= File ' 2= Folder ' Dim FSO As Object: Set FSO = CreateObject("Scripting.FileSystemObject") If F_or_F = 1 Then get8_3FullFileName = FSO.GetFile(sFullFileName).ShortPath Else get8_3FullFileName = FSO.GetFolder(sFullFileName).ShortPath End If Debug.Print "Original File Path: " & sFullFileName Debug.Print "8.3 File Path: " & get8_3FullFileName End Function . والمرفق Combine_PDF_Files_83.zip فيه المثال اعلاه 🙂 Combine_PDF_Files_2.zip pdftk_2.02.zip Combine_PDF_Files_83.zip
    2 points
  4. السلام عليكم اخ امجد بارك الله فيك على كلماتك الطيبه جرب المرفق بخصوص كشف الحساب Petty Cash Excel _Ali1.xlsm
    2 points
  5. السلام عليكم بهذا الكود Private Sub CommandButton1_Click() Dim pth, Nm pth = "D:\my_f\" Nm = Me.ComboBox1.Value & ".*" If Dir(pth & Nm, vbDirectory) = "" Then MsgBox "لايوجد ملف بنفس الاسم بالمسار المحدد لحذفه" Else Kill pth & Nm & ".*" MsgBox "تم حذف الملف بنجاح" End If End Sub
    2 points
  6. 2 points
  7. سلام عليك استاذ وجيه بالتقدير والمعزة والود والإحترام أسأل الله أن يتم عليكم نعمة الصحة والعافية. و الأمن والأمان. استاذ وجيه شرف الدين دمتم بحفظ الله ورعايته
    2 points
  8. جزاك الله كل خير ورحم الله والديك
    2 points
  9. ولكن هذ لا يؤثر بالمعادلة, على الرغم من هذا فقد تم التعديل على الملف السابق فقط عليك بكتابة الرقم بس فى الوقت
    2 points
  10. السلام عليكم ,طالما انك لم تقم برفع ملف وشرح المطلوب عليه بكل دقة كما أخبرنا من قبل فكان لزامل عليك استخدام خاصية البحث فى المنتدى قبل رفع المشاركة فهناك العديد من الموضوعات التى تخص طلبك ومنها : كيفية إنشاء نسخة من ملف إكسيل تستحدث تلقائيا عند غلق الملف وهذا رابط اخر طريقه لعمل نسخه احتياطيه للملف في اكثر من درايفر اختر منهما ما يناسبك
    2 points
  11. أحسنت استاذ مجدى ..جزاك الله كل خير وأحسن الله اليك
    2 points
  12. فورم ادخال البيانات والتأكد منها للادخال الفيديو
    1 point
  13. الخلل انك قمت بوضع مسافات ( Space ) قبل وبعد كلمة ( حاضر / غائب ) " غائب " " حاضر " لاحظ المسافات قبل الكلمة وبعدها, احذف المسافات او قم بعمل التنسيق الشرطي مع المسافات وسيعمل بشكل جيد حسنين متابعة غياب طلاب الفراغات.mdb
    1 point
  14. ولك بمثل ما دعوت لى وزيادة والحمد لله ان تم المطلوب على خير
    1 point
  15. أستاذي @ابا جودى أن طلب العميل البرنامج مفتوح حينها ساقوم بتغيير نوع الحماية في الملف واقوم ارسالة له وأذا أراد أستخدام البرنامج في اكثر من جهاز ساقوم بتفعيل كل واحدا على حدة أستاذي أستغربت من سؤالك هذا جداً برنامج عملت فيه ليل ونهار مايقرب أكثر من سنه ونصف الى سنتين وسهر بشكل متواصل .. هل تريد أن أعطية للعميل بشكل سهل يفعل به مايشاء ؟؟ يمكن أن يعطية لمن يريد ويأخذ مجهود غيرة ؟؟؟
    1 point
  16. السلام عليكم ورحمة الله وبركاته يا اهلا باساتذتي الكرام اعتذر للتاخر في الرد عليكم لظروف طارئة واحب ان اوضح شئ صغير لم اقصد الاستسلام بقولي وبذلك نصل الي طريق مسدود ولكن ما قصدته هو ان دائما النتيجة متغيرة ولن نستطيع البناء الا علي اساس ثابت من ناحيتي لازلت ابحث عن الاساس الثابت والذى لا يتغير على الرغم من انه لي سؤال للاستاذ @qathi ان طلب منك العميل تفعيل مفتوح وقمت بربطه بواسطة ارقام قطع ثابته ماذا لو ان العميل يريد استخدام تلك القاعدة على اكثر من جهاز ؟ لاب توب وجهاز ديسك توب و.............. بلا بلا بلا له مطلق الحرية طالما يملك كل الحق ولا يحق لك ان تمنعه من فتح القاعدة على اكثر من جهاز وماذا ان قام مستقبلا بتغير الجهاز هل من المنطق ان يرجع اليك مرة اخرى للتفعيل
    1 point
  17. اخي الكريم حط مسار المجلد الرئيسي الذي ذكرته بهذا السطر pth1 = ThisWorkbook.Path & "\" فليكن مثلاً "C:\Users\aad\Desktop" يكتب بالمتغير كالتالي pth1 = "C:\Users\aad\Desktop" & "\"
    1 point
  18. اخي الكريم @qathi ارى انك ترغب بشدة باستعمال الماك ادرس .. اعتقد ان الملف الذي ارفقه لنا الاستاذ اباجودى يؤدي الغرض خصوصاً كود الدالة call NICInfo وهذه صورة من جهازي توضح وجود كروت خاصة ببرنامج VMware
    1 point
  19. روح للمجلد الذي بالمسار وانسخ المسار وحطه في المتغير pth = "D:\my_f\" ولاتنسى تحط علامة "\" في نهاية المسار
    1 point
  20. سويتلك مخطط لكي تفهم قصدي. المخطط ليس صعب او مستحيل تنفيذه، يحتاج مخ صافي وفنجان قهوة 😎 @jjafferr مُعلمي اتمنى منك النقاش حول فكرتي هذه
    1 point
  21. طيب، دعني اختصر لك الكلام هذا كله. دع تفعيل برنامجك يكون عن طريق النت، اذا كان النت موجود يشتغل برنامجك والا فلن يعمل
    1 point
  22. يمكنك تغيير عدد الأعمدة بالذهاب إلى Module1 أو Module2 تبعًا لورقة العمل المناسبة لك في الملف تم إضافة أعمدة في ورقة العمل مثال 1 وورقة العمل مثال 2 فورم ادخال و تعديل مرن مع الصور.rar
    1 point
  23. بعد إذن أستاذنا الفاضل سليم حاصبيا جرب هذا حساب المكملون بدرس او درسين او اكثر.xlsx
    1 point
  24. لا يا استاذي ابا جودى لم أعهدك ان تستسلم لهكذا امر فأنت الذي تعملنا منه الاصرار والصبر للوصول الى حل على العموم ارتأي التالي (بل اعتمدتها في برنامجي) نقوم بقراءة اسم المعالج ونستخلص الارقام منه نقوم بقراءة سيريال الجهاز ايضاً ونستخلص الارقام منه معادلة التحقق ستكون كالتالي اذا كان رقم التفعيل = المعالج + سيريال الجهاز فالدخول سيكون مسموح والا اذا كان رقم التفعيل - رقم المعالج = سيريال الجهاز معناها ان المستخدم قد قام بتغيير اسم المعالج او تغيير المعالج بالكامل بسبب عطبه لكنه يملك نفس سيريال الجهاز لذلك سيكون مصرح له بالدخول ايضاً والا اذا كان رقم التفعيل - سيريال الجهاز = رقم المعالج فمعناها ان المستخدم يستعمل جهاز كومبيوتر (تجميع) لايحمل سيريال لكنه بنفس الوقت يملك نفس اسم المعالج وبالتالي فسوف يكون مصرح له بالدخول ايضاً ماعدا ذلك فسوف يتم تشغيل البرنامج بصورة تجريبية هذا ما اعمل عليه الان في برنامجي لإحدى الجهات الحكومية
    1 point
  25. دكتور محمد طلباتك اوامر هنا الملف 18 ميجا تقريبا وهذا موقع فيه ايقونات مميزة https://icons8.com/icons
    1 point
  26. 1 point
  27. السلام عليكم جرب المرفق فورم المبالغ المستلمة و فورم ارشيف العهد كشف الحساب سأعمل عليه لاحقا في امان الله Petty Cash Excel _Ali.xlsm
    1 point
  28. عظم الله اجركم انا لله وانا اليه راجعون
    1 point
  29. حدد العمود المطلوب تغيير تنسيقه زر يمين .. تنسيق خلايا.. اختر تبويب الرقم .. اجعل المنازل العشرية 0
    1 point
  30. 1 point
  31. ايه ده كله الطلبات كده كتير جدا
    1 point
  32. اهلا بك فى المنتدى تفضل -تم ذلك بمعادلات المصفوفة كود.xlsm
    1 point
  33. 1 point
  34. تفضل تم التعديل على الملف لكى تعمل المعادلات مباشرة بدون التدخل فيها فقط عليك بتغيير النسبة أعلاه فقط كما تريد (تكتب فقط رقم النسبة بدون اى اضافات بالخلية) وسترى عمل المعادلات وتغيرها مباشرة Stable Pressure Tolerances 3.xlsx
    1 point
  35. برنامج المخزون و الفواتير الشامل .... الاصدار الثالث اكسيل 2007 - اكسيل 2010 اليوم بمشيئة الله هو الانطلاق الرسمى لهذة النسخه وبعد انتهاء مرحلة التجربة التى دامت اكثر من شهرين خطوات استخدام البرنامج لأول مره تسجيل البيانات الجديدة داخل البرنامج لعمل فواتير البيع و الشراء و الحركات المالية 1- تسجيل اسماء مناديب البيع وهى خطوه مهمه مطلوبة لتسجيل اسم عميل جديد 2- تسجيل و ادخال العملاء (يتم ربط كل عميل باسم مندوب) 3- تسجيل و ادخال الموردين 4- تسجيل و ادخال اسماء لفئة الصنف وهى خطوه مهمه مطلوبة لتسجيل صنف جديد 5- تسجيل و ادخال الاصناف (ولابد من وجود فئة مدخله مسبقا لكى تستطيع ادخال الصنف) 6- ولا تنسى تسجيل رصيد اول المده فى شاشة البيانات و الجرد الجديد فى هذا الاصدار * واجهة تطبيقية كاملة * برنامج كامل مخزون فواتير ذمم عملاء وموردين واستحقاقات خلال الفترات الزمنية المختلفة * اختصارات سريعة لتنفيذ العمليات و التقارير بسرعة عالية * كشف حساب بطريقة جديدة بمعنى نفترض انه هناك عميل ما علية مديونية بفيمة 15000 فالبرنامج يعطيك كشف حساب تفصيلى للمديونية المستحقة خلال فترات 30 يوم 60 يوم 90 يوم و اكثر من 90 يوم فمثلا فى المثال السابق يكون استحقاق المديونية على حسب فواتير العميل مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 و فى اكثر من 90 يوم 2000 فيكون اجمالى المديونية هم ال 15000 لكن الاستحقاق فى فترات مختلفه وهذا الكشف يفيد كل من يتعامل بالاجل لمعرفة المستحق خلال الفترة التى يريدها وعندما يقوم العميل بسداد جزء من المستحق يتم خصمه من المديونية القديمه بمعنى ان العميل فى المثال السابق قد قام بسداد 1500 فيتم خصمها من ال 2000 وهى مديونية الاكثر من 90 فيصبح كشف حسابة كالتالى مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 وفى اكثر من 90 يوم 1500 فيكون اجمالى المديونية هم ال 13500 * شاشة فواتير جديده تحوى الكثير و الكثير من الاختصارات للعملاء و الاصناف وتوصلك الى عدة تقارير بضغطة زر واحده عرض معلومات عن الصنف و رصيده الحالى داخل المستودع و اخر سعر شراء بمجرد اختيارك للصنف وادخاله داخلة الفاتوره سهولة الغاء وتعديل الصنف داخل الفاتورة عن طريق الدبل كليك ذهاب مباشره الى تقرير صنف معين بمجرد اختياره وضغط تقرير الصنف اكتشف المزيد............ *شاشة لتقرير المديونية خلال الفترات الزمنية المختلفة يجب عليك قراءة ومراجعة شرح البرنامج جيدا حيث توجد العديد و العديد من الاختصارات السريعة التي تنقلك من شاشة الى اخرى بسرعه عالية ولتوفير وقتك داخل البرنامج. كما توفر لك سرعة الحصول على المعلومة المطلوبة. * لتحميل نسخة من الشرح وهى عبارة عن ملف تنفيذي اضغط على الرابط التالى شرح برنامج المخزون و الفواتير الشامل( ملف تنفيذى... 6MB رابط خارجى على موقع ميديا فاير) * او الذهاب الى موضوع شرح البرنامج و مناقشات مشرفى و اعضاء المنتدى داخل المنتدى على الرابط التالى شرح برنامج المخزون و الفواتير الشامل(مشاركة داخل المنتدى) كما احببت ان اقدم مناقشة ونصائح مديري و اعضاء المنتدى للبرنامج لكى يستفيد منها الجميع وهذه المواضيع تم مناقشتها في موضوع شرح البرنامج داخل المنتدى انظر المشاركة التالية لمشاهدة النصائح و المناقشات حول البرنامج واخيرا اقدم لكم البرنامج حجم البرنامج 1.2 MB اختر اسم المستخدم المدير كلمة السر 123 محرر الاكواد 85211 لاتترد فى الاستفسار عن اى شيى داخل البرنامج ضع مشاركتك وسوف يتم الرد عليها كما يمكن مراسلتى على الايميل التالى amroomo@gmail.com اخيرا اتمنى ان يكون هذا البرنامج اضافة الى برامج المخزون و الفواتير وتغيير مسارها على الاكسيل فهذا العمل جديد بكل المقاييس فى افكاره التى اتمنى ان اكون قدمتها بصورة جيدة ويستقيد بها الجميع وَقُلْ رَبِّ زِدْنِي عِلْمًا ========================================================= المرفق المحدث الاخير: SIS 3.152 (Add City).rar
    1 point
  36. تفضل بعد اذن استاذى الكبير ابراهيم له منا كل المحبة والإحترام Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 3 Or Target.Row < 7 Then Exit Sub Dim C As Range For Each C In Range("C7:C" & Range("C" & Rows.Count).End(xlUp).Row) If C.Value = "سدد" Or C.Value = "انهى" Or C.Value = "خالص" Then C.Offset(0, 1).Resize(1, 12).Value = "0" C.Offset(0, 13).Resize(1, 3).Value = "لا" End If Next End Sub
    1 point
  37. اهلا بك فى المنتدى عليك بتتبع الصورتين حتى يمكنك تغيير اللون الأحمر الى ما تريده وهذا يتم من خلال التنسيقات الشرطية (Conditional Formatting)
    1 point
  38. تفضل لك ما طلبت 2قائمة منسدلة مطاطية.xlsm
    1 point
  39. أحسنت استاذى الكريم بارك الله فيك عمل رائع جزاك الله كل خير
    1 point
  40. وعليكم السلام يمكنك عمل هذا حتى بدون اكواد عليك بمشاهدة هذا الفيديو https://www.youtube.com/watch?time_continue=1&v=1xHS1snXRKs
    1 point
  41. جرب هذا الملف بمجرد كتابة الحرف الأول والثانى مثلا ثم اضغط على انتر يتم كتابة الإسم كاملا Search.xlsm
    1 point
  42. وضح بالتفصيل لو سمحت على الملف لما تريده
    1 point
  43. استاذى الكريم المفروض تغيير اللى بين الأقواس فى هذا السطر من الكود الى اسم جهازك Select Case Environ("COMPUTERNAME")
    1 point
  44. ملف ممتاز احسنت استاذ سليم بارك الله فيك
    1 point
  45. تفضل اخى الكريم بعد عمل فولدر بإسم نعم واخر بإسم لا جرب الكود الموجود بالملف واعمل حفظ فى المكان الذى تحدده من الفولدرات التى قمت بعملها بارك الله فيك Backup.xlsm
    1 point
  46. وعليكم السلام اهلا بك اخى الكريم أحمد فى المنتدى-كان عليك استخدام خاصية البحث فى المنتدى فهناك موضوعات مشابهة لموضوعك ومنها : https://www.officena.net/ib/topic/51238-ادخال-بيانات-في-ورقة-اكسل-من-اكثر-من-شخص-في-نفس-الوقت/ https://www.officena.net/ib/topic/46928-هل-ممكن-رفع-ملف-اكسيل-على-الانترنت-والتعامل-معه/?page=2 كما ان هناك عدة فيديوهات لهذا ومنها : https://www.youtube.com/watch?v=73_YJEg3FtU https://www.youtube.com/watch?v=0ZnnPiW25GQ https://www.youtube.com/watch?v=rVse23rIS4A وهناك ايضا مواقع خارجية تناولت هذه الجزئية من الموضوعات ومنها : http://excel-egy.com/forum/t49 https://www.techonthenet.com/excel/questions/shared.php https://www.ablebits.com/office-addins-blog/2017/08/02/excel-shared-workbook-share-file-multiple-users/ اتمنى ان تكون مفيدة لك بارك الله فيك
    1 point
  47. جرب المعادلة التالية بافتراض ان الخلية C41 فيها عدد الساعات والخلية D41 فيها عدد الدقائق =CONCATENATE(INT((C41+INT(D41/60))/7);" ايام";" و ";MOD(C41+INT(D41/60);7);" ساعات") تحياتي
    1 point
×
×
  • اضف...

Important Information