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

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

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

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

بسم الله الرحمن الرحيم وجدت وانا ابحث عن بعض الاكواد والامثلة هذا الكود الذي يعمل تأثيرات حركية علي shape & picture دا كان مشوار لموقع اجنبي حلفوا منا ماشي غير بالمثال دا اتفضلو علي فكرة صورة البنت الامورة دي انا اللي رسمها بالقص واللصق وحشه صح shape move.rar

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

السلام عليكم ورحمة الله أخي الكريم ليس في المعادلة خطأ لأنها تحسب عدد الأشهر بعدد أيامها... والأشهر الميلادية يمكن أن تكون من 28 أو 29 أو 30 أو 31 يوم... فمثلا في حالة الشهر الذي عدد أيامه 31 يوم يمكن أن تجد عدد الأيام بين تاريخين مساو لـ 30 يوم وهكذا... والخطأ الوحيد الذي أجده في الدالة DATEDIF هو أنها لا تحتسب أحد اليومين بين تاريخين (اليوم البداية أو اليوم النهاية)... والله أعلم أخوك بن علية

والآن الى الكنز المخزون في صفحة كود الاكسس ، والذي يحتوي على جميع اوامر الاكسس ، و VBA ، و..... افتح صفحة الكود: . إما تضغط على الايقونه الموضحة بالدائرة الحمراء في الصورة اعلاه ، او تضغط على الزر F2 في لوحة المقاتيح ، وستظهر لك هذه الشاشة: . في الشاشة التاليه: 1. اختر اي الاوامر تريد ، VBA او اكسس او ... ، فسترى انواع الاوامر المتوفرة لها في النافذة 2 ، انا اخترت VBA ، 2. ثم اختار نوع الامر الذي تريده ، انا مثلا اردت جميع اوامر التاريخ والوقت ، فسترى جميع اوامر التاريخ والوقت في النافذة 3 ، 3. اختار الامر الذي تريده وانقر عليه ، انا مثلا اخترت الامر DateAdd ، فسترى في الاسفل (4) طريقة كتابة الامر : . وتستطيع كتابة اي امر تريد في خانة البحث (Recordset مثلا) ، وستحصل على جميع الاوامر التابعة له وإخواننا الصعايدة على راسنا جعفر

السلام عليكم ورحمة الله وبركاته أسعد الله أوقاتكم جميعا مرفق لينك كتاب تعليم إكسيل 2007 شرح ثلث http://www.mediafire.com/download/bxy5adt0nu5xznc/EXCEL_2007.pdf منقول للفائدة تقبلوا منى خالص تحياتى وتقديرى

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

