كل الانشطه

شكرا جزيلا استاذ @عبدالله بشير عبدالله

وعليكم السلام ورحمة الله وبركاته .. هل قمت بتمكين المحتوى ( مركز التوثيق ) وتفعيل الماكرو في خيارات آكسيس ؟؟؟؟ ثانياً ، انقر فوق ملف آكسيس ( مشروعك ) بالزر الأيمن للفأرة ، واختر خصائص ، وقم بالتعليم على خيار فك الحظر Unblock ( إن كان موجوداً ) طبعاً هذه المقترحات بالإفتراض إن لغة الترميز Unicode مضبوطة على اللغة العربية لبلدك

انا اعمل على اوفيس 32 بت وندوز 10 64

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

ها انت عثرت على سبب المشكلة اولا تأكد ان الأوفيس 23 بت وليس 64 وإلا انت مضطر لإصلاح وتهيئة الاكواد للعمل على 64

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

السلام عليكم عندي قاعدة بيانات اكسس كانت تعمل بشكل جيد .وقعت مشكلة في الوينداوز فعملت لبه فورمات .واعدت تنصيب وينداوز 10 جديد . المشكلة ان قاعدة البيانات بعد تنصيب الاوفيس لم تعمل رغم تمكين الماكرو وضبط الوقت واللغة . ولكن الملاحظ هو ان اكواد vba هي التي لا تعمل ولكن اوامر المايكرو تعمل بشكل عادي مالسبب وكيف اعالج الامر ؟ وشكرا لكم

السلام عليكم عندي ملف يحتوي على ثلاث شيتات الشيت الاول الصمة الذي يحتوي على البانات الشيت الثاني الاوقات يتضمن اوقات البصمة من والى والشيت الثالث - خلاصة البصمة - عمل خلاصة عن ضوء البيانات في شيت البصمة وشيت الاوقات وكما موضح بالملف المرفق وبعض النتائج المطلوبة نقل الاسماء بدون تكرار في شيت خلاصة البصمة البصمة ضمن الوقت يكتب موجودة والبصمة الغير موجودة ضمن الوقت تترك فراغ خلاصة حسب تقرير البصمة.xlsm

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

جزاك الله خير

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

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

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

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

التعديل السابق كان على عجل لذا قمت بتحسين الدالة في المثال لتصبح أكثر عملية (اصبحت أشبه بدالة Partition) بحيث يمكن إستخدامها في أي مكان يتطلب تقسيم السجلات الى فئات (كتجميع الموظفين حسب الفئة العمرية مثلا) التطبيقات للدالة كثيرة ويمكن لأي شخص إستخدامها بحسب ماتتطلبه حاجته تحياتي 1.rar

اساتذتي الغالين اين انتم @Foksh @ابوخليل

اهلا بك استاذي @Eng.Qassim هذه النقطة لا تقلق الأمور مضبوطة لا يستطيع المستخدم التلاعب نعم كما هو موجود بالملف ولكم حرية الإضافة والتعديل بما يتناسب مع الملف والطلب انتظر الحل منكم

انا مع الأخ @Foksh بأن لديك مشكلة في تسمية الحقول والتي تسبب الكثير من المشاكل على كل حال الآن الإستعلام يقوم بإلحاق نفس السجل وذلك لأن المعايير المحددة له واضحة فأنت تقول له أن يقارن قيم الحقول بالقيم من النموذج الفرعي ويعتمد الحل المطلوب على أحدى الحالتين التاليتين - إذا كنت تريد مقارنة الحقول مع القيم الموجودة في النموذج الفرعي الأعلى فيجب تعديل معايير الإستعلام لتشير إلى النموذج الفرعي sfVaca200 وليس sfVaca - اما اذا كانت القيم المستخدمة كمعيار بحث موجودة في النموذج الفرعي الاسفل فيجب إجراء Requery للنموذج الفرعي فكما لاحظت فإن محتوياته لا تتغير مهما كان إختياري من القائمة تحياتي

