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

السلام عليكم ورحمة الله وبركاته كيف حالكم إخواني الكرام في المنتدى الغالي؟ لقيت نفسي نفسي (نفسي الأولى غير التانية ..) نفسي الأولى يعني أنا - وأعوذ بالله من كلمة أنا - ، ونفسي التانية يعني حاجة أتمنى أعملها .. المهم لقيت نفسي أعمل حاجة مختلفة .. بشكل مختلف .. بأسلوب مختلف يكون فيه عنصر التشويق والإثارة والبساطة مجتمعين في نفس الوقت. كتير مننا أول ما يسمع كلمة البرمجة والأكواد يتخض وكأن الموضوع مستحيل ...أبدا كل الحكاية إننا بنبدأ غلط مش بناخد الخطوات الصحيحة لتعلم البرمجة. لو عايز تتعلم البرمجة ونفسك بجد تبدأ تتمكن فيها خليك معايا ، هنقضيها رغي شوية وهزار شويتين ، وجد مش كتير ... ايه رأيكم؟ نبدأ على بركة الله .. أول حاجة بعد ما تنصب الأوفيس وتفتح الإكسيل تلاقي اللي انت عايزه مش موجود طيب نظهره إزاي ؟؟ ببساطة فيه زر أوفيس فوق شمال هتضغط عليه وتضغط Excel Options هتلاقي نافذة فيها خيار اسمه Show Developer tab in the Ribbon يعني إظهار التبويب ، وهتلاقي جنبه مربع تحط فيه علامة صح مبروك الخطوة الأولى واحد هيقولي عندك اقف أول خطوة فشلت فيها ..هقوله ربنا ما يحرمنا من الفشل لأن الفشل أول طريق النجاح .. هقولك لو ملقتش اللي بحكي عليه يبقا اصدار الأوفيس مختلف أنا شغال على 2007 ، وحضرتك على 2010 أو 2013 (بالنسبة ل 2003 والله ما أنا معبره كفاية عليه لحد كدا) ... بالنسبة لـ 2010 و 2013 بيكون من قائمة File ثم Options ثم من القايمة الشمال فيه Customize Ribbon وفي الناحية اليمين هتلاقي قائمة بالتبويبات وجنب كل تبويب علامة صح اللي يعجبك علم عليه صح واللي ميعجبكش ارميه في الزبالة... المهم هتلاقي التبويب اللي هيفتح لنا الباب لعالم البرمجة .. دا كان المفتاح للدخول نخش لتاني حاجة المفتاح عشان يفتح معاك لازم تحط عليه شوية زيت ، يعني لازم تضبط إعدادات الماكرو عشان الأكواد تشتغل معاك تمام من التبويب الجديد انقر على Macor Security هيفتح معاك نافذة بتختار منها آخر خيار Enable all macros وبتعلم علامة صح على الخيار اللي جنبه مربع Trust access to VBA الحمد لله خلصنا من النقطة الأولى والتانية ... ننتقل لنقطة جديدة : هيظهر التبويب في الآخر .. جمد قلبك واشرب ديو وافتح الباب لمحرر الأكواد اضغط على Visual Basic من التبويب المذكور أو لو بتحب تتعامل مع الكيبورد اضغط Alt + F11 كدا الباب الحمد لله فتح .. لو أول مرة تدخل على محرر الأكواد متتخضش واحدة واحدة هبندا نتعلم كل اللي موجود .. المهم محدش يستعجلني عشان أنا مستعجل النافذة دي اسمها نافذة المشروع Project window يعني الإكسيل بيتعامل مع المصنف إنه مشروع .. والمشروع مكون من 3 شيتات اللي بنسميهم أوراق العمل Sheet1 و Sheet2 و Sheet3 بس في 2013 الحمد لله بيكون الوضع الافتراضي شيت واحد بس (أصلي بتخنق من حتة 3 شيتات ع الفاضي بحس إن الملف كبير ع الفاضي وكل اللي يلزمني للعمل بشكل مبدئي هو شيت ولما أحب أضيف جديد مش هيكون أمر صعب) المهم مع أوراك العمل بنلاقي الكائن المسمى بالمصنف WorkBook ودا اللي بيحوي التعابين كلها أقصد الأكواد .. طيب محدش سألني ايه المنطقة الرمادي دي ومالها ضلمة ليه كدا؟ أنا أقولك عشان إنت تنورها .. اضغط دبل كليك على Sheet1 مثلا في نافذة المشروع هتلاقيها نورت والحمد لله استعداد لبداية الاحتفال بس فيه نقطة الأكواد لو اتكتبت هنا هتأثر على الورقة دي بس ... في الحتة اللي نورت الصق الكود اللي جاي ده وأفضل تكتبه بايدك عشان أنا شايف ايدك بتترعش وخايف .. قلت لك جمد قلبك الموضوع بسيط نبدأ بكود كدا سهل ولذيذ Sub Hello_Officena() MsgBox "Hello Officena!" End Sub أول كلمة Sub يعني ابدأ صب اللي عندك .. لا غلط .. معناها إجراء فرعي Subroutine يعني بينفذ مهمة محددة. وفي آخر الكود End Sub عشان القفلة (لو فاكرين شعبان عبد الرحيم بيقول ايه في الآخر بس خلاص دي القفلة بتاعته) هنا بقا دي القفلة بتاعت الإجراء الفرعي.. طيب ايه Hello_Officena دا اسم الإجراء ودا له قواعد أول حاجة مينفعش يبدأ برقم 77Hello_Officena ولا ينفع يكون فيه مسافة زي كدا Hello Officena بس ممكن لو حبينا بدل المسافة بحط Underscore اللي هي بتيجي بـ Shift + العلامة اللي على يمين الصفر اللي في الأرقام اللي فوق مش الأرقام اللي ف لوحة الأرقام .. وبردو فيه حاجات محرمة في اسم الإجراء زي علامة # أو $ أو % أو & أو % أو النقطة أو الفاصلة أو أو .. بقولكم ايه كفاية كلام عن اسم الإجراء .. لو كان فيه حاجة غلط في الاسم هيطلع لك رسالة خطأ تعرف إن فيه حاجة مش مظبوطة!! طيب السطر اللي في النص دا هو دا الكود .. الإجراء أو المهمة المراد تنفيذها .. بتبدأ بكلمة MsgBox ودي اختصار للكلمة Message Box أي صندوق الاسم ..... والله انا سرحت بس مش همسح اللي بكتبه خلي الكلام يكون تلقائي .. ودي بنكتب وراها الرسالة اللي عايزين نظهرها .. وطبعا فيه مسافة بعد الكلمة والكلام اللي هو الرسالة دا نص فنحطه بين أقواس تنصيص " " .. واحد برق لي عينه بيقولي بتتعمل إزاي دي قول لأقتلك .. هقوله حاضر يا باشا هقولك دي بتيجي إزاي .. اضغط على Shift وبعدين حرف الطاء بس خلاص .. طبعا أقواس التنصيص في أول النص وفي آخره مهو لازم القفلة. نجرب نشغل الكود إزاي .. فيه أكتر من طريقة يا إما تضغط على مثلث لونه أخضر فوق في شريط الأدوات الموجود في محرر الأكواد .. مش عاجبك شكل المثلث الأخضر خلاص روح لقائمة Run واضغط أول أمر .. لو انت تلميذ ذكي هتعرف الطريقة التالتة من التانية .. هسيبكم تقولوها إنتو ..مش عارفين !! طيب هقول أنا وخلاص اضغط على F5 من لوحة المفاتيح بس بشرط يكون مؤشر الماوس واقف في الكود.. لما نشغل الكود دا اللي هيظهر لي وبكدا أكون وصلتكم وفتحت لكم الباب .. لو عايزين نكمل قولوا كمل مش عايزين .. يبقا كفاية لحد كدا ويا كود ما يقربش منك حد .. ونعمل بالمثل الفلاحي اللي بيقول : ابعد عن الكود وادعي عليه! والسلام عليكم سبحانك اللهم وبحمدك .. نشهد أن لا إله إلا أنت ..نستغفرك ونتوب إليك كان معكم على الهواء مباشرة أخوكم أبو البراء من ملعب أوفيسنا .. إلى اللقاء مع مباراة جديدة وأهداف جديدة وشيقة دمتم بود ====================================== ====================================== السلام عليكم نرجوا وضع ردود الشكر والاعجاب على الرابط ادناه هنا ====================================== ======================================

