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

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

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

رابعاً:- التعامل مع خصائص الـ TextBox فى لغة البرمجه فى الدرس قبل السابق عرفنا ازاى نتحكم فى خصائص الفورم من شاشة الخصائص اثناء عملية التصميم فماذا لو حبينا نتحكم فى خصائص الفورم ولكن من خلال الاكواد وليس من شاشة الخصائص فى مرحله التصميم هنبدأ على طول بمثال عملى ونشرح عليه اضغط دبل كليك على اى مكان فاضى فى الفورم وهندخل محرر اكواد الفورم ونعمل كود فى حدث فتح الفورم اتبع الصوره فى المكان المظلل باللون الاحمر هنا موضوع كتابه الاكواد 1-خاصيه BackColor :- الرقم 15849925 لجعل خلفية التكست بوكس لونها سماوى فاتح ( راجع ارقام الالوان فى الدروس الخاصه بالـ Label ) TextBox1.BackColor = 15849925 **************************************************************************************************************************************** 2-خاصيه Enabled :- TextBox1.Enabled = True أو TextBox1.Enabled = False هذه الخاصيه تحمل خيارين true و False عند اختيار False سوف يكون بأمكان المستخدم ادخال او تعديل محتوى TextBox1 وعند اختيار True لا يكون بأمكان المستخدم ادخال او تعديل محتوى TextBox1 يعنى هيكون فى حمايه على TextBox1 *************************************************************************************************************************** 3-خاصيه Height :- للتحكم بارتفاع التكست بوكس وليكن جعل الارتفاع 35 TextBox1.Height = 35 ************************************************************************************************************************************ 4-خاصيه Left :- للتحكم فى بعد التكست بوكس عن الضلع الايسر للفورم وليكن جعل البعد 80 TextBox1.Left = 80 ********************************************************************************************************************************************* 5-خاصيه Locked :- هذه الخاصيه تحمل خيارين true و False TextBox1.Locked = False أو TextBox1.Locked = True عند اختيار False سوف يكون بأمكان المستخدم ادخال او تعديل محتوى TextBox1 وعند اختيار True لا يكون بأمكان المستخدم ادخال او تعديل محتوى TextBox1 يعنى هيكون فى حمايه على TextBox1 *********************************************************************************************************************** 6-خاصيه MaXLength :- هذه الخاصيه يمكن من خلالها التحكم فى عدد الاحرف او الارقام المدخله بالـ TextBox1 لو حضرتك عايز تجبر المستخدم على ادخال وليكن عدد 8 أحرف فقط اكتب فى خاصيه Maxlenght رقم 8 فلو حب المستخدم يكتب ( محمد خالد ) فأنه لا يستطيع الا كتابة (محمد خال) لماذا لانه تم تحديد عدد الادخال 8 فقط واحد هيقولى محمد خالد عددها 8 حروف هقوله ان الفيجول هيقوم بعد الفاصله اللى بين محمد وبين خالد وبالتالى (محمد 4 حروف + 1 فاصله + خال 3 حروف كدا =8) TextBox1.MaxLength = 8 **************************************************************************************************************************** 7-خاصيه Multline :- هذه الخاصيه تحمل خيارين true و False عند اختيار False سوف يكون عرض المحتوى اللى بيتم ادخاله او تعديل فى محتوى TextBox1 على سطر واحد فقط وعند اختيار True سوف يكون عرض المحتوى اللى بيتم ادخاله او تعديل فى محتوى TextBox1 على عدة اسطر ويجب مراعاة تعديل ارتفاع TextBox1 ليظهر اكثر من سطر TextBox1.MultiLine = False أو TextBox1.MultiLine = True ******************************************************************************************************** 8-خاصيه Passwordchar :- هذه الخاصيه يمكن من خلالها التحكم فى طريقة أظهار القيم المدخله بالـ TextBox1 لو حضرتك عايز تجعل القيم المدخله فى TextBox1 على شكل ( * ) مثلا شاهد الصوره التالية نلاحظ بالكود تم كتابة العلامه * بين اقواس تنصيص " * " ( وهى تكتب من خلال shift+حرف ط ) TextBox1.PasswordChar = "*" **************************************************************************************************************************** 9-خاصيه ScorollBars :- هذه الخاصيه تحمل اربع خيارات ويبدأ العدد من 0 الى 3 0- FMScrollBarsNone ( هذا يعنى الغاء خاصيه ScrollBars ) شاهد الكود التالى -- بمجرد كتابة = ستجد قائمة تظهر لك بالاربع خيارات TextBox1.ScrollBars = fmScrollBarsNone 1-FMScrollBarsHorizontal ( هذا يعنى عمل ScrollBars للـ TextBox1 بشكل أوفقى ) TextBox1.ScrollBars = fmScrollBarsHorizontal 2-FMScrollBarsVertical ( هذا يعنى عمل ScrollBars للـ TextBox1 بشكل رأسى ) TextBox1.ScrollBars = fmScrollBarsVertical 3-FMScrollBarsBoth ( هذا يعنى عمل ScrollBars للـ TextBox1 بشكل أفقى و رأسى مع بعض ) TextBox1.ScrollBars = fmScrollBarsBoth *********************************************************************************************************************** 10-خاصيه Visible :- وهذه الخاصيه تتيح للمستخدم التحكم فى ظهور او عدم ظهور TextBox1 عند عرض الفورم عندد اختيار True سوف يظهر الـ TextBox1 على الفورم عند فتحه ( وهذا هو الخيار الافتراضى من الفيجوال بيسك ) TextBox1.Visible = True وعند اختيار False ٍسوف يختفى الـ TextBox1 على الفورم عند فتحه يعنى هيكون غير ظاهر ومخفى لا يراه المستخدم TextBox1.Visible = False *********************************************************************************************************************** 11-خاصيه Top :- وهذه الخاصيه تتيح للمستخدم التحكم فى بعد الـ TextBox1 عن الضلع الاعلى للفورم TextBox1.Top = 90 ************************************************************************************************************************************ 12-خاصيه Width :- هذه الخاصيه تتيح للمستخدم التحكم فى عرض الـ TextBox1 لو فرضنا نريد جعل العرض 100 TextBox1.Width = 100 ******************************************************************************************************************************** 13-خاصيه Text Align :- وهذه الخاصيه تتيح للمستخدم التحكم فى اتجاه بداية النص داخل الـ TextBox1 هل يكون يميناً أو يساراً أو وسط TextBox1 بمجرد كتابة = ستجد الفيجوال بيسك يعرض لك قائمة بها 3 خيارات fm Text Align Left -1 عند الاختيار ستجد ان اتجاه النص داخل TextBox1 يبداء من اليسار TextBox1.TextAlign = fmTextAlignLeft fm Text Align Center -2 عند الاختيار ستجد ان اتجاه النص داخل TextBox1 فى المنتصف TextBox1.TextAlign = fmTextAlignCenter fm Text Align Right -3 عند الاختيار ستجد ان اتجاه النص داخل TextBox1 يبداء من اليمين TextBox1.TextAlign = fmTextAlignRight **************************************************************************************************************************** 14-خاصيه Special Effect :- هذه الخاصيه من الخصائص الهامه للـ TextBox1 وهى تعطى اشكال مبهره ومميزه للـ TextBox1 ولها خمس اشكال بمجرد كتابة = ستجد الفيجوال بيسك يعرض لك قائمه بها 5 خيارات على سبيل المثال منها TextBox1.SpecialEffect = fmSpecialEffectBump جرب كل الخيارات واختار منها ما يناسب زوقك ************************************************************************************************************************************** الكود بشكله النهائى هيكون كدا Private Sub UserForm_Initialize() TextBox1.BackColor = 15849925 TextBox1.Enabled = True TextBox1.Height = 35 TextBox1.Left = 80 TextBox1.Locked = False TextBox1.MaxLength = 8 TextBox1.MultiLine = True TextBox1.PasswordChar = "*" TextBox1.ScrollBars = fmScrollBarsBoth TextBox1.Visible = True TextBox1.Top = 90 TextBox1.Width = 100 TextBox1.TextAlign = fmTextAlignRight TextBox1.SpecialEffect = fmSpecialEffectBump End Sub *************************************************************************************************************** كدا الحمد لله انتهينا من المحور الرابع وهو التعامل مه خصائص ال TextBox فى لغة البرمجه ان شاء الله المره القادمه نتكلم عن المحور الخامس والاخير وهو كيفية عمل تنسيقات للقيم المدخله بـ TextBox ارجوا من الله ان اكون وفقت بالشرح واى استفسار انا تحت امر الجميع تقبلوا تحياتى

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

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

