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

السلام عليكم ورحمة الله وبركاته أحبائى أعضاء وأساتذة هذا الصرح العلمى الكبير تحية طيبة وبعد سؤال كثيرا منا يتسائل ما هى أسباب وضع فاصلة أم فاصلة منقوطة في معادلات الإكسل؟ هل تذكر أول مرة كتبت فيها معادلة أو دالة Function في برنامج إكسل، وخاصة إذا كنت تعلمتها بطريقة نظرية – وليست عملية – يعني مكتوبة على ورق وحفظتها وفهمتها ثم تبدأ بالتطبيق العملي باستخدام برنامج الإكسل. ببساطة أنت تبدأ بكتابة المعادلة كما تعلمتها بالضبط، وتحاذر الخطأ، لكن مرة بعد مرة تظهر لك رسالة خطأ السبب بسيط، وهو أنك كتبت فاصلة (,) Comma وكان يجب أن تكتب بدلا منها فاصلة منقوطة (;) Semi-Colon أو العكس. إذًا لماذا تكتب المعادلة نفسها على جهاز آخر بنفس الخطأ، ولا تظهر رسالة خطأ وتسير الأمور بصورة طبيعية وينتج ناتج الدالة بشكل صحيح. لا تنزعج، وتقول عيب الجهاز. يرجع الأمر إلى أن الإعدادات في لوحة التحكم ببرنامج ويندوز Windows قد تختلف من جهاز لآخر. على كل حال إذا أردت من برنامج الإكسل أن يقبل منك الفاصلة في المعادلات أو الفاصلة المنقوطة بدلا منها، فعليك بعمل ذلك مرة واحدة من لوحة التحكم افتح لوحة التحكم من قائمة إبدأ ثم لوحة التحكم. اختر التاريخ والوقت. Date, Time, Language, and Regional Options اختر تغيير تنسيق الأرقام والتواريخ والأوقات. Change the format of numbers, dates, and times اختر تخصيص Customize اكتب في خانة فاصل القائمة List separator أكتب فاصلة أو اكتب فاصلة منقوطة، كما تريد. فهذه الفاصلة أو الفاصلة المنقوطة هي ما ستكتب به المعادلات في الإكسل. انقر موافق Ok ثلاث مرات. انتهي

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

بداية أشكر أخانا وأستاذنا جعفر طربيق على موضوعه حرك الماوس فوق الخلية و غير لونها ثم بين صورة أحد أعضاء المنتدى في الخلية المجاورة والذى يعتمد على اسلوب Rollover Technique و اثراء للموضوع أقدم لكم هذا الأسلوب فى صورة بسيطة مجرد دالة تقوم بالعمليات الحسابية الأربع جمع طرح ضرب قسمة خلايا نطاق محدد وذلك فى حالة مرور الماوس فوق خلية يتم استخدام هذه الدالة مع الدالة HYPERLINK و IFERROR أيضا لكن لا DEFINE NAME و لا صور تحياتى لكم ولا تنسونا فى دعائكم العمليات الحسابية بمجرد المرور بالماوس فوق خلية.rar

السلام عليكم ورحمة الله كثيرا ما تمنيت اضفاء جماليات على فورم الاكسيل ولكن كنت دائما ما أجد صعوبة في ذلك حتى توصلت لهذة الفكرة وهي تحايل على تلك المشكلة لعلها يكون فيها أفادة او تفتح افاق لأحد الأخوة تقبلوا محاولتي المتواضعة تحياتي New Button.rar

اخى الحبيب ابراهيم جرب المرفق ان شاء الله هو طلبك تقبل تحياتى استخراج.zip

السّلام عليكم و رحمة الله و بركاته أساتذتي الأفاضل : وائل أحمد المصري ياسر العربي ياسر خليل أبو البراء ياسر فتحي البنّا ياسر عبد العزيز البسكري إضافة لما تقدّمتم به من أعمال ثمينة.. بارك الله فيكم جميعًا و زادها بميزان حسناتكم .. و في نفس السّياق .. تفضلّوا ملفا آخرًا به أزرار مضاءة ..للتّنويع و الاستفادة من الموضوع .. فائق إحتراماتي أزرار أمر ملونّة.rar

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

اخى الكريم جرب المرفق وابدى ملاحظاتك fatorrr_3.zip

