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

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

السّلام عليكم و رحمة الله و بركاته أخي الغالي و أستاذي القدير المحترم " الصقر " قرار مدير الموقع في أعادة صايغة الألقاب وتغييرها تعني: " أنزلوا الناس منازلهم " أستاذي الكريم المحترم تقبل منا أن: " وفوق كل ذي علم عليم" أخوك إبراهيم الأبيض

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

وفقك الله لكل ما يحبه وترضاه

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

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

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

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

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

الآن استطيع ان اقول حمدا لله علي السلامه

الحمد لله رب العالمين الذي بنعمته تتم الصالحات الحمد لله الذي يحق الحق ويزهق الباطل. الحمد لله أن عاد الحق إلى نصابه. وفقنا الله وإياكم إلى البر والتقوى وإلى ما يصلح حالنا وقلوبنا..آمين والسلام عليكم ورحمة الله وبركاته.

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

الاخ الحبيب وائل طبعا الكود ده للعلامه القدير استاذى / عبدالله باقشير حفظه الله الكود وظيفته ان يمنع فتح الاكسيل فى حال عدم تفعيل الماكرو والكود ده وضعه بالملف سهل جدا لكن ازالته صعبه جدا عايزه حرفيه شوية زى كدا عملية فصل الجنين عن الام وممكن كمان تضحى بالام علشان الجنين يعيش او تضحى بالجنين علشان الشعب يعيش يعنى موضوع ازالته عايز جراح وجراح ماهر وبما انك حولت الملف الى ملف تنفيذى فأصبح الكود ليس منه فائده لان الملف التنفيذى هيشتغل سوء الماكرو مفعل او غير مفعل فخد اسهل الحلول لحل هذه المشكله مش هنلجأ لحذف الكود لكن هنخليه ممكن تفكر ترجع الملف الى اكسيل مره اخرى فبالتالى هتحتاجه الحل زى ما بيقولو كدا زى شكة الدبوس فى الكود التالى Sub Auto_Close() Dim i As Integer kh_wVisible False ThisWorkbook.Close Not CBool(ThisWorkbook.Saved) Application.DisplayFormulaBar = True Application.ScreenUpdating = True Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" End Sub قوم بحذف السطر التانى من الكود اللى هو kh_wVisible False او ممكن متحزفش بس تعطله تحط على اليسار هذه العلامه ' كالتالى ستجد لون الكود اصبح اخضر 'kh_wVisible False جرب وعلمنى تقبل تحياتى

(حديث مرفوع) حَدَّثَنَا أَبُو طَاهِرٍ مُحَمَّدُ بْنُ أَحْمَدَ بْنِ عَبْدِ الرَّحِيمِ الْكَاتِبُ قِرَاءَةً عَلَيْهِ فِي سَنَةِ 442 ، ثنا أَبُو مُحَمَّدٍ عَبْدُ اللَّهِ بْنُ جَعْفَرِ بْنِ حَيَّانَ ، ح وَثنا أَبُو الْقَاسِمِ إِبْرَاهِيمُ بْنُ مَنْصُورِ بْنِ إِبْرَاهِيمَ الْكَرَّانِيُّ ، ثنا مُحَمَّدُ بْنُ إِبْرَاهِيمَ بْنِ عَليٍّ الْعَاصِمِيُّ ، قَالَا : ثنا أَبُو يَعْلَى أَحْمَدُ بْنُ عَلِيِّ بْنِ الْمُثَنَّى الْمَوْصِلِيُّ ، ثنا مُحَمَّدُ بْنُ عَبْدِ اللَّهِ بْنِ نُمَيْرٍ الْخَارِقِيُّ ، ثنا ابْنُ فُضَيْلٍ ، ثنا عُمَارَةُ بْنُ الْقَعْقَاعِ ، عَنْ أَبِي زُرْعَةِ بْنِ عَمْرِو بْنِ جَرِيرٍ ، سَمِعْتُ أَبَا هُرَيْرَةَ ، يَقُولُ : قَالَ رَسُولُ اللَّهِ صَلَّى اللَّهِ عَلَيْهِ وَسَلَّمَ : " كَلِمَتَانِ خَفِيفَتَانِ عَلَى اللِّسَانِ ثَقِيلَتَانِ فِي الْمِيزَانِ حَبِيبَتَانِ إِلَى الرَّحْمَنِ : سُبْحَانَ اللَّهِ ، وبِحَمْدِهِ سُبْحَانَ اللَّهِ الْعَظِيمِ " .

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