تفضل قبل ما أنام عشان أنام وأنا ضميري مرتاح Sub Archive() 'تعريف المتغيرات Dim WS As Worksheet, SH As Worksheet Dim lRow As Long 'تعيين أوراق العمل المطلوب الترحيل منها وإليها Set WS = Sheet1: Set SH = Sheet2 'تحديد آخر صف فارغ بعد آخر خلية بها بيانات في ورقة العمل المراد الترحيل إليها lRow = SH.Cells(Rows.Count, "Q").End(xlUp).Row + 1 'في الصف الفارغ الأخير في ورقة العمل المراد الترحيل إليها [Q] الخلية في العمود 'تساوي 'الخلية التي تحتوي تاريخ اليوم SH.Cells(lRow, "Q") = WS.Range("L13") 'في الصف الفارغ الأخير في ورقة العمل المراد الترحيل إليها [O] الخلية في العمود 'تساوي 'الخلية التي تحتوي الزيادة أو العجز SH.Cells(lRow, "O") = WS.Range("L12") End Sub

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

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

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

السلام عليكم ورحمة الله وبركاته: هل تعلم أن مشاركتي الأولى هذه لا تتعلق بالإكسيل ولكن هل تعلم شروط كلمة لا إله إلا الله: ما هي شروط قول: (لا إله إلا الله)؟ وهل يكفي التلفظ بها فقط دون فهم معناها وما يترتب عليها؟ " لا إله إلا الله " أفضل الكلام، وهي أصل الدين وأساس الملة وهي التي بدأ بها الرسل عليهم الصلاة والسلام أقوامهم. فأول شيء بدأ به الرسول قومه أن قال: ((قولوا: لا إله إلا الله تفلحوا))، قال تعالى: وَمَا أَرْسَلْنَا مِنْ قَبْلِكَ مِنْ رَسُولٍ إِلا نُوحِي إِلَيْهِ أَنَّهُ لا إِلَهَ إِلا أَنَا فَاعْبُدُونِ[1] وكل رسول يقول لقومه: اعْبُدُوا اللَّهَ مَا لَكُمْ مِنْ إِلَهٍ غَيْرُهُ[2]، فهي أساس الدين والملة ولا بد أن يعرف قائلها معناها، فهي تعني: أنه لا معبود بحق إلا الله. ولها شروط، وهي: العلم بمعناها، واليقين وعدم الشك بصحتها، والإخلاص لله في ذلك وحده، والصدق بقلبه ولسانه، والمحبة لما دلت عليه من الإخلاص لله، وقبول ذلك، والانقياد له وتوحيده ونبذ الشرك به مع البراءة من عبادة غيره واعتقاد بطلانها، وكل هذا من شرائط قول لا إله إلا الله وصحة معناها. يقولها المؤمن والمؤمنة مع البراءة من عبادة غير الله، ومع الانقياد للحق وقبوله، والمحبة لله وتوحيده، والإخلاص له وعدم الشك في معناها، فإن بعض الناس يقولها وليس مؤمناً بها كالمنافقين الذين يقولونها وعندهم شك أو تكذيب فلا بد من علم ويقين، وصدق وإخلاص، ومحبة وانقياد، وقبول وبراءة، وقد جمع بعضهم شروطها في بيتين فقال: علم يقين وإخلاص وصدقك مع محبة وانقـياد والقبـول لـها وزيد ثامنها الكـفران منك بما سوى الإله من الأشياء قد أُلِها

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