أخي الكريم محمد الخازمي لا إزعاج ولا داعي للاعتذار فقط أردت التنويه لا شيء آخر عموماً جرب الدالة المعرفة التالية علها تفي بالغرض (مع العلم أنني لا أستحب استخدام التنسيق الشرطي بهذا الشكل المفرط الذي يؤدي إلى ثقل التعامل مع الملف) Function CountCFCells(Rng As Range, C As Range) Dim I As Single, J As Long, K As Long Dim Chk As Boolean, Str1 As String, CFCELL As Range Chk = False For I = 1 To Rng.FormatConditions.Count If Rng.FormatConditions(I).Interior.ColorIndex = C.Interior.ColorIndex Then Chk = True Exit For End If Next I J = 0 K = 0 If Chk = True Then For Each CFCELL In Rng Str1 = CFCELL.FormatConditions(I).Formula1 Str1 = Application.ConvertFormula(Str1, xlA1, xlR1C1) Str1 = Application.ConvertFormula(Str1, xlR1C1, xlA1, , ActiveCell.Resize(Rng.Rows.Count, Rng.Columns.Count).Cells(K + 1)) If Evaluate(Str1) = True Then J = J + 1 K = K + 1 Next CFCELL Else CountCFCells = "Color Not Found" Exit Function End If CountCFCells = J End Function جمع2.rar

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

برنامج حسابات ، اتمنى انه يفيد ولو شخص واحد برنامج محاسبى.rar

نسيتوا لمسة جامدة بقي تضاف علي الزرار تعمل كمان image فيها لمعه وتتفعلها بالحدث Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) img3.Visible = True End Sub Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) img3.Visible = False End Sub وادعيلي

اخي الحبيب ياسر الموضوع محتاج اما ان تكون لديك خلفية باستخدام برامج مثل الفوتوشوب ويمكن البحث عن صورة button in psd fprmat والتعديل عليها او تقوم بالحصول على صورتين للزرار في حالة الضغط وحالة الترك من اي مصدر ثم اضافتهم للفورم فوق بعض بنفس الطول والعرض ثم وضع ليبل فوقهم مع تفريغ التكست الخاصة بالليبل ووضع حدث اظهار الصورة واحد واخفاء الصورة اتنين في داخل Private Sub Label1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) او العكس ارجوا من الله ان اكون استطعت ايصال الفكرة ولو حد محتاج حاجة في الفوتوشوب يقول :) أسعدني مرورك اخي تقبل تحياتي اخي ياسر تعبكم راحة ارفقت شرح الفكرة في ردي على اخي ياسر لعلها تكون كافية اما ان لم تكن فحينها ساقوم بعمل فيديو تفصيلي للموضوع تقبل تحياتي

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

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

السلام عليكم ورحمة الله وبركاته أقدم لكم اليوم كود يقوم بتكبير القائمة المنسدلة بمجرد الوقوف داخل الخلية الموجود بها القائمة المنسدلة أرجوا أن ينال إعجابكم جرب إضغط على الخلية A2 وشاهد بنفسك Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$2" Then ActiveWindow.Zoom = 150 Else ActiveWindow.Zoom = 100 End If End Sub تكبير القائمة المنسدلة.rar

الحمــد لله رب العالـــمين، اللهـــم صـــل وسلـــم وبــاركــ على رســــولك الأمــيـن وعلــــى آلـه الطاهــــرين . بأســمك اللهم نبتدئ، وبكتابك القويم نهـــتدي، وبرســــولك الكـــريم نقــــتدي فوفقنا يا رب إلى أحسن الأقوال، وأصلـح أعمالنا وأتنا رشـدنا... فما توفيقنا إلا بكـ وما توكلــنا إلا عــليكـ، ومـــــــا توجـــهـنا إلا إليكــ . لقد استـشعر بعضنا واجبه نحو منتدانا ( أوفيسنا ) وتســــلح بالحـــزم والعـــزم ليقــوم بمــا قــــدّره الله عليــه ، بمـــــــن يسـرهـم الله لليسرى وأجـرى عــلى أيديهـم كل خير. وسـاعدونا في إصـــدار مجلة أوفيسنا وما صاحبها من نجاح في الاعداد التي صدرت وساهمت بطريقة او اخري مع موقع اوفيسنا في سرد المواضيع المتداولة بالاضافة الي موضوعات عامة تهم المستخدم العربي في شتى المجالات . فاللهم ثبتنا بالقـول الثابت، وأشرح صـدورنا وأنــر بصائرنا، وسدد خُطانا، وأربط على قلوبـنا، وأجر الخير على ألسنتنا وأقلامنا... يطيب لي ان اقدم الشكر والثناء لجميع من أسهموا في اخراج هذه الأعداد الي حيز الوجود واخص اخواني ا/ شوقي ربيع وأ/ قنديل الصياد وا/ رجب جاويش . وتجديدا للعهد والعطاء اطرح مبادرة لتنظيم فريق عمل جديد يشرف علي اصدار المجلة ومرفق نموذج الترشيح للتعاون والمساهمة كل بما يسر له الله من وقت او جهد في الاعداد او اعمال الاخراج والمونتاج واعمال التصميم ومانحو ذلك . برجاء تعبئة النموذج المرفق عند الرغبة في الاشتراك في اعداد واصدار مجلة اوفيسنا نموذج الاشتراك في اعداد مجلة أوفيسنا والله ولي التوفيق

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