Sub CreateOneSheet() Dim SheetsArr, SH As Worksheet, WS As Worksheet Dim I As Long, LR As Long, Count As Long Set WS = Sheets("اذون الصرف") Application.DisplayAlerts = False Application.ScreenUpdating = False If Not Evaluate("ISREF('Temp'!A1)") Then Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Temp" Sheets("Temp").Cells.Clear SheetsArr = Array("مصلحه 1", "مصلحه 2", "مصلحه 3") For I = 0 To UBound(SheetsArr) For Each SH In Sheets If SH.Name = SheetsArr(I) Then With SH LR = IIf(Sheets("Temp").Cells(Rows.Count, "A").End(xlUp).Row < 2, 1, Sheets("Temp").Cells(Rows.Count, "A").End(xlUp).Row + 1) .Range("A1").CurrentRegion.Offset(1).Copy Sheets("Temp").Range("A" & LR) Count = Application.WorksheetFunction.Count(Sheets("Temp").Range("A" & LR & ":A" & Sheets("Temp").Cells(Rows.Count, "A").End(xlUp).Row)) Sheets("Temp").Range("E" & LR).Resize(Count) = .Name Sheets("Temp").Range("F" & LR).Resize(Count).Formula = "=Ar_WriteDownNumber(" & Sheets("Temp").Range("D" & LR).Address(0, 0) & ", ""جنيه"", ""قرش"")" End With End If Next SH Next I With Sheets("Temp") For I = 1 To .Cells(Rows.Count, 1).End(xlUp).Row Step 2 WS.Range("G4") = .Cells(I, "E") WS.Range("D6") = .Cells(I, "F"): WS.Range("D14") = .Cells(I, "F") WS.Range("C7") = .Cells(I, "C") WS.Range("B11") = .Cells(I, "D"): WS.Range("B14") = .Cells(I, "D") WS.Range("D12") = .Cells(I, "B") WS.Range("G24") = .Cells(I + 1, "E") WS.Range("D26") = .Cells(I + 1, "F"): WS.Range("D34") = .Cells(I + 1, "F") WS.Range("C27") = .Cells(I + 1, "C") WS.Range("B31") = .Cells(I + 1, "D"): WS.Range("B34") = .Cells(I + 1, "D") WS.Range("D32") = .Cells(I + 1, "B") WS.PrintPreview Next I .Delete End With MsgBox "Done", 64 Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub أخي الكريم هاني حرحش .. قمت بعمل الكود بفكرة تجميع أوراق العمل في ورقة واحدة يتم تجميع البيانات بها وتفقيط المبالغ بها ووضع اسم المصلحة لكل عميل في ورقة عمل باسم Temp والتي يتم حذفها بانتهاء عمل الكود .. في السطر التالي قرب نهاية الكود WS.PrintPreview ستقوم باستبدال كلمة PrintPreview بكلمة Printout للطباعة (عملت معاينة فقط في الكود ..) يمكنك تغييرها لتقوم بالطباعة بشكل مباشر إليك الكود المستخدم ... برجاء الانتباه ..أعتقد أنه لن تقوم بعمل معاينة لكل العملاء .. ولذلك لكي توقف عمل الكود اضغط Ctrl + Pause Break للخروج من الإجراء أتمنى أن يكون المطلوب إن شاء الله تقبل وافر تقديري واحترامي Create One Sheet YasserKhalil.rar

تفضل اخي الغالي كنت ناوي اعملها لسه شرح وانزله في الموضوع بتاعي بس متغلاش عليك اضافة محرك بحث.rar

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

السلام عليكم اخى الكريم جرب المرفق جيدا وابدى ملاحظاتك الرشيدى _ إحصاء.rar

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

السلام عليكم بارك الله بكم على هذه التقنيات الحديثة في اﻹكسل تقبلوا تحياتي..

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

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

=IF(DAY(A3)<DAY(B3),DAY(A3)+30-DAY(B3),DAY(A3)-DAY(B3)) أخي الحبيب أبو عيد جرب المعادلة التالية

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

أخوتى وأساتذتى الأفاضل السلام عليكم و بارك الله فيكم ردا على آخى وأستاذى ياسر اذا عمل المستخدم Ungroup يبقى ناوى يعملها معاى بس أنا ممكن أمنعه من استخدام كليك يمين لالغاء الجروب فى الشيت بالكود Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Cancel = True MsgBox "Sorry ,Righ click is disable ", vbInformation End Sub أو ممكن نفكر نلغى له بند Ungroup فقط من القائمة المختصرة للجروب وبكده نكون ضيقنا على البعيد شويه ردا على آخى وأستاذى جعفر أنا قصدت فعلا ألا يظهر الليبل أمام المستخدم حتى يشعر بأن أمامه الـ Shape فقط

دي فكرة متاههة جميلة الملف مرفق والموقع اللي بيشرح الفكرة والعاب تانية بالاكسيل http://mashable.com/2014/08/27/microsoft-excel-games/#WiBw1NGyVEqw maze-example - Darin Mods.rar

اخواني اعتقد ان المسألة هي مساعدة سبورت ( دعم ) فلا باس بمد يد العون وبدون تعدي على حقوق المبرمج خاصة وان الملف مغلق ! واخينا محمد سلامة عرف باخلاقة وامانته ! ومشكور استاذ ابو محمد2 على المبادرة وعقبال نراك خبير معتمد قريبا ! وانا كذلك سابذل الجهد ويمكنك ارسال جميع الملفات خاصا او على الايميل بالتوقيع والى ابو محمد وابو خليل لعل وعسى احدنا يجد حل ! تحياتي

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

والنعم منك - صاحب الحلول - اشكرك