الأستاذ الكريم يوسف وائل السلام عليكم ورحمة الله وبركاته ، كنت َ ملهوفاً ليقوم أحد الزملاء الكرام بمعالجة موضوعك تعاطفت معك وقدمت الملف بمشاركة خاصة باسمي وأخبرتك بذلك على أن تتابعه ـ كوني غير ملم بالبرمجيات . لطفاً ....هلاّ راجعت توجيهات المنتدى - البند التاسع ( التوجيهات من هنا ) فحريّ بك - إن لم يكن لديك عذر عن التأخّر - ألا تقطع الشهامة والنخوة من رؤوس الرجال فمن ذا الذي.....؟؟؟!!.

السلام عليكم ورحمة الله تفضل اخي إن شاء الله يكون المطلوب الاسم : عبدالملك الرقم : 112233 عمل واجهة دخول للملف برقم سري.zip

السلام عليكم ورحمة الله وبركاته الدرس الخامس 5-Colors الالوان وسوف نتناول فى هذه الدرس الاتى استخدام الخاصيه color استخدام الخاصيه ColorIndex استخدام الخاصيه Interior.Color استخدام الخاصيه borders.color استخدام الخاصيه Tab.Color ............................................................. استخدام الخاصيه color تستخدم الخاصيه COLOR فى تلوين الخطوط FONT يجب ان نشير الى اننا حينما نتعامل مع color فاننا نستخدم الخاصيه الخاصه بالالوان RGB سنجد ان قيمة RGB مكونه من ثلاث معطيات هى الاحمر -- الاخضر --الازرق .RGB(red_value, green_value, blue_value) وسوف نقدم بعض القيم والالوان الخاصه ب RGB الان نتعرف على كيفية استخدام هذه الخاصيه فى تلوين الخط نفترض اننا لدينا الاسم HIMA فى الخليه A17 ونريد تلوين الخط باللون الازرق سيكون شكل الكود كالاتى Sub colorfont() Range("a17").Font.Color = RGB(0, 0, 255) ' blue End Sub وطبعا لو عايز تغير اللون لاى لون انت عايزه كل الى عليك ان هتغير الارقام الخاصه بالخاصيه RGB استخدام الخاصيه ColorIndex تستخدم ايضا فى التعامل مع تلوين الخطوط ولكن يتم الاشاره هنا الى الالوان بالارقام العدديه من 1 الى 56 راجع الصوره فمثلا لو لدينا الاسم HIMA فى الخليه A21 ونريد تلوينه باللون الاحمر سيكون شكل الكود كالاتى Sub ColorIndexfont() Range("A25").Font.ColorIndex = 3 'red End Sub استخدام الخاصيه borders.color تستخدم هذه الخاصيه فى تلوين حدود الخلايا وطبعا احنا عرفنا قبل كده ازاى نتعامل مع COLOR عن طريق RGB نفترض اننا عايزن نحدد الحليه B33:D33 باللون الازرق سيكون شكل الكود كالاتى Sub coloredborders() Range("b33:d33").Borders.Color = RGB(0, 0, 255) ' blue End Sub استخدام الخاصيه Interior.Color تستخدم هذه الخاصيه فى تلوين الخلايا وطبعا احنا عرفنا قبل كده ازاى نتعامل مع COLOR عن طريق RGB نفترض اننا عايزين نلون الخلايا من B41:D41 باللون الاخضر سيكون شكل الكود كالاتى Sub backgroundcolor() Range("b41:d41").Interior.Color = RGB(0, 255, 0) ' green End Sub استخدام الخاصيه Tab.Color تستخدم هذه الخاصيه فى التعامل مع تبويب الشيتات Sub colorwsheettab() Sheets("5-Colors").Tab.Color = RGB(0, 0, 255) ' blue End Sub فلو احنا عايزين نلون تبويب الشيت المسمى ب 5-Colors باللون الازرق مثلا هيكون شكل الكود كالاتى Sub colorwsheettab() Sheets("5-Colors").Tab.Color = RGB(0, 0, 255) ' blue End Sub اتمنى ان يكون الدرس مفيدا مرفق شيت اكسيل به التطبيقات learnvba.rar تقبلوا تحياتى learnvba.rar

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