السلام عليكم قلت قبل ما أنا أقدم لكم دالة كدا ع السريع يمكن تفيد أي حد الدالة تقوم بعمل عد للتواريخ في نطاق ما .. الدالة بسيطة جدا بتعتمد على اختبار الخلية باستخدام IsDate وترجع القيمة إلى True أو False فلما يكون تاريخ العداد يضيف واحد في كل مرة أرجو أن تنال إعجابكم Function CountDates(R As Range) For Each Cell In R If IsDate(Cell) Then Counter = Counter + 1 Next Cell CountDates = Counter End Function

بارك الله فيك أخي صلاح أخي عزيز بالفعل قم بحذف الصفوف الزائدة والأعمدة الزائدة في كل أوراق العمل بشكل مبدئي ..كيف ذلك؟ تعالى على آخر صف ميكونش فيه بيانات يعني آخر صف فيه بيانات .. الصف اللي وراه علطول وحدد الصف بالكامل من خلال النقر عل رقم الصف وسيب الماوس ومن لوحة المفاتيح اضغط Shift+CTRL+ سهم لتحت هيتحدد معاك كل الصفوف الغير مرغوب فيها ..كليك يمين Delete نفس الحكاية مع الأعمدة حدد آخر عمود وبعدين اضغط SHIFT +CTRL+ سهم شمال عشان يحدد كل الأعمدة الزائدة وبعدين كليك يمين على راس العمود ثم Delete كرر نفس الكلام مع كل أوراق العمل واحفظ الملف وشوف حجم الملف بعد ما عملت كدا قل ولا لا.. لو قل شوية قلنا لو قل كتير قلنا لو مقلش متقولناش

