كل الانشطه

وعلى طاري صياد الأخطاء وأنا اكتب كود مرة بعد ما انتهيت تبادرت لذهني فكرة وسألت الذكاء الاصطناعي يعطيني جميع أرقام الأخطاء المحتملة للعملية اللي أشتغل عليها وصفلي في حدود 8 ال 9 أخطاء محتملة ما خطرت على بالي .. وريحني وكفاني من عناء التجارب .. 🙂👌 هذي العبارة ترد لي الشباب 😂✋🏻

حاولت العب ، بس البرنامج يغلق بعد ان ادخل اسمي !!

وعليكم السلام ورحمة الله وبركاته على طاري الاولاد ، كنت اعمل على نموذج واكتب الكود لاصطياد جميع انواع الاخطاء ، وانتهيت من العمل. جاء احد الاحفاد ، وما اعرف شو عمل على الشاشة ، واذا يظهر لي خطأ جديد ، ولا عرفت كيفبة ظهوره !! فكرة جميلة ، شكرا للمشاركة 🙂

اعرض الملف 🧮>> لعبة مطابقة الأرقام <<🧮 :: هدية خفيفة :: لتنمية مهارة التركيز 😉👌 :: السلام عليكم ورحمة الله وبركاته 🙂 🖐🌷 :: اليوم جايب لكم هدية خفيفة وظريفة 😊🎁 🧮🧮>> لعبة مطابقة الأرقام <<🧮 وأنا جالس مع الأولاد قلت أعلمهم شوية أكسس وأحنا بنلطش فيه ( بنخبص فيه 😅) جات لنا فكرة هذي اللعبة وجلسنا نطور فيها أنا والأولاد بأفكارهم الجميلة وتنفيذي المتواضع 😊 لحد ما وصلنا للنتيجة هذي . وهذي صورة اللعبة : وكيفية اللعب : :: ولا تنسونا من صالح دعواتكم 😊🤲:: صاحب الملف Moosak تمت الاضافه 05/30/25 الاقسام قسم الأكسيس  

السلام عليكم استاذة كرام هذا الملف سوف يكون مكون تقريبا من 7 الاف إلى 8 آلاف اسم ..... أحتاج ان يرسل رسالة إلى رقم الواتساب اذا كان لديه واتساب وان يتجاوز الرقم اذا لم يكن لديه واتساب 1) يرسل صورة في عمود (صوره الكتاب) احيانا مشتركة ل100 شخص نفس الصورة واحيانا لشخص واحد 2) يرسل صوره في عمود ( الكارت ) نفس الصورة لجميع الأشخاص 3) يرسل رسالة موحده في عمود ( الرسالة ) نفس الرسالة لجميع الاشخاص ارسال رسائل الى الواتساب1.accdb

وعليكم السلام ورحمة الله تعالى وبركاته إذن أخي الكريم على الأقل قم بإرفاق ملفك وبه الأكواد المطلوبة مع ذكر النواة التي تستخدمها حاليا هل هي 32 أو 64 لتوضيح ما يظهر معك من أخطاء عند محاولة تنفيذ الكود لا يمكن العمل على التخمين !!!

أخي @algammal جزاك الله خيرا على كلماتك الطيبة وطرحك الرائع وأسأل الله أن يجعل عملنا هذا في ميزان حسناتنا جميعا سررت كثيرا بتقديرك وتشجيعك الكريم وهذا هو الدافع الحقيقي للاستمرار والعطاء بخصوص الملاحظات التي أشرتم إليها في مشاركتكم السابقة للأستاذ @عبدالله بشير عبدالله جزاه الله خيرًا على تفانيه الدائم في إثراء المواضيع بمساهماته القيمة فقد تم الاطلاع عليها بعناية والعمل على تطبيقها على الـ UserForm أيضا وذلك لضمان تجربة أكثر تكاملا وسلاسة في الأداء 1) قائمة أسماء أيام الأسبوع في الخلايا (H5) و(K5) تم إضافة ميزة البحث حسب اليوم بشكل مباشر وذلك من خلال استبدال المعادلات في ورقة DATA لتتوافق مع اللغة العربية بالشكل التالي: يوم تاريخ الميلاد =IF(I5="خطأ بالرقم القومى", "", IF(I5<>"", CHOOSE(WEEKDAY(I5, 2), "الإثنين", "الثلاثاء", "الأربعاء", "الخميس", "الجمعة", "السبت", "الأحد"), "")) يوم تاريخ المعاش =IF(L5="", "", CHOOSE(WEEKDAY(L5, 2), "الإثنين", "الثلاثاء", "الأربعاء", "الخميس", "الجمعة", "السبت", "الأحد")) 2) ملاحظات الخلية (M5) نظرا لاستخدام UserForm فلا حاجة لإدراج قائمة منسدلة يدويا لأن عناصر الـ ComboBox تتعرف تلقائيا على القيم المختلفة الموجودة في الأعمدة مع الحرص على عدم تكرارها هذا يسهل عملية التصفية ويجعل الواجهة أكثر ديناميكية وسلاسة في الاستخدام 3) الخلية (A5) والبحث بالترقيم التسلسلي: تم تجاهل الترقيم التسلسلي في البحث لأنه لم يعد ضروريا مع اعتماد واجهة الـ UserForm التي تتعامل مع البيانات مباشرة وتغطي كافة الأعمدة المتوفرة ضمن النطاق A:M في الرقتين (Data و معاشات) ومع ذلك إذا كانت هناك حاجة حقيقية لإستخدام المسلسل لأغراض معينة (مثل تتبع أو فرز إضافي) أو البحث بواسطته فيمكننا طبعا إضافته بكل سهولة لا ننسى تقديم الشكر الجزيل لكل من الأساتذة @عبدالله بشير عبدالله و @Foksh الذين ساهموا في إثراء الموضوع بملاحظاتهم القيمة وجهودهم المباركة جزاكم الله خيرا توحيد البحث في شيت واحد v4.xlsb

