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

السلام عليكم و رحمة الله ..استخدم هذا الكود Sub NoZiro() Dim ws As Worksheet, Lr As Long, p As Long, j As Long Dim Arr As Variant, Temp As Variant, i As Long Set ws = Sheets("ورقة1") Lr = ws.Range("B" & Rows.Count).End(3).Row Arr = ws.Range("B2:G" & Lr).Value ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For i = 1 To UBound(Arr, 1) If Arr(i, 5) <> 0 And Arr(i, 5) <> "" Then p = p + 1 For j = 1 To 6 Temp(p, j) = Arr(i, j) Next End If Next If p > 0 Then ws.Range("O2").Resize(p, UBound(Temp, 2)).Value = Temp End Sub

اشكرك اخي واستاذي @ابوبسمله ..رغم اني مطلع على المثال لكني اريد التطوير عليه بأعباره جزء من الحل اما ماتفضل به عزيزنا وولدنا الغالي استاذ موسى @Moosak فهو يعتبر الواجهة المعمارية ..جزاه الله خيرا ما افكر به استاذ موسى ...ان الكاشير يفتح لكل طلبية فاتورة (طبعا الفاتورة عناصرها غير منظمة لاحتمال الغاء الفاتورة)..تبقى تلك الفواتير مفتوحة ربما 10 او 20 فاتورة لحين تسديد الفاتورة تغلق تلك الفاتورة ليتم نقل البيانات الى الجدول ..ثم تأتي بقية الفواتير تباعا .. لا اعلم لماذا فكرت بهذه الطريقة ..ربما لان كل مطاعمنا في العراق ماعدا الوجبات السريعة يكون الدفع بعد تناول الطعام وليس قبله منتظر ابداع الاخ @rockjone33 اسف جدا لتاخري عن الاجابة بسبب انشغالي هذه الايام

طيب جرب المرفق واعلمنا ......( يجب ان تتطابق اسماء الحقول المستوردة مع الجدول المصدر له .......) Import Frome Excel File.rar

وعليكم السلام ..رجاءاً قبل طرح أى مشاركة جديدة عليك بإستخدام خاصية البحث بالمنتدى فطلبك تكرر كثير جداً .فيمكنك استخدام هذه المعادلة =VLOOKUP($A2,$G$2:$H$50,2,0)*$B2 معادلة if الشرطية 1.xlsx

وعليكم السلام ورحمة الله وبركاته أخي الكريم ..ضع المعادلة التالية في الخلية G19 واسحب نزولاً =IF(E19="";"";IF($H$11="";"";IF(D19<=12;1000;IF(D19<=22;1538;IF(D19>22;1296))))) للارسال.xlsm

وجدت هذا العمل الرائع في الانترنت منذ فترة وقدمه صاحبه مجاناً يرجو الدعاء لوالديه رحمهما الله تعالى :: بيانات صاحب العمل :: عبداللطيف طراقجي 2013و لغاية عام 2000 من عام ً مدرس تكنولوجيا المعلومات سابقا حاصل على شهادات في إدارة قواعد البيانات من شركة مايكروسوفت MCDBA SQLserver (Microsoft Certified Database Administrator) MOUS Access (Microsoft Office User Specialist) صفحته الشخصية My Certifications http://www.pinterest.com/abdotarakji/mycertifications هنا رابط التنزيل ولا تنسوني ووالديه وجميع المسلمين من دعائكم ،،،

