اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

أ / محمد صالح

أوفيسنا
  • Posts

    4,357
  • تاريخ الانضمام

  • Days Won

    185

كل منشورات العضو أ / محمد صالح

  1. شكرا لكل الإخوة الكرام على المرور الكريم منياوى أبوبكر مسعودي وليد فتحي وفقنا الله جميعا لكل خير
  2. شكرا لجميع الإخوة على كلماتهم الطيبة كامل الداتا طبعا البرنامج يقوم بتحويل ملف الأكسس إلى ملف sql يتم استيراده الى قواعد البيانات mysql والعكس أعتقد موجود جرب استعمال البحث في المنتدى الأستاذ الفاضل محمد ليث البرنامج يحول بين الأكسس و mysql الخاص بالموقع مثلا وليس ب sql server
  3. شكرا لمتابعتكم أستاذ علي المصري ولكن الكود يعمل على جميع الإصدارات حيث أن الجزء الخاص ب Application.Version يقوم بجلب رقم الإصدار الحالي للأكسس ثم الجزء التالي IIf(Application.Version < 12, "Level", "VBAWarnings") وهو دالة if فإذا كان الإصدار أقل من 12 يكون اسم الحقل في الرجيستري level وإذا كان أكبر من أو يساوي 12 يكون اسم الحقل VBAWarnings أرجو أن يكون الأمر قد اتضح
  4. شكرا لكلماتك الطيبة أستاذ رائد 1982 السلسلة مازالت مستمرة وفي زيادة بإذن الله تابعونا
  5. شكرا لمروركم الكريم أستاذ نجم طويق بعض ما عندكم أستاذ عبد اللطيف سلوم بالأيام فقط أسهل مجرد طرح التاريخين استاذ يوسف السيد شكرا لكلماتك الطيبة استاذ bakry kassala
  6. شكرا لك أستاذ ابو محمد الزعفرانية موضوع وضع ساعة في الفورم تم تناوله كثيرا في المنتدى سواء بالفلاش أو بالكود يمكن البحث عنه أنا فقط أضفت غير الموجود حتى تكتمل السلسلة
  7. شكرا لكلماتك الطيبة أستاذ @nogom وإن شاء الله أبلغ شكرك للأستاذ / احمد صلاح رغم اني معرفش حد بالاسم ده هههههه
  8. البقاء لله وجده رحمها الله رحمة واسعة واسكنها الفردوس الأعلى من الجنة
  9. المشكلة ليست في زر الشيفت المشكلة في زر الويندوز الموجود في لوحة المفاتيح ربما يكون تم الضغط عليه وثبت على هذا الوضع (hang) لأن فتح النوافذ بترتيبها في شريط المهام يكون بـ WIN+SHIFT+Number راجع مفتاح ستارت
  10. رائع دائما بشمهندس @محمد طاهر وكود بسيط ورائع جدا تقبل تحياتي
  11. الأستاذ الفاضل @محمد فتحى عبد الحليم ابراهيم يبدو أن حضرتك لم تلاحظ المعادلة الموجودة في عمود المسلسل فهي الخاصة بترتيب المسلسل حتى بعد حذف صف او اكثر وبالنسبة لكود حذف صف فالأفضل استعمال تسجيل الماكرو ثم تقوم بحذف صف ثم تشاهد الكود وتقوم بالتعديل عليه كما تريد (فهذه اساسيات التعامل مع الأكواد) والأفضل البحث في المنتدى عن هذه الاساسيات خالص دعواتي بالتوفيق
  12. المطلوب غير واضح المرفق به مجموعة ملفات اكسل بكل منها الاسم والحالي مكتوب والسابق غير مكتوب رجاء تفسير المطلوب بالتفصيل الممل وتوضيح الصورة النهائية المرغوبة للملف حتى يتمكن الجميع من المساعدة
  13. شكرا لكلماتك الطيبة @a.kawkab لعمل ذلك يمكنك استبدال السطر الخاص بمجلد الاخراج mypath = "D:\USP41 - NF36\" & Range("C9").Value إلى mypath = ActiveWorkbook.Path وتعني مسار المصنف الحالي بالتوفيق
  14. ربما في النسخ الحديثة عن طريق حقل المرفقات attachments ويتم ارفاق نسخة من البرنامج ويكون دور الزر تصدير المرفق
  15. تفضل أخي الكريم هذا هو الكود بعد التعديل Sub Export_PDF_in_OneAll() Application.ScreenUpdating = False Sheets(Array("Report")).Select mypath = "D:\USP41 - NF36\" & Range("C9").Value If Dir(mypath, vbDirectory) = "" Then MkDir mypath ActiveSheet.ExportAsFixedFormat xlTypePDF, mypath & "\" & Range("c8").Value & ".pdf", xlQualityStandard Worksheets("Report").Select Application.ScreenUpdating = True MsgBox "Done" End Sub لاحظ وضع مجلد الحفظ في متغير حتى لا نكرر كتابته وأيضا فحص ما إذا كان المجلد موجودا أو لا فإذا لم يكن موجودا فيتم انشاؤه ثم بعدها يتم التصدير لاجظ إضافة امتداد الملف في نهاية الاسم ولا تنسوني من صاح دعائكم
  16. يفضل الشرح بالتفصيل للمشكلة المطلوب حلها وارفاق ملف العمل الذي واجهتك فيه المشكلة السؤال عن امسل والمرفق وورد؟؟!!!
×
×
  • اضف...

Important Information