بارك الله فيكما وأكثر الله من أمثالكم وزادكم الله من علمه

تعقيباً على ما أشار إليه المهندس @Moosak ، ومن باب التوضيح ، فإن الترتيب المثالي ( من الناحية الفنية والأداء ) يجب أن يكون :- الثوابت ( Constants ) يجب أن تظهر بعد الإعلانات لأنها قد تعتمد على قيم من الإعلانات . الإعلانات ( Declares ) يجب أن تكون في البداية لأن الكود البرمجي يعتمد عليها . وضع الكود البرمجي في النهاية يجعل الكود أكثر تنظيماً وسهولة في القراءة . فشكراً للفت الإنتباه لهذه النقطة ، وقد تم الانتهاء منها بإذن الله تعالى .

انا آسف لمشاركتك الموضوع ، حاولت أوضحلك الفكرة أن ما فيش كود يقدر يحل مشكلتك بالبساطة اللي انت متخيلها . تحويل الأكواد دي بحر وااااسع ومش بكود بسيط تقدر تمشي أي كود على النواتين 32 و 64 . شكراً لك ، وأعتذر عن مشاركتي السابقة اللي انت ما استفدتش منها حاجة .

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

وعليكم السلام ورحمة الله وبركاته ،، أتمنى أن تكون الصورة قد وضحت لي وتم فهمها بالشكل الصحيح 😅 .. انظر للصورة الأولى :- والنتيجة للصورة الثانية :- هل تلبي المطلوب بالشكل الصحيح ؟ خبرتي في اكسل قليلة جداً مقارنة مع الأساتذة ( دون استثناء ) في هذا الصرح الكبير . التنفيذ تم باستخدام الماكرو التالي :- Sub FillAccountNum() Dim ws As Worksheet Dim lastRow As Long Dim i As Long, j As Long Dim accountVal As String Set ws = ActiveSheet lastRow = ws.Cells(ws.Rows.Count, "K").End(xlUp).Row For i = 2 To lastRow If InStr(1, ws.Cells(i, "K").Value, "متبقي تعاقد مشروع قسط") > 0 Then For j = i + 1 To lastRow If Trim(ws.Cells(j, "A").Value) Like "Account*" Then accountVal = ws.Cells(j, "A").Value ws.Cells(i, "A").Value = accountVal Exit For End If Next j End If Next i End Sub المرفق بعد التنفيذ :- EXPORT.xlsm وفيما يلي ، توضيح لتفعيل وضع المطور واختيار الماكرو للشيت الحالي .. جرب وأخبرني بالنتيجة ، للمتابعة .

شكرا لك و لك كل التقدير والاحترام

السلام عليكم ورحمه الله وبركاته - أرجو طباعة الشهادات PDF 2022شيت مدرستى شهادات الأول والثانى- الصف الأول.xls

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

جميل جداً .. ستتم المتابعة

السلام عليكم كل عام وحضراتكم بالف خير طلب من اخواننا الخبراء احتاج كود مختصر وسهل فاانا لست خبير يتم وضعه في ملف الاكسل يجعل اكواد الملف تعمل سواء كانت البيئة ٣٢ بايت او ٦٤ بايت وجزاكم الله خير وكل عام وانتم بخير

سلمت الأنامل ياصاحب اللمسات الذهبية 😊 بعد التعديل : المشكل الأول : المشكل الثاني (بعد إزالة الشرط السفلية يدويا) : وأعزوه إلى وجود دوال الAPI في الأسفل بدل وجودها في أعلى صفحة الموديول والله أعلم ، لأن المشكلة تختفي بعد رفعها في الأعلى