السلام عليكم ورحمة الله وبركاتة الموضوع عن الفاتورة الالكترونية فى السعودية (هيئة الزكاة والدخل ) المرحلة الثانية تطبيق المرحلة الثانية يتم من خلال 3 مراحل هما :- 1- مرحلة تجهيز ملف xml الخاص بالفاتورة 2- مرحلة التوقيع الإلكترونى لملف xml 3- مرحلة ارسال الملف بعد التوقيع الى هيئة الزكاة والدخل 1 – يمكنك متابعة هذا الرابط لمعرفة كيفية انشاء ملف xml الخاص بالفاتورة والحقول الالزامية والحقول الغير الزامية https://zatca.gov.sa/ar/E-Invoicing/SystemsDevelopers/Pages/E-Invoice-specifications.aspx هذا هو اهم واصعب شىء فى موضوع الفاتورة الالكترونية يجب قراءة بعناية حيث ان ملف ال xml اذا وجد به خطأ سوف يتم رفضة من هيئة الزكاة والدخل 2 – مرحلة التوقيع الإلكترونى لملف xml هذا هو اسهل شىء بالمرحلة الثانية كل ما عليك هو الدخول الى موقع هيئة الزكاة والدخل ثم تختار بوابة مطورو انظمة الفاتورة الالكترونية والتسجيل بها ثم تحميل ال sdk الخاصة بهيئة الزكاة والدخل والتى يوجد بها وظيفة توقيع ملف xml الخاص بالفاتورة بمفتاح التشفير الخاص بالمؤسسة وايضا بها وظيفة للتأكد من صحة التوقيع الالكترونى لملف الفاتورة يوجد فى ملف sdk فولدر به امثلة للفاتورة xml وكذلك الاشعار الدائن والمدين 3 – مرحلة ارسال الملف الموقع الى هيئة الزكاة والدخل من خلال ال api الخاصة بالهيئة توفر هيئة الزكاة والدخل مجموعة وظائف api لأستخدامها لرفع ملف الفاتورة والتأكد من صحتة يوجد بعض الروابط خاصة بالبيئة التجريبية يمكنكم استخدامها حتى يتم اخطاركم من قبل هيئة الزكاة والدخل بموعد التنفيذ الفعلى للفاتورة يمكنكم مشاهدة هذة الفيديوهات سوف تجدون بها الحقول الالزامية لتكوين ملف xml C# or VB.Net https://youtu.be/hO3XdQTa5ZU VB6 - VBA https://youtu.be/qTWA8IWYIjo ملحوظة قد تكون مهمة للبعض يمكنك تطبيق المرحلة الثانية من الفاتورة الالكترونية اذا كنت تستخدم اى لغة برمجة حديثة مثل C# او قديمة مثل VB6 سوف يتم التطبيق على البرامج التى تستخدم لغات برمجة قديمة بستخدام مكتبات مطورة بلغة حديثة يتم دمجها فى البرنامج اهم شىء هو اتصال البرنامج بالانترنت حتى يكون فى اتصال مع هيئة الزكاة والدخل.

لاحظ اخي المشكلة اين ؟؟؟؟ انظر الصورة الاسماء مختلف وليس سوى حقل واحد متشابه

برنامج Generate QR Code إنشاء رمز الاستجابة السريعة لاحظت في الفترة الاخيرة عدة طلبات تدور حول QR Code لحاجته بالفواتير الاكترونية وهو عبارة عن كود يضم اسم السلعة او الخدمة وسعرها او حسب الحاجة اليه وما يحتويه من بيانات عن الخدمة او المنتج . البرنامج سهل ويسير ويمكن تعديله بسهولة بما يتناسب الاحتياجات المختلفة شرح البرنامج البرنامج لا يحتاج اضافة اي خطوط للويندوز يعمل من خلال https://developers.google.com/chart/infographics/docs/qr_codes تحديدحجم الكود(الطول ×العرض) من خلال QR Code Size الخيارات المتاحة اولا : لاستخدامه علي سلعة واحدة نختار حجم الكود من خلال QR Code Size القيمة الافتراضية 1 دبل كليك علي اسم السلعة في الليست بوكس ثم نضغط علي Generate In Sheet لتوليد الكود امام السلعة في نفس الشيت ثانيا: لاستخدامه علي كافة السلع او الخدمات مرة واحدة لاختيار الجميع نختار All قم Generate In Sheet ثالثا : لتصدير الكود كصورة بامتداد JPG لتصدير كود لسلعة واحدة نفس الخطوات السابقة دبل كليك علي السلعة ثم Save QR لتصدير الكود لجميع السلع مرة واحدة نختار All ثم Save QR المجلد لحفظ نفس مسار الملف داخل مجلد Dahy اتمني ان تكون فيه الفائدة مع تحياتي الملف بالمرفقات ملف مضغوط يحتوي علي البرنامج ومجلد حفظ ال QRCode QR Code Dahy Algharieb.rar