استاذى الحبيب عموما على حسب ما فهمت اليك السطر التالى لاجبار المستخدم على ادخال المبلغ ارقام فقط ( او لاى تكست بوكس تريد ان يكون الادخال فيه عدد صحيح وليس حروف ) If Not IsNumeric(Me.TextBox1.Value) Then: MsgBox " الرجاء ادخال المبلغ عدد ", vbCritical, "خطأ ": Exit Sub فى السطر عاليه استبدل TextBox1 بـ التكست بوكس عندك اللى عايز تعمل عليه تقبل تحياتى

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

وعليكم السلام ورحمة الله وبركاته أهلا أبوعيدالرحمن نورت المنتدى ألف هلا بيك يسرنا مساعدتك وحل مشاكلك بقدر المستطاع تفضل هذا ما طلبته ادخل على صفحة البحث وفي الخلية A2 اكتب رقم المدرسة فقط ( 103 أو 102 أو ..... ) وسيتم إحضار كافة البيانات تحياتي معلومات كادر مديرية التربية 2.rar

السلام عليكم و رحمة الله و بركاته تفضّل أخي الغالي أنس دروبي كما وعدتك المرفق الخاص برسالة التّوضيح .. أما مطلب زر الأمر فتاهت و لقيناها لاحظ الصورة غيّر فقط اسم ورقم الليبل أو التاكست بوكس فائق احتراماتي أنس دروبي.rar

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

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله مع التحديث الجديد .. للأسف لم أجد التوجيهات التي تم وضعها من قبل ، وهذه القواعد والأسس هامة جداً ليدرك الأعضاء كيفية التعامل مع المنتدى طبعاً الموضوع سيكون متجدد .. سيتم وضع القواعد مرة أخرى فالرجاء الرجاء أن تساعدوني في اتمام الأمر .. كل عضو يذكرني بتوجيه من هذه التوجيهات ليتم إرساء القواعد ، إذ أن نجاح أي مؤسسة يعتمد في المقام الأول على قواعد ومنهج ثابت للسير على دربه التوجيهات والقواعد التي يجب مراعاتها التوجيه الأول : قبل طرح موضوع جديد يتعلق بطلب محدد يرجى استخدام خاصية البحث أولاً ، فإذا لم يجد طارح الموضوع بغيته ، فعليه أن يقوم بطرح موضوع جديد ، وفي هذه الحالة على طارح الموضوع أن يعلم أن حسن السؤال شطر الإجابة ، فاللباقة واللياقة والكياسة من الصفات التي يجب أن يتحلى بها طالب العلم. التوجيه الثاني : عند طرح موضوع جديد ، يتم وضع عنوان مناسب للطلب بحيث يفهم الطلب قبل الإطلاع عليه ، وعلى طارح الموضوع أن يبتعد عن العناوين الغير مجدية مثل : ( طلب مساعدة - الرجاء المساعدة - ساعدوني من فضلكم - عاجل وهام - الحقوني - نداء للعباقرة - نداء للعمالقة - إلى آخر تلك العناوين ...) ، وأمر آخر ألا يكون العنوان على شكل سؤال أو طلب .. نبتعد عن كلمة "طلب" مثال تطبيقي : نفترض أنني أريد معادلة تجمع القيم في عمودين العنوان المناسب للطلب يكون بهذا الشكل : معادلة جمع القيم في عمودين والنتائج في عمود آخر التوجيه الثالث : أن يتم توضيح المطلوب بالموضوع بشكل يزال معه أي لبس ، وفي نفس الوقت يراعى الإجمال في الطلب ، فأقصر الخطوط هو الخط المستقيم ، بمعنى "لا إطالة مملة ولا اختصار مخل" ، أي لا يكون طرح الموضوع مختصر للغاية بل يجب أن يستوفي جميع العناصر المطلوبة ، ومن ضمنها أن يحدد طارح الموضوع هل الحل المطلوب بالمعادلات أم بالأكواد أم بكلاهما لتكون الأمور واضحة بالنسبة لمن يريد تقديم المساعدة ، وأن يقوم صاحب الموضوع بإرفاق ملف به بيانات وهمية لتوضيح طلبه وللوصول إلى حل سريع ودقيق ، وإذا صعب على طارح الموضوع شرح المطلوب يمكنه إرفاق بعض النتائج المتوقعة كي يسهل الوصول لحل. التوجيه الرابع : نلاحظ أن شكل المنتدى لا يعجب معظم الأعضاء ، فلما لا نغير بأيدينا الشكل العام للمشاركات ، فيفضل على سبيل المثال استخدام حجم خط كبير 22 على سبيل المثال وجعل الخط عريض Bold مما يجعل المشاركة واضحة ومقروءة بشكل جيد ، كما يمكن استخدام الألوان أي قم بتنسيق المشاركة بشكل جذاب يجعل القاريء لا ينفر منها. التوجيه الخامس : بعد الانتهاء من الموضوع والوصول لحل يرضي صاحب الموضوع ، يرجى أن يتم تحديد أفضل إجابة من خلال النقر على علامة الصح الموجودة بجانب كل مشاركة ، وأن يسجل صاحب الموضوع إعجابه من خلال النقر على "سجل اعجاب بهذا" كنوع من رد الجميل لمن قدم المساعدة ، ويمكن أيضاً أن يقوم بتقييم المشاركة تقييم إيجابي كنوع من التقدير ، وأن تشكر من قدم المساعدة فمن لم يشكر الناس لا يشكر الله. فيما يخص لو كان هناك أكثر من إجابة للموضوع ، يمكن لصاحب الموضوع عمل مشاركة جديدة يجمع فيها كل الحلول ويختار هذه المشاركة كأفضل إجابة التوجيه السادس : لا تكن لحوحاً ، يكفي أن أعضاء المنتدى يقدمون وقتهم و خبرتهم مقابل لا شيء وعندهم أعمال أخرى (مشاغلهم الخاصة) يقومون بها ، و إذا تأخر الرد ، فمن الممكن أن يكون أحد الأعضاء يقوم بمحاولة الإجابة ، وهذا يستغرق بعض الوقت خاصةً إذا كان الموضوع صعباً. التوجيه السابع : حمل الملف المرفق دون زركشات (ألوان و تنسيقات مختلفة) مما يزيد من حجم الملف و أحياناً تكون الألوان مقززة بشكل ينفر منها المساعد (خاصةً إذا كانت ألوان الخلايا غير متناسقة مع لون الخط) التوجيه الثامن : تأكد أن الملف المرفوع غير مصاب بفيروس و غير محمي بكلمة سر ، وإلا لن تجد المساعدة من قبل الأعضاء. التوجيه التاسع : متابعة صاحب الموضوع لموضوعه والتفاعل معه ، فلا يعقل أن يطرح أحدهم موضوع ولا يتابعه إلا بعد مرور وقت طويل ، فهذا يعد من اللامبالاة الغير مرغوب فيها ، والتي تنفر الجميع من العضو. التوجيه العاشر : عدم التسجيل في المنتدى بأكثر من حساب ، وأن يكون اسم الظهور باللغة العربية ومعبر عن الاسم الحقيقي أي (تعريب اسم العضو) ، فلا يجوز أن يكون اسم الظهور اسم واحد وفقط بل أن يكون ثنائي على الأقل أو أن يكون اسم ولقب ، ولذا يرجى عدم استخدام الأسماء المستعارة أو الأسماء باللغة الأجنبية ، فاللغة العربية هي هويتنا ولابد من الحافظ عليها. ** يتم تغيير اسم الظهور أو اسم المستخدم من خلال إعدادات الحساب ثم التبويب اسم المستخدم ، قم بتغيير الاسم ثم انقر كلمة حفظ التوجيه الحادي عشر : عدم طرح أكثر من موضوع لنفس الطلب من نفس العضو ، فهذا يعد مخالفة صريحة ، وليعلم العضو الذي يقوم بذلك أن تكرار الموضوع لن يجدي نفعاً في حالة عدم توضيحه للمطلوب. وفي حالة أن قام العضو بذلك عن طريق الخطأ يقوم العضو بالتنويه في الموضوع وطلب حذف الموضوع نظراً لتكراره. التوجيه الثاني عشر : على من يقدم المساعدة أن يكون مثالاً يحتذى به في العطاء والصبر والحلم وكرم الأخلاق وحسن الإجابة ، يجتذب بتلك الصفات عقول الآخرين وأفئدتهم التوجيه الثالث عشر : عند طرح موضوع يفضل أن يكون هناك طلب واحد فقط إذ أن الموضوع الذي تكثر فيه الطلبات ينفر الأعضاء الذين يريدون تقديم يد المساعدة ، وعلى رأي المثل (من يطارد عصفورين يفقدهما) فما بالك لو طاردت أكثر من طلبين أقصد أكثر من عصفورين ، يمكنك أن تتعامل بذكاء بأن تطرح الموضوع بطلب واحد حتى إذا تم على خير قم على الفور بطرح موضع جديد بطلب جديد وهكذا إلى أن يتم الأمر التوجيه الرابع عشر : يرجلا عدم إرسال رسائل خاصة للأعضاء لطلب المساعدة بشكل شخصي ، لأن هذا الأمر يضايق الكثير من الأعضاء ، وتأكد أن العضو إذا كان لديه معلومة أو يستطيع أن يفيد بشيء ووقته يسمح بذلك فلن يتأخر عنك ، يكفي أن تكتب كلمة "للرفع" في موضوعك ، ليشاهده أكبر عدد من الأعضاء. ** كيفية رفع الصور في المشاركات : ******************************* دمتم على طاعة الله

