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

هو فى حد بيجري وراك 😁🤣 خد وقتك يا ريس

النتيجة V2.xlsm

تم الحل جربي خضرتكمشكلة المجموع.xlsb

ما شاء الله اللعبه جميع لكن اشعر اني فى كل مره بتوه فين انا 🙂 اقترح ايضا عليك لو تضيف P1 و P2 فى الدائرة للتمييز ايضا اضم صوتي لصوت استاذي موسي لوضع الاصوات التفاعليه ايضا اقترح عليك اضافة صوره تظهر للفائز بدل الرسالة العادية ايضا اقترح عليك اضافة حقلين لكتابة اسم اللاعب حتى يظهر الاسم داخل الصورة للفائز وممكن تضيف ايضا حقلين للون الدائة لكل فائز 😁 فى العموم عمل رائع سلمت يداك🌹🌹🌹

تفضل اخي نفس الفكرة سيتم انشاء مجلد في نفس مسار المصنف باسم ملفات word وحفظ الملفات بداخله تمت اظافة الاكواد على الشيتات المطلوبة Sub ExcelToWordSheet1() Dim lr As Long Dim WS As Worksheet: Set WS = Sheets("Sheet1") Msg = MsgBox("؟" & " " & "Word " & ":" & " تصدير التقرير بصيغة", vbYesNo, WS.Name) If Msg <> vbYes Then Exit Sub On Error Resume Next Dim docDest As Word.Document Dim srcWS As Word.Application Set srcWS = CreateObject("word.application") srcWS.Visible = True xName = "ملفات Word" XPath = ThisWorkbook.path & "\" & xName lr = WS.Cells(WS.Rows.Count, "A").End(xlUp).Row WS.Range("A7: k" & lr).Copy Set docDest = srcWS.Documents.Add srcWS.Selection.PasteExcelTable _ LinkedToExcel:=False, WordFormatting:=False, RTF:=False Application.CutCopyMode = False srcWS.ActiveDocument. _ PageSetup.Orientation = wdOrientLandscape srcWS.ActiveDocument. _ PageSetup.PaperSize = WdPaperSize.wdPaperA3 If Dir(XPath, vbDirectory) = "" Then MkDir XPath docDest.SaveAs XPath & "\" & WS.Name & ".docx" docDest.Close Set docDest = Nothing srcWS.Quit Set srcWS = Nothing MsgBox "Done", vbInformation End Sub ملاحظة في حالة قمت بنسخ الاكواد الى ملف اخر لا تنسى تفعيل الخاصية التالية 2025 v2.xlsm

السلام عليكم ورحمة الله وبركاته ، أخواني وأساتذتي ومعلمينا ( دون استثناء ) طبعاً المكتوب باين من عنوانه . هي اللعبة المعروفة والتي لعبها منا على الأغلب الجميع في طفولته .. من يبدأ اللعب هو من يحصل على أعلى رقم من القرعة . اللعبة يلعبها لاعبين اثنين فقط . يتم تسجيل النقاط لكل لاعب في خانة منفصلة . طريقة التحرك بنمط حجر النرد ( ولا أعلم إن كان البعض سيقول لي أن النرد حرام ) لكنه هنا ليس حجر نرد حقيقي وإنما فكرة اختيار عشوائي لصور أوجه حجر النرد ) الأرقام ) تدل على خطوات التقدم . الصعود لأعلى عند وصول اللاعب إلى أول السلم حتى الخانة التي تمثل رأس السلم . وكما الصعود !! سيكون لدينا النزول عند وصول اللاعب إلى رأس الثعبان سينزل باتجاه الذيل نزولاً .. تسجيل الحركات الإنتقالية لكل لاعب في مربع الحركات أسفل اللعبة . في حال الوصول إلى 95 سيحتاج اللاعب للوصول إلى الهدف 100 إلى 6 نقاط أو أقل ، فلو تقدم الى 99 كمثال هنا سيحتاج الى نقطة واحدة للتحرك وللفوز . فلو كان الاختيار العشوائي للصورة فرضاً 4 فلا يتم تحقيق الفوز إلا بالرقم 1 .... وهكذا . عند فوز أحد اللاعبين ، سيتحول الزر إلى لعبة جديدة . إمكانية تكبير النموذج لملئ الشاشة أو لا ، حسب رغبتك صور من اللعبة :- ملف اللعبة مفتوح المصدر Snake3.accdb

اخي بعد معاينة ورقة العمل الخاص بك لاحظت ان الخلفية الزرقاء هي في الاصل اسم النطاق المسمى Name_Rang0 قم بحدفه وتنظيف ورقة العمل من النطاقات والتنسيقات الغير مستخدمة وستختفي معك الخلفية بادن الله اليك الملف بعد حدف جميع النطاقات الغير مستخدمة والخاطئة مع البقاء على التنسيق الشرطي كما كان من قبل New ورقة عمل Microsoft Excel.xlsb

تفضل أستاذ @Omar Abdulrahman كل المواضيع التي تناولت موضوعك من هنـــــــــــا .

