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

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

114 _ دورة كاملة في المصفوفات Arrays من البداية إلى ما شاء الله (الحلقة الأولى) _ الاستاذ / ياسر خليل أبو البراء 115 _ دورة كاملة في المصفوفات Arrays من البداية إلى ما شاء الله (الحلقة الثانية) _ الاستاذ / ياسر خليل أبو البراء

http://im40.gulfup.com/Ltirv.jpg هذا الكتاب يعد اول كتاب باللغه العربية لتعلم لغه ال VBA http://im35.gulfup.com/saxzs.png يتناول الكتاب ما يلى:- ❑ تخزين المعلومات في المتغيرات والمصفوفات ❑ صنع القرار في التعليمات البرمجية ❑ الحلقات ❑ معالجة الأخطاء ❑ اليوزر فورم رابط التحميل http://www.mediafire.com/download/dj01xxwnczia62k/VBA+Excel.rar (هذا الكتاب يعد عمل مترجم ولا يعبر عن فكر شخصى إلا فى اجزاء منه)

السلام عليكم ورحمة الله وبركاته إخواني في الله الموضوع ليس جديد وقد تم طرح الكود في مشاركات فرعية بموضوعات مختلفة بالمنتدى ، ولكن لأهميته رأيت ان أقوم بطرح موضوع مستقل ليسهل الوصول إلى الموضوع باستخدام خاصية البحث في المنتدى فكرة الكود هي استخراج القيم الغير مكررة أي استخراج القيم الفريدة في نطاق محدد .. والكود مشروح لمن أرد الشرح لعل وعسى أن يتعلم الجميع كيفية استخدام الأكواد بشكل جيد وهذا هو الكود مصحوب بالشرح ... أرجو أن ينال إعجايكم Sub UniqueByDictionary() 'يقوم الكود باستخراج القيم الفريدة أي الغير مكررة باستخدام الكائن قاموس '---------------------------------------------------------------------- 'المتغير الأول لتخزين قيم النطاق والمتغير الثاني لتخزين مفاتيح القاموس 'الثالث متغير للكائن القاموس والرابع متغير يستخدم في عمل حلقة تكرارية Dim myData As Variant, Temp As Variant Dim Obj As Object, I As Long 'ليساوي الكائن المسمى القاموس والذي يعتبر أداة قوية للتعامل مع القيم الفريدة [Obj] تعيين المتغير Set Obj = CreateObject("Scripting.Dictionary") 'ليساوي قيم النطاق في العمود الأول [myData] تعيين المتغير myData = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value 'حلقة تكرارية تبدأ من أول عنصر في مصفوفة القيم إلى آخر عنصر في المصفوفة For I = 1 To UBound(myData) 'هذا السطر هو أهم سطر في الكود حيث يتم تمرير القيمة للقاموس 'فيقوم القاموس بتخزينها إذا كانت القيمة تصادفه لأول مرة 'أما إذا كانت القيمة مكررة فلا يقوم بتخزينها مرة أخرى Obj(myData(I, 1) & "") = "" Next I 'ليساوي مفاتيح القاموس والتي تمثل القيم الغير مكررة [Temp] تعيين المتغير Temp = Obj.Keys 'حيث يتم تحديد عدد الصفوف [E1] وضع عناصر القاموس الغير مكررة في الخلية 'والتي تقوم بعد عناصر القاموس التي تم تخزينها [Count] من خلال كلمة 'عبارة عن مصفوفة بالقيم تكون على شكل أفقي لذا نستخدم [Temp] المتغير 'لتحويل القيم من الشكل الأفقي إلى الشكل الرأسي ليناسب وضع النتائج في عمود [Transpose] كلمة Range("C1").Resize(Obj.Count, 1) = Application.Transpose(Temp) End Sub وإليكم الملف المرفق مطبق فيه الكود مع مثال بسيط حمل الملف من هنا تقبلوا تحياتي

