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

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

منذ عشرين سنة كنت رئيسا لقسم تدريب الكمبيوتر في أحد المراكز التدريبية الشهيرة وكان ما أنتجتة تدريب حوالى 7000 متدرب وأشأت مشروع أسميته المبرمج الصغير الذى استفاد منه 1000 تلميذ وأنا الآن على المعاش منذ خمسة أعوام وكنت ألقب بأبي الأكسل قبل ظهور Office 2003 ولكن رأيت موقعكم قريبا من حوالى أسبوع وبعد رؤية المجهود المبذول فأرجو أن تقبلوني طالب في Kg1 أكادميتكم العامرة التي يشرفن الانتساب إليها إلا أن كان سنى قد كبر على قبولي طرفكم وشكرا على ما تبذلوه من عطاء جزاكم الله خيرا عنه

أخي الحبيب أحمد إليك الملف التالي ..وهذا يشمل كل أوراق العمل للنطاق المستخدم فقط .حيث يتم تعطيل الـ Scroll Areas إلا في الخلايا المستخدمة فقط يوضع الكود التالي في موديول Sub SetAllScrollAreas() Dim WS As Worksheet For Each WS In ActiveWorkbook.Worksheets WS.ScrollArea = WS.UsedRange.Address Next WS End Sub ثم يوضع السطر التالي في حدث المصنف Private Sub Workbook_Open() SetAllScrollAreas End Sub تقبل تحياتي Set Scroll Areas In All Sheets.rar

الأخ الفاضل والأستاذ الكبير رؤوف (أبو الإكسيل) ولن يجرؤ أحد أن يأخذ اللقب منك أنت هنا بين أولادك وإخوانك .. فنرجو منك أن تقبلنا تلاميذ لك ،وليست كما ذكرت مرحبا بك في المنتدى ونورت .. وإن شاء الله يستفيد الجميع من خبراتك .. أخوك وتلميذك ياسر أبو البراء

أخي الفاضل صلاح إليك الملف التالي Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Column = 5 Or Target.Column = 6 Or Target.Column = 7 Then ActiveWindow.Zoom = 120 Else ActiveWindow.Zoom = 100 End If End Sub Zoom If Columns Selected.rar

اذا كنت تقصد هذا الشيء اضغط اعجبني مجموع ارقام عدد.rar

الاسم / محمد عصام تاريخ الميلاد / 1982 العنوان /مصر محافظة القاهرة الوظيفة / مهندس كيميائى اعمل بمصر للطيران الحالة الاجتماعية / متزوج بناتى/ (جودى - رحيل) تاريخ الاشتراك في عضوية الموقع 25-September-2014 الهوايات احب القراءة والاطلاع - لعب الشطرنج - لعب الالعاب الاستراتيجية التكتيكية مثل sniper elite v.3 / v.2 وقفلتهم على فكرة اهوى واعشق تصميم الجرافيك اهوى كتابة اكواد html , html5 , css, css3 "تصميم مواقع" وحديثا اهوى واعشق الأكسس واتمنى لو ادخل فى مجال البرمجه من خلال الاوراكل هههههههه حلم عادى يعنى انت بتزعق ليه

الخطأ هو عدم اختيار عنوان مناسب يصف الموضوع تم الدمج وتعديل العنوان

وعليكم السلام ورحمة الله اطلع على هذا المرفق Num.rar

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

حبيب قلبي اخي شوقي الكود الذي برمجته لك في الرابط http://www.officena.net/ib/index.php?showtopic=53794 المشاركة رقم 16 يفي بالغرض وهل تعتقد انني استطيع ان اضع الكود وان اعمله بنفسي ..............؟؟؟؟!!!! اذا الدنيا تتلخبط وتنمسح الاميه من العالم الاسلامي نهائي.... ههههههههههه

السلام عليكم الملف الذي ادرجته لا يحوي اي اكواد لذى لن يحدث لك اي شئ

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

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

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

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

الأخ الفاضل عبد العزيز إليك الملف المرفق وعلى فكرة طلبك يأكد لي إن اللي بعمله ملوش لازمه .راجع الموضوع اللي لسه نازل طازه http://www.officena.net/ib/index.php?showtopic=60536 عشان تتأكد إني عندي حق .. فين الحكمة اللي بتقول (لا تعطني سمكة ولكن علمني كيف أصطاد) .. علمناكم الصيد ..بس يبدو إنكم مش هاويين صيد .. Convert Formula To VBA.rar

أخي الحبيب أحمد بهجت إليك الملف التالي ..تم وضع الكود التالي في حدث المصنف Private Sub Workbook_Open() ThisWorkbook.Sheets("Sheet1").ScrollArea = "A1:N25" End Sub وبالتالي تم تحديد نطاق ليتم التنقل في هذا النطاق فقط Disable Scroll Bars.rar

انسخ هذه المعادلة في الخلية E3 ثم اسحبها يميناً يساراً =INDEX(E$6:E$1500,MATCH($E$1,$D$6:$D$1500,0))

بل كلاهما اضافة الى المتعة والفائدة التي نجدها في النقاش معك

