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

تفضل استاذ @Mehr@ban البرنامج وطريقة عمله . من هنــــــا .

جارى تحضير مقاجأه

لاعادة جملة SQL الى استعلام اتبع التالي :::: من التقرير انسخ الجملة SQL انشأ استعلام جديد والصق الجملة فيه لاحظ الصور......

جرب هذه الفكرة معلمي الفاضل @ابوخليل :) Private Sub Combo4_KeyDown(KeyCode As Integer, Shift As Integer) KeyCode = 0 End Sub

حبیبی یا استاذ @kkhalifa1960 ان ارشادک و دلیلک کامل مرحبا بک انی جربت هذه الطریقة فی عدة مرات ولکن کان بدون فائدة، فلذا اعتقد ان المشکلة کانت من الاداة! على أي حال أنا ممتن لتوجيهاتك الدقیقة و الكاملة. الله سعدک 🌺 أشكر أيضًا الأصدقاء الآخرين الذين وجهوا وشاركوا في هذه المحادثة عسى الله كل خيركم.

للتأكد من الحسابات ممكن رؤية وقت البلد التى تريدون التأكد منها من هنا انا اعتذر جدا عن عدم الشرح اليوم لان المرفق والافكار والتنفيذ تعبونى جدا جدا وفعلا مش قادر اه بالحق ده المرفق البسيط تخيلو المتقدم لا يوجد لا اعتماد على انترنت ولا على اى شئ فقط الوقت المحلى من حاسوبك يتم الاعتماد فى الحسابات بناء عليه وحتى يزيد شوقكم الى المرفق القادم

حتى chatgpt داخ ما قدر يفككها 😊

نعم ، هي المرحلة الأولى وقد أشبعت في المنتدى شرحا وحلولا من قبل أساتذتنا الكرام وعلى رأسهم @أبو إبراهيم الغامدي و @ابو جودي والمرحلة الأولى كانت عبارة عن ترميز لبيانات الفاتورة وإظهاره في الفاتورة من خلال QR Code أما المرحلة الثانية فهي ربط عمليات البيع بسيرفرات وزارة الزكاة وفق الآلية التي ذكرها الأستاذ at_aziz هنا:

وعليكم السلام ورحمة الله تعالى وبركاته جرب وضع الوظيفة التالية في : Module Option Explicit Function Xformula(Search_string As String, _ Cpt As Range, Cnt As Range) Dim i As Long Dim lig As String For i = 1 To Cpt.Count If Cpt.Cells(i, 1) = Search_string Then lig = lig & " " & Cnt.Cells(i, 1).Value End If Next Xformula = Trim(lig) End Function وفي الخلية E3 ضع المعادلة التالية مع سحبها للأسفل =@Xformula(A3;Sheet1!$A$2:$A$200;Sheet1!$D$2:$D$200) sumifs.xlsb

وهذا مثال وجدته ضمن محفوظاتي تاريخ ووقت الانترنت.rar

نعم وافي وكافي .. جزاك الله خيرا استاذنا

autosize = true

و والديكم يا عزيزي ، تقبل اعتذاري ، وانني فقط أمازحك 🥰

استاذ @Mehr@ban حدد هل كلمة مرور فتح القاعدة نفسها او كلمة مرور محرر الاكواد حدد علشان نعطيك الحل المناسب ؟.

مشاركة مع استاذ @Foksh تفضل استاذ @Ahmedbakheet محاولتي . Display images with all extensions from path or name.rar

هل أنا فقط من يشعر وكأن ترجمة جوجل صاحبة الموضوع 😅 ليست سخرية أعوذ بالله ، ولكن من نمط الكتابة تشعرني بذلك. كل الإحترام والتقدير لصاحب الموضوع 💐