أخي الفاضل رمهان الكود الذي استخدمته انت هو: DoCmd.OpenReport "مساعد كشف الارصده", acViewPreview, , Me.تابع4.Form.Filter, acHidden DoCmd.OpenReport "مساعد كشف الارصده", acViewNormal DoEvents DoCmd.Close acReport, "مساعد كشف الارصده" وهو نسخة اخرى من الكود الذي وضعته انا سابقا والظاهر ان سبب عدم عمل كود الطباعة هو ، ان التصفية تتم بعد فتح التقرير !! لقد حاولت ان آخذ مصدر التقرير ، واضع فيه التصفية والفرز مباشرة ، وارجعه إما بصيغة SQL او Recordset ، بحيث يفتح التقرير على التصفية والفرز مباشرة ، ولكن لم افلح جعفر

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

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

أين الملف الأصلي ..المرفق الأصلي أخي الكريم؟

مليووووووووووووووووون مبروك يابشمهندس وان شاء دائما فى تقدم بارك الله لك فيها

السلام عليكم شكراً جزيلاً على الهدية القيمة أخي الحبيب ياسر العربي تقبل تحياتي العطرة

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

ya.rar

تفضل ملفك الأصلى الصفوف والفصول 3.rar

جرب هذا الملف COUNTIF salim.zip

كما اريدك التجربة على الحدث عند الفتح بدلا من عند التحميل ولشغلنا السابق وهنا للاستاذ جعفر : اليس امر الفتح docmd.openreport وفي وضع نورمل اي طباعه سيتم تنفيذ الحدث عند الفتح للتقرير ؟ عذرا اكتب من الموبايل اصبح الكمبيوتر بعيد حاليا ولوقت تحياتي

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

قريبا صيغة جديدة للمواريث بالأكسل اللهم وفقنا لما فيه الخير

أخي الكريم سليم انظر لآخر رقمين في النتائج ليسا من ضمن الأرقام والمقابل لها صفر .. كما أن الأرقام ليست مرتبة في العمود G من المفترض أن الرقم 32 أكبر من 30 فله الأولوية في الترتيب .. أخي الحبيب أبو نصار نورت الموضوع وتشرفنا بتواجدك بمجرد ردك

السلام عليكم لم افهم طلب الاخ مشعل الا من ردودكم بارك الله فيكم اخي سليم واخي ياسر كنت اضن التنازلي بالقيمة وليس بعدد التكرار تقبلو تحياتي هذا ماعملت عليه حسب القيمة Sub Ali_A() Dim Rn As Range Dim Ar, S_A, y, I, J, It On Error Resume Next Set Rn = Range("A2:D21") Set Ap = Application.WorksheetFunction: ii = 2 With CreateObject("scripting.dictionary") For Each It In Rn y = .Item(It.Value) Next Ar = Split(Join(.Keys, ","), ",") For I = LBound(Ar) To UBound(Ar) For J = I + 1 To UBound(Ar) If Ar(I) < Ar(J) Then S_A = Ar(J): Ar(J) = Ar(I): Ar(I) = S_A Next J If Ap.CountIf(Rn, Ar(I)) > 0 Then _ Cells(ii, "G") = " تكرر العدد " & Ap.CountIf(Rn, Ar(I)) & " مرات ": Cells(ii, "F") = Ar(I): ii = ii + 1 Next End With End Sub

سيدي الكريم غير حدث زر الطباعة الى: Private Sub أمر9_Click() 'the print cannot take place directly with the Filter, 'so we have to open the Report in Preview mode, but hidden so the user doesn't feel DoCmd.OpenReport "مساعد كشف الارصده", acViewPreview, , Me.تابع4.Form.Filter, acHidden 'unfortunately, the sorting Order in the Report needs a bit of time to organize PauseTime = 1 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop 'now print the Report DoCmd.PrintOut DoCmd.Close acReport, "مساعد كشف الارصده" End Sub جعفر

اخي ياسر لم ار اي خطأ بعد التعديل اليك الملف وفيه التنسيق الشرطي لايضاح العدد المطلوب من خلال التغيير في الخلية H2 Book1 _macro 2.zip

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