التعديل التالي تقوم بتصغير اليوسرفورم الزاوبة العليا اليسرى للشاشة Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Const GWL_STYLE As Long = (-16) Private Const WS_SYSMENU As Long = &H80000 Private Const WS_MINIMIZEBOX As Long = &H20000 Private Const WS_MAXIMIZEBOX As Long = &H10000 Private Const SW_SHOWMAXIMIZED = 3 Private Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long Private lFormHandle As Long Private Sub UserForm_Activate() Dim lStyle As Long lFormHandle = FindWindow("ThunderDFrame", Me.Caption) lStyle = GetWindowLong(lFormHandle, GWL_STYLE) lStyle = lStyle Or WS_SYSMENU lStyle = lStyle Or WS_MINIMIZEBOX lStyle = lStyle Or WS_MAXIMIZEBOX SetWindowLong lFormHandle, GWL_STYLE, (lStyle) DrawMenuBar lFormHandle End Sub Private Sub CommandButton1_Click() Unload Me End Sub Private Sub UserForm_Resize() If IsIconic(lFormHandle) Then Me.Move 0, 0, 0, 0 End If End Sub

هسميك العضو المختصر (كلمتين وبس) نبهت عليك يا ولدي ان تسرد في الشرح عموماً الموضوع بسيط جدا استخدم التنسيق الشرطي حدد النطاق B4:C19 روح للتبويب Home اختار Conditional Formatting ثم اختر New Rule واختار آخر خيار عندك Use Formula to وشوية كلام كدا وضع المعادلة التالية في المستطيل الأبيض في أسفل النافذة المفتوحة =$C4<>"" وبعدين انقر Format وادخل على التبويب Fill واختار اللون اللي يعجبك وأوك مرتين وبس خلاص جرب تضع أي بيانات في النطاق C4:C19