السلام عليكم جرب التعديل التالي التعديل في الجزء wsArchive.Protect Password:=Password, USERINTERFACEONLY:=True الى wsArchive.Protect Password:=Password, USERINTERFACEONLY:=True, AllowFiltering:=True الكود كاملا Sub CopyPrintClear() Dim wsArchive As Worksheet Dim wsPrint As Worksheet Dim lastRow As Long Dim copyRange As Range Dim rowCount As Long Dim i As Long Dim Password As String Dim requiredCells As Variant Dim cell As Variant Dim isIncomplete As Boolean Password = "KHORSHEED.OMAR.2025" ' تعيين الشيتات Set wsPrint = ThisWorkbook.Sheets("طباعة") Set wsArchive = ThisWorkbook.Sheets("أرشيف") ' التحقق من الخلايا المطلوبة requiredCells = Array("A2", "F2", "F3", "C18") isIncomplete = False For Each cell In requiredCells If Trim(wsPrint.Range(cell).Value) = "" Then isIncomplete = True Exit For End If Next cell If isIncomplete Then MsgBox "الملف غير كامل. يرجى تعبئة جميع الخلايا المطلوبة.", vbExclamation Exit Sub End If ' رسالة تأكيد If MsgBox("هل تريد تنفيذ العملية؟", vbYesNo + vbQuestion, "تأكيد") = vbNo Then Exit Sub End If ' رفع الحماية مؤقتًا wsArchive.Unprotect Password:=Password ' تحديد نطاق النسخ Set copyRange = wsPrint.Range("A6:G15") rowCount = copyRange.Rows.Count ' تحديد أول صف فارغ في شيت الأرشيف lastRow = wsArchive.Cells(wsArchive.Rows.Count, "B").End(xlUp).Row + 1 ' نسخ الجدول بالكامل إلى الأرشيف wsArchive.Range("A" & lastRow).Resize(rowCount, 5).Value = copyRange.Value ' نسخ القيم الفردية إلى الأعمدة المطلوبة wsArchive.Range("F" & lastRow & ":F" & lastRow + rowCount - 1).Value = wsPrint.Range("C18").Value wsArchive.Range("J" & lastRow & ":J" & lastRow + rowCount - 1).Value = wsPrint.Range("B3").Value wsArchive.Range("H" & lastRow & ":H" & lastRow + rowCount - 1).Value = wsPrint.Range("F3").Value wsArchive.Range("G" & lastRow & ":G" & lastRow + rowCount - 1).Value = wsPrint.Range("F2").Value wsArchive.Range("I" & lastRow & ":I" & lastRow + rowCount - 1).Value = wsPrint.Range("A2").Value ' تحديد منطقة الطباعة وشطبها wsPrint.PageSetup.PrintArea = "$A$1:$F$18" wsPrint.PrintOut ' مسح البيانات من الشيت wsPrint.Range("A6:A15").ClearContents wsPrint.Range("C6:E15").ClearContents wsPrint.Range("A2").ClearContents wsPrint.Range("F2").ClearContents wsPrint.Range("F3").ClearContents wsPrint.Range("C18").ClearContents ' الطباعة مرة ثانية إذا رغبت wsPrint.PageSetup.PrintArea = "$A$1:$F$18" wsPrint.PrintOut wsArchive.Protect Password:=Password, USERINTERFACEONLY:=True, AllowFiltering:=True ' تنظيف الحافظة Application.CutCopyMode = False ' العودة إلى شيت الطباعة وتحديد الخلية A1 wsPrint.Activate wsPrint.Range("A1").Select End Sub

في طلبك الاول TextBox8 فقط والان تغير الطلب الى الكمبوبكس يمكن اظافة التالي الى UserForm_Initialize Dim ctrl As Control For Each ctrl In Me.Controls If TypeName(ctrl) = "ComboBox" Then ctrl.Style = fmStyleDropDownList ctrl.Locked = False End If Next ctrl برنامج المراكز الطبية 30 اغسطس.xlsm

ما طلبته هو الموجود فعلا الزر طباعة فردية يطلب اسم العميل الزر الاخر طباعة كل العملاء لا يطلب اسم العميل يخرج ديالوج الطباعة مباشرة وتختار طباعة او pdf ينشئ مجلد باسم كل العملاء به اسماء العملاء كل في pdf لوحده ,ونجد من ضمنها ملف pdf باسم كل العملاء به كل العملاء مجتمعين ارجو التوضيح اكثر ان كان ما شرحته لك ليس طلبك

الاستاذ الفاضل @عبدالله بشير عبدالله الف شكر لحضرتك انا ارفقت الملف و عاوز جميع الكمبوبوكس الموجودة فى الفورم يتم تعبئتها من خلال القائمة المنسدلة فقط و لا يسمح للمستخدم بالكتابة فيها او وضع الماوس داخلها علشان يعرف انه هيستخدم القائمة المنسلة فقط اكرر شكرى لحضر على مرورك و مجهودك برنامج المراكز الطبية 30 اغسطس.xlsm

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

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

للتجربة لعله طلبك تم تعديل فى الشيت V1 Monthly Review Report.xls