omar elhosseini

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

شاهد المرفق Book1.rar

الاخ weld المثال على الرابط التالى ::: حل مشكلة عدم ظهور اكثر من 1000 سجل فى قوائم التصفية التلقائية مع شرح فيديو لطريقة الاستخدام

حل مشكلة عدم ظهور اكثر من 1000 سجل فى قوائم التصفية التلقائية مع شرح فيديو لطريقة الاستخدام Another_way_Auto_Filter.part1.rar Another_way_Auto_Filter.part2.rar Another_way_Auto_Filter.part3.rar

لاخ amer1960 شاهد الرابط التالى ::: تصدير مدى محدد الى الوورد مرفق ملف فيديو للشرح

تصدير مدى محدد الى الوورد مرفق ملف فيديو للشرح Omar.rar

شاهد الرابط التالى :: إنشاء قوائم منسدلة مرتبطة متعددة المستويات ( مرفق مثال اربع مستويات مع فيدو لشرح المثال )مع كود لتسمية العديد من النطاقات دفعة واحدة

إنشاء قوائم منسدلة مرتبطة متعددة المستويات ( مرفق مثال اربع مستويات مع فيدو لشرح المثال ) مع كود لتسمية العديد من النطاقات دفعة واحدة المثال :: ___________________________________.rar الشرح ::: شرح إنشاء قوائم منسدلة مرتبطة متعددة المستويات شرح تسمية العديد من النطاقات دفعة واحدة

شاهد المرفق ________.rar

شاهد المرفق Test.rar

شاهد المرفق ___________________.rar

شاهد المرفق فى حالة وجود اى ملاحظات اخرى ارجو ذكر اسم الورقة ورقم العمود بالتحديد Omar_2.rar

السلام عليكم ورحمة الله وبركاتة فى الاوفيس 2003 اى الاكسيل 11 تستطيع التصفية التلقائية التعامل مع كامل عدد صفوف ورقة العمل ولكن تظهر فى القائمة 1000 سجل فقط لا اكثر ولكن يمكن التحايل على ذلك بالاتى :: عمل قائمة منسدلة مجاورة واعلى قائمة الفلترة تشمل السجلات الفريدة فقط وهذه القائمة المسندلة مفعلة بالتصفية المتقدمة فى هذه الحالة سيظهر فى القائمة الجديدة ( التى تنشط التصفية المتقدمة ) كل السجلات ويمكن الاختيار منها وعمل الفلترة او بصورة اخرى استبدال التلقائية بالمتقدمة

حفظ الملف الحالى فى مسار او موقع محدد و مختلف عن الموقع الافتراضى للإكسيل يتم تغير المسار المراد الحفظ فيه فى الكود التالى فى المتغير المسمى ( MyPath ) Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long Sub SaveMe() '/========================================= '/ يتم وضع مسار الحفظ كاملا فى المتغير التالى MyPath = "C:\ATest\BackUpFile" '/========================================= MyFileName = ActiveWorkbook.Name MakeSureDirectoryPathExists MyPath & "\" Application.DisplayAlerts = False ActiveWorkbook.SaveAs FileName:=MyPath & "\" & MyFileName Application.DisplayAlerts = True End Sub SaveMe_In_Diffrent_Location.rar

شاهد المرفق Omar_1.rar

اخى almaistro لا اتجاهلك اخى العزيز و عفوا اخى الالحاج غير مستحب وخاصتا ان الموضوع هو خارج مجال الاكسيل ومتعلق بنظام التشغيل ( الريجسترى ) بالمفتاح التالى :: [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\storagedevicepolicies] "writeprotect" لتفعيل عدم النسخ يأخذ المفتاح القيمة 1 والقيمة صفر لإلغاء التفعيل مع تحياتى

عليكم السلام ورحمة الله وبركاتة لا ازعاج اخى aah_aah2008 فأنت تسعى الى الصالح العام فلا ازعاج اخى من ذلك مع تحياتى