جزيت خيراً أخي الحبيب عبد العزيز الفضل لله ثم لك في الإبداع الأول ..ما أضفت إلا القليل جداً البركة فيك يا أبو فتح

اخي الحبيب عبد العزيز ممكن إضافة بسيطة لكي لا يتوقف الماوس Private Sub CommandButton1_Click() If TextBox4 = "" Or TextBox4 = Val(TextBox2) * Val(TextBox3) Then TextBox4 = Val(TextBox2) + Val(TextBox3) Else TextBox4 = Val(TextBox2) * Val(TextBox3) End If End Sub يعني افضل اعمل كليك مرة يجمع ومرة يضرب ..

أخى الحبيب مرحبا بك اخ جديد لنا فى جامعه اوفيسنا اللى حضرتك بتطلبه ده معناه عايز برنامج كامل راجع الرابط التالى http://www.officena.net/ib/topic/63081-برنامج-ema-المحاسبى/ ربما يفيدك ولكن لو عايز تتعلم كما ذكرت فكان المفروض على حضرتك تبدأ بعمل تصور لفكرتك وترفق ملف به الشئ اللى وقف معاك او الشئ اللى انت عايز تسال عنه ووقتها لن نتخلا عنك لازم تبدأ خطواتك بنفسك تقبل تحياتى