اخواني جمعيا جزاكم الله خيرا علي مروركم الجميل ودعائكم الطيب واللهم ينفعنا بما علمنا تقبلوا تحياتي

صدق من قال اسأل به خبيرا .. اشكرك اخ محمد كل الشكر نعم هذا ما اريده وفقك الله وبارك لك وفيك

تحية طيبة في المرفقات حل أولي لما تريده مع بعض التعديلات على الملف (تعديل على التنسيقات، إضافة جداول مساعدة، وضع المعادلات المناسبة للمطلوب).... محمد درويش.xlsx

بالنسبه للنقطه رقم 1 ممكن تعدل كود البحث باستخدام دالة len If IsNull(Me.searchtext) Or Me.searchtext = "*" Then MsgBox "لم تقم بكتابة عبارة البحث": Exit Sub ElseIf Len(searchtext) < 3 Then MsgBox "عدد الاحرف المكتوبة اقل من 3 احرف": Exit Sub ElseIf Len(searchtext) >= 3 Then a1.Visible = True a2.Visible = True a3.Visible = True a4.Visible = True sq1 = " SELECT [On air 4G info sites].المعرف, [On air 4G info sites].GOV, [On air 4G info sites].Region, [On air 4G info sites].[Coverage Area] FROM [On air 4G info sites] WHERE ((([On air 4G info sites].[Coverage Area]) Like ""*"" & [forms]![form1]![searchtext] & ""*""));" Me.RecordSource = sq1 End If

وعليكم السلام ورحمة الله وبركاته أخي عدنان 🙂 تفضل .. ( أضفت عمود الوظيفة للقائمة المنسدلة ثم جعلت مصدر مربع النص هو العمود الثاني للقائمة المنسدلة) test (5).accdb

وعليكم السلام ورحمة الله وبركاته أخي @kamelnet5 🙂 قمت بتحميل الملف ووجدته يعمل بدون إشكال .. قم بتحميل الملف مرة أخرى وجرب مجددا .. وكانت تحصل لي نفس المشكلة سابقا مع ملفات أخرى فاكتشفت أن المشكلة في برنامج ال winrar فأعدت تنصيبه وعادت الأمور لنصابها .. 👍🏼

اخوتي الاعزاء الحمد لله جربت البرنامج في مكان عملي بعدما عملت تغيير لغه اعدادت المنطقه كمافي الصوره التي في الاسفل غيرتها الى العربيه المملكه العربيه السعوديه واشتغل البرنامج بشكل طبيعي واختفت الرساله التحذيريه شكراً للجميع .

السلام عليكم ورحمه الله وبركاته مشاركه مع اخوتى الافاضل جزاهم الله عنا كل خير اتفضل اخى @AliAli47 ان شاء الله يكون ما تريد والحل مقتبس بعد البحث عنه من الرابط التالى https://stackoverflow.com/a/57363752/12421451 Private Sub Form_Open(Cancel As Integer) Dim cdb As DAO.Database ' Database Dim imt As DAO.Recordset ' Import Table Dim rst As DAO.Recordset2 ' Events Table Dim asp As DAO.Recordset ' Multi Value Field Set cdb = CurrentDb Set rst = cdb.OpenRecordset("Table1", dbOpenTable) Set imt = cdb.OpenRecordset("Table2", dbOpenTable) rst.AddNew 'Add new record to Events Table Set asp = rst!taypes.Value ' Set asp to the AssignedPersonnel Field Value for the new Events Table Record. Do While Not imt.EOF ' Cycle through the Import Table Records asp.AddNew ' Add a new record to the asp Recordset asp.Fields(0) = imt!ID asp.Update ' Commit the changes to the asp Recordset imt.MoveNext Loop rst.Update ' Commit the changes to the Events Table Recordset DoCmd.Requery DoCmd.GoToRecord , , acLast End Sub بالتوفيق checklist_1.accdb

