omar elhosseini

الاخ ناصر سعيد اضغط علي الرابط لتحميل فيديو شرح البروجرز بار

الاخ ناصر سعيد الشرح مع الملفات مبسط و سوف اجهز فيديو لتوضيح ذلك ولكن اخبرني اي بروجرز تريد

الاخ ياسر خليل أبو البراء شكرا لك اخي الاخ جلال الجمال_ابو أدهم شكرا لك

البروجرز بار الثالث و الرابع والخامس وتستخدم بنفس الاسلوب الاول Omar_3_5.rar ملحوظه : مؤشرات التقدم الخمس صناعة عربية مصرية 100% لكم مني كل تحية الاخ أبو يوسف شكرا لك اخي هذا اكثر مما استحق فهذه البرامج من مكتبتي وقد انشأتهم منذ عدة سنوات سابقه

البروجرز بار الثاني ويستخدم بنفس الاسلوب السابق Omar_2.rar

السلام عليكم ورحمة الله وبركاته نبدء بشرح برنامج Omar_Progress وهو عباره عن فورم وموديول كود الموديول يتم التعديل فيه كالاتى اللوب الموجود به ( For ..Next) يعدل ليكون هو اللوب للبرنامج الخاص بك كالاتي هذا اللوب () سيكون اللوب الرئيسي لبرنامجك مع تغير قيم ( Start_Counter و End_Counter ) لتكون هي قيم اللوب الخاص لبرنامجك او او استبدال متغيرات ( For … Next) وهي ( Start_Counter و End_Counter ) بمتغيرات البرنامج الخاص بك ( For … Next) فقط لا غير Sub Omar_Progress() ' Dim Per As Single, x As Double End_Counter = 50 '========================================================================================== For Start_Counter = 1 To End_Counter O_Omar_Progress_O.Caption = Space(12) & Start_Counter & Space(3) & "مـن إجمـالـى" & Space(3) & End_Counter Per = Start_Counter / End_Counter O_Omar_Progress_O.Label_Bar.Caption = Format(Per, "00%") MyProgress Per DoEvents '========================================================================================== ' My Code '========================================================================================== Next ' End Sub Omar_1.rar

إن شاء الله اخي

الاخ ناصر سعيد شكرا لك الاخ ياسر خليل أبو البراء شكر لك علي ترحيبك الكريم اراك نبراسا يضئ الطريق للاخوة شكرالك اخي

اليك اخي alyfahem نسخه اخري من ملفك ب Progress indicator ثاني مختلف عن الاول ومعه ملف منفصل ل Progress indicator Omar_2.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته اسمحو لي بمشاركة بسيطه الاخ alyfahem بعد التحيه ارجو تجربة المرفقات وهى تحتوي علي ملفين الاول هو ملفك بعد عمل المطلوب الثاني ملف ل Progress indicator بسيط وسأقوم بشرح كيفية استخدامة في القريب العاجل Omar_1.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاتة إدراج الصـورة فـى تعليق الخليـة أتـومـاتيكيـا مع التحكم بحجمها سبق ان قدمت على الرابط التالى ::: اضافة صورة الى تعليق الخلية ولكن بطريقة يدوية ولكن اليوم سيكون بطريقة اتوماتيكية اى يدرج جميع الصور فى التعليق بصورة اليه كل المطلوب منك هو الاتى ::: بعد نقل الكود الى ملفك فى نفس فلدر الملف الخاص بك اصنع فلدر بأسم ( AllPic ) وضع فيه الصور المراد ادراجها وبعد ادراج الصور فى التعليقات يمكنك حذف فلدر الصور فلا حاجة لك به بعد ادراجها التنفيذ ::: قف فى اول خلية فى العمود الذى به اسماء الصور وأضغط الزر ولك ان تختار احد ثلاث طرق بالنسبة الى حجم الصور المدرجة فى التعليقات الحجم الاول ::: ان تكون الصور بنفس حجم التعليق بالسنتيمتر يكون عرض الصورة يساوى ( 3.5 ) سم وبإرتفاع قدرة ( 2 ) سم الحجم الثانى ::: ان تكون الصور بنفس حجم الصور الطبيعى اى كان هذا الحجم او اختلاف مقاسات الصور الحجم الثالث ::: وهنا يمكنك ان تحدد مقاس ثابت لجميع الصور كما تشاء فيمكن مثلا ان تكون الصور فى مقاس 4 سم للعرض و 6 سم للأرتفاع او اى مقاس ترغب المرفق الاول ::: ملف البرنامج + فلدر به بعض الصور للتجربه Omar_1.rar المرفق الثانى ::: ملف فيديو يوضح طريقة العمل Insert_Comment.rar تحياتى لجميع الاخوة