اخى محمد طلبك عزيز عليا ولكن اسمح لى ان اصر على نفس نوع الخط مش عارف ليه يا اخى انا بحب الخط ده اوى بس علشان انا مقدرش على زعلك فخليت حجم الخط 22 وسمكله كمان ياعم تخين وبكده تبقى انت الكسبان انت اخد اتنين وانا اخدت واحده بس وخلينا حبايب ولا ايه .................................................. وعلى العموم نطلب من اخوانا ياسر يظبطلنا الحتى دى علشان يبقى حجم الخط واحد فى جميع المشاركات تقبل تحياتى

اخى ابو عبدالرحمن اليك الملف عند كتابة اسم المدرسة يدرج الكود تلقائي.rar تقبل تحياتى عند كتابة اسم المدرسة يدرج الكود تلقائي.rar

السلام عليكم ورحمة الله وبركاته: جزاكم الله خيراً أخي الصقر....شرح ممتع وسهل هل تعني خاصيه Text Align المحاذاة بمعنى (محاذاة النص لليسار ... للوسط ....لليمين) أم تغيير اتجاه الكتابة بين العربية وغيرها. وفقكم الله لما يحب ويرضى والسلام عليكم أخي الحبيب الصقر..

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

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

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

السلام عليكم ورحمة الله وبركاته بما ان اخوكم ضعيف فى لغة VBA استحملونى عشان هاشرحلكم اليوم طريقة تسريع الكود فى حالة بطء تنفيذ الكود هناك ثلاثة اوامر لتسريع تنفيذ الامر يتم كتابتها قبل الكود ويتم الغاء الاوامر بعد الكود اولا قبل الكود إيقاف وميض الشاشة Application.screenupdating=False إيقاف الحساب التلقائي Application.calculation=xlCalculationManual إيقاف الأحداث التلقائي Application.EnableEvents=False ثانيا بعد الكود نكتب الثلاث اوامر لاسترجاع تنفيذ العمليات اعادة تشغيل وميض الشاشة Application.screenupdating=true اعادة تشغيل الحساب التلقائي Application.calculation=xlCalculationAutomatic اعادة تشغيل الأحداث التلقائي Application.EnableEvents= true ارجوا ان اكون وفقت فى الشرح ولمن يريد الاضافة من عمالقة المنتدى يتقدم