وعليكم السلام ورحمة الله وبركاته مهندسنا العزيز @Eng.Qassim 🙂 زادك الله علما وفهما ومتعنا الله بوجودك معنا 🌹 بالنسبة لي ولأني أحب التحديات والخروج عن المألوف جائت في بالي فكرة .. وهي أن يكون تصميم النموذج بهذه الصورة أمام المحاسب : حيث أن الطاولات الخضراء مشغولة .. والرمادية شاغرة .. وبالضغط على الطاولة المطلوبة يفتح نموذج الفاتورة الخاص بها حسب الرقم المكتوب ( وهو رقم الفاتورة ) بحيث يكون دايناميكي متغير .. وطبعا ألوان الطاولات تكون عبارة عن مربعات نص معمول لها تنسيق شرطي مثلا يتغير تلقائيا عند حجز الطاولة .. طبع الفاتورة تضل مخفية ( ومحجوزة في نفس الوقت ) إلى أن يتم الدفع .. وبهذه الطريقة نستغني عن نماذج الفواتير التي ستتكدس أمام المستخدم .. وفي ذات الوقت سيسهل الوصول إلى أي طاولة يريدها .. ما هور رأيك ؟؟ ولعلي أكون قد غفلت عن أشياء يعلمها أهل الحساب 😅 🌹

الشكر لله اخي مالك

وعليكم السلام ورحمة الله تعالى وبركاته هناك عدة طرق منها اختيار خانة معينة مثال لنفترض ان اسم الماكرو هو (Macro3) سيتم اعادة التشغيل للماكرو بشرط القيمة الموجودة في الخلية A1 Sub test1() Dim i As Long For i = 1 To Range("A1").Value Macro3 Next i End Sub كما يمكنك ادخال عدد التكرار يدويا بهده الطريقة Sub test2() Dim i As Long Dim N As Variant N = InputBox("اختر عدد مرات التكرار") If Not IsNumeric(N) Then Exit Sub For i = 1 To N Macro3 Next i End Sub اليك ملف للتجربة test_macro.xlsm

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

يمكنك استعمال هذه المعادلة في الخلية D12 =IFERROR(IF(INDEX(D$6:D$10,MATCH($C12,$C$6:$C$10,0))="",CHAR(251),IF(COUNTIF($C12:C12,CHAR(252))>=$L12,CHAR(251),CHAR(252))),"") مع تغيير نوع الخط في هذه الخلية إلى wingdings لتظهر علامة الخطأ والصواب مع سحب المعادلة يمينا ثم أسفل بالتوفيق

هذه مشاركة لاحد الأساتذة ( الاستاذ / طارق محمود ) يشرح فيها pivot table يمكنك الاطلاع عليها

تفضل و في حدث OnOpen للنموذج Private Sub Form_Open(Cancel As Integer) On Error Resume Next If DCount("*", Me.RecordSource) = 0 Then 'note that me.recordsource is generic - you dont need to specify the actual query MsgBox ("Nothing to display") Cancel = True Exit Sub End If End Sub لا داعي لتعديل اي شيء استخدم الكود كما هو و سيتم التعرف على مصدر السجلات مباشرة لا بد من استخدام On Error Resume Next لتجنب رسائل الخطأ

السلام عليكم أخي العزيز لاداعي للزر فقط ضع الماوس علي أي من الخلايا الصفراء التي بها أسماء الأساتذة تفضل المرفق school2.rar