الحمد لله الذي جعل العلم ضياء والقرآن نوراً الحمد لله الملك الحق المبين ، الذي هدانا إلى الإيمان واليقين نحمــده تعالى وهـــو الرب الجليل ، الهادي إلى ســـواء الســـبيل ، الذي لا يخفى عليه الكــثير ولا القليــل . والصلاة والسلام على المبعوث في الأميين معلماً ورسولاً ومرشداً وحكيماً وأشهد أن لا إله إلا الله وحده لا شريك له أمر بإتباع الحق ونهى عن إتباع الباطل ، ورفع من شأن العالم دون الجاهل ، وأشهد أن سيدنا محمداً عبده ورسوله جــــاء بالحــــق المبــــين ، فكان رحمــــة للعالمين ، صلى الله عليه وعلى آله وأصــحابه وســـلم تســـليماً كــــثيراً . اللهم اجعل العام الهجري الجديد فاتحة خير علي المسلمين وبلاد المسلمين ا أحبائي واخواني في منتديات اوفيسنا الاحبة كشجرة الياسمين لا تكتفـــي أن تظـــلك بـــــــل لا تترككــ الا معطــــرا بعبيرهـــا فاســعد الله من كانوا دومــــا زهــــور الياسمــين في حـــياتنا . موضوعنا اليوم حول برنامج يخدم شريحة من الطلبات لادارة النشاط التجاري والخدمي وراعينا ان يكون البرنامج سلس ومرن ليتناسب مع اغلبية الاحتياجات . وايضا لاستكمال مواضعينا السابقة عن دمج الاكسل ببرامج التصميم المختلفة والتحكم في خصائص الادوات لليوزرفورم . برنامج نور التجاري والخدمي اول انتاج مشترك بيني وبين اخي الحبيب العبقري / شوقي ربيع في سلسلة البرامج الخدمية ان شاء الله تعالي . البرنامج يقوم بإدارة النشاط بصــفة عامة ، وادارة عمليات البيع بإصدار الفواتير ، وطباعتها ، واصدار ســـندات القبض وطباعتها ، وادارة العمليات المتعلقة بفواتير الشراء ومرودتها واثبات عمليات الشراء والاصناف واصدار سندات الصرف وطباعتها . الجديد في البرنامج كثيرا تم طرح نماذج فواتير بيع باضافة عدد محدد من التكسات بما يتناسب مع صفوف الفاتورة الواحدة لكن في البرنامج تناولنا الموضوع بطريقة اخري باضافة عدد تكسات رئيسية تقوم بترحيل الي ليست بوكس ومنها الي الشيت وبذلك يمكن اصدار الفاتورة بعدد لا محدود من الاصناف وطباعتها . شاشة الدخول اسم المستخدم وكلمة المرور الافتراضية admin الشاشة الرئيسية للبرنامج شرح واعداد البرنامج بالكامل اضغط هنا بالمرفقات اللهم اجعلنا ممن طاب ذكرهم ، وحسنت سيرتهم ، واستمر أجرهم في حياتهم وبعد موتهم اللهم امين Nour Commercial V 1.0.0.rar

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

السلام عليكم إخواني الكرام .. أقدم لكم شيئا قد يكون جديدا بعض الشيء ألا وهو البحث عن أو التعرف على الخلايا المدمجة في ورقة العمل في الملف المرفق ستجد أكثر من طريقة للتعرف على الخلايا المدمجة الطريقة الأولى طريقة خاصية البحث .. يوجد دالة معرفة تحدد إذا ما كانت الخلية مدمجة أو لا يوجد كود لتلوين الخلايا المدمجة .. كما يوجد كود يعرض لك عناوين الخلايا المدمجة .. كل هذه الطرق الأربعة في ملف مرفق واحد فقط ( 4 * 1 ) زي برت بلس عشان متقولوش حارمكم من حاجة مع تمنياتي لكم بدوام الصحة والعافية أخوكم في الله أبو البراء Find Merged Cells.rar