على العموم ، وآملاً منك الإلتزام بقوانين المنتدى مستقبلاً . هل هذا طلبك في هذا الكود ؟؟؟ Private Sub Command7_Click() Dim i As Integer Dim searchText As String Dim listItem As String Dim found As Boolean searchText = InputBox("اكتب الكلمة التي تريد البحث عنها", "مربع البحث") If searchText = "" Then MsgBox "تم الغاء العملية", vbExclamation Exit Sub End If found = False For i = 0 To Me.Text4.ListCount - 1 listItem = Me.Text4.ItemData(i) If InStr(1, listItem, searchText, vbTextCompare) > 0 Then found = True Me.Text4 = listItem DoCmd.Hourglass True [WebBrowser0].Object.ExecWB OLECMDID_OPTICAL_ZOOM, _ OLECMDEXECOPT_DONTPROMPTUSER, CLng(100), vbNull [WebBrowser0].Object.Navigate2 listItem DoCmd.Hourglass False Exit Sub End If Next i If Not found Then MsgBox "لم يطابق البحث عن الكلمة التي بحثت عنها", , "" End If End Sub عارض pdf بالمسار.accdb

لو كلمة مرور فتح القاعدة نفسها انسى او كلمة مرور محرر الاكواد هات القاعدة وافتحها لك فى عشر ثانية بس

Copy of sell-the-first-quantity- V3.xlsm

وعليكم السلام ورحمة الله وبركاته .. أهلا وسهلاً بك في مشاركتك الأولى أخي @Ahmedbakheet .. عليك بقراءة بعض قواعد وقوانين المنتدى كي تحصل على اجابة لطلبك . وضح المطلووووب منك بالشرح الوافي اذا سمحت

**خطوات استخراج بيانات الشيكات من شيتات منفصلة إلى شيت مجمع:** **1. إنشاء شيت مجمع:** - افتح ملف Excel الخاص بك. - أنشئ شيتًا جديدًا وأطلق عليه اسم "الشيكات المجمعة". **2. استيراد البيانات من الشيتات المنفصلة:** - انتقل إلى الشيت المجمع. - في الخلية A1، أدخل الصيغة التالية: =IMPORTRANGE("رابط الشيت المنفصل 1", "اسم الشيت المنفصل 1!A1:G1") - حيث: - رابط الشيت المنفصل 1: هو رابط الشيت المنفصل الذي يحتوي على بيانات الشيك الأول. - اسم الشيت المنفصل 1: هو اسم الشيت المنفصل الذي يحتوي على بيانات الشيك الأول. - A1:G1: هو نطاق البيانات الذي تريد استيراده من الشيت المنفصل. - كرر هذه الخطوة لكل شيت منفصل يحتوي على بيانات الشيكات. **3. تعديل الصيغ لاستخراج البيانات المطلوبة:** - بعد استيراد البيانات، تحتاج إلى تعديل الصيغ لاستخراج البيانات المطلوبة من كل شيك. - على سبيل المثال، لاستخراج رقم الشيك، استخدم الصيغة التالية في الخلية B1 من الشيت المجمع: =MID(A1, FIND("رقم الشيك:", A1) + 10, 10) - كرر هذه الخطوة لاستخراج البيانات الأخرى مثل تاريخ الشيك والمبلغ والاسم وما إلى ذلك. **4. استخدام الدوال المساعدة (اختياري):** - يمكنك استخدام الدوال المساعدة مثل TRIM و CLEAN لإزالة المسافات الزائدة والرموز غير المرغوب فيها من البيانات المستوردة. - على سبيل المثال، لاستخراج تاريخ الشيك بدون مسافات زائدة، استخدم الصيغة التالية في الخلية C1 من الشيت المجمع: =TRIM(MID(A1, FIND("تاريخ الشيك:", A1) + 13, 10)) **5. تنسيق البيانات (اختياري):** - يمكنك تنسيق البيانات في الشيت المجمع لجعلها أكثر قابلية للقراءة. - على سبيل المثال، يمكنك تنسيق تاريخ الشيك بتنسيق التاريخ المطلوب. **ملاحظة:** - إذا كنت ترغب في استخدام المعدلات بدلاً من الأكواد، فيمكنك إنشاء جدول بحث في شيت منفصل يربط الأكواد بالمعدلات. ثم يمكنك استخدام الدالة VLOOKUP لاستبدال الأكواد بالمعدلات في الشيت المجمع.