اخى الكريم اطلع على الملف التالى للاستاذ / عمر الحسينى ... جزاه الله خيراً تغيير اللغة.rar

السلام عليكم ورحمة الله وبركاته أحبائى فى الله أقدم لكم اليوم كود يوضع فى حدث الشيت المراد فك حمايته يقوم بإلغاء الحماية عن الشيت Sub PasswordBreaker() 'Breaks worksheet password protection. Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If ActiveSheet.ProtectContents = False Then MsgBox "One usable password is " & Chr(i) & Chr(j) & _ Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub

السلام عليكم ورحمة الله وبركاته أسعد الله أوقاتكم جميعا وكنتم جميعا فى أحسن حال أتقدم إليكم اليوم بمعادلة جميلة جدا جدا تقوم بعمل بحث فى عمود عن أول حرف عن طرق وضع الحرف المراد إظهار النتائج التى تبدأ بهذا الحرف فى خلية ما فيظهر فى العمود المقابل كل الاسماء التى تبدأ بهذا الحرف المعادلة معادلة صفيف يعنى الضغط على Ctrl+Shift-Enter وليس Enter {=IFERROR((IF(ROW()=2;INDIRECT("$A$"&(MATCH(1;(((--($B$2=LEFT($A$1:$A$100;1)))));0)));((INDIRECT("$A$"&(MATCH(1;(((--($B$2=LEFT(INDIRECT(IF(C1="";"";"$A$"&(MATCH(C1;$A$1:$A$101;0)+1))&":$A$100");1)))));0))+(MATCH(C1;$A$1:$A$101;0)))))));" ")} مرفق ملف به المعادلة والتنفيذ أرجوا من الله العلى القدير ان يستفاد منه الجميع Find.rar

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

بارك الله فيك أخى ياسر وجازاكم خيرا على ما تقدمه لنا الأخ سعد الفقير لتطبيق الكود على النطاق K2:K50 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("$K$2:K50")) Is Nothing Then ActiveWindow.Zoom = 150 Else ActiveWindow.Zoom = 100 End If End Sub

الأستاذ الفاضل سليم بارك الله فيكم وبعد اذن حضرتك بالمشاركة أستاذ نايف ضع الكود التالى فى الحدث Worksheet_Change مش فى selectionchange كالتالى Private Sub Worksheet_Change(ByVal Target As Range) Dim C As Range Dim rng As Range ' تحديد نطاق الفحص Set rng = Range("B2", Range("B" & Rows.Count).End(xlUp)) ' تحديد الخلايا التى تتضمن معادلات For Each C In rng If C.HasFormula Then C.Interior.ColorIndex = 38 Else C.Interior.Pattern = xlNone End If Next C End Sub وغير فى النطاق المحدد من معادلات الى نص أو العكس تلوين خلايا 2.rar

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

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

بعد اذن الاستاذ ياسر اخى الكريم جرب المرفق ربما يحلو لك اوفسينا2.zip

اانسخ هذا الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) lr = Cells(Rows.Count, 2).End(3).Row Set myrange = Range("b2:b" & lr) If Not Intersect(Target, myrange) Is Nothing And Target.Count = 1 And Target.HasFormula Then Target.Interior.ColorIndex = 4 End If End Sub

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

متخلنيش اقلب عليك يا بتاع الالوان اياها

السلام عليكم أستاذي الكريم م/ياسر جزاكم الله خيراً...عمل رائع ...ولكن ليتك لونت الخلية لتميز الخلية التي تحتوي على القائمة المنسدلة "$A$2" .والسلام عليكم. الأب والأستاذ القدير / محمد حسن المحمد يشرفنى دائما مرورك الجليل شكرا لدعائك الطيب

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

السلام عليكم أخي الحبيب م / ياسر جزاكم الله خيراً ...كود ناجح و رائع حقاً...تشكر عليه نرجو لك دوام التقدم والازدهار.. والسلام عليكم

اللهم إني أصبحت أشهدك وأشهد ملائكتك وجميع خلقك أنك أنت الله لا إله إلا أنت وحدك لا شريك لك و أن محمدا عبدك ورسولك

بعد التجربة شكرا جزيلا لك . واصل ابداعاتك

تفضل اخى الكريم ويمكنك مراجعة الاكواد ولكن للعلم هذا الكود يعتمد على ان اسم اخر فولدر متواجد فيه اسماء الفولدرات المراد فتحها هو Photo اذا قمت باعادة تسميته فيجب ان تقوم اعادة تسميته فى الكود فتح مجلد .1.rar