ولأجمل هو تشريفكم لنا بملاحظاتكم ومروركم العطر .. بارك الله فيكم ، وهي ما زالت في طور التحديث كلامك سليم ، وكانت من ضمن الاحتمالات التي مررت بها ، ولكن لله الحمد تم إضافة التعديل وأصبحت النتيجة لأول تجربة لك = '=================================================== ' API Code Converter for Dual Compatibility (32-bit & 64-bit) ' Developed By Foksh (Officena.Net) ' Generated on: 2025-05-29 10:34:09 ' Tool version: v1.3 '=================================================== #If VBA7 And Win64 Then ' 64-bit declarations Public Declare PtrSafe Function CopyFile Lib "kernel32" Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long #Else ' 32-bit declarations Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA"(ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long)As Long #End If لمتابعتكم إن كانت النتيجة صحيحة .. جزاااكم الله خيراً تم الاطلاع واكتساب الفائدة . والتجربة الثانية ، بعد التحديثات الحالية كانت نتيجتها = '=================================================== ' API Code Converter for Dual Compatibility (32-bit & 64-bit) ' Developed By Foksh (Officena.Net) ' Generated on: 2025-05-29 10:37:15 ' Tool version: v1.3 '=================================================== Private Const KEYEVENTF_KEYUP = &H2 ' Get the current state of the NumLock key Function GetNumLockKey() As Boolean GetNumLockKey = GetKeyState(vbKeyNumlock) End Function Sub SetNumLockKey(ByVal newState As Boolean) ' if the current state must be changed If CBool(GetKeyState(vbKeyNumlock)) <> newState Then ' programmatically press and release the NumLock key keybd_event vbKeyNumlock, 0, 0, 0 keybd_event vbKeyNumlock, 0, KEYEVENTF_KEYUP, 0 End If End Sub #If VBA7 And Win64 Then ' 64-bit declarations Private Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long #Else ' 32-bit declarations Private Declare Sub keybd_event Lib "user32"(ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Declare Function GetKeyState Lib "user32"(ByVal nVirtKey As Long)As _ Long #End If هل توافق المطلوب أم لا ؟؟ هذه النقطة كنت قد سهوت عنها من كثرة التجارب ، وكنت اعتمد القص بدلاً من النسخ 😅 . سيتم اعادة الكود للنسخ بدلاً من القص .

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

التجربة الثانية : Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _ Long Private Const KEYEVENTF_KEYUP = &H2 ' Get the current state of the NumLock key Function GetNumLockKey() As Boolean GetNumLockKey = GetKeyState(vbKeyNumlock) End Function Sub SetNumLockKey(ByVal newState As Boolean) ' if the current state must be changed If CBool(GetKeyState(vbKeyNumlock)) <> newState Then ' programmatically press and release the NumLock key keybd_event vbKeyNumlock, 0, 0, 0 keybd_event vbKeyNumlock, 0, KEYEVENTF_KEYUP, 0 End If End Sub والناتج : '=================================================== ' API Code Converter for Dual Compatibility (32-bit & 64-bit) ' Developed By Foksh (Officena.Net) ' Generated on: 2025-05-29 09:11:57 ' Tool version: v1.2 '=================================================== Private Const KEYEVENTF_KEYUP = &H2 #If VBA7 And Win64 Then ' 64-bit declarations Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _ Long #Else ' 32-bit declarations Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _ Long #End If أولا : ما أضاف الدوال GetNumLockKey و SetNumLockKey في الناتج تماما ..! ثانيا : لا حظت أنه بعد نسخ الناتج يمسحه من النموذج (الأفضل أن يضل مكانه ) في ظل وجود الزر (مسح الحقول) :

السلام عليكم ورحمة الله وبركاته

ماشاء الله عليك باش مهندس @Foksh 🙂🌹 اللي أجمل من التنفيذ هو الفكرة نفسها .. فتح الله عليك 😊 مبدأيا وأول تجربة للأداة .. شوف أنت واحكم بنفسك 😁: ' --------------------------<< المصدر >>---------------------- Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long ' --------------------------<< النــاتج >>---------------------- '=================================================== ' API Code Converter for Dual Compatibility (32-bit & 64-bit) ' Developed By Foksh (Officena.Net) ' Generated on: 2025-05-29 08:45:50 ' Tool version: v1.2 '=================================================== #If VBA7 And Win64 Then ' 64-bit declarations Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long #Else ' 32-bit declarations Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long #End If حاسس أنه ماشي تغير في دالة ال API أو فيه شي ناقص (PetrSafe) مثلا ؟؟!! 🤔 وللفائدة هذي مكتبات كبيرة لأكواد ال API ممكن تستفيد منها : https://binaryworld.net/Main/Api.aspx?L=3 http://vbnet.mvps.org/

وهو كذلك شكرا استاذ Foksh