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

إليك كود VBA بسيط يمكنك استخدامه لحفظ الصفحة الحالية كملف PDF في Excel 2007: Sub SaveAsPDF() Dim savePath As String ' اطلب من المستخدم تحديد مكان الحفظ savePath = Application.GetSaveAsFilename(FileFilter:="PDF Files (*.pdf), *.pdf") ' حفظ الصفحة كملف PDF If savePath <> "False" Then ActiveSheet.ExportAsFixedFormat Type:=0, Filename:=savePath, Quality:=1, IncludeDocProperties:=True, IgnorePrintAreas:=False End If End Sub يمكنك نسخ الكود أعلاه ولصقه في وحدة VBA في Excel 2007، ثم تشغيله لحفظ الصفحة الحالية كملف PDF. يرجى ملاحظة أن جودة الصورة المصدرة قد تكون أقل من ExportAsFixedFormat المتاحة في إصدارات أحدث من Excel.

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

السلام عليكم ورحمه الله وبركاته انا عملت لحضرتك استعلام بناء على مافهمته من شرح حضرتك اتمني يكون هو ده المطلوب لو فى اي اختلاف عن ما فهمته برجاء توضح مشكلتك بالتفصيل تجياتي قاعدة بينات القزق -1.rar

سؤال لو سمحت دلوقتي احنا عندنا 3 أرقام - رقم الجزء مثال 1 وفي حال كانت ص يتم استبدالها بـ 1 - رقم الصفحة وهو يأتي بنبسة 100% بعد رقم الجزء / وقدياتي حديث في صفحتي فالصفجة الاولي تاتي أولاً ومن ثم الثانية بهذه الكيفية 132-133 رقم الحديث وهو الموجود في العمود B_Hno وفق ما فهمت فقد ياتي اسم الحديث بعده اما - رقمه - او الجزء والصفحة - الصفحة - او الصفحة ويرمز لها بـ ص وقد لا يرمز لها هل من الممكن ان تجتمع الاحتمالات الثلاثة ؟ اما أفكر فيه حالياً هو ان نستهدف عن القص أبعد رقم قد يرد وليكون الرقم المستهدف هو رقم الصفحة والحمد لله قد افضنا الي دالة القص خاصية تسمح لنا بزيادة الجزء المقتطع من النص فمثلاً لو كان النص يتمن كتاب (232) - (1 / 132-133) فإذا تم قص النص برقم الصفحة 132 سنفقد باقي الحديث ولكن يمكن ان نخبر الدالة ان تزيد بعد الرقم وليكن 8 خانات أخري حتي نضمن الجزء المتبقي للبحث يتضمن كافة المعلومات التي قد نحتاج اليها ومن ثم تقوم بعمل دالة تقوم بعمل إستبدال لـ ص او (ص او ( ص بـ 1 / وتستبدل أيضاً و( او و ( باسم الحديث ( النتيجة اننا لدينا نص الان تم معالجته ولم يعد هناك أرقام تاتي في مواضع متأخرة ومن ثم يمكن تطبيق نمط لنفحص تطابق النتيجة من عدمها في انتظار مراجعتك وتعليق ودعواتك بالتوفيق

جزاكم الله خيرا تمام دة المطلوب الف شكر زادك الله من علمه ونفعك به

تفضل استاذ @Zooro1 محاولتي حسب مافهمت (عملت لك برنامج جديد بطلبك..... والتقارير التي طلبتها ) . ووافني بالرد . DDCountUsersSendLeters.rar

وعليكم السلام ورحمة الله وبركاته هذا الكود يقوم بحفظ الصفحة الحالية في Excel بصيغة PDF تحت نفس اسم الصفحة: Sub SaveAsPDF() Dim ws As Worksheet Dim savePath As String Dim saveName As String ' احفظ اسم الصفحة الحالية Set ws = ActiveSheet saveName = ws.Name ' اطلب من المستخدم تحديد مكان الحفظ savePath = Application.GetSaveAsFilename(FileFilter:="PDF Files (*.pdf), *.pdf") ' حفظ الصفحة بصيغة PDF If savePath <> "False" Then ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=savePath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True End If End Sub يمكنك نسخ الكود أعلاه ولصقه في وحدة التعليمات البرمجية في Excel (Alt + F11)، ثم تشغيل الكود من خلال الضغط على F5. سيظهر للمستخدم نافذة لاختيار مكان الحفظ وسيتم حفظ الصفحة الحالية بصيغة PDF تحت نفس اسم الصفحة.

برنامج تصنيع محطة خرسانة.xlsb

للنسخ SendKeys "^{c}" للصق SendKeys "^{v}" للحفظ SendKeys "^{s}"

زيادة.accdb

وعليكم السلام ورحمة الله تعالى وبركاته اظن ان الصيغة الصحيحة للسؤال هي حساب عدد الاختلافات جرب وضع احدى المعادلات التالية في الخلية E2 =SUM(IFERROR(1/COUNTIFS($D$5:$D$200;$D$5:$D$200;$F$5:$F$200;D2);0)) OR =IFERROR(SUM(IF(D2=$F$5:$F$200;1/(COUNTIFS($F$5:$F$200;D2;$D$5:$D$200;$D$5:$D$200));0));"") التكرار2.xlsx

وعليكم السلام ورحمه الله وبركاته اللي انا فهمته من مثالك هل تريد اضافه مده الايجار ( شهرين - سنه كامله ) وهكذا الي تاريخ بدايه الايجار عشان تحصل علي تاريخ انتهاء الايجار ؟ ولا أنا كده فاهم غلط