اعداد الجدول الزمنى للمشروعات مخطط جانت المرفق يشمل نوعين من الجداول الزمنية للمشروعات الاول ::: مخطط عن كامل الفترة الزمنية الثانى ::: مخطط عن المنفذ حتى تاريخ اليوم والغير منفذ ويتبقى النوع الثالث واحاول تجهيزه وهو عن ( المنفذ كنسبة مئوية والغير منفذ ) Gantt_1.rar

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

عليكم السلام ورحمة الله وبركاتة الاخ aah_aah2008 لقد فحصت الملفين ب Kaspersky Anti-Virus 7.0 وهو محدث حتى تاريخه ونتيجة الفحص تخلو من اى فيرس انظر الصور ولزيادة التأكد نرجو من الاخوة تأكيد ان الملفات بها فيرس ام لا فأذا كانت مصايه بالفيرس يمكننى وضع الملفات بصور اخرى

منع النسخ من جهازك الى الفلاش او السي دى او هارد ديسك خارجى يرغب بعض الاخوة منع المتطفلين من نسخ اعمالهم او نقلها الى الوحدات الخارجية مثل ::: الفلاش او السي دى او هارد ديسك خارجى او كروت الممورى الخارجية لعمل ذلك نفذ ا لملف بالمرفقات المسمى ::: No 2 Copy ثم اعد تشغيل الجهاز بذلك لن يستطيع اى شخص نسخ اى ملف من جهازك الى اى وحدة خارجية واذا اردت ان تلغى هذا المنع نفذ الملف المسمى :: Yes 2 Copy Copy_Control.rar

بسم الله الرحمن الرحيم عمل زرى MAXIMIZEBOX_MINIMIZEBOX للفورم Form_With_MAXIMIZEBOX_MINIMIZEBOX.rar

اخى هل اطلعت على هذه المشاركةالتالية واذا كانت غير ما تطلب ارجو التوضيح بمثال http://www.officena.net/ib/index.php?s=&am...st&p=121379

شكرا اخى aah_aah2008 كل سنة وانتم طيبون يمكنك اخى استخدام الدلة بأحد الطريقتين التاليتين ::: Sub Ex_1() Drv = GetMe() Shell Drv & ":\program files\microsoft office\OFFICE11\winword", vbNormalFocus End Sub Sub Ex_2() Shell GetMe() & ":\program files\microsoft office\OFFICE11\winword", vbNormalFocus End Sub ولكنى تذكرت احد الاوامر الظريفة والقوية وهو يغنى عن استخدام الدالة السابقة ويستخدم بطريقة مباشرة وهو يعالج ايضا اختلاف رقم نسخة الاوفيس على الاجهزة المختلفة وهو MyOffice = Application.Path النتيجة :: "D:\Program Files\Microsoft Office\OFFICE11" فهو يستخرج مسار الاوفيس متضمنا الدرايف ومسار البروجرم فيل مشمول برقم نسخة الاوفيس وبذلك نبعد عن اخطاء المتسخدمين ( البعض يركب الاوفيس فى مسار مختلف عن "Program Files" ) فما عليك سوى اضافى اسم التطبيق الى ناتج الامر ويمكنك استخدامه بالطريقة التالية Sub Ex_3() Shell Application.Path & "\winword", vbNormalFocus End Sub مع هذا الامر لن تحتاج الى الدالة التى ادرجتها سابقا فهو امر مباشر مع تحياتى اخى

عليكم السلام ورحمة الله وبركاتة الاخ aah_aah2008 اخى استخدم الكود التالى ليعطيك دريف التظام واضف المتغير الناتج الى متغير المسار فى كودك Private Declare Function GetEnvironmentVariable Lib "kernel32" _ Alias "GetEnvironmentVariableA" ( _ ByVal lpName As String, _ ByVal lpBuffer As String, _ ByVal nSize As Long) As Long Function GetMe() As String WhoMe = "SystemDrive" GetMe = String(255, 0) GetEnvironmentVariable WhoMe, GetMe, Len(GetMe) If InStr(1, GetMe, Chr(0)) > 0 Then GetMe = Left(GetMe, 1) End If End Function Sub Test() DriveSys = GetMe() End Sub ملحوظة لم اعدل ملفك تأدبا لتكمل موضوع الجميل