السلام عليكم ورحمة الله وبركاته إخواني الكرام في منتدى أوفيسنا رغم قلة التفاعل في الموضوعات التي تقدم ، ولا أقصد بالتفاعل الردود العادية ، إنما أقصد المشاركة بالبحث والنقد والتفنيد والتفحيص والتدقيق والتمحيص والإضافة ...رغم قلة التفاعل أقدم كل يوم موضوع جديد لعل وعسى أن يأتي أناس من بعدنا ليستفيدوا مما نقدم ويكون المنتدى لهم نبراساً يستنيرون به في هذا المجال أقدم لكم موضوع حول إدراج أسماء الشهور بكل اللغات .. إليكم الكود التالي ، قم بوضع الكود في موديول عادي ... ثم نفذ الكود ولاحظ النتائج بنفسك Sub ListMonthsInAllLanguages() 'يقوم الكود بإدراج أسماء شهور السنة بكل اللغات '--------------------------------------------- Dim R As Long, C As Long Dim strDate As Date Dim S, bFind As Boolean Application.ScreenUpdating = False For R = 1 To 12 For C = 1 To 99 strDate = CDate("01/" & Format(R, "00") & "/2015") S = "[$-4" & Format(C, "00") & "]MMMM" Cells(R, C).NumberFormat = S Cells(R, C).Value = strDate Next C Next R Columns.AutoFit Application.ScreenUpdating = True End Sub أرجو أن ينال الملف والموضوع إعجابكم وتستفيدوا منه إن شاء الله حمل الملف من هنا تقبلوا تحياتي كان معكم أخوكم أبو البراء

يمكنك ذلك من خلال الكنابة مباشرة في الخلية

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

اخى الكريم اهلا بك فى منتدانا الغالى يرجى تغيير اسم الظهور الى اللغه العربيه ان لم تعرف الطريقه ادخل للرابط التالى http://www.officena.net/ib/topic/63020-توجيهات-للأعضاء-لمعرفة-كيفية-التعامل-مع-المنتدى-بشكل-أفضل/ تقريبا البند رقم 10 بالنسبه لسؤالك ماكرو ولا vba ان كان vba فيمكنك انشاء ملفك على الاكسيل الاونلين وعمل الاكواد هناك ممكن تدخل عن طريق ايميل gmail او الهوتميل للجداول الالكترونيه انظر الى الصوره لما تضغط على محرر النصوص البرمجيه هفتحلك صفحه تانيه تكتب الاكواد بتاعتك هذا والله اعلى واعلم

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

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

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

اخى الفاضل قم بتحديد التكست بوكس واحد ( الخاص بالبحث من خلال الاسم ) واضغط دبل كليك ستيدخلك محرر الاكود الخاص بحدث التغيير هتلاقى السطر ده Set Q = .Range("A2:A" & LastRow).Find(M) كل ما عليك فعله تغيير A2 بــ A1 كالتالى Set Q = .Range("A1:A" & LastRow).Find(M) تقبل تحياتى

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

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

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

ربما ينفع هذا الكود Option Base 1 Sub rep() Dim mar() mar = Array("1", "2") For a = LBound(mar) To UBound(mar) u = mar(a) For b = LBound(mar) To UBound(mar) v = mar(b) For c = LBound(mar) To UBound(mar) x = mar(c) For d = LBound(mar) To UBound(mar) t = mar(d) Cells(m + 1, 1) = u & v & x & t m = m + 1 Next: Next: Next: Next End Sub

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

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

اخي ياسر يسرني ان أقوم بتقديم أول الحلول Permutation.rar

السّلام عليكم و رحمة الله و بركاته بارك الله فيك و جزاك خير الجزاء ملف أكثر من رائع .. ينقصه فقط اسم اللغة للتمييز .. فائق إحتراماتي