اخي ياسر ورد خطأ بسيط في الكود و تمت المعالجة Sub Tekrar() Dim lr, Mymax, Myin, i As Integer Dim Myrg As Range, m As String lr = Cells(Rows.Count, 1).End(3).Row Columns("F:g").ClearContents Set Myrg = Range("A1:d" & lr) Mymax = Application.Max(Myrg): Mymin = Application.Min(Myrg) For i = 0 To Mymax - 1 If Mymin + i > Mymax Then Exit For Range("f" & i + 2) = Mymin + i Next Range("f1") = "الأعداد": Range("g1") = "التكرار" lr1 = Cells(Rows.Count, "f").End(3).Row m = "countif( $A$1:$D$" & lr & ",F2)" Range("g2:g" & lr1).Formula = "=" & m Range("g2:g" & lr1).Value = Range("g2:g" & lr1).Value Range("f2:g" & lr1).Sort key1:=Range("g2"), order1:=xlDescending End Sub

Sub UniqueSortSpecial() Dim A As Variant, X As Variant, I As Long, J, N& Application.ScreenUpdating = False With Sheet1.Range("A2").CurrentRegion A = .Value With CreateObject("Scripting.Dictionary") .CompareMode = 1 For I = 1 To UBound(A, 1) For J = 1 To UBound(A, 2) If A(I, J) <> vbNullString Then If Not .Exists(A(I, J)) Then .Item(A(I, J)) = 1 Else .Item(A(I, J)) = .Item(A(I, J)) + 1 End If End If Next Next X = .Items: J = .Keys: N = .Count End With .Range("F1").Resize(N, 2) = Application.Transpose(Array(J, X)) With .Range("F2").CurrentRegion .Sort Key1:=.Cells(1, 2), Order1:=xlDescending, Key2:=.Cells(1, 1), Order2:=xlDescending, Header:=xlNo End With End With Application.ScreenUpdating = True End Sub أخي الحبيب الغالي سليم الكود لم يعطي نتائج صحيحة راجع الكود مرة أخرى .. ولي رجاء أن تقوم بتعريف المتغيرات وتضع الأكواد في موديول عادي وليس في موديول ورقة العمل ...أعتقد أن هذا أفضل أخي الكريم مشعل سلطان إليك الكود التالي عله يفي بالغرض Count Unique & Sort By Most Occurrences YasserKhalil.rar

جرب هذا الملف Book1 _macro.zip

اخي عبد الموجود مشكور لمروك الكريم هذا اخي KHMB مشكور علي هذا الكلام الاكثر من رائع الذي يبعث علي النشاط والتفاؤل شاكر مروركم العطر هذا

اخيينا ابو جمانه على فكرة واحنا بنجاوب بنتعلم منك محاسبيا ! ظهر لي انك علمي محاسبيا وباتقان ماشاء الله ! ونرجع لسؤالك ياباشا : قبل كل شي انت كيف تفتح التقرير ؟ من النافذة مباشرة والا حيكون عن طريق زر على نفس النموذج اللي بتفرز منه وبتفلتر منه ؟ او من مكان اخر ونرجو ذكر هذا المكان ! بالتوفيق

السلام عليكم ورحمة الله وبركاته اخواني فى الله خبراء ومشتركي المنتدي الرائع أرجو منكم المساعدة فى ترحيل أو إدراج أشهر الإجازات ( الخلايا الملونة بالأحمر ) إلي الرزنامة . ولكم جزيل الكر والعرفان oper_vac_plane.rar

تفضل اخى حل بالمعادلات oper_vac_plane 1.rar