السلام عليكم الفيزيو سابقا كان احد مكونات حزمة الاوفيس ، ثم تم فصله ليصبح برخصة مستقلة يختص الاوفيس بالرسومات التوضيحية المختلفة منها على سبيل المثال لا الحصر - العمليات Process Flow diagrams - الهياكل التنظيمية - رسومات العصف الذهني Brain Storming - رسومات أدوات الجودة المختلفة - البرامج الزمنية البسيطة - الرسومات الهندسية البسيطة -....و العديد من الانواع الاضافية بحسب القوالب المختارة و ايضا هناك تطبيقات متقدمة تتعلق بتحليل البيانات رسوميا بخاصية الرسومات المحورية Pivot chart والتعامل مع البيانات الخاصة بالرسومات ، و ايضا ربط بيانات الرسومات مع قاعدة بيانات خارجية فى اكسيل مثلا

بسم الله الرحمان الرحيم السلام عليكم حركة اليوم كالعادة متعلقة بالجانب الفني و الجمالي لليوزر فورم اقتبست هاته الفكرة من تجليد الفورم في VB6 و VBNET بواسطة أداة Active Skin و وجدة ان هاته الأداة متوفر او متوافقة بالفعل مع VBA لذى بحثت وحاولت الى ان توصلت الى الاتي ا36 شكل (ثيم) مميز يمكنكم استعمالها بسهولة فس برامجكم ندخل الى التنفيذ اولا نحتاج الى تثبيت الأداة ActiveSkin Control ان لم تكن مثبت لديكم ولفعل ذالك اتبع الشرح المصور الاتي بهده الطريقة نكون انتهينا من عملية تثبيت الادات الان ناتي الى اضافة الاداة كاي ادات اخرى الى صندوق الادواة نقوم الان باضافة الاداة الى الفورم وايضا نقوم باضافة ليست بوكس ثم قم بنسخ هذا الكود في الفورم Option Explicit Private No As Double Private FSO As Object, Klasir As Object, Dosya As Object Private SeçilenDosya As String Private Const hWnd As Long = &H0 Private Sub UserForm_Initialize() On Error Resume Next Application.Visible = False With Me .Caption = "UserForm Skin" .Height = 226 .Width = 358 End With With ComboBox1 .Left = 6 .Top = 6 .Height = 18 .Width = 114 End With Call SkinDosyaListele End Sub Private Sub UserForm_Terminate() On Error Resume Next Contrôle1.Empty End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) On Error Resume Next Application.Visible = True End End Sub Private Sub ComboBox1_Change() On Error Resume Next SeçilenDosya = ComboBox1.List(ComboBox1.ListIndex, 1) Me.Caption = ComboBox1 With Contrôle1 .LoadSkin SeçilenDosya .ApplySkin hWnd .ZOrder 1 End With DoEvents End Sub Sub SkinDosyaListele() On Error Resume Next No = 0 Set FSO = VBA.CreateObject("Scripting.FileSystemObject") Dim Pth As String: Pth = ThisWorkbook.Path & "\Skins\" Set Klasir = FSO.GetFolder(Pth) For Each Dosya In Klasir.Files ComboBox1.AddItem Dosya.Name ComboBox1.List(No, 1) = Dosya No = No + 1 Next Dosya End Sub تم ارفاق مثال عملي للموضوع لكي يشتغل عنك المثال قم اولا بتثبيت الادات كما وضحت سابقا ولا تنسى وضع الملف بعد الحفظ مع مجلد Skins في نفس المسار سيضهر لك يوزر فورم به قائمة منسدلة بالشكل العادي قم باختيار أي اسم من القائمة ولاحظ مايحدث المجلد Skins يحوى السناكات بعض الصور المأخوذة للفورم بعد التجليد اهدي هذه الحركة الى اخي وصديقي ضاحي الغريب الذي عمل لي الشرح المصور اعلاه جازاه الله عنا كل الخير ارجو ان يفيدكم الموضوع وينال اعجابكم تحياتي للجميع اخوكم في الله شوقي ربيع الشرح المصور.rar ACTSKIN4 الاداة.rar مثال عملي عن تجليد الفورم.rar

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