وانا جربت المثال المرفق عند البحث تظهر مبالغ المقترضين وبياناتهم عادى ممكن يكون الاوفيس عندك فيه حاجة خصوصا الارقام

بارك الله فيك يالغالي Foksh عمل رائع

أستاذ @عمر ضاحى ، نورتني بمشاركتك معايا أفكارك ، جزاك الله كل خير ، هو فعلاً جاري العمل على عدة تطويرات ، ولكن ضي الوقت لم يسعفني بالسرعة المطلوبة .. إن شاء الله قريباً التحديثات والإضافات التي تشورون علي بها . ههههههه إن كنت ناسي ، فأنا فاكر وتم العمل عليها , لكني أعتقد أن العبارات قد تكون رسمية أو باللغة العربية الفصحى إلى حد ما لإختلاف اللهجات والمصطلحات في اللغة العربية . لكني سأحاول توظيف الفكرة كما تريدون .. تصدق أولادي أمس لعبوا على اللعبة وراحوا يقطعوا بعض في اللعبة

فعلا هو موجود بعد عرض التقرير انقر بزر الفأرة الأيمن ستظهر لك قائمة تصدير اكسل / وورد / pdf FinancialPrg11.rar

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

فيه نقطة إضافية بعد تذكرتها الآن .. 😊 - العبارات والمراحل والرسائل ياريت لو تكون كلها باللغة العربية ، عشان العيال 😁🌼

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

أخي الكريم @أمير ادم ، أسعد الله أوقاتك ، وأعتذر عن المحاولات السابقة إلى أن توضحت الأمور في متطلبات رمز الـ QR . من الواضح أن هيئة الزكاة تعتمد على طريقة تشفير وترميز البيانات باستخدام EncodeTLV . ثم يتم تشفير البيانات باستخدام الترميزات EncodeBase64 ، كما كان في تجربة سابقة لفهم آليه التشفير .. والحمد لله أعتقد أنني توصلت إلى حل . جرب هذا الكود كاملاً مع وظائف التشفير والإسترداد بالترميز الذي يتعرف عليه نظام الفاتورة الإلكترونية :- Option Compare Database Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _ (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, _ ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long Private Sub Command18_Click() On Error GoTo ErrorHandler Dim apiUrl As String Dim qrData As String Dim savePath As String Dim result As Long Dim sellerName As String Dim vatNumber As String Dim invoiceDate As String Dim totalAmount As String Dim vatAmount As String sellerName = Me.AD_Company_Vendor_Name vatNumber = Me.AD_Tax_Number invoiceDate = Me.AD_Invoice_Time_and_Date totalAmount = Me.AD_InvoiceAmountwithaddedvalue vatAmount = Me.AD_VAT Dim tlvData As String tlvData = Chr(1) & EncodeTLV(sellerName) & _ Chr(2) & EncodeTLV(vatNumber) & _ Chr(3) & EncodeTLV(invoiceDate) & _ Chr(4) & EncodeTLV(totalAmount) & _ Chr(5) & EncodeTLV(vatAmount) qrData = EncodeBase64(tlvData) apiUrl = "https://api.qrserver.com/v1/create-qr-code/?data=" & qrData & "&size=200x200" savePath = Application.CurrentProject.Path & "\qr_code.bmp" result = URLDownloadToFile(0, apiUrl, savePath, 0, 0) If result = 0 Then Me.imgQRCode.Picture = savePath Else MsgBox "Failed to download QR code image.", vbExclamation End If Exit Sub ErrorHandler: MsgBox "An error occurred: " & Err.Description, vbCritical End Sub Private Function EncodeTLV(value As String) As String EncodeTLV = Chr(Len(value)) & value End Function Private Function EncodeBase64(value As String) As String Dim bytes() As Byte Dim xmlDoc As Object Dim xmlNode As Object Dim base64Data As String Set xmlDoc = CreateObject("MSXML2.DOMDocument") Set xmlNode = xmlDoc.createElement("Base64Data") xmlNode.DataType = "bin.base64" bytes = StrConv(value, vbFromUnicode) xmlNode.nodeTypedValue = bytes base64Data = xmlNode.Text Set xmlNode = Nothing Set xmlDoc = Nothing EncodeBase64 = base64Data End Function وهذا الملف بعد التعديل Qrcode.accdb

ايه ده شغل على العالى جبار ياضديقى فى الاكسس فن ـ ولعب ـ وهندسة هذا هو معلمنا / فايد

ما شاء الله تبارك الرحمن مهندس @Foksh روعة الفكرة وجمال التنفيذ .. لله درك 🙂👌 أقترح عليك (مجرد اقتراح 😁🖐) .. - أضافة أصوات تفاعلية للعبة لإضافة المزيد من الحماس التفاعلي .. وخصوصا عنا ارتقاء السلالم أو عند لدغات الأفاعي 🙂 . - إظهار حركة تقدم اللاعبين حين الإنتقال من مربع لآخر لإزالة الجمود من اللعبة. وأما الباقي فبسم الله عليك من الحسد

اقدم لكم برنامج من خلاله تستطيعون تفعيل او الغاء الشفت لبرامجكم . Shift.rar

رائع جداً استاذ كمال