مشاركة مع اخواني اتوقع ان طريقة ارسال التقرير بالايميل افضل مع التالي: 1. يتيح لك الاكسس ان تعمل تقرير يومي به البيانات المحددة ! فمثلا بيانات مايخص صاحب البرنامج لاتكون في التقرير المرسل 2. يتيح لك الاكسس تحويل التقرير الى pdf وارسال بريد الكتروني مرفقا به الملف كلها ممكن في خطوة واحدة وبنقرة زر خصوصا وجود الوت لوك عندك يمكنك البحث في المنتدى فبه امثلة كثيرة حول ارسال التقرير بالايميل ! او ارفاق ملف للتطبيق عليه ! بالتوفيق

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

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

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

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

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

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

لم يبق في رصيدي إضافة الاعجاب لهذا اليوم .. فتفضّل خلاصة كلامي أستاذي الغالي ياسر خليل أبو البراء

بارك الله فيك أخي الغالي إبراهيم على كل ما تقدمه بصراحة الكود الأخير في المشاركة عجبني فعملت اختصار له باستخدام الحلقة التكرارية الكود يعمل على النطاق A1:A26 Sub Borders_Properties() Dim I As Long, II As Long Range("A1:A26").ClearFormats For I = 1 To 26 Step 2 Range("A" & I).Borders.Value = II + 1 II = II + 1 Next I End Sub تقبل تحياتي

بارك الله فيك اخي ماشاءالله عليك انت جبتها صح 100% لي عودة ربما اطلب بعض التعديلات منك اخي الكريم :)

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

عفوا كان هناك خطا وهو بدلا من y نكتب "YYYY" وتفضل التطبيق العملى Database2.rar

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

كودان احدهما لمعاينة الطباعه والآخر لمعاينة الطباعة مع امكانية الطباعه بارك الله لنا ولكم آمين معاينة طباعة.rar معاينة طباعة مع امكانية الطباعه.rar

شكرا لك أخي الحسامي فعلا معلومات رائعة حول حلقة التكرار ب for و next والشكر موصول للأخ kemas لتحويله للملف إلى فيديو تعليمي وأود التنبيه إلى أنه يمكن تداخل حلقات التكرار فمثلا لو أردنا عمل جدول الضرب يجب علينا عمل حلقة تكرار لجميع الأعداد التي نريد عمل جدول الضرب لها مثلا من 1 إلى 12 وداخل كل رقم من هؤلاء نقوم بضربه في الأرقام من 1 إلى 10 ونضع ناتج الضرب في عمود مستقل يمكننا استعمال ذلك الكود Sub mas() For n = 1 To 12 Cells(1, n).Value = "جدول ضرب " & n For m = 2 To 11 Cells(m, n).Value = m - 1 & " x " & n & " = " & (m - 1) * n Next m Next n End Sub تحياتي للجميع

في البداية احب اشكركم YasserKhalil & kemas على تعاونكم الجاد و احب ان اؤكد انه تم عرض الفكرة على ادارة المدرسة و تحمس الجميع لها و تم الموافقة على تفرغ احدى الاداريات لتسجيل الغياب اليومي لكل طلاب المدرسة بعد تجميعة من الفصول و لكن ظهرت طلبات اخرى للبرنامج اولها احصائية الطلبة اليومية و حصر غياب الطلبة المتجاوزين العشر ايام غياب انا جهزت نموذج بسيط جدا و ما اريد منكم مشاركتي فية هو 1) امكانية فتح البرنامج على تاريخ اليوم بالنسبة للادارية التي ستعمل على الجهاز و امكانية استخراج احصائية الطلاب اليومية مقيد حاضر غائب الصف الاول الصف الثاني الصف الثالث و عمل باصوورد لمدير البرنامج لمتابعة غياب الطلبة عموما و طلب الطلبة المتجاوزين 10 ايام و ما شابه 2) عمل كليك في الخانة المقابلة لاسم الطالب فيتم ادراج علامة اكس او نقطة او تظلل الخانة .....لان الذي يعمل على التسجيل ليس بالشرط خبير في الاكسيل Book1.rar