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

برنامج 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

السلام عليكم ورحمة الله وبركاتة الموضوع عن الفاتورة الالكترونية فى السعودية (هيئة الزكاة والدخل ) المرحلة الثانية تطبيق المرحلة الثانية يتم من خلال 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 سوف يتم التطبيق على البرامج التى تستخدم لغات برمجة قديمة بستخدام مكتبات مطورة بلغة حديثة يتم دمجها فى البرنامج اهم شىء هو اتصال البرنامج بالانترنت حتى يكون فى اتصال مع هيئة الزكاة والدخل.

السلام عليكم ورحمة الله استخدم الكود التالى Sub TrMarks() Dim ws As Worksheet, Sh As Worksheet Dim Arr As Variant, Tmp As Variant Dim LR As Long, i As Long, j As Long, p As Long Dim ArCol Set Sh = Sheets("Table") Sh.Range("A11:AW" & Sh.Range("B" & Rows.Count).End(3).Row+11).ClearContents Set ws = Sheets("Mark All") LR = ws.Range("B" & Rows.Count).End(3).Row ArCol = Array(1, 2, 3, 4, 5, 6, 7, 13, 18, 19, 24, 29, 30, 35, 40, 41, _ 46, 51, 52, 57, 62, 63, 68, 73, 74, 79, 84, 85, 90, 95, 96, 101, 106, _ 107, 112, 117, 118, 123, 128, 129, 134, 139, 140, 145, 150, 151, 156, 161, 162) Arr = ws.Range("A9:FF" & LR).Value ReDim Tmp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For i = 1 To UBound(Arr, 1) If True Then p = p + 1 For j = LBound(ArCol) To UBound(ArCol) Tmp(p, j + 1) = Arr(i, ArCol(j)) Tmp(p, 1) = p Next End If Next If p > 0 Then Sh.Range("A11").Resize(p, UBound(Tmp, 2)).Value = Tmp End Sub

بسم الله نبدأ عامنا الحالي بهذه الموسوعة 1200_Visual_Basic_macro_examples.rar عسى أن ينال إعجابكم

ليس هذا فقط بل جميع تنسيقات النموذج انظر الصورة ............................. كيف يبدو مع التاسك

طيب شوف كده >>>>>>>>>>>>>>>>>>>> جرب واخبرنا ................... Import Frome Excel File.rar

اذن جاري التعديل على مرفقك .... انظرني <<<<<<<<<

جرب المرفق .... اذا ناسبك ... طبق نفس تنسيق النموذج ...... ابو البشر.accdb

سؤالي كان محدد ..... لان اسماء الحقول لو كانت مختلفة .... فكيف تخبر البرنامج ان الاسم في هذا الجدول هو اسم الطالب في الجدول الاخر .... علما كان طلبك ان التصدير يكون لجداول يتم اختيارها من خلال الكمبوبكس اي ليس جدولا محددا ... فلو كان جدولا محددا كانت العملية سهلة عن طريق الالحاق وكفي ..... انظر الصورة لجدولين واختلاف الاسماء بها ....... ليس لدينا سوى حل واحد وهر الاعتمان على ترتيب الحقل في الجدولين ((( فهل ترتيب الحقول في الجداول المراد تصدير البيانات لها هي نفس ترتيب الحقول في جدول tbltemp

السلام عليكم ورحمة الله عليك الاتصال بصاحب البرنامج عبر رقم هاتفه أو عبر صفحته بالفيسبوك... وإذا كنت صاحب هذا البرنامج فالرجاء إلغاء الحماية على VBA على الأقل... وفي انتظار ذلك جرب الحل الأولي في المرفق... توزيع ملاحظة.xlsb

السلام عليكم قم بجمع كل الأعداد المتوفرة ثم تقسيم الناتج على الخلايا كلها... والملف الذي أدرجته في المرفقات لا يفي المطلوب جيدا...

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

يتبادر في الذهن سؤال :::: هل اسماء الحقول في الجدولين متشابهين تماما ( اقصد الجدول المنقول منه والجدول المنقول له ) أم تريد نقل البيانات كيفما كانت ........

2010

ممكن نستدعي تنفيذ الملف عن طريق الامر التالي Dim myPath As String myPath = "d:\kkkk.bat" Call Shell(myPath, 1) ---------- "d:\kkkk.bat" مسار واسم ملف الباتش

السلام عليكم ورحمة الله جرب المرفق لعل فيه ما تريد... كود تذييل للصفحة بناء على محتويات خلية.xlsm

يسرني ويسعدني أن أضع بين يديكم برنامج التدريب الالكتروني قمت بتصميمه من الصفر أخذ مني جهد ووقت كبير . استفدت من خبراء هذا المنتدى المبارك. لي طلب أن تدعو لوالدي وجميع مرضى المسلمين والمسلمات بالشفاء العاجل. هذا المشروع أضعه صدقة جارية لكل طالب علم ، و كل مشارك في هذا المنتدى . أسأل الله أن يتقبل منا ومنكم صالح الأعمال . ولا تنسونا من دعواتكم الصادقة في ظهر الغيب . اترك البرنامج لكم لتكتشفوا أسراره 😄 اضف مرفقات موجوده ProTraining20.zip

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

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم معلومات التلاميذ خاصة بدفتر الاحصاء.xlsx

السلام عليكم ..ان شاء الله يكون طلبك تجميع البيانات من اكثر من شيت الى شيت واحد.xlsm

اليك المثال المرفق اخي والمنقول من http://arabteam2000-forum.com/index.php?/topic/230499-اغلاق-نموذج-وفتح-نموذج-بالوقتj/#comment-1144604 ولو بحثت لوجدت في هذا المنتدى وغيره الامثلة الكثيرة اغلاق نموذج وفتح نموذج بالوقتj.rar

CurrentDb.Execute "DELETE * " & _ " FROM YourTbl " & _ " WHERE RgmRtba <>" & Me.RgmRtba

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

وعليكم السلام ورحمة الله تعالى وبركاته ..تقضل اخي جرب 1_MH.xlsm

السلام عليكم 🙂 وما في كائنات مخفية 🙂 والنتيجة النهائية ، لاحظوا الحقل الاخير على اليمين Change_Delete_Insert ، فهو يخبرنا اذا قمنا بعملة تعديل او حذف او اضافة : . جعفر Access Tables Magic.accdb.zip