سبق و نشر هذا الموضوع المنقول أبو حمود فى الفريق العربي : هذا مقال نشر على جزءين في عددين من مجلة البي سي النسخة العربية بقلم سامر الجودي ولما استفدته من هذا المقال فقد احببت أن تعم الفائدة رواد هذا المنتدى : الجزء الأول : الوصايا العشرة للمبرمجين كانت البرمجة قديما حكرا على مجموعة قليللة من الناس ، أما اليوم فهي ليست كذلك يعود الفضل في هذا إلى انتشار الحاسوب الشخصي ونزوع الشركات إلى إيجاد بيئات تطوير أسهل وتطور نظم التشغيل ، وانتشار الانترنت وسهولة الحصول على الكتب والدورات التعليمية . رافق ذلك من ناحية أخرى ظهور الآف من البرامج غير الناضجة لسببين أولهما انصراف معظم المبرمجين الى تحسين معرفته بلغات البرمجة بوصفها لغات برمجة فحسب من غير أن يولي أسلوب تصميم البرامج وإداراتها أية عناية وهي فن مستقل بحد ذاته ، ثانيهما ولادة جيل جديد من أشباه المبرمجين الذي يبدؤن العمل قبل بلوغهم المستوى المطلوب من الدراية والخبرة . أقدم في هذه المقالة والمقالة التي تليها مجموعة من النصائح جمعتها من ملاحظتي للأخطاء المتكررة في هذا النوع من البرامج وإن كانت المساحة صغيرة ولا تتسع لشرحها بالتفصيل . 1- جهاد النفس تقف رغابتنا الشخصية في الشهرة والمجد وراء العديد مما نقوم بتطويره من برامج ، على الرغم من أننا نتخفى وراء قناع الأغراض العلمية تارة وقناع مساعدة الناس تارة أخرى ، لأن من الرياء ما هو أخفى من دبيب النملة كما قال الغزالي رحمه الله . تبدأ البرامج عادة بنافذة الاقلاع ويستغل بعض المبرمجين هذه النافذة لوضع اسمه بأكبر قياس ممكن ، وكلما فتحت صندوق حوار أو طبعت تقريرا ، أو انتقلت إلى ناحية من البرنامج ، استوقفك اسم مؤلفه ، ومع أن ذكر اسم المؤلف حق له ، وواجب عليه ، إلا أن لذلك مكان واحد وهو بند "حول البرنامج" في قائمة تعليمات . وبمناسبة الحديث عن حول البرنامج فقد أخبرني صديقي أن أحد زملائه في العمل بدأ بكتابة برنامجه بقائمة تعليمات ، وبالبند "حول البرنامج" تحديداً ، حيث كتب اسمه ، وذكر أن المبرمج (النحرير طبعاً) فلان الفلاني ، وذلك قبل أن يبدأ حتى بتصميم قائمة ملف ثم قام باستشارة الناس في البرنامج الذي يخطط لكتابته ، وأنه يرغب أن يجعله يقوم بكذا وكذا ، فتأمل ! . 2- الفكرة المتميزة يجب أن يتسم برنامجك بروح الابتكار ، فابحث عن فكرة برنامج مختلف وجديد أو زود برنامج بأفكار لا توفرها البرامج الأخرى ، وإلا كان مصير ما تكتبه مثل مصير الآف البرامج التي لا يكتب لها من يستخدمها من الناس ، بما فيهم مؤلف البرنامج ذاته ، واصرف عن ذهنك مقالة ما ترك الأوائل للأواخر شيئا فهي غير صحيحة . 3- التخطيط الجيد ارسم سياسة برنامج بطرح بعض الأسئلة أولا مثل لمن تقدم هذا البرنامج وماهي الوظائف التي تزوده بها . يرتكب كثير من المبرمجين خطأ الجلوس وراء الحاسوب ، بدلا من ذلك اعتقد أن عليهم البدء بتصميم البرنامج على الورق ، وتحليل سير عمله ، ودراسة إمكانية الحصول على شيفرة أسرع وأقوى ، وتحديد الموعد الذي سيتم فيه اطلاق البرنامج ، بحيث لا يتجاوزه . فمن غير المعقول أن نبدأ بتطوير برنامج يعمل في بيئة وندوز 98 زنفرغ منه بعد ظهور وندوز ملييوم . يساعد التوثيق الكامل لنصوص البرنامج على العودة إليه مرة أخرى ، لإصلاحه وتطويره ، بفضل التعليقات والحواشي ، ولكن كثيرا ممن يكتوب البرامج يهملون ذلك ، ما يجعل شيفرة البرنامج غير مفهومة . فكر أيضا بأهمية التوثيق الكامل إذا ما قررت يوما أن تنشر الشيفرة المصدرية لبرنامجك على الملأ ، للعمل على تطويره بشكل جماعي ، على نحو مشابه لفكرة (المصادر المفتوحة) التي بدأت تشق طريقها بقوة . 4- العناية ببرنامج التركيب تعتمد معظم الشركات الكبرى بما فيها ميكروسوفت على تصميم برنامج الإعداد باستخدام أدوات معدة لهذا الغرض مثل برنامج InstallShield أو غيره . وتمتلك هذه الأدوات كل ما يحتاجه المبرمج أثناء عملية التركيب من وظائف مثل التحكم بسلوك برنامج التركيب في ظل نظم تشغيل مختلفة ، وتحرير سجل وندوز والتحقق من عدم وجود تعارض بين الملفات DLL في برنامجك وتلك الموجودة في نظام التشغيل ، وانتهاء بإنشاء اختصار له على سطح المكتب . ولكن القليل من المبرمجين من يعتمد على أداة احترافيه لتصميم برنامج الإعداد . يخشى الناس من الإقدام لعى تركيب برامج جديدة لجهلهم بما ستفعله هذه البرامج بحواسيبهم ، ولذلك لا بأس في أن تقوم بشرح خطوات الإعداد وتوضيحها بعبارات مناسبة . يجب عليك أيضا توفير إمكانية إزالة البرنامج بعد تركيبه وفي هذه الحالة عليك أن تتعهد بإعادة حواسيب الناس إلى ما كانت عليه قبل تركيب برنامجك . 5- واجهة تطبيقية جميلة تقتقر الكثير من البرامج إلى واجهة تطبيقة جميلة ، مع أن المبرمج قادر على تقليد الواجهة التطبيقة في البرامج المتقدمة ، مثل برامج ميكروسوفت أوفس وغيرها . ولا ندري لماذا لا نرى من يحاول الالتزام بالمواصفات القياسية التي يمكن استنتاجها بسهولة من التمعن في الواجهة التطبيقية لتلك البرامج . نصادف غالبا صناديق حوار بأزرار كبيرة ، وخطوط غير مناسبة ، بارتفاع متفاوت ، ورسوم مكررة ، يمكن العثور عليها في مئات البرامج على الرغم من أن إنشاء أيقونات جديدة عملية ليست بالشاقة ، وتساعد في إضافة لمسة شخصية على البرنامج . وأنصح من لا يمتلك البراعة الفنية الكافية بالاستعانة بأشخاص آخرين . لا تنسى أيضا أن تجعل الواجهة التطبيقية حدسية ، يعني ذلك أن المستخدم قادر على توقع الوظيفة التي يقوم بها كل زر أو بند في قائمة في برنامجك ، ونعني أيضا أن المستخدم قادر على توقع المكان الذي سيجد فيه وظيفة معينة ، يبحث عنها . الجزء الثاني : 6- الاهتمام باللغة تصل إلى مجلتنا كل شهر مجموعة من البرامج التي يرغب مؤلفوها بنشرها مع القرص الهدية ومن الغريب أن جزءا من هذه البرامج يأتي بواجهة إنجليزية على الرغم من أن مؤلفيها يتكلمون العربية ومجلتنا عربية قراؤها من العرب حصراً ، وعلى الرغم من سهولة تطوير واجهة تطبيق عربية في مدة وجيزة ، وما نريد أن نفهمه هنا لماذا لم يقم هؤلاء المبرمجون على الأقل بتطوير واجهة ثنائية اللغة لبرامجهم ؟ نلاحظ من جهة أخرى قلة الاهتمام بالصياغة اللغوية لنصوص البرنامج ، وهو في رأيي من أهمها فاللغة وعاء الحضارة كما يقولون ، ولعلك لاحظ كيف تهتم البرامج الإنجليزية بالصياغة اللغوية ، حتى ليبدو وكأن لديهم فريقا كاملا من اللغويين ، وبحيث يكون العثور على خطأ لغوي أمرا مجاورا للمتعذر ، وبالإضافة إلى ركاكة اللغة يتجاوز كثير من المبرمجين ما اصطلح عليه الناس ورضوه من ألفاظ المعلوماتية ، وما زلنا نقرأ مصطلحات مضحكة مثل "سيدي" بدلا من قرص مدمج و"عمل Setup" بدلا من تركيب ، إلى آخر ما هنالك من الأمور العجيبة !. 7- لابد للمبرمج من أن ييتبع آخر التقنيات وأن يلتزمها ، وهو أمر مفيد في إطالة عمر برنامجه أيضا . وبما أن التقنيات والأدوات المستخدمة في كتابة البرامج تتبدل دائما وبما أن الشركات تطلق إصدارات جديدة من برامجها باستمرار على المبرمج إذا عليه أن ينتقي الأحدث منها ما أمكنه ذلك . يجب على المبرمج أيضا الاهتمام بخصائص البرمجة في بيئة وندوز ، مثل دعم تقنية السحب والإفلات والقائمة التي تظهر بنقر زر الفأرة الأيمن على المستند واستخدام أشرطة الأدوات وتلميحات الأزرار إلى آخر ما هنالك من السمات التي تميز بيئة ويندوز عن بيئة دوس . يخشى بعض المبرمجين من الانتقال الى استخدام التقنيات الحديثة ويعضون بالنواجذ على أساليب أكل عليها الدهر وشرب ففيهم من يستخدم تقنية DDE بدلا من أتمتة أكتف أكس ، أو يلتف على نظام التشغيل للقيام ببعض الإجراءات الخاصة بدلا من الاستفادة من وظائف API ، أو يكتب قواعد بيانات في ملفات نصية ، أو يصر على استخدام DAO بدلا من ADO في تطبيقات قواعد البيانات وقد تعرفت منذ فترة على مبرمج عتيق تفوح من برامجه رائحة التقنيات القديمة ، وكان أطكرف مافي الأمر أنه مازال يحتفظ في صندوق محكم بآخر إصدارات Quick Basic خوفا عليها من الضياع . 8- الانفتاح على البرامج الأخرى هب أن أحدهمك قرر شراء أو استخدام برنامجك والتخلي عن برنامجه فهل سألت نفسك ماذا سيفعل بكل تلك البيانات التي تراكمت لديه ؟ تعاني الكثير من البرامج التي يكتبها المبتدئون والخبراء على السواء من غياب أدوات خاصة لاستيراد وتصدير البيانات وهما أداتان لا غنى عنهما في تنفيذ كثير من الأعمال . كما تساعد هاتان الأداتان الناس على اختبار البرامج الجديدة ومقارة أدائها ووظائفها مع البرامج الأخرى باستخدام بيانات جاهزة . وتخوض الشركات المتنافسة حربا ضروسا في الأسواق لامتلاك أكبر حصة ممكنه منها ، ومع ذلك توفر معظم البرمجيات سبيلا إلى استيراد وتصدير البيانات الى هيئات البرامج المنافسة الخرى ، والأمثلة كثيرة على ذلك ، في برامج الرسوميات والتصميم بالحاسوب وقواعد البيانات والبريد والنشر المكتبي . 9- ملف التعليمات يعتقد البعض أن وجود ملف التعليمات في برامجهم التي يقومون بتطويرها ليس أمرا ضروريا ، مع أن ملف التعليمات من أهم مصادر تعلم استخدام البرامج وحل مشاكله ، وقد أصبح تضمين ملف تعليمات من المواصفات القياسية في أسلوب تصميم البرامج ولو كانت صغيرة ، فبرنامج المفكرة Notepad في ويندوز مثلا مزود بملف تعليمات ضخم نسبيا . على المبرمج من ناحية أخرى أن يعتمد تزويد برنامجه بملف تعليمات HTML حصرا وهو الجيل الحالي من ملفات تعليمات ويندوز ، وقد انتقلت البرامج إلى اعتماد هذه الهيئة تدريجيا منذ أيام ويندوز 98 . 10- اختبار البرنامج يجب اختبار البرنامج قبل توزيعه على عدة أجهزة مختلفة المواصفات تعمل في بيئة نظم تشغيل مختلفة ، وبلغات مختلفة وحاصل ضرب هذه الاحتمالات يعني اختبار البرنامج على عشرة أجهزة على الأقل بدء من ويندوز 95 - 98 - NT - Win Me - 2000 بواجهة تطبيق عربية أو إنجليزية وأنصح أن يختبر البرنامج أناس متفاوتي المستوى ، وعلى أن لا تقوم بشرح طريقة استخدام البرنامج لهم للتأكد من قدرة المستخدم على اكتشاف وظائفه بمفرده من ناحية ، ولاكتشاف العلل التي قد لاتخطر ببالك من ناحية أخرى .