متابعة الواجبات : ************** قام الأخ الفاضل الجموعي بعمل الواجب المطلوب على أكمل وجه .. بارك الله فيك أخي الحبيب الجموعي وجزيت خيراً على هذه المتابعة الجيدة ممكن نستفيد معلومات جديدة من خلال الواجب مش هنصحح كدا ونقول صح ولا غلط وبس لا إحنا نضيف معلومة تضاف للحلقة الثالثة كملحق ليها . يا ريت المشرفين يقوموا بالمهمة دي .. عايز تجميع لكل الحلقات والملحقات للحلقات زي الملحق ده عشان يضاف للشرح لتسهيل المتابعة لمن أراد المتابعة بإذن الله . طبعا الكود اللي تفضل به أخونا الفاضل بالشكل ده Range("A1:B10").HorizontalAlignment = xlCenter Range("A1:B10").Font.Name = "Arial" Range("A1:B10").Font.Size = 14 Range("A1:B10").Font.Bold = True Range("A1:B10").Font.Color = -4165632 لو لاحطنا هنلاقي الأسطر الخمسة كلها بتبدأ نفس البداية ودا طبيعي لأن كل الشغل على نفس النطاق . ممكن تضيف لمعلوماتك إنك ممكن تستغنى عن تكرار هذه البداية باستخدام جملة With .... End With ومننساش بردو القفلة مهمة جدا نقطة تانية بالنسبة للون يمكن استبالها بقيمة vbBlue بدلا من الرقم اللي شكله يخض ده .. الأسطر كلها تحتوي على Properties أي خصائص وطبعا كل خاصية بيكون ليها قيمة ..ممكن تكون القيمة نص زي اسم نوع الخط Arial وطبعا مننساش إن النص يوضع بين أقواس تنصيص .. وقد تكون القيمة رقم زي حجم الخط ودا طبيعي لأن الحجم بيكون برقم (افتكروا التلاجة الـ 10 قدم .. رقم 10 دا حجم) .. وممكن تكون القيمة حاجة اسمها Boolean أيوا يا شيرين اسمها بولين ، ودي يا إما 1 أو 0 واحد هيقولي غلط إنت بتدي معلومات غلط هي القيمة إما True أو False هقوله صحيح .. ما هي القيمة True =1 والقيمة False = 0 ، وقد تكون القيمة عبارة عن تنسيق معين زي أول سطر xlCenter ودي شرحناها الحمد لله .. وقد تكون قيمة ثابتة vbBlue زي مثلا اللون الأزرق دا ثابت ومعرف في محرر الأكواد هيكون الكود بهذا الشكل بعد التعديل عليه .. وبكدا نكون اتعرفنا على أشكال مختلفة للقيم اللي بتيجي بعد علامة يساوي يعني دلوقتي الأخ الجموعي اختصر الكود اللي في تسجيل الماكرو بشكل رائع ، وإحنا كمان هنختصر اللي اختصره في الكود التالي فبكدا يكون دا مختصر المختصر (يعني دا المفيد) With Range("A1:B10") .HorizontalAlignment = xlCenter .Font.Name = "Arial" .Font.Size = 14 .Font.Bold = True .Font.Color = vbBlue End With آخر نقطة ممكن نتكلم فيها عشان دي أنا نسيتها إزاي نربط الماكرو بزر يقوم بالتنفيذ : معلش نسيت النقطة المهمة دي - اعذروني بسبب الزهايمر - بنروح للتبويب ومش هقول اسمه لأن كل شغلنا عليه هنلاقي فيه كلمة Insert بنضغط عليها بيفتح معانا قايمة منسدلة فيها أدوات تحكم اختار أول واحد اسمها Button (Form Control ودا أول أداة تحكم موجودة وأكثرها استعمالا ..ارسمها ببساطة على ورقة العمل وبعديها كليك يمين ثم اختر الأمر Assign Macro وحدد اسم الماكرو المراد ربط الكود به في المثال السابق مثلا دا مثلا شكل الكود بالكامل فيه اسم الإجراء الفرعي بعد كلمة Sub Sub FormatRangeA1_B10() With Range("A1:B10") .HorizontalAlignment = xlCenter .Font.Name = "Arial" .Font.Size = 14 .Font.Bold = True .Font.Color = vbBlue End With End Sub لما نعمل كليك يمين على زر التحكم هنلاقي اسم الإجراء الفرعي موجود نعلم عليه ونضغط أوك وبكدا نكون ربطنا الكود بزر تحكم ما عليك الآن إلا أن تقوم بعمل كليك واحدة على الزر لتنفيذ الأمر بكل بساطة .. الأخت الفاضلة morestudy بالنسبة لأول ملف عندك مفيش أي خطأ لا في الكود ولا في التنفيذ .. وبعدين لما يظهر خطأ يا ريت نسرد محتوى رسالة الخطأ لتحليلها .. بس الملف مفيهوش أي مشكلة. الملف الثاني أيوا فيه أخطاء المفروض إننا لازم قبل أي شيء الإشارة لنطاق محدد في الأسطر اللي في الكود خاصتك مفيش إشارة فطبيعي إنه يكون غط راجعي الكود اللي تفضل بيه الأخ الجموعي وشوفي الفرق .. وصححي الخطأ بنفسك أرجو ان تكونوا قد استفدتم إخواني الكرام دمتم في رعاية الله وحفظه

تم عمل الواجب أستاذي ابو البراء إن شاء الله وفقت في ذلك Range("A1:B10").HorizontalAlignment = xlCenter Range("A1:B10").Font.Name = "Arial" Range("A1:B10").Font.Size = 14 Range("A1:B10").Font.Bold = True Range("A1:B10").Font.Color = -52429

بيقولو لو الوطن اتصل هاتقولو ايه ؟ .... فقلت ايوا لسـة فاكـــر تتصــل لســة فاكـــر انك ليكـ شــعب كان أمــس بيــكــ بيـفتخر . لســة فاكـــر يا وطــــــن .... بعد مـــا شـــبابك بقي حلمهــم انكــ تتهـــجر . كــنت فين لما دم اخويـــا سال عالرصـيف !!! كــنت فين لما مـــات شـــهيد الرغـــيف !!! لســة بتتصــل .... !؟ طــب إتصــــل وانــت بتتصل إفتـــكر..... إني صـــوتي اللي حــــررك اتـحــرق ... والحــرية اللي حلمنا بيها كلام عــالورق ... إتصـــل ... ولما تتصــل افتــكر... اني هــربت للغربة قبل ما اتكــــــسر وغربتي بقت أيام عمري اللي بيتهدر إتصل يا وطـــن ... إتصل اتصل وقبل ما تتصل ... افتكر ان دمنا من غير تمن كان بيتهدر اتصل وياريتكـ تفتكــر إن ذنب الشــعب في رقبتك افتكر ... افتكر ... انك خليت غربتي وطــني وأنت محطة هبوطــ افتكر ان كلمة نهائي ..تــساوي عند المغترب روح مـــوت موت حــوادث مــوت كــوارث أوحتى مــوت من السكوت اتصل يا وطــن اتصل وانت بتتصل افتكر ان صحيت ولادي يوم رجوعي وسمعت منهم اللي وجع قلبي بين ضلوعي .. سمعت بنتي لما قالت نفسي اهاجر نفسي اسافر او حتى يا امي نفسي بلدي تبقى ديا نفسي ابقى هنا ابقى سعوديه شفت يا وطن ..شفت انك بقيت تراب بقيت سراب يبقى لسا ناوي تتصل طب اتصل او حتى اعتقل كل اللي مقلش آمييين اعتقل ومتنساش تمنع هواك تمنع دواك عن المسجونين اتصل وقبل ما تتصل بس افتكر كل اللي فات وانتظر ايوا انتظر انتظر كتير او قليل انما في الاخر هاتفتكر ## بقلم Safa Mahdy

بسم الله الرحمن الرحيم بعد التوكل على الله برنامج رائع يستخدم في المختبرات الطبيه (التحليلات المرضيه ) يحتوي البرنامج على الكثير من المميزات والخصائص التي تجعله فريد من نوعه كما يتصف بالسهوله في الاستخدام والوصول الى النتائج بسرعه برنامج noraea الطبي نبدا اولا بشاشة دخول البرنامج حيث تحتوي على كلمة سر واسم مستخدم بواجهه احترافيه ثانيا تم اضافة خاصية فقدان كلمة السر اسم البرنامج program noraea مميزات البرنامج 1-حماية قويه لقاعدة البيانات حيث تعمل بباسورد مختلف عن باسورد البرنامج وهو 123 2-حماية البرنامج باسم مستخدم وكلمة سر مع امكانية تغيرهما حسب الطلب 3-لائحة ادخال معلومات اي مريض بسهوله 4-امكانية البحث عن اي مريض باول حرف من اسمه 5-يمتاز البحث بامكانية معرفة جميع زيارات المريض خلال اي فتره حتى لو كانت بالسنين وكذلك عدد زيارته 6-امكانية اخذ نسخه احتياطيه بسهوله اسم المستخدم (الله لا اله الا هو) كلمة السر(123) هذا العمل للمبرمج علي عقيل وهو عمل لوجه الله تعالى نرجوا تثبيته في المنتدى وذلك لانه حصري وسوف لن يتم رفعه على منتدى اخر مستعدين لاي تعديلات تتنساب مع مشاريعكم بدون مقابل فقط المراسله على الايميل aliaqeel2013@gmail.com ومن الله التوفيق program noraea .rar

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

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

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

تفضل أخي الغالي Private Sub UserForm_Initialize() Me.Caption = ActiveSheet.Name End Sub

السلام عليكم ورحمة الله تم التعديل على الملف (إضافة بعض المعادلات والتعديل على بعضها - إضافة بعض النطاقات بالتسمية والتعديل على بعضها - تصحيح بعض البيانات) وتم التعديل على كود أخينا عبد الله باقشير بما يوافق المطلوب... أرجو أن يكون في الملف المرفق ما يفي بالغرض... يجب إدخال اسم المؤسسة ورمزها (من القوائم المنسدلة) أخوك بن علية المرفق : الوضعية الإدارية_3.rar

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

أخي العزيز / الربيعي حسب ما فهمت من طلبك هذا حل مع أعمدة مساعدة يتم تجميع نتائجها في العمود (U) لاحظ المرفق مواد الرسوب.rar

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

السلام عليكم ليس غريب من رجل يحب للخير للناس ويحب ان يساعدهم شكراً الواجب :: الواجب الاول.rar

الافضل جعل النموذج منبثق ومشروط وحينها لا يمكن الانتقال الى اي كائن او عنصر في البرنامج الا بعد غلق النموذج الحالي اما اذا فتحت نموذجا من زر داخل نموذج وتريد ان تغلق الاول فاكتب في حدث الزر السطر التالي : DoCmd.Close acForm, Me.Name

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

ممكن حاجة مثل هذه تحقق المطلوب أخى ويمكن بالطبع إخفاء الأعمدة عن طريق تظليل العمودان المساعدان ، ثم كليك يمين عليهم والذهاب إلى "FORMAT CELLS " ثم " CUSTOM " وفى " TYPE " يتم وضع " ;;; " ثم " OK " تقبل تحياتى 2 ترتيب أوائل.rar

شكراً أستاذ ياسر على الموضوع المميز

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

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

أخي الحبيب وأستاذي أبو محمد جرب الكود بالشكل التالي يرجى مراجعة النطاقات عشان أنا تهت المهم الفكرة Sub تصفير_الرصد() Dim UnionRange As Range Application.ScreenUpdating = False Set UnionRange = Union(Range("F6:H55,J6:L55,O6:O55,R6:T55,V6:X55,AA6:AA55,AD6:AF55,AH6:AJ55,AM6:AM55,AP6:AR55"), _ Range("AT6:AV55,AY6:AY55,BB6:BD55,BF6:BH55,BK6:BK55,BN6:BP55,BR6:BT55,BW6:BW55,BZ6:CB55,CD6:CF55"), _ Range("CU6:CU55,CP6:CR55,CL6:CN55,CI6:CI55,F206:H255,J206:L255,O206:O255,R206:T255,V206:X255,AA206:AA255"), _ Range("AD206:AF255,AH206:AJ255,AM206:AM255,AP206:AR255,AT206:AV255,AY206:AY255,BB206:BD255,BF206:BH255,BK206:BK255,BN206:BP255"), _ Range("BR206:BT255,BW206:BW255,BZ206:CB255,CD206:CF255,CU206:CU255,CP206:CR255,CL206:CN255,CI206:CI255,F406:H455,J406:L455"), _ Range("O406:O455,R406:T455,V406:X455,AA406:AA455,AD406:AF455,AH406:AJ455,AM406:AM455,AP406:AR455,AT406:AV455,AY406:AY455"), _ Range("BB406:BD455,BF406:BH455,BK406:BK455,BN406:BP455,BR406:BT455,BW406:BW455,BZ406:CB455,CD406:CF455,CU406:CU455,CP406:CR455"), _ Range("CL406:CN455,CI406:CI455,F606:H655,J606:L655,O606:O655,R606:T655,V606:X655,AA606:AA655,AD606:AF655,AH606:AJ655"), _ Range("AM606:AM655,AP606:AR655,AT606:AV655,AY606:AY655,BB606:BD655,BF606:BH655,BK606:BK655,BN606:BP655"), _ Range("BR606:BT655,BW606:BW655,BZ606:CB655,CD606:CF655,CU606:CU655,CP606:CR655,CL606:CN655,CI606:CI655")) UnionRange.ClearContents Application.ScreenUpdating = True Range("F1").Select End Sub

أخي الفاضل ماجد يوجد دالة للعلامة القدير عبد الله باقشير تقوم بالمطلوب كما تريد تفضل المرفق التالي : TOP TEN KH.rar

أخي الكريم Morestudy Thank you very much for your nice words معلش طلبت معايا شوية إنجليزي ..أشكرك أخي الحبيب على كلماتك المشجعة ، والحمد لله بدأت تمطر وبقبت إنت أول واحد استفاد ربنا ييسر الأمور .. بس بالنسبة لخفة الظل دي عملية نسبية .. يعني فيه ناس شايفه إنه خفة ظل وناس تانية أكيد هتشوفه إنه أسلوب رخم وغلس ومش مفيد (الاختلاف في الرأي لا يفسد للكود قضية) أنا يهمني في النهاية والبداية المبتدئ الذي يخشى أن يخطو خطواته الأولى فهو بمثابة الطفل الصغير الذي يتعلم السير فهو يريد أن يجد من يمسك بيديه حتى يستطيع ويتجرأ على المشي ، وبعد أن يتقن فن المشي ساعتها يستغني عن مد له يد العون هههه يعني كدا زي ما بيقول الشاعر علمته رمي السهام فلما اشتد ساعده رماني ..

السلام عليكم لاأظن المشكلة في ملفات المنتدي جرب فتح ملف winrar آخر (ليس من المنتدي) إذا ظهرت المشكلة (وغالبا ستظهر) فجرب التالي كليك يمين علي أي ملف winrar إختر Open with غالبا ستجد أن الخيار الحالي مضبوط علي الإكسل (بالخطأ) إذا كان ذلك فأعد ضبطه علي الـ Winrar وتنتهي المشكلة إن شاء الله

تفضل أخي الحبيب جرب الملف التالي My Data.rar

اخى الفاضل اذا كنت تقصد اخفاء خطوط الشبكة Gridlines فاما من قائمة تخطيط الصفحة Page Layout ثم قم بازالة الصح الموجودة بجانب عرض خطوط الشبكة Gridlines او من قائمة عرض View وازل الصح الموجودة بجانب خطوط الشبكة Gridlines تحياتى

ايه الحكاية فين زباين جدد كتير في المنتدى الليلة ... مرحبا بك أخي الحبيب في منتدانا الكبير بالنسبة لطلبك من خلال التبويب View شيل علامة الصح من جنب كلمة Gridlines اللي معناها خطوط الشبكة.. كدا صح جات في الشبكة ولا طلعت أوت!!!

الملاحظات : 1- النماذج تصميمها جيد ولكن لي ملاحظة على النماذج الخدمية الصفوف والفصول والديانة وكذلك مايلحق كالمدارس والادارات والمحافظات يجب ان يكون النموذج مستمرا لسهولة العرض والسبب ان البيانات هذه ثابتة ونادرا يتم التعديل عليها وقد لا يستعملها المستخدم سنة كاملة لهذا وضعت لك في المثال نموذج frmsaf حتى تحذو حذوه اما مسألة التحويل او التنقلات فخانة الاختيار ستكون واحدة وتخص المحول الى ، ويتم التأشير عليها اما المحول من فليس له خانة اختيار ولا نموذج خاص به ويتم ادخال بيانات مدرسته المنقول منها وتاريخه في نموذج ادخال بيانات الطلاب عند تسجيله ملحوظة : يفضل دوما تخفيف المثال حسب الحاجة فقط نموزج5.rar

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

أولا- مرحبا بك أخى فى منتدى أوفيسنا ثانيا - ضع هذه المعادلة فى العمود " H3 " وأسحبها لأسفل =LARGE($A$1:$A$23,ROW(A1)) ثم ضع هذه امعادلة فى العمود "فى العمود "I3 " وأسحبها لأسفل وهذه المعادلة معادلة صفيف أى لابد من الضغط على " CTRL+SHIFT+ENTER " معا لتحقق المطلوب {=INDEX($C$1:$C$26, MATCH($H3, $A$1:$A$26*NOT(COUNTIF($I$2:I2, $C$1:$C$26)),0))} تقبل تحياتى ترتيب أوائل.rar

وعليكم السلام أقوم الآن أخي الكريم بإعداد المطلوب بإذن الله وسأرفقه اليوم إن شاء الله

الله يجزاك عنا خير الجزاء

ارفق ملفك أخي للعمل عليه قم بضغط الملف أولا ثم رفعه

استخدم لذلك دالة sumif للجمع المشروط

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

حمدا لله ابا حسين

شكرا على هذه المعلومات