ibn_egypt

اخى الفاضل استخدم التنسيق الشرطي .. حدد على النطاق الذي تريده واختر تنسيق شرطي .. قواعد تمييز الخلايا ثم أكبر من .. كما في الصورة اكتب 0 ... ومن الجهة المقابلة اختر تنسيق مخصص كما في الصورة ثم من تبويب التعبئة اختر اللون الذي تريده للقيم الأكبر من 0 كما في الصورة .. موافق موافق .. خلاص تحياتي New Microsoft Excel Worksheet.rar

أخى الفاضل أ.هشام لا والله ابدا ... انا بهزر معاك بس ... تقبل تحياتي

اخى الفاضل سبحان الله انا سألتك على التنسيقات قبل ما ابدا .. انت الذي لم ترد لى خبر .. عامة مرفق الملف بالتنسيقات التى تريدها تحياتي Combinations Scenario For Values Summation.rar

استاذي الفاضل كود رائع لعمل ارتباط تشعبي Hyperlink للشكل وكتابة تلميح الشاشة ScreenTip وهو الحل الوحيد حيث ان الأشكال لا تدعم ال ControlTipText... ومن الممكن ايضا ان يستغنى العضو عن الكود ويقوم بذلك يدويا بالضغط كليك يمين على الشكل ويختار ارتباط تشعبي HyperLink ثم يتبع الخطوات كما في الصورة .. تحياتي

اخى الفاضل تفضل الملف المرفق,, تمت اضافة الدالة الرائعة DrawOvals بعد التعديل عليها قليلا لتناسب طلبك .. ستجد في الخلايا F5 .. H5 >>>>الخ صيغة الدالة بهذا الشكل =DrawOvals(F8:F33,"دون") تستطيع تغيير النطاق الى أى نطاق تريده تحياتي ayman.rar

اخى الفاضل لا أستطيع أن لا أنفذ طلبا لأستاذي وجزاك الله خيرا على تذكيري بالموضوع .. مرفق الملف بعد إضافة بعض التنسيقات وشرحها بالكود حتى يتسنى لك تغييرها ان اردت تحياتي Combinations Scenario For Values Summation.rar

اخى الفاضل ارفق الملف، فما ارفقته ما هو الا موديول وفقط تحياتى

أخى الفاضل ما هو اصدار الويندوز لديك وما هو اصدار الأوفيس ؟؟؟؟ تحياتي

اخى الفاضل هذا لعملك على نظام تشغيل 64-bit .. قم باستبدال الاربع اسطر المظللة بالأحمر ... بالأسطر التالية بإذن الله ستزبط معك Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" ( _ ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongPtrA" ( _ ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongPtrA" ( _ ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As LongPtr) As Long تحياتي

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

اخى الفاضل تفضل الملف المرفق .. لربما به طلبك تحياتي مشكل 8.rar

اخى الفاضل تفضل الملف المرفق لربما به طلبك تحياتي PDF.rar

أخى الفاضل تفضل الملف المرفق ... لربما هذا طلبك تحياتي برمجية استعلام2.rar

اخى الفاضل تفضل الملف المرفق .. لربما به طلبك .. لست في حاجة الى اى ازرار للبحث او الغاء البحث تحياتي كود البحث.rar

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

اخى الفاضل مهند لا أرى أى داعى للكود الذي وضعته لترتيب الأسماء أبجديا فليس كل ما يعجبنا يفيدنا في العمل ... احذف هذا الكود واعمل بالملف المرفق من العلامة الفاضل أ.طارق محمود بالمشاركة رقم 4 ... فلن تجد أفضل منه على الإطلاق تحياتي

اخى الفاضل الملف يعمل بنجاح ... لكنه مضغوط فيجب عليك فك الضغط أولا .. تحياتي

للهم لك الحمد ... واسعدتنى باضافته للمكتبة، جزاك الله كل خير استاذي وجعل عملك في ميزان حسناتك تحياتى

اخى الفاضل ضع هذا الكود بحدث Worksheet_Activate ... يمكنك تغيير الباسورد كما تريد .. مرفق الملف للتوضيح ActiveSheet.Protect (123), UserInterfaceOnly:=True تحياتي فورم ادخال و تعديل مرن مع الطباعة 3.rar

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

اخى الحبيب ياسر بعد البحث اتضح لى انه من الممكن ان تكون ال PDF addin غير مثبته لديك .. جرب تثبتها من الملف المرفق وشغل الكود مرة أخرى تحياتي SaveAsPDFandXPS.rar

طب محاولة اخيرة .. انسخ الكود ده والصقه في ملف جديد وشوف هل سيظهر نفس الخطأ ام لا .. انا هنا ثبت اسم الملف والمسار جرب كده Sub PRINTPDF() ThisWorkbook.Sheets(Array("Sheet2", "Sheet3")).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\tempo.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=True End Sub تحياتي

اخى الفاضل مش فاهم طلبك .. ياريت توضحه أكثر تحياتى

طب جرب الكود ده .. كنت عملته لأحد الأعضاء لطباعة الفورم ك PDF وعدلته قليلا .. وهو يعمل لدى العضو على اصدار 2007 بشكل جيد تحياتى PDF.rar

أستاذي الفاضل أ.ياسر، لا أعلم حقيقة سبب الخطأ .. فعندي اصدار 2010 والكود يعمل بشكل جيد جدا .. جرب ان تضع الأسطر السابقة على سطر واحد لربما تحل المشكلة ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFileName, IgnorePrintAreas:=False تحياتي