على العموم عملت لحضرتك نموذج به عدد 2 كومبو بوكس الاول لاختيار ظابط او فرد لو اخترت ظابط يجبلك رتب الظباط من اول فريق الى ملازم لو اخترت فرد يجبلك من اول رئيس رقباء الى جندى يا رب يكون دة طلبك رتب.rar

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

أخي الكريم أنس قم بالإطلاع على الموضوع التالي لأخونا الحبيب أبو يوسف جزاه الله عنا خير الجزاء من هنا

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

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

أخي الكريم أسامة يرجى تغيير اسم الظهور للغة العربية جرب الدخول لمحرر الأكواد عن طريق Alt + F11 ، وأدخل الكود التالي Sub LastAuthor() With Range("XFA1") .Value = ThisWorkbook.BuiltinDocumentProperties("Last Author") .NumberFormat = ";;;" End With End Sub ثم في ورقة العمل ستجد اسم صاحب معد العمل في الخلية XFA1 ولكنه غير ظاهر .. يمكنك وضع الاسم في أي خلية تريدها .. سيظهر معك فقط في شريط المعادلات إذا أعجبك الحل قم بدعمي من خلال تحميل الملف المرفق حمل الملف المرفق من هنا تقبل تحياتي

شكرا لك ابا جودي

="الأسم " & VLOOKUP(B4;السجل;2;FALSE) غير المعادلة =VLOOKUP(B4;السجل;2;FALSE) و من الاحسن هكذا ="الأسم " & IFERROR(VLOOKUP(K4;السجل;2;FALSE);"")

عمل رائع

أخي * الصقر * جزاك الله خيرا و أنعم عليك بالصحة و الهناء تقبل تحياتي و تقديري لشخصكم الكريم

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

تفضل اخي ان شاء الله مشي الحال جميع الاجهزة.rar

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

السلام عليكم في محاولتي لفهم الموضوع وتطبيقه عملياً حصل معي تداخل مع دروس المصفوفات: في السطر: myData = sheet.Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value تم وضع القيم في القيم في المصفوفة myData ما احاول عمله هو إضافة قائمة أخرى من sheet آخر أو اكثر إلى المصفوفة myData ليتم المطلوب على اكثر من قائمة في اكثر من sheet أو كيف نجعل Dictionary يتعامل مع عدة مصفوفات كأنها مصفوفة واحدة امر آخر: في نفس السطر .value. لم أعرف اهميتها حيث وضعت احرف بعد تنفيذ الماكرو تم الأمر وضعت معادلة في نفس العمود وبعد تنفيذ الماكرو نقل المعادلة كـ قيمة وليس كمعادلة أرجو الإفادة ودمتم ذخراً

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

جزاكم الله كل خيراً

تأكد من خيارات العلاقات

بارك الله فيك أخي الحبيب سليم يرجى مراجعة الموضوع ..ملفك جميل جداً ولكنه ليس المطلوب بالضبط عندنا رقمين فقط 1 و 2 ..المطلوب عمل تشكيلة بكل الاحتمالات .. والنتائج المتوقعة مرفقة في المشاركة الأولى بما لا يدع مجالاً للتخمين تقبل تحياتي

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

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

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

بارك الله فيك وأدام عليك الصحة والعافية أخى الحبيب الغالى / ياسر خليل تقبل تحياتى

انظر .. جرب المثال المرفق اذا فتح نموذج الترحيب جيد حاول تغير في احد الرقمين وشوف النتيجة وخبرني التجربة هذه خارج الفلاشة TG.rar

أخي العزيز أحمد جزيت خيراً على محاولاتك المستمرة وهذا ما أنتظره من كل الأعضاء بالمنتدى عليك المحاولة وليس عليك إدراك النجاح

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

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

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

السلام عليكم أخي الحبيب الصقر أرجو الله أن يديم المحبة بيننا حاولت البحث عن اسمه ورقم هاتفه على الفيس بوك لكن لم أحصل إلا على معلومة الاتصال هذه أرجو أن تفيدك والسلام عليكم adel.hanafy.79

كده وخلاص جعفر