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

مرفق لكم مثال اخونا ابو مروان وتم تعديل الكود عليه وهذا الملف مرفق بعد تعديل الكود من اخونا الاستاذ محمد صالح جزاه الله عنا خير الجزاء Translator.v1.0.0.1.mdb

لتصبح الدالة ككل Function mas_g_trans(str As String, Optional lngto As String = "ar", Optional lngfrm As String = "auto") As String On Error Resume Next If str = "" Then mas_g_trans = str: Exit Function Dim ie As Object, html Set ie = CreateObject("InternetExplorer.application") ie.Visible = 1 'ie.navigate "http://translate.google.com/#" & lngfrm & "/" & lngto & "/" & str ie.navigate "https://translate.google.com/#view=home&op=translate&sl=" & lngfrm & "&tl=" & lngto & "&text=" & str Do Until ie.readyState = 4 DoEvents Loop Application.Wait (Now + TimeValue("00:00:03")) mas_g_trans = ie.document.querySelector(".tlid-translation.translation").innerText ie.Quit Set ie = Nothing End Function وهذا مثال على استدعائها Sub test() Debug.Print mas_g_trans("hello world", "ar", "en") End Sub وقثنا الله جميعا لكل ما يحب ويرضى

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته اخوتي / اخواتي لي الشرف ان انظم الى هذا الصرح العلمي ، سائلاً المولى جل وعلا ان يوفقني لما فيه الخير للجميع 🙂 في اول مشاركة لي ، اضع بين يديكم برنامج مسقط التقارير (مسمى صانع التقارير متداول كثيرا ، لذا احببت ان اسمي برنامجي بإسم مميز ، إسم مسقطنا الحبيبة 🙂 ). البرنامج في نسخته الاولى ، لذا ، فلا تتوقعوا الكثير منه 🙂 في احد المشاريع التي عملت عليها قريبا ، كان العمل لسجلات شؤون الموظفين ، ولم يكن بالامكان عمل تقرير محدد ، حيث كانت التقارير المطلوبة من الادارة بشتى انواع البيانات ، طولا وعرضا. لذا اضطررت العمل على صانع للتقارير (في الواقع مسقط التقارير يعتبر برنامجا بحد ذاته ، فالعمل كان ، برنامج في برنامج 🙂 ). مع ان البرنامج بسيط في طريقة عمله (وطبعا عندي الكثير من الاشياء الاخرى التي اود ان اضيفها ، لكن في وقتها ان شاء الله ، وبما ان البرنامج مفتوح المصدر ، فانا ارحب بمن يضيف عليه خصائص جديدة 🙂 ) ، فمع بساطة البرنامج ، إلا ان نتائجه مرضية 🙂 العمل على البرنامج ابسط بكثير من شرحه 🙂 يمكنك نقل هذه الكائنات السته الى برنامجك الخاص ، ومسقط التقارير سيعمل بدون الحاجة الى اي تغيير او كود: مسقط التقارير يعمل على الجداول والاستعلامات فقط ، واليكم طريقة العمل: جدول او استعلام: اختر من ايهم تريد ان تعمل تقريرك ، جدول او استعلام ، الاسم: على اساس الاختيار السابق ، ستظهر لك قائمة بجداولك او استعلاماتك ، وعندما تختار اسم جدول او استعلام ، فان النموذج الفرعي الذي اسفل الاسم سوف يمتلئ باسماء الحقول من الجدول او الاستعلام ، وكلها عليها اشارة اخفي (اي كلها ستكون مخفية من الظهور في النموذج الفرعي الذي بالاسفل) ، احذف اشارة الاخفاء عن الحقول/الخانات التي تريدها ، وستظهر لك في النموذج الفرعي الذي في اسفل النموذج. هذا النموذج هو شكل مبسط من التقرير ، فكما ترى الحقول وعرضها ، وعدد السجلات ، ستراها في التقرير. هناك خطان فوق النموذج الفرعي ، باللون الاصفر والاخضر ، اذا كانت بياناتك اقل من الخط الاصفر ، سيكون التقرير بالطول ، وإلا فانه سيكون بالعرض ، وهناك خطان صفر ، فالمسافة بينهم ستكون للترقيم التلقائي للتقرير (لاحظ ان التقرير لبيانات النموذج ادناه سيكون بالعرض ، لأننا تخطينا الخط الاصفر 🙂 يمكننا ان نمسك الحقول/الخانات بالزر الايسر من الفأرة ونغير ترتيبها يمينا ويسارا ، كما ان البرنامج يحترم عرض الحقل الذي تقوم بتعديله ، (لاحظ ان التقرير لبيانات النموذج سيكون بالطول ، لأننا في حدود الخط الاصفر 🙂 وهذا هو التقرير لبيانات النموذج السابق ، ولاحظ ان البرنامج يقوم بتغيير ارتفاع الصف تلقائيا ، حتى يمكن مشاهدة جميع بيانات الحقل. اذا قررت ان تتعدى الخط الاصفر ، فنفس شروط الخط الاصفر تنطبق على الخط الاخضر ، وهنا نرى باننا اضفنا عنوان لراس صفحة التقرير ، واضفنا معلومات عن موضوع التقرير ، بالاضافة الى معلومات في ذيل التقرير: وهذا هو تقرير لبيانات النموذج السابق ، ولاحظ ان البرنامج يوسع عمود الترقيم التلقائي ليسد المسافة: بعد اختيار الحقول التي نريدها في التقرير ، نستطيع ان نفرز الحقول بالطريقة التي نريد: وكذلك تصفية البيانات حسب الحاجة: وهذا هو تقرير لبيانات النموذج السابق ، لاحظ عدد السجلات قد تغير ، لأني طلبت ان ارى السجلات التي مبالغها اكبر من 500: البرنامج لا يحفظ التقارير (نعم ، عمل طريقة لحفظ اسم لكل تقرير ، على قمة قائمة التحديثات ان شاء الله 🙂 ) ارجوا ان تتقبلوا مني هذا العمل المتواضع 🙂 اسئلة/اقتراحات ، سأحاول الرد على قدر استطاعتي ان شاء الله 🙂 جعفر ملاحظة1: عمود المجموع لا يعمل ، وكان يجب ان اخفيه 😞 ملاحظة2: في الاساس كان عندي كمية كبيرة من صور الشرح ، إلا ان المنتدى لا يسمح بأكثر من 10 مرفقات ، فاختزلت الموضوع 🙂 ملاحظة3: ادراج فيديو لطريقة عمل التقرير: Muscat_Reports.zip

السادة الاعضاء والمشرفين والخبراء / السلام عليكم لم اعرف هل فكرة مربع التحرير والسرد هذه تهم احد منكم ام لا علي اي حال ارفقها لكم لعل وعسي تنفع لاحد منكم الفكرة ان المعروف عن مربع التحرير ان يكتب فيه كلمة واحدة تختارها بعد الضغط عليه ولكن هنا تقدر تختار اكثر من كلمة بحيث مربع التحرير يكون به اختيارين بجانب بعضهما list box.accdb

السلام عليكم ورحمه الله وبركاته اقدم لكم مفاجأة من العيار الثقيل اخرجها لنا المبدع الاستاذ بن خليفة الجموعى جزاه الله عنا خير الجزاء اللهم اجعلف هذا العمل فى ميزان حسناته الرجاء الدعاء له بظهر غيب كشوف مناداة الصفوف على اللجان.rar

مشكور اخ حلبي وهذه احد الميزيات اتت من اصدار 2007 وهي تعدد لقيم .. وعن طريق تصميم الجدول وخصائص الحقل كمبو تختار متعدد القيم= نعم وله فوائد كبيرة تحياتي

الملف الذي رفعته مضروب بفيروس و قد رفض الجهاز التعامل معه لذلك ارفق لك ملفاً بديلاً فيه الجل بالتفصيل days_num.xlsx

السلام عليكم تم حل المشكله من اخونا الاستاذ محمد صالح جزاه الله الف خير وهذا رابط الموضوع مرفق لكم مثال اخونا ابو مروان وتم تعديل الكود عليه وهذا الملف مرفق بعد تعديل الكود من اخونا الاستاذ محمد صالح جزاه الله عنا خير الجزاء Translator.v1.0.0.1.mdb ونرغب في تطويره لكي يعمل علي https://www.bing.com/translator ولكم جزيل الشكر

شكرا لك استاذ محمد على تنبيهي بالفعل تم تغيير أكواد صفحة الترجمة في جوجل ولكن سيتم تغيير سطر واحد في الكود ضع هذا السطر بدلا من سطر result_box mas_g_trans = ie.document.querySelector(".tlid-translation.translation").innerText ولا تنسوني من صالح دعائكم

بعد اذن أخي علي هذه المعادلة (بدون اعمدة مساعدة) (Ctrl+Shift+Enter) =INDEX($C$3:$C$11,MATCH(F3&G3,$A$3:$A$11&$B$3:$B$11,0)) الملف مرفق جمع بشرطين Salim.xlsx

السلام عليكم جزاكم الله خير ظهر لي خطاء في الكود result_box في نفس موقع جوجل لان الموقع غير في الاكواد ويحتاج ان نجد لها طريقه وافضل ان نعمل علي موقع bing microsoft translator ... https://www.bing.com/translator لانه ادق من جوجل في الترجمه وخاصه في ترجمه الاسماء لذي ارجو منك والاخوه الكرام مساعدتي وايجاد حل ليستفاد منه الجميع ولكم جزيل الشكر والعرفان

الحمد لله ولكن انت ما قلت تاريخ هجري

الحمد لله

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

تطبيقك للتعديلات الأخيرة صحيح 100% وهذا الدليل هل كتبت عنوان بريدك الالكتروني وكلمة مروره في المكان المخصص في الكود؟ هل سمحت للتطبيقات باستعمال بريدك في جيميل؟ ربما تكون هذه هي الأسباب راجع الموضوع الأصلي لمعرفة التفاصيل

لا أجد في ملفك تقارير لذلك إليك خطوات الحل استعمل هذا الكود لتصدير التقرير لكملف pdf في أي مسار تريده استعملت هنا نفس مسار الملف واسم الملف myreport.pdf وكذلك يلزمك كتابة اسم التقرير بدلا من reportName ووضع كل هذا قبل سطر الإرسال .send فيصير كود الإرسال DoCmd.OutputTo acOutputReport, "reportName", acFormatPDF, CurrentProject.Path & "\myreport.pdf" .AddAttachment CurrentProject.Path & "\myreport.pdf" .Send Kill CurrentProject.Path & "\myreport.pdf" مع خالص دعواتي بالتوفيق

تفضل Q.accdb تحياتي

هل تقصد هذا https://www.officena.net/ib/topic/87214-طريقة-في-عمل-ارسال-اشعارات-من-جهاز-الى-جهاز https://www.officena.net/ib/topic/62544-نظام-مراسلة-واشعارات-شبيه-بالفيس-بوك/

يلزم هذا التعديل على الكود Option Explicit Sub sorted_liste() Dim SL1 As Object Dim xItem Dim rg As Range, c As Range Dim i As Long Dim X As Long Dim arr() Dim y Range("c1").CurrentRegion.Offset(1).ClearContents Set SL1 = CreateObject("System.Collections.ArrayList") Set rg = Sheets("salim").Cells(1).CurrentRegion For Each c In rg y = SL1.Contains(c) X = Application.CountIf(rg, c) If X > 1 And y = False Then If Not SL1.Contains(c.Value) Then SL1.Add (c.Value) End If Next arr = SL1.ToArray With Range("c2").Resize(UBound(arr) + 1) .Value = Application.Transpose(arr) .Offset(, 1).Formula = "=COUNTIF($A$1:$A$500,C2)-1" .Offset(, 1).Value = .Offset(, 1).Value End With End Sub الملف فلترة 1.xlsm

قاعدة البيانات تم انشائها بواسطة اصدار 32 بت وتحاولون فتحها بواسطة اصدار 64 بت لذلك لا تفتح

تفضل لك ما طلبت جمع بشرطين بدون تكرار.xlsx

لعله المطلوب محضر تصحيح.xls

تفضل اخي الكريم اسم المستخدم admin كلمة المرور 1 المراسلات و الاشعارات.rar