بسم الله الرحمن الرحيم حماية اوراق محددة الاسماء ولكل منها باسوورد مختلفعن طريق إخفاء الصفوف و الأعمدة السلام عليكم ورحمة الله وبركاته ### لعمل هذه الحماية وإظهار الباسوورد على شكل نجوم يجب توافر بعض الشروط # أولا : الورقة الرئيسية يجب إن تكون هي الورقة الأولى في ترتيب الأوراق في ( تاب الأوراق ) # ثانيا : نقل الكود إلى الملف الخاص 1 - يتم نسخ عدد إل 2 فورم إلى الملف الخاص بك 2 - يتم نسخ الأكواد من ( ThisWorkbook ) إلى نفس المكان في الملف الخاص بك ### في الروتين الفرعي ( Workbook_SheetActivate ) يتم تحديد أسماء الأوراق المراد عمل حماية لها ولكل منهما باسوررد واحد أو باسوورد مختلف في المتغير ( MySheets ) بين علامتي التنصيص ويفصل بينهما علامة القسمة ( / ) فإذا كنا نرغب بعمل هذه الحماية لثلاثة أوراق أسمائهم على التوالي : ( Test1 ) & ( Test3 ) & ( Test5 ) يكون المتغير ( MySheets ) على الشكل التالي : MySheets = "Test1/Test3/Test5" ويتم وضع الباسوورد الخاص لكل منهما في المتغير ( MyPassword ) بنفس الأسلوب السابق مع أسماء الأوراق مع مراعاة ترتيب الباسوردات بنفس ترتيب الأوراق فإذا كانت : الورقة ( Test1 ) و الباسوورد الخاص بها هو ( Pas1 ) الورقة ( Test3 ) و الباسوورد الخاص بها هو ( Pas3 ) الورقة ( Test5 ) و الباسوورد الخاص بها هو ( Pas5 ) يكون المتغير ( MyPassword ) على الشكل التالي : MyPassword = "Pas1/Pas3/Pas5" ### وهناك ملاحظتين يجب الانتباه إليهما : أولا ::: المتغيران ( MySheets & MyPassword ) هما المسموح بالتعديل عليهما فقط فلا داعي لتعديل اى شئ آخر بالكود فالكود حساس وسيتضح ذلك لمن يحبون التعديل ثانيا ::: إذا كانت الأوراق المعنية لها حماية من التعديل بأحد الطريقتين التاليتين : 1 - الأولى عن طريق قائمة ( أدوات / حماية / حماية ورقة ) 2 - الثانية عن طريق كود ### فلابد من إتباع أسلوب الحماية باستخدام ( UserInterfaceOnly ) الذى نوهنا عنه منذ أكثر من عامين ونصف العام و إلا ستتم مقاطعة الكود وظهور رسالة خطأ وهذا الخطأ ليس خطأ برمجيا فيمكن إخفاء هذا الخطأ وتخطيه ولكن المقصود من هذا الخطأ المتعمد هو إعلامك بأنه لابد من استخدام أسلوب ( UserInterfaceOnly ) في حالة وجود حماية ضد تعديل الأوراق كما أشرت سابقا لتجنب مقاطعة الكود أو توقفة عن العمل و سيعمل الكود على توجيهك إلى رابط موضوع ( UserInterfaceOnly ) للأطلاع على هذا الأسلوب المرفق الاول ::: ملف البرنامج _________________________________________________.rar المرفق الثانى ::: ملف فيديو لشرح الطريقة : Test_1.rar

الاخ يوسف عطا شاهد المرفق اخى بعد التعديل _________________________.rar

تسائل احد اخواننا عن العشرة الاوائل على الرابط التالى العشرة الاوائل وتذكرت انه تم حل هذه المشكلة فى مشاركة لأحد الاخوة القدامى ( الاخ عادل) وطلبت حينها من الاستاذ الفاضل ابو هادى بناء دالة للترتيب فتفضل مشكورا بعمل دالة ( OrdinalNum ) للترتيب ومن مميزاتها انها تعمل للمذكر والمؤنث والملف المرفق نموذج لأستخراج العشرة الاوائل ثم استخراج العشرة الاوائل لكل مادة لنشاهد المرفق _______________1.rar

