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

بارك الله فيكم واعطاكم من حيث لا تحتسبوا

التهنئة بترقية الاخ جلال الجمال أبو أدهم الى عضو مميز

بسم الله الرحمن الرحيم في المثال المرفق عملت كومبو بوكس في فورم hsmaat بحيث تقوم بالبحث عن اسم الموظف ... والمطلوب تاشير الاسم المطلوب بعد الاستدلال عليه ... في الليست بوكس زاظهار رقم الموظف في تكست emp_no ملاحظه مهمة : هناك نفس الاسم مكرر ولكن يأخذ رقمين لموظف (( يعني نفس الموظف ولكن له رقمين ... لكونه يعمل في قسمين مختلفين)) جزاكم الله خير الجزاء taadel.rar

إن الحمد لله نحمده ، و نستعينه ، ونستغفره ، ونعوذ بالله من شرور أنفسنا ، ومن سيئات أعمالنا . من يهده الله فلا مضل له ، ومن يضلل فلا هادي له ، وأشهد أن لا إله إلا الله وحده لا شريك له ، وأ شهد أ ن محمداً عبدُه و رسولُه . والصلاة والسلام على عبده ورسوله وخيرته من خلقه وأمينه على وحيه نبينا وإمامنا وسيدنا محمد بن عبد الله ، وعلى آله وأصحابه ، ومن سلك سبيله واهتدى بِهُداهُ إلى يوم الدين. رأى أهل الرأي في هذه المجلة المباركة أن صنوف العلم متكاملة متراكبة لا تثمر أحداها إلا بإمتزاجها بالقليل من هذا الباب وذاك ، ولا بد من حديث قَلبٍ أو تَدّبُرِ رأي ، والتمعنُ والتَفكرُ فيما يدور حولنا وما يَطرأُ علينا ، فَشَرَفوني بالتكليف ، فسارعت للخيرات رَغَباً بما عندَ الله ، مآزراً لرأيهم ، طامعاً بِغُفرانٍ من ربّي ومَثُوبَة. أقول : هذا جهد المُقِّل فإقبلوه منّا ، سنلتقي في هذا المنبر بإذن الله ، نلبس رداء ابن الجوزية بِمُصَنَفِهَ - صيد الخاطر ، إسماً ، نستلهم ونلتمس تأملاتٍ وحكماً ونَقتبِسُ من أهل العلم فَضائِلَ عِلمِهم ، ونَتَطلّعُ لعُلو منازِلِهم . لقاؤنا اليوم مع ابن الجوزية ، عبد الرحمن بن علي بن محمد الجوزي القرشي البغدادي - أبو الفرج - رحمه الله ، ومع مصنفه صيد الخاطر وتحديداً في فصل حقيقة زهد العلماء ، حيث اشار رحمه الله الى أمور عظيمة هداه الله لها ، حيث قال : تأملت التحاسد بين العلماء فرأيت منشأه من حب الدنيا فإن علماء الآخرة يتوادون ولا يتحاسدون كما قال عز وجل‏:‏ ‏"‏ وَلاَ يَجدُون في صُدُورِهِمْ حَاجَة مِمَّا أُوتُوا ‏"‏‏.‏ - الآية : ( وَالَّذِينَ تَبَوَّءُوا الدَّارَ وَالإِيمَانَ مِن قَبْلِهِمْ يُحِبُّونَ مَنْ هَاجَرَ إِلَيْهِمْ وَلاَ يَجِدُونَ فِي صُدُورِهِمْ حَاجَةً مِّمَّا أُوتُوا وَيُؤْثِرُونَ عَلَى أَنفُسِهِمْ وَلَوْ كَانَ بِهِمْ خَصَاصَةٌ وَمَن يُوقَ شُحَّ نَفْسِهِ فَأُوْلَئِكَ هُمُ المُفْلِحُونَ ) : الحشر : 9 ثم يقول رحمه الله : والأمر الفارق بين الفئتين‏،‏ أن علماء الدنيا ينظرون إلى الرياسة فيها ويحبون كثرة الجمع والثناء‏ ، وعلماء الآخرة بمعزل من إيثار ذلك وقد كانوا يتخوفونه ويرحمون من بلي به‏.‏ أقول : حكمة عظيمة وفهم طيب أجراه الله تعالى على لسان هذا العالم الرباني الفَذّ ، ونحن أحوَجُ ما نكون لتأمل مثل هذه القراءات وتدبرها ، فنحن هنا ضمن مجتمع علمي ، نسعى بأمور دنيانا ، نتعلّم ونودِع عند المُتَعَلمين ، وتتدافع بين جنبات هذا الصرح العلمي فئام من الخلق بين هذا ( المعلم ) و ذاك ( المتعلم ) ، و نتدافع أبواب العلوم بيننا بين أخذ ورد ، تطور وتراجع ، نمو وخمول ، وبين الفينة و الأخرى تلمع نجوم ساطعات لإخوة أبدعوا يتحلق حولهم طلابهم ومريديهم ينهلون مما يودَعُ لهم من علم نافع طيب ، هو ثمار جهد وبذل وسهر لكلا الطرفين – بتوفيق من الله – . أقول : يودع لهم ولا يعطى لهم ، فما اودع لديك من العلم تعمل به وتودعه لغيرك فضلاً من الله ورحمة ، لا منّا و لا تفضلاً. فلا يظنن هذا او ذاك أن ما به هو من عند نفسه ... بل لا بد ان يوقن ويعتقد راضياً بانه فضل وتوفيق ملدن رب السموات العُلى ، توفيقاً وتفهيماً وترسيخاً ومحبة ، فهو سبحانه يشتري منا ما وَهَبَنا ، ويطرح محبتنا وقَبولنا في قلوب عباده ، رَحمةً وفَضلاً ملدنه . ولا بد ان يكون هذا اليقين المطابِقُ للحقِ رادعاً لنا عن التهافتِ على الرِياسة والكِبر و التَحاسُد والتَنافُر والتَناحر وطَلب بارقاتِ الفَضلِ حولنا وإستمراء المدح والثناء ، بل تخوّفٌ من كلِ ذلك وهَجرٌ له وإدبارٍ عنه والسَعيُ لإحتِضانِ و تَفَهيم من إبتُلي بها. أقول : شتان ما بين طالب الثناء ( الصيت والشهرة ) ومُتلقي وقابل الثناء الطَيِّب. وفي معجم المعاني الجامع الثَّناء : المدح الثَّناء : المَدْح ، والتقريظ والتَقْديرٌ والتَبْجِيلٌ إِذَا صَلَّى أَحَدُكُمْ فَلْيَبْدَأْ بِتَحْمِيدِ اللهِ وَالثَّنَاءِ عَلَيْهِ ] حديث[ أثنى عليه ثناءً عَطِرًا / أثنى عليه عاطِرَ الثَّناء : بالغ في مدحه وإطرائه ، ثناء : صيت ، شُهْرة ، سمعة حسنة - الحديث : قال أحمد في "مسنده" (6/18) : حدثنا أبو عبد الرحمن المقرئ ، حدثنا حيوة ، قال : أخبرني أبو هانئ حميد بن هانئ ، عن عمرو بن مالك الجنبي حدثنا ، أنه سمع فضالة بن عبيد صاحب رسول الله صلى الله عليه وسلم ، يقول : سمع رسول الله صلى الله عليه وسلم رجلا يدعو في الصلاة ولم يذكر الله عز وجل ، ولم يصل على النبي صلى الله عليه وسلم ، فقال رسول الله صلى الله عليه وسلم : " عجل هذا " ، ثم دعاه ، فقال له ولغيره : " إذا صلى أحدكم ، فليبدأ بتحميد ربه والثناء عليه ، ثم ليصل على النبي صلى الله عليه وسلم ، ثم ليدع بعد بما شاء " . حديث حسن لذاته ، لأجل حميد بن هانئ وهو صدوق لا بأس به ، والحديث صححه ابن خزيمة وابن حبان والحاكم ، واجتباه النسائي ، وقال الترمذي : "حسن صحيح" . أقول : إن الحق ما قاله رسول الله صلى الله عليه وسلم : " من صُنع إليه معروف فقال لفاعله : جزاك الله خيراً فقدأ بلغ في الثناء ". رواه الترمذي فجزاء العمل يكون عند الله تبارك وتعالى ، فمن كان من علماء الآخرة فيكفيه عظيم الجزاء من الله بدعاءِ أخيه ، وينال بالغ الثناء في ثنايا دعائه ، ومن كان من علماء الدنيا إستَزاد من ثَناء الناسِ له كِبراً ، مُغفِلاً حُسنَ دُعاء أخيه وما فيه من عظيم جَزاءِ ربهِ وبالِغِ الثناء في طَياتِه. رضي الله عن علي إبن أبي طالب ، قال : العلم زين فكن للعلم مكتسباً وَكُنْ لَهُ طالبا ما عشْتَ مُقْتَبِسا اركن إليه وثق بالله واغنَ به وكن حليماً رزين العقل محترسا وَكُنْ فَتًى ماسكا مَحْضَ التُّقى ورعا للدِّيْنِ مُغْتَنِما لِلْعِلْمِ مُفْتَرسا فمن تخلقَ بالآداب ظلَّ بها رَئِيْسَ قَوْمٍ إِذَا ما فارق الرؤسا وحيث ان المقام لا يتسع لتفصيل المقال ، واللبيب بالإشارة يَفهَمُ ، نترك بإذن الله ، لكم تَدَبُر المُرام من هذا المقال ، ونستودعكم الله الذي لا تضيع ودائعه . والسلام عليكم ورحمة الله وبركاته نارت يحيى لبزو عمان في الرابع عشر من آذار للعام 2014 ........ نشر في مجلة الموقع لشهر ابريل 2014 ....... View the full article

السادة المشرفين والخبراء في الأكسس السلام عليكم ورحمة الله وبركاته منذ فترة قمت بتصميم برنامج وكنت استخدم اوفيس 2003 وبعد ما انتهيت تقريباً من اعداد البرنامج اخذت نسخه منه على جهاز آخر ولكن تفاجأت ان الجهاز يحتوي على اوفيس 2010 وعند فتح البرنامج تظهر الرسالة التالية وعند محاولة فتح أي نموذج تظهر نفس الرسالة ارجو المساعدة في حلها ضروري جدا ولكم جزيل الشكر

السلام عليكم بعد التحية , بالنسبة لتحريك الزر انا اختار design mode من تاب develeopler في اكسيل 2010 ثم احرك الزر او اعدل خصائصه لكن ليس لدي فكرة اين design mode في 2003

اضبط اعدادات اللغة في الجهاز الجديد اذهب الى : لوحة التحكم / المنطقة و اللغة اضبط ايضا الاعدادات المحلية للنظام

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

حبيبي في الله حمادة عمر ، أثرى الله حياتك بكل خير ، و جعل عملك مقبولا في ميزان حسناتك

السلام عليكم الاخ الكريم / احمد عبد الفتاح بارك الله فيك قم اخي الكريم بتصميم الزر في الشيت الذي تريده ... وايضا قم بوضع الامر الذي تريده فيه هذا بخصوص الزر ... وتنفيذه للأمر المطلوب منه ... كما كان في ملفك الاول وبخصوص التحريك قم بوضع الكود التالي في حدث الشيت المحدد الذي تريد تنفيذ تحريك الزر فيه والكود كالتالي Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'السطر السابق خاص بوضع الامر المطلوب تنفيذه في الشيت في وضعية او عند تنفيذ ' الدبل كليك BeforeDoubleClick .. اي بعد الضغط دبل كليك في اي مكان في الشيت Cancel = True ' السطر السابق يقوم بالغاء الامر دبل كليك المعتاد والذي اذا قمت بتنفيذه في الوضع العادي 'سيقوم الاكسيل بتحديد واظهار المؤشر في الخلية المحددة للتجهيز للكتابة او ما شابه .. Me.CommandButton1.Visible = False 'السطر السابق يعني جعل الزر الذي قمت بتصميمه وهو هنا الزر رقم 1 CommandButton1 ' وبالطبع يجب تغيير اسم الزر كما هو لديك تماما في الشيت .. وهو يعني جعل هذا الزر 'مخفيا ليتم استعداؤه بعد ذلك Me.CommandButton1.Top = ActiveCell.Top 'السطر السابق يقول بان موقع الزر رقم 1 وهنا هو الاعلي Top الخاص به .. يكون اعلي الخلية 'النشطة والتي تم تنشيطها بعد الضغط دبل كليك Me.CommandButton1.Left = ActiveCell.Left 'السطر السابق يقول بان موقع الزر رقم 1 وهنا هو الايسر Left الخاص به .. يكون ايسر الخلية 'النشطة والتي تم تنشيطها بعد الضغط دبل كليك Me.CommandButton1.Visible = True 'هو سطر عكس السطر السابق في بداية الكود Me.CommandButton1.Visible = False وذلك لجعل 'الزر رقم 1 ظاهرا وجعل خاصية الاخفاء لا تعمل Visible = True End Sub 'السطر السابق يعني انهاء المهمة بالكامل ارجو ان اكون وفقت في شرح الكود كما ينبغي وان لم يمكنك التنفيذ ابلغني وسوف اعد لك ان شاء الله شرح فيديو يوضح ذلك تقبل خالص تحياتي

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

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

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

الأستاذة الفاضلة / سحابة خير السلام عليكم ورحمة الله وبركاته إليك الملف لعله المطلوب. تقييم المعلمات.rar

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

إخواني الأعزاء من هذا المنبر أعلن عن تقديم تبرع لأي جمعية خيرية يرغب بها صاحب الحل بمبلغ 100 ريال وتكون إن شاء الله في ميزان حسناته , وذلك من باب المنافسه بين الزملاء وشكراً جميعا

السلام عليكم جرب هذه Private Sub CommandButton1_Click() ' Changes the Chart's XValue and Value ranges to display the selected data If TypeName(Selection) = "Range" Then If Selection.Columns.Count = 1 Then If Selection.Column = 2 Then If Selection.Areas.Count = 1 Then t = Range("A1:C1,A" & Selection.Cells(1).Row & ":C" & Selection.Cells(Selection.Rows.Count).Row & "").Address ActiveSheet.ChartObjects("Chart 1").Activate ActiveChart.SetSourceData Source:=Range(t) Else MsgBox "Select a contiguous range of cells in column B.", vbInformation End If End If End If End If End Sub تحياتي

السلام عليكم جرب هذا تحياتي vlook+.rar

فضلا وليس امرا

الملف المرفق vlook.rar

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

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

السلام عليكم أخوتي الكرام هذا استطلاع رأي بخصوص إدارة المشاريع المؤسسية ، ذو علاقة ببحث أقوم بها انا و صديقي د. عمرو مسلم https://www.surveymonkey.com/s/YVW25ND أرجو المشاركة فى الاستطلاع لمن هو مجال عمله ذو علاقة بهذا الاستطلاع ـ او دعوة من تعرفونه للمشاركة

حبة خوخ ، علي جانبها الايمن لفظ الجلالة ، و هي ليست صورة من النت و انما قام بتصويرها الأخ محمود درويش ( صاحب تصميم لوجو النسر الخاص باوفيسنا فى الصفحة الرئيسية )

ما شاء الله .. من ابداع الى ابداع شكر الله سعيكم

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

انه من القليل مدح انسان في هذا المنتدي فالمنتدي بكل من فية عظماء

بارك الله فيك

up