تفضل اخي الغالي الترحيل زر طباعة.rar

دا زر طباعة الفورم نفسها هل تقصد هذا ام شئ اخر زر طباعة.rar

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

أخي ابوانس ليش تبخل علينا بشرح مفصل عن طلبك؟ سؤالك غير واضح جعفر

اها انا لم التفت الى كود فتح النموذج سابقا الغي كل الكود السابق ، استخدم هذا الكود بدلا عنه: Private Sub Combo0_AfterUpdate() DoCmd.OpenForm Me.Combo0 End Sub جعفر

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

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

رائع أخى الحبيب مختار زادك الله من العلم الكثير والكثير والشكر موصول لصاحب الفكرة أ / جعفر جزاه الله خيرا على كل ما يقدمه

جزاك الله خيرا أخى/ مختار البركانى

تسلم يا غالي - حفظ الله مصر وأهلها من كل مكروه وشر

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

أخي الحبيب الغالي مختار بارك الله فيك وجزاك الله خير الجزاء موضوع رائع ومتميز كروعة صاحبه تسلم الأيادي

السّلام عليكم و رحمة الله و بركاته NO COMMENT

جرب الملف ده ظهور دائم للصورة Rollover Technique.rar

ل لا إله إلا الله محمّد رسول الله التفاؤل حسن والطيرة شرك ، الإنسان هلوع إلا من رحم الله أسعد الله أوقاتكم بكل خير والسلام عليكم

تفضل أخي الكريم الملف بعد تطبيق المعادلة عليه تم تطبيق المعادلة على الخلايا L45,T45 كمثال ويمكن تطبيق المعادلة على الخلايا التي ترغب بها بالمثل, ولا تنسى أن تضغط على CTRL+SHIFT+ENTER عند ادخال المعادلة لأنها عبارة عن صيغة مصفوفة تحياتي جمع-محلول.rar

ألف ألف مبروك للأستاذ نضال شامي مزيد من التقدم والنجاح باذن الله

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

السادة الاساتذة : سليم و ياسر البنا نرفع لكما القبعة رغم الشتاء و المطر

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

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

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

دعاء لأستاذنا الغالى رحمه الله / عماد الدين الحسامى

جزاك الله خيرا عمل رائع تسلم ايدك ورحم الله اخي حسام واسكنة فسيح جناتة وجعل الله اعمالة في موازين حسناتة

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

اخى الكريم لعد الخلايا غير الفارغة داخل نطاق محدد.... يمكنك استخدام المعادلة التالية =COUNTIF(B1:B10;"<>")

عفوا اخي الكريم تجاوزتك في الرد سهوا جزاك ربي خيرا وبارك فيك تقبل تحياتي وشكري

بالنسبة الى من يحصل على درجات متدنية وايضا اصحاب التخصص الادبي أرى ان تكون لها معالجة خاصة من خلال النموذج عند تسجيل الطالب لرغباته بمعنى ان طالب الادبي لا يمكَّن الا من المتاح له من الرغبات , ومثله الطالب الحاصل على درجات متدنية والفائدة هنا ظاهرة ، خاصة للمستخدم فقديتغير سقف الحد الادنى من المعدل المطلوب وايضا قد يفتح المجال امام اهل الادبي في شعب اخرى تستحدث مثلا ، وما هو ممنوع اليوم قد يسمح به غدا ، والمختصر المفيد من كلامي هذا ان يكون للمستخدم التحكم بهذه النسب والضوابط من خلال النموذج . ولا تكون في صلب الكود البرمجي . تم تعديل المثال بدون تطبيق النقطتين السالفتين ، حتى نرى مبدئيا امكانية تحقق الفرص حسب الرغبات وحسب الاولوية ايضا تم تغيير نوع جميع الحقول النصية المستخدمة في التوزيع الى رقمية هناك طالبان لم يتم توزيعهما ، هل تستطيع التعرف عليهما ؟ هذا يفتح لك بابا لاستخراج المستبعدين آليا . وسبب الاستبعاد توزيع الطلاب2.rar

تفضل اعذرني اخي يبدو انه التبست علي المرفقات msrofa2t.rar