وعليكم السلام الدالة vlookup لا تناسبك في ملفك هذا لأنه لا بد أن يكون عمود الصنف مفروزا تصاعديا وعمود كود الصنف في ملف يحوي أرقاما وأحرف مثلا h107 لذلك تم حل مشكلتك بدوال أخرى أنظر المرفق البيانات#1.rar

السلام عليكم ممكن اشارك معاكم هل يمكن عمل مثل هذا ProgressBar ولكن بالاكسس الملف المرفق يالاكسيل ProgressBar2.rar

أخي الحبيب المعادلة من فوائدها أنك تحصل على نتائج محدثة دائماً .. فما الداعي لوضعها بالكود طالما أنها موجودة بالفعل !!؟؟ لم تصلني فكرتك بعد

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

أخي الحبيب أحمد الشيخ ممكن هذا الموضوع يفيدك في طلبك http://www.officena.net/ib/index.php?showtopic=60294&hl= وعموما جرب الملف التالي عله يكون قريب من المطلوب وإن كنت أفضل أن يكون العمل من البداية على نور .. Split Data Into Multiple Sheets Based On Column.rar

تفضل الخطوات جعفر 45.Conditional Continuous Forms.mdb.zip

وعليكم السلام أخي ناصر انا كتبت هذا الموضوع سابقا في منتدى الفريق العربي للبرمجة ايش رايك في كلمة سر متغيرة يعني مافي داعي تخاف احد يشوفها ، لأنها تتغير دائماً كل دقيقة استعمل هذا الكود مثلاً: p1 = InputBox("insert Password", Format(Now(), "dddd dd-mm-yyyy hh:mm:ss am/pm")) p2 = Format(Hour(Now()) + Minute(Now()), "0000")' & "," & Format(Day(Now()) + Month(Now()), "0000") 'MsgBox Format(Now(), "dddd dd-mm-yyyy hh:mm:ss am/pm") & vbCrLf & _ Format(Hour(Now()) + Minute(Now()), "0000") & "," & Format(Day(Now()) + Month(Now()), "0000") If p1 = p2 Then MsgBox "OK" Else MsgBox "NG" End If كلمة السر هي: تجمع الساعة في الوقت الحالي (الساعة نظام 24 ساعة) + الدقيقة ، والجواب يكون بصيغة 4 ارقام ، مثلا الساعة الآن 5 العصر و26 دقيقة ، اولا نحول الساعة الى نظام 24 ساعة: 5+12 = 17 17 + 26 = 43 اذاً كلمة السر هي 0043 وطبعا تقدر انك تغير الكود مثلا: تحول ايام الاسبوع الى ارقام مثلا: السبت = 1 الاحد = 2 الاثنين = 3 الثلاثاء = 4 الاربعاء = 5 الخميس = 6 الجمعة = 7 فاذا كنا يوم الجمعة ، ونفس الوقت السابق ، فتقدر ان تكون كلمة سرك 70043 ، او 7 + 0043 = 0050 وهكذا جعفر

السلام عليكم و رحمة الله مرفق لكم ملف بسيط يحتوي على طريقة نقل بيانات من أي خلية الى أي خلية بمعلومية رقم الخلية و ترتيب الصفحات يمكن أن يسهل عملية القص و اللصق لكثير من الاعمال أرجو أن ينال اعجابكم ===== Copy & Past.rar ===== للجميع

جرب المسابقة2.rar

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

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

السلام عليكم أخي الساهر لقد أضفت إلى الكود سطرا للترتيب ( بعد إذن الأستاذ أحمد ) أخي أحمد أنتظر حكاية حذف المكرر ليكتمل الدرس ____________.rar

اخي تفضل المرفق سياتيك الرد ان شاء الله قريبا خبور خير Trans2.rar

بسم الله الرحمن الرحيم مرفق الملف الذى تريده بعد التعديل السلام عليكم Time_02.rar

اخى العزيز هذا قاعدة if yes لاخونا عمر الحسينى ربنا يرجعه للمنتدى بسرعة انشاء الله وعلى الله يكون هذا مرادك IFYes.rar

بسم الله الرحمن الرحيم اتبعت نصيحه اخى assahir مرفق ملف كخطوه أولى لعده شركات تظهر فى مربع تحرير و سرد و عند اختيار اى شركه تظهر بيانات التداول و الكميه و تستطيع اضافه اى شركه جديده قتظهر بالقائمه تلقائيا 0 تستطيع اضافه رسم بيانى و سوف بتم تحديثه عند تغيير قيم الخلايا لان النطاق سيظل ثابت عند 31 بالنسبه للطلب الثانى أفضل رفع الملف السلام عليكم Borsa.rar

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

بسم الله الرحمن الرحيم هذا برنامج صغير تستطيع من خلاله متابعه اسعار البورصه خلال فتره زمنيه و بالرسم البيانى الملف مرفق للنصف الثانى من شهر مارس 2007 السلام عليكم BRS.rar

Nov_06_Cash_Flow.zipالسلام عليكم ورحمة الله تم التعديل في المل فالمرفق عسى أن يكون حسب رغبتك