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

السلام عليكم ورحمة الله وبركاته دليل الهاتف بطريقه سهله وبسيطه صدقه جاريه ونسالكم الدعاء لابي وامي اللهم اجعله في ميزان حسناتهم واغفر لهم وارحمهم واسكنهم فسيح جناتك والرحمه والمغفره لجميع موتى المسلمين دليل الهاتف (هاني ).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

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

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

لحساب عمر الجهاز هي حساب الفرق بين تاريخين ضع هذا الكود في وحدة نمطية ثم استخدمه في مربع نص ضمن النموذج المطلوب وسيعطيك عمر الجهاز بالسنة والشهر واليوم طبعا الحساب سيكون من تاريخ بدء العمل الى تاريخ اليوم Function dat(bir As Date) If IsNull(bir) = True Then dat = Format("00", "00") & "-" & Format("00", "00") & "-" & Format("00", "00") Else Dim nday As Integer, nmon As Integer, nyea As Integer Dim bday As Integer, bmon As Integer, byea As Integer bday = Day(bir) bmon = Month(bir) byea = Year(bir) nday = Day(Date) nmon = Month(Date) nyea = Year(Date) If bday > nday Then nday = nday + 30 nmon = nmon - 1 End If If bmon > nmon Then nmon = nmon + 12 nyea = nyea - 1 End If Dim dd, mm, yy dd = nday - bday mm = nmon - bmon yy = nyea - byea dat = Format(yy, "00") & "-" & Format(mm, "00") & "-" & Format(dd, "00") End If End Function

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

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

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

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

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

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

عمل رائع

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

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

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

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

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

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

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

جزاك الله خيرا دائما موضوعاتك متميزه

أستميحكم عذراً ...

الاخ الغالى ابوالبراء جزاكم الله خيرا على كل ما تقدمه تقبل تحياتى

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

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

الكود شغال 100% جرب غير تعريف المتغير الموجود في اعلى المحرر الى dim i as String ايضا السطر : strComputer = "." اكتب قبله dim strComputer اذا لم يمشي الحال عندي لك كود آخر للفحص عندي لم يتغير مع الفورمات وربما انواع اخرى تختلف ولكن هل يمكن الفلاشات تتشابه في السيريال فهذا لا اعلم ولم اجرب

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

ارفق مثالا اخي ! سؤال بيشغل البطيخة !

Thanks a lot for this free addin I tested it on office 2016 32 Bit and it was ok at first but after while it gives me errors and quit the application And some functions still don't work .. I put some data and tried to using charts but it gives me that there must be numeric values although there were It is better to put some help images as a kind of help to the people who will use this addin It is our pleasure to join out community

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

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

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

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