السلام عليكم ورحمة الله وبركاتة اضافة صورة الى تعليق الخلية لنشاهد المرفق ___________________________.rar

السلام عليكم ورحمة الله وبركاتة دالـة ( VLOOK_Pic1 ) لعـرض الصـور من أى نـوع و أى حجـم طريقة الاستخدام ::: 1 -فى نفس فلدر الملف الخاص بك إنشئ قلدر باسم ( AllPic ) ضع فية الصور 2 - أنسخ كود دالة ( VLOOK_Pic1 ) من ملف الدالة الى الملف الخاص بك 3 - من قائمة ( إدراج / دالة ) وعند ظهور الصندوق الحوارى حدد الفئة ب ( معرفة بواسطة المستخدم ) 4 - ثم اختار دالة ( VLOOK_Pic1 ) فيظهر الصندوق الحوارى اكتب اسم الصورة او عنوان خلية تحتوى على اسم الصورة ( يجب ان يكون اسم الصورة بدون النهاية الخاصة بنوعها ) الدالة بها خطأ صغير ربما يمكن معالجته فى القريب إن شاء الله ( ولكنه غير مؤثر) والى اللقاء بإذن الله فى دالة ( VLOOK_Pic2 ) الثانية التى تتعامل مع الصور من داخل الملف المرفقات عبارة عن ::: المرفق الاول يحتوى على فلدر به ملف الدالة + فلدر به بعض الصور + ملف فارغ للتطبيق عليه _______________.rar المرفق الثانى عبارة عن ملف فيديو لطريقة استخدام دالة ( VLOOK_Pic1 ) VLOOK_Pic1.rar

الاخ m_127899 شكرا لك على التوضيح وإلغاء الصورة جزاك الله كل خير اخى

اخى أكرم الغامدي شكرا لك اخى اكرم المنتدى منور بيك وبجميع الاخوة

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

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

اخى العزيز لقد فهمت ما تطلب ولكنى اعرض عليك ما استطيع انجازة وهو ان تكون الصور محفوظة خارج الملف ويمكن استدعائها لكل من ورقتى Basic و Data 2 ففى ورقة Data 2 سيكون هناك استدعاء لكل بيان يتم ادخالة ل S/O user اى اكثر من صورة كنا سابقا نستدعى صورة واحدة فى كل مرة ولكن تحتاج استدعاء العديد من الصور فى ورة Data 2 وهذ الخلاف تبعا لاسلوب الاستدعاء برمجيا

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

اخى ابو عادل نعم اخى ما اقصده هو : عرض الصورة أثناء إستدعاء البيانات عن طريق S/O user مع بيانات العميل على ان تكون الضور فى نفس فلدر الملف او فى فلدر اخر ( بعنى اخر عند تغير اى من حقل S/O user فى الجدول يعرض الصورة المناظرة له كل منهما حسب S/O user ) سابقا كنا نستعرض صورة عميل واحد فقط حسب بيانات العميل وتتغير عند تغير هذا البيان فم اجرب سابقا محاولة استدعاء بيانات اكثر من عميل فأذا كان يناسبك ان تكون الصور خارج الملف ويتم استعداء الصور حسب عمود S/O user فيمكن عمل ذلك فقد وجدت كود على النت يمكن ان يساعد فى ذلك بعد عمل التعديلات اللازمة

عليكم السلام ورحمة الله وبركاتة يمكن بناء دالة على غرار دوال ( VLOOK ) تختص بعرض الصور على ان تكون الصور فى فلدر محدد وليس داخل الملف اذا كانت ستسخدم كدالة عرض مرتبطة بمتغبر مثل ( S/O user ) متكرر فى الصفحة فأذا كان يناسبك ات تكون الصور فى فلدر منفصل يمكننى محاولة ذلك مع ملاحظة ان حفظ الصور اذا كان عددها كبير يزيد حجم الملف

السلام عليكم ورحمة الله وبركاتة شاهد الرابط التالى :::: كيف اجعل ملف الاكسل يغلق نفسه بعد عشر دقائق