انسخ هذه المعادلة الى الخلية O2 واسحب نزولاً =CHOOSE((B2+D2-I2-50<0)+1,B2+D2-I2-50,0)

السلام عليكم وهذا كود اخر اضافة الى حل الاستاذ الفاضل بن عليه يقوم بأخذ تنسيقات الورقة الرئيسيه من عرض للاعمد والصفوف والخط والبوردر Sub Formt_Ali() Dim Sht As Worksheet Dim Sh As Worksheet Dim Rw&, Col$ Set Sht = Sheets("الرئيسية") With Application .ScreenUpdating = False .EnableEvents = True With Sht Rw = Split(.UsedRange.Address, "$")(4): Col = Split(.UsedRange.Address, "$")(3) .Range("A1:" & Col & Rw).Copy For Each Sh In Sheets Ali_Wdth Sht, Sh, True, True If Not Sh.Name = .Name Then With Sh With .Range("A1:" & Col & Rw) .PasteSpecial xlPasteFormats End With End With End If Next Sh End With .CutCopyMode = False .ScreenUpdating = True .EnableEvents = False End With End Sub Private Sub Ali_Wdth(ByVal Smp_Sht As Variant, ByVal Al_Sht As Variant, Optional Heights As Boolean = False, Optional Widths As Boolean = False) Dim Sc_Rn As Range, D_Rn As Range Dim R As Long, C As Long On Error GoTo Eri With Smp_Sht Set Sc_Rn = Range(.Cells(1, 1), .UsedRange.Cells(.UsedRange.Cells.Count)) End With With Al_Sht Set D_Rn = Range(.Cells(1, 1), .UsedRange.Cells(.UsedRange.Cells.Count)) End With R = WorksheetFunction.Max(Sc_Rn.Rows.Count, D_Rn.Rows.Count) C = WorksheetFunction.Max(Sc_Rn.Columns.Count, D_Rn.Columns.Count) Set Sc_Rn = Sc_Rn.Resize(R, C) Set D_Rn = D_Rn.Resize(R, C) If Heights Then For R = 1 To R D_Rn.Rows(R).RowHeight = Sc_Rn.Rows(R).RowHeight Next End If If Widths Then For C = 1 To C D_Rn.Columns(C).ColumnWidth = Sc_Rn.Columns(C).ColumnWidth Next End If Eri: End Sub

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

احسن الله اليك اخي محمد سلامه

يا جماعه كل ما اتمناه برنامج لادارة محل كمبيوتر بسيط جدا يكون في الاتي 1- ادخال بيانات البضائع الجديدة 2- بيانات البضاعة المباعة 3- العملاء 4- البيع بالتقسيط بس يكون مجاني وليه مني الدعاء

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

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

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

نعم ونتمنى ان تبدأ بالتطبيق

اتفضل هذا مثال لاحد الاخوه ان شاء الله تستفاد منه بالتوفيق BackupCompactRepair.rar

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

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

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

المشكلة في استخدام Select و Activate على ما أعتقد لذلك حاول الابتعاد عن التحديد وستجد الأمور تسير بشكل طبيعي فيدلاً من استخدام Activate لتحديد أو تنشيط الورقة ، يكفي أن تشير إليها هكذا ... Sheets("Sheet1").Range("A1:C15").Copy بدلاً من أن تستخدم الطريقة التالية Sheets("Sheet1").Activate Range("A1:C15").Copy

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

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

لقد تم إضافة مايلي للنموذج: If [not] = "خزنة" Then [sum] = -[out] ElseIf [not] = "وارد خ" Then [sum] = [out] + [into] End If وبالتالي عند عمل الجمع التراكمي في الاستعلام سيتم طرح قيمة out عندماتكون قيمة not تساوي "خزنة" لأنها أخذت قيمة سالبة بينما سيتم جمعها مع into عندماتكون قيمة not تساوي "وارد خ" لأننا أعطيناها قيمة موجبة فأرجو أن تضيف الحقل للجدول وتستورد النموذج مع إجراء التعديلات المطلوبة بالنسبة للحقول التي تم مسبقاً إدخال قيم بها ملاحظة:أقترح أن يكون الترتيب للجمع التراكمي في الاستعلام على أساس التاريخ وليس الرقم no أعتقد أن العمل سيكون أدق في هذه الحالة وهذا يمكنك عمله بتغيير بعض القيم في الاستعلام وبالتوفيق