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

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

1-عدم الرغبه فى التعلم معظم الاعضاء لا يوجد عندهم رغبه فى تعلم واضافه شئ جديد لخبرتهم فالبعض وهم كثر يطلب طلبه وينتظر الرد ثم يترك المنتدى ويمكن لا يدخله مره اخرى ولم يفكر لو كل واحد مننا فكر بالمنطق ده يبقى هذا الصرح العلمى العظيم لن يستمر فالمتأمل فى هذا المنتدى يجد الاساتذه معدودين على صوابع اليد والباقى خبراتهم محدوده علما ان عدد الاعضاء حتى هذه اللحظة (106946) فكيف يخدم بضع اشخاص هذا العدد 2- عملية البحث على الرغم ان معظم الموضوعات الجديده مكرره وتم الاجابة عليها من سنوات عديده فهذا الصرح العلمى من اكثر من 10 سنوات اعتقد من 2004 م فان العضو قبل ان يقوم بعملية البحث يعمل موضوع جديد على طول اتمنى من الزملاء حاجتين 1- قبل طرح موضوعك استخدم خاصية البحث 2- حاول بقدر الامكان تعلم كيف تم عمل طلبك / اسال ليس فى السؤال من حرج ويوجد العديد من الحلقات والشروحات وعلى سبيل المثال لا للحصر حلقات افتح الباب للاستاذ العلامه / ياسر خليل وحلقات الاستاذ/ محمود الشريف وحلقات الاستاذ / ضاحى تعلم اليوم شئ جديد لتفيد غيرك غدا وتقدم للمنتدى ما قدمه لك ويستمر المنتدى ممتد الى ابد الابد اتبع لا تعطينى سمكة ولكن علمنى كيف اصطاد نريد اضافه كل يوم للمنتدى خبير واستاذ متمكن جديد يخدم الاعضاء فى الفترة المقبله اسف على الاطاله ولكنها مجرد وجه نظر وتقبلوا احترامى وتقديرى

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

اخى الفاضل بعد إذن أخى الحبيب ياسر، جرب هذا الكود Private Sub cmd_mark1_Click() Dim mark As Integer If Me.TextBox1 <> "" Then mark = Me.TextBox1.Value Select Case mark Case Is > 100 MsgBox ("علامة خاطئة") Me.TextBox1.Value = "" Me.TextBox1.SetFocus Case Is >= 18 MsgBox ("ممتاز") Case Is >= 15 MsgBox ("جيد جدا") Case Is >= 12 MsgBox ("جيد") Case Is >= 10 MsgBox ("متوسط") Case Is >= 7 MsgBox ("ضعيف") Case Is < 7 MsgBox ("توبيخ") End Select Else MsgBox ("ادخل العلامة أولاً") GoTo 1 End If 1 End Sub تحياتي

1 _ كود ادخال ترحيل بيانات بطريقة رأسية ()Sub AddText Dim Lrow As Single With sheet1 Lrow = .Range("B" & Rows.Count).End(xlUp).Row + 1 .Range("B" & Lrow & ":K" & Lrow) = .Range("B3:K3").Value .Range("B3:K3").Value = "" End With End Sub ورقة تنفيذ الكود sheet1 نطاق سطر الادخال للبيانات (B3:K3) يمكن تعديله بناء على البيانات المطلوب ادخالها بعد الضغط على زرار الترحيل سيتم ترحيل سطر الادخال بطريقة رأسية مرفق التطبيق العملى تحياتى و لا تنسونى من صالح الدعاء كود ادخال و ترحيل بيانات_بطريقة رأسية_كود مينىadham.rar

السلام عليكم بارك الله فيكم اذا كان المقصود هو التراجع كما يحدث في استخدام التراجع او ctrl+z في الاكسيل العادي فعلي ما اعتقد انه لا يوجد طريقة للتراجع بعد تنفيذ الكود إلا بعمل كود عكسي للكود المطلوب التراجع عنه تقبلوا خالص تحياتي

الاخوه الاحباء لا اريد ان اشرح عن البرنامج لانه مرفق لكم الملف + الشرح ارجوا قراءة الشرح اولا لان الملف محمي ولايمكن الدخول له الا بعد معرفة رمز الدخول وتعمدت ان اضع رموز الدخول في ملف الشرح حتى اضمن انك قد قرأت الشرح وفهمته جيدا ارجوكم ان وجد اي خطأ او اي مقترح ان ترشدوني اليه حتىنعمل سويا على تطويره ان وجد والله ولي التوفيق SYSTEM USER.rar

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

منقول 5 مواقع عليك أن تدمنها أكثر من فيسبوك وتويتر ! = = = = = = = = = = = = = = = = = = = 1- موقع تيد TED : تقريبا مش بيعدي يوم إلا ولازم أدخل علي تيد ، TED هي اخت...صار لـ : Technology تكنولوجيا - Entertainment ترفيه - Design تصميم. تيد عبارة عن مؤتمر أو قاعة محاضرات بيجيلها الناس من مختلف انحاء العالم ، والقي فيها محاضرات ناس مبدعين زي بيل جيتس (مؤسس شركة Microsoft)، بيل كلينتون، لاري بايج (مؤسس Google) وغيرهم كتير ،، الفكرة ان ted بـ يمنحهم 18 دقيقة كحد أقصى لإلقاء أفضل محاضرة في حياتهم .. وبتكون فعلا رائعة. اللينك ده فيه كل محاضرات الموقع مترجمة للغة العربية https://www.ted.com/talks/browse?language=ar محاضرة يوميا هتفرق كتير :)) 2- موقع Udacity او coursera الموقع ده من ضمن المواقع اللي بدفع اشتراك النت عشانها ، واحد من اشهر مواقع الكورسات الاونلاين علي النت ، هتلاقي عليه كورسات مجانية في كل المجالات واحيانا بتاخد شهادة بعد ما تخلص الكورس ، الموقع كنز لاي حد عايز يتعلم ، الكورسات بتكون باللغة الانجليزية ، فحاول تحسن من لغتك عشان تقدر تتفاعل مع كل محتويات الكورس وحلقات النقاش https://www.udacity.com/ . https://www.coursera.org/ 3- موقع رواق : اغلب المحتوي العلمي علي النت بيكون باللغة الانجليزية ، وده بيكون عائق امام بعض الناس اللي مستوي اللغة عندهم ضعيف . المحتوي العربي الفترة الاخيرة بدات تظهر فيه بعض المواقع المحترمة واللي مبذول فيها جهد رائع ، زي مثلا رواق رواق هي منصة بتقدم كورسات باللغة العربية في مختلف المجالات ، انا تابعت منهم 3 كورسات واستفدت جدا منهم ، الكورسات كلها مجانية والتسجيل فيها سهل جدا http://www.rwaq.org/ 4- موقع ويكي هاو " اسأل مجرب ولا تسأل حكيم " ،،، نفسك تعمل حاجة معينة ومش عارف الطريقة ، طريقة عمل المكرونة مثلا ؟ ، التزلج علي الجليد ؟ رسم ؟ ........... الخ " الموقع ده موسوعة عن كيفية عمل أي شيء، و لذلك جميع مقالات ويكي هاو تبدأ بـ “كيف” أو “How to" ما يقرب من 100 الف مقال في شتي مجالات الحياة ، والفيديو لا يتعدي الـ 10 دقائق ، يعني ممكن تسمعه وانت واقف في المترو الموقع متوفر ب 60 لغة .. كان منهم العربية لكن إنقطع المتطوعين العرب عن المشاركة! http://www.wikihow.com/Main-Page 5- موقع العلوم الحقيقية ، او الباحثون السوريون الموقعين رائعين ، بينشروا احدث ما وصل اليه العلم من ابحاث واكتشافات ومقالات مترجمة ، بالاضافة لمقالات في اغلب مجالات الحياة ( طب - رياضيات - اقتصاد - نفس - ........ ) تابعهم وهتستفاد جدا ان شاء الله http://real-sciences.com/ http://www.syr-res.com/ المواقع دي لو حضرتك تابعتها بشكل يومي ، مقدار العلم اللي ممكن تحصله منها يعادل العلم اللي اخدته في التعليم الحكومي ويزيد ، وكل اللي انت محتاجة ( كمبيوتر - نت - قلم وورقة - وحبة ارادة ) cpd

السلام عليكم تحياتي لكل السادة الاعضاء لي سؤال في اكسل 2013 هل يوجد فرق في شكل اليوزرفورم المعتاد في اكسل 2003 ، 2007 عنه في 2013 وا قصد من سؤالي هل تم تغيير شكل الازرار ومربعات النصوص مثلما تم في فيجوال بيسك من 2006 الي 2010 ام كما هي بالشكل المعتاد المبين في الصورة المرفقة وارجو من السادة الافاضل تدعيم الاجابة بصور ليوزر فورم 2013 متي امكن ذلك وجزاكم الله خيرا

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

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

الحلقة العاشرة ************ السلام عليكم ورحمة الله وبركاته أقدم لكم اليوم حلقة كاملة الدالة MsgBox (وقد قدم لها الأخ الحبيب حسام عيسى موضوعاً كاملاً ، مما أخرني في تقديم الحلقة) .. عموماً هنتكلم عنها مرة تانية ، وفي الإعادة إفادة.. كلمة MsgBox اختصار للكلمة الإنجليزية Message Box أي صندوق الرسالة .. ودي وظيفتها إنك بتعرض رسالة للمستخدم تفيده بأمر معين .. لما نكتب الدالة MsgBox ، ونضغط مسطرة عشان ناخد مسافة ، بيظهر لنا مستطيل أصفر فيه توضيح لبارامترات الدالة .. كلها اختياري ما عدا البارامتر الأول اللي هو اسمه Prompt ، والبارامتر ده هو عبارة عن النص اللي هيظهر للمستخدم (وطبعاً مينفعش يكون اختياري وإلا مش هيكون فيه رسالة للمستخدم) بس إحنا ممكن نضحك على المحرر ، ونكتب السطر بالشكل ده : MsgBox "" هو كل اللي يهمه أقواس التنصيص .. هودا كل اللي يفهمه ، أما النص اللي بين أقواس التنصيص فدا ميعرفوش وميهموش ، اكتب أي كلام .. MsgBox "واخد على خاطري منكم" دي الرسالة اللي عايز أوصلها لكم أحبابي .. ودا سببه عدم المتابعة الجيدة للحلقات .. عموماً دا مش وقت للعتاب.. طيب واحد هيسأل : طيب كدا موضوع الدالة بسيط ومش محتاج حلقة ؟ أقوله البسيط هنعقده ، والمعقد هنبسطه .. تعالوا معايا نضع قيمة في الخلية D3 (كل اللي بيشرحوا مش عارف ليه مركزين على الخلية A1) أنا بحب التغيير - من باب خالف تعرف - ، وليكن القيمة 1500 عايزين نظهر القيمة الخاصة بالخلية في رسالة : MsgBox Range("D3").Value الرسالة هتظهر وفيها القيمة 1500 ، طيب ممكن نضيف عليها نص .. أكيد ممكن ! ليه لا! MsgBox "القيمة الموجودة يا أستاذ حسام في الخلية هي " & Range("D3").Value نلاحظ هنا إننا استخدمنا المعامل Concatenate اللي هو شكله & ، ودا وظيفته إنه بيدمج النصوص .. طبعاً القيمة اللي موجودة في الخلية D3 حتى لو كانت قيمة رقمية ، هنا مع دالة الرسالة مش بتشوفها رقم ، لكن بتشوفها نص (هنبص بعيون الدالة الجميلة) طيب ممكن نظهر قيمة خلية تانية .. أكيد ممكن ! ليه لا نضع القيمة 2000 في الخلية E4 ونجرب : MsgBox Range("D3").Value & Range("E4").Value هنلاقي إن قيمة الخلية D3 والخلية E4 لازقين في بعض ، دا لأنك مسبتش مسافة بينهم .. طيب المسافة هنعملها إزاي ؟ هو سؤال بسيط بس اعذروني أكيد فيه ناس بتسأله :: هنترك مسافة وبس .. لا .. هنعمل مسافة بالمسطرة بس بشرط تكون المسافة بين أقواس تنصيص زي كدا : MsgBox Range("D3").Value & " " & Range("E4").Value هنا نفس الكلام ربطنا بالمعامل & ، وعشان تكون المسافة مناسبة ضربت على المسطرة 3 مرات (معلش أصلي مضايق ومحتاج أضرب حد ، فملقتش غير المسطرة .. بس كفاية عليها 3 ضربات ..) واحد هيقولي أنا جربت الكود بس أنا مش عاجبني شكلهم جنب بعض ، ممكن نخلي كل قيمة في سطر .. أكيد ممكن ! ليه لا! MsgBox Range("D3").Value & vbNewLine & Range("E4").Value كلمة vbNewLine عشان نقدر ننزل لسطر جديد (وقلت قبل كدا بس محدش بيتابع إن فيه كلمة تانية بتؤدي نفس الغرض اسمها ايه يا شاكر؟ مش بقولكم محدش مذاكر .! اسمها vbCrLf ) يلا زيادة الخير خيرين .. وأضاف الأخ مختار كلمة جديدة أيضاً تؤدي نفس الغرض ألا وهي Chr(10) ربنا يسترها علينا وعليكم دنيا وآخرة. نشوف السطر ده : MsgBox ("الحمد لله الذي بنعمته تتم الصالحات") ايه الجديد يا أستاذ عبد المجيد ؟ الأقواس .. ممكن نستغني عنها ؟ آه ممكن .. ليه لا! .. بس الأقواس دي هنستفيد منها في إنك تخلي جملة MsgBox يمكن وضعها كقيمة في متغير (نصبر شوية هييجي الكلام عليها) .. طيب ايه هي الإضافات اللي نقدر نضيفها (هي زي البهارات حاجة كدا تحلي الأكله .. تخليها أحلى) ... إحنا قلنا البارامتر الأول خاص بالنص ودا إجباري (بس ممكن نخدع المحرر) ، البارامتر الثاني خاص بالأزرار Buttons .. الأزرار دي زي OK و Cancel و Retry وهكذا.. نجرب السطر التالي : MsgBox "هل تحب حلقات افتح الباب؟", vbOKCancel نلاحظ بعد نص الرسالة Prompt عملنا فاصلة , ودي عشان نقول للمحرر إننا هنضيف أزرار Buttons .. أول ما تعمل الفاصلة هتلاقي زي ما اتعودت قايمة فيها القيم اللي ممكن تستخدمها .. طيب لو نفذنا السطر اللي فات هنلاقي إن زر OK أو زر Cancel لو ضغطت عليهم مش هيحصل حاجة غير إنه يقفل الرسالة .. (قلنا نصبر هييجي عليها الكلام يا مستر عبد السلام) نتعرف على الأزرار الموجودة والمتاحة عندنا : vbAbortRetryIgnore vbOKCancel vbOKOnly vbRetryCancel vbYesNo vbYesNoCancel ممكن نجرب القيم دي ... القصة كلها في البادئة vb ثم الأزرار اللي هنستخدمها.. ننتقل لجزئية أخرى : مع نفس البارامتر الخاص بالأزرار ممكن نضيف رموز (علامة تعجب - علامة استفهام - ..) والرموز عشان نضيفها نضع علامة + بعد الأزرار التي سيتم استخدامها .. بالمثال يتضح المقال : MsgBox "هل تحب حلقات افتح الباب؟", vbYesNo + vbQuestion ممكن نتعرف على الرموز : vbQuestion vbInformation vbCritical vbExclamation طيب ممكن نستغنى عن الأزرار ونستعمل الرموز فقط ؟ أو ممكن نستغنى عن الرموز ونستعمل الأزرار فقط؟ أكيد ممكن ! ليه لا! (النهاردة واخدين حريتكم ..مفيش تقيد) هسيبكم شوية تجربوا الرموز دي ، وتشوفوا كل رمز شكله ايه؟ - فاصل ونواصل - واحد بعد ما شاف الرسالة ، لاحظ إن فيها عنوان Microsoft Excel فسألني ممكن أغير العنوان ده ؟ رديت عليه وقلت له (طبعاً عارفين الإجابة) عنوان الرسالة هو دا البارامتر التالت .. ود اسمه Title (ونلاحظ إن البارامتر لما يكون اختياري بيوضع بين أقواس بهذا الشكل [ ] ) نجرب السطر التالي : MsgBox "هل تحب حلقات افتح الباب؟", , "منتدى الأحبة" ايه دا بقا إنت عامل فاصلتين ليه؟ يا سيدي ما أنا قلت لك إن البارامتر التاني الخاص بالأزرار والرموز دي اختياري ، بمعنى يمكن الاستغناء عنه ، بس عشان نعديه لازم فاصلة ، وبعد الفاصلة فاصلة تانية ، يقوم المحرر يفهم إنك استغنيت عن البارامتر التاني ، ويشتغل على البارامتر التالت .. اللي هو عنوان الرسالة.. نجرب ونشوف ! ننتقل لأهم نقطة في حلقة اليوم ألا وهي تعيين الرسالة كمتغير ، عشان ببساطة ننفذ كود معين لو المستخدم اختار زر وننفذ كود تاني لو اختار زر تاني (أكيد الكلام يتوه ..خلينا في التطبيق) Answer = MsgBox("هل تحب حلقات افتح الباب؟", vbYesNo + vbQuestion, "منتدى الأحبة") نخلي بالنا إننا هنا هنستخدم متغير باسم Answer (ممكن تسميه بالاسم اللي يعجبك) ، والمتغير ده هيكون له قيمة (الرسالة مجرد ستارة .. والقيمة مخفية .. والقيمة دي هنعرفها حالاً) لو حبينا ننفذ كود معين في حالة اختيار معين ، هنستخدم الجملة If الشرطية ، يعني ببساطة لو المتغير Answer قيمتة كذا اعمل كذا ، ولو قيمته كذا اعمل كذا .. Sub Query() Answer = MsgBox("هل تحب حلقات افتح الباب؟", vbYesNo + vbQuestion, "منتدى الأحبة") If Answer = vbYes Then MsgBox "كدا حبيبي وصاحبي وكفاءة" ElseIf Answer = vbNo Then MsgBox "زعلت منك ..روح ربنا يسامحك" End If End Sub أظن المثال واضح ، في حالة إذا كانت قيمة Answer تساوي vbYes ، هينفذ السطر التالي ويظهر رسالة بمحتوى معين ، ولو كانت القيمة vbNo هيظهر رسالة تانية .. واحد هيقولي هو كله رسايل رسايل مفيش شات .. طبعا الأسطر اللي هيتم تنفيذها مش شرط تكون رسالة ، دا مجرد مثال عشان تفهم كيفية استخدام المتغير .. لكن ممكن تنفذ مجموعة أسطر من الأكواد في حالة vbYes ، ومجموعة أسطر أخرى من الأكواد في حالة vbNo ... ركز وخلي بالك من الكود التالي : Sub Query() Answer = MsgBox("هل تحب حلقات افتح الباب؟", vbYesNo + vbQuestion, "منتدى الأحبة") If Answer = 6 Then MsgBox "كدا حبيبي وصاحبي وكفاءة" ElseIf Answer = 7 Then MsgBox "زعلت منك ..روح ربنا يسامحك" End If End Sub كلنا اللي عملناه شيلنا vbYes وحطينا رقم 6 ، وشيلنا vbNo وحطينا رقم 7 (ايه دا بقا ..طيب هنعرف منين اللي إنت بتقوله ده ..فيه جدول بقيمة كل زر من الأزرار .. يرجى عدم الحفظ) فيه حاجة مهمة نسيت أقول عليها : لو لاحظتو إن الرسائل كلها وعنوان الرسائل بتظهر ناحية اليسار ، عشان نخليها يمين (ربنا يجعلنا من أهل اليمين) نجرب الكود التالي : MsgBox "هل تحب حلقات افتح الباب؟", vbMsgBoxRight, "منتدى الأحبة" آخر جزئية هنتكلم فيها .. مش هنتكلم فيها (فيه ملف مرفق فيه توضيح لآخر جزئية .. أنا بس هشرح نقطة واحدة في الملف المرفق ، وإنتو إن شاء الله المولى هتفهموا الباقي) الأزرار والرموز اللي عدت علينا في الحلقة ، ممكن نستغنى عنها بقيم ..إزاي ؟ MsgBox "هل تحب حلقات افتح الباب؟", vbYesNoCancel ممكن السطر ده يكون بالشكل ده : MsgBox "هل تحب حلقات افتح الباب؟", 3 يعني القيمة 3 = vbYesNoCancel .. مثال تطبيقي : ------------ Sub Query() Dim Answer As String Answer = MsgBox("هل تريد الدخول لتطبيق الإكسيل لتطبيق الأكواد في حلقات افتح الباب؟", vbYesNoCancel) If Answer = vbYes Then MsgBox "تفضل بالدخول .. بيتك ومطرحك ، وإن شاء الله تستفيد" ThisWorkbook.Activate ElseIf Answer = vbNo Then MsgBox "أكيد مشغول عشان ناوي تقفل .. عموماً تصحبك السلامة وفي رعاية الله" ActiveWorkbook.Save Application.Quit End If End Sub وأخيراً أتمنى أن أكون قد وفقت في توصيل المعلومة لكم بشكل مبسط .. دمتم في رعاية الله .. MsgBox Values.rar

أخى الفاضل تفضل التعديل المطلوب، جرب الكود التالي وغير الدرجات كما تريد Private Sub cmd_mark1_Click() Dim mark As Integer If Me.TextBox1.Value <> "" Then mark = Me.TextBox1.Value Select Case mark Case 0 To 7 MsgBox ("ضعيف") Case 8 To 10 MsgBox ("متوسط") Case 11 To 12 MsgBox ("جيد") Case 13 To 14 MsgBox ("جيد جدا") Case 15 To 18 MsgBox ("ممتاز") Case Is > 18 MsgBox "الدرجة العظمي 18", vbOKOnly + vbInformation, "تنبيه" Me.TextBox1.Value = "" Me.TextBox1.SetFocus GoTo 1 Case Else MsgBox ("توبيخ") End Select Else MsgBox ("من فضلك أدخل العلامة أولاً") GoTo 1 End If 1 End Sub تحياتي

شكرا جزيلا لكم أساتذتى الاحباء على كلماتكم الجميلة والرائعة ... بارك الله فيكم وعليكم وكل عام وحضراتكم بخير

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

اخي الفاضل في خصائص الحقل الذي تريد تطبيق الشرط عليه امام قاعدة التحقق من الصحه ضع هذا الكود Is not null

هلا ايهاب جرب المرفق ترحيل من جدول لجدول.zip

استاذى الفاضل الكبير ياسر خليل احد عمالقة وكبار منتدى اوفسينا من اعماق قلبى ارسل لك اجمل الكلمات تقديراً وشكراً لكرمك وشرحك الجميل الوافى ارجو ان تتقبل شكرى وتقديرى ولا انسى بالطبع استاذى واخى الحبيب جمال عبد السميع والاستاذ الفاضل الجميل ابن مصر ibn_egypt لكم منى كل الحب والتقدير والدعاء بالستر والصحة والعافية وصلاح البال ( وليس الحال لانه وقتى )

2 _ كود ادخال ترحيل بيانات بطريقة رأسية مع اضافة كود ترتيب الصفوف تصاعدى و يصبح كود الادخال و الترحيل Sub AddText() Dim Lrow As Single With sheet1 Lrow = .Range("A" & Rows.Count).End(xlUp).Row + 1 .Range("B" & Lrow & ":M" & Lrow) = .Range("B2:M2").Value .Range("B2:M2").Value = "" sortg_Click End With End Sub مع اضافة كود ترتيب تصاعدى التالى: Sub sortg_Click() Range("B3:m1000").Sort Key1:=Range("b2"), Header:=xlNo Range("b2").Select End Sub ورقة تنفيذ الكود sheet1 نطاق سطر الادخال للبيانات (A2:M2) يمكن تعديله بناء على البيانات المطلوب ادخالها بعد الضغط على زرار الترحيل سيتم ترحيل سطر الادخال بطريقة رأسية يتم ازاحة و ترتيب الصفوف تصاعديا طبقا لمعلومية الرقم بالعمودC مرفق التطبيق العملى تحياتى و لا تنسونى من صالح الدعاء كود ادخال و ترحيل بيانات_بطريقة رأسية_مع الترتيب_تصاعدى_كود مينىadham.rar

شكرا أستاذ ياسر على التلميح وجارى العمل بهذه النصيحه فى المرات المقبله

تفضل الملف بتاعك المستخدم admin السرى 27102003 new.rar

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

اليك تصريح دخول ولكن اجمل تعلمته من أستاذى ضاحى غريب يصعب شرحه باختصار ادراج فورم dahy فيه نحدد كلمة سر الدخول ادراج مديول فى workbook تصريح دخول مختلف.rar

الاخ العزيز حسام عيسى سلمت يداك بكل خير اجدك دائما عون للجميع

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

بسم الله الرحمن الرحيم والصلاة والسلام على اشرف المرسلين سيدنا محمد صلى الله عليه وسلم لقد قدمت سابقا نموذج فاتوره على الاكسيل بدون فورم وبناء على طلب بعض الاخوه فى شرح كيفيه عمل النموذج وتلبية لرغباتهم نتناول طريقه عمل النموذج ونظرا لضيق الوقت ان شاء الله يتم تناول درس يوميا على الاقل حتى الانتهاء بإذن الله .......................................................................... الاخوه الافاضل نبدأ اليوم فى تناول الدرس الاول وهنا نود ان نشير الى ان الدرس الاول يحتوى على ثلاثه بنود سوف يتم تناولها كل على حده وبذلك يكون محتوى الدرس الاول كالأتى الدرس الاول اولا--تصميم الفاتوره ثانيا--انشاء شيت به الاكواد المساعده ثالثا--انشاء شيت لتجميع بيانات الفواتير المسجله -------------------------------------------------------- وقد تناولنا سابقا اولا--تصميم الفاتوره ثالثا--انشاء شيت لتجميع بيانات الفواتير المسجله الدرس الاول--( ت ) ثانيا--انشاء شيت به الاكواد المساعده الان نقوم بانشاء شيت جديد نسميه codes فى هذا الشيت سوف يتم عمل قائمه باسماء العملاء--وقائمه بالاصناف--وقائمه بالوحدات وقائمه بالاسعار--وذلك تسهيلا لسرعة احضار البيانات الان نقوم بكتابة اسماء رؤوس الاعمده على حسب ما يتسنى لنا والان نلقى نظره على شكل الشيت بعد ادخال بيانات رؤوس الاعمده 3-INVO-PHOT الان قم بتنفيذ الشكل الذى تراه فى الصوره لديك استعدادا للدرس القادم تقبلوا تحياتى

تسلم اﻻيادي شرح بسيط ورائع جدا جدا جدا جزاك الله الف خير

بارك الله فيك أيها الأخ العراقي وبارك في أهلك ومالك

بارك الله فيك أستاذ حسام شرح ممتاذ ربنا يجعله فى ميذان حسناتك

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

ما شاء الله منتدى رائع بمعنى الكلمة (طبعا باعضائه)

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

لا يوجد التراجع Ctrl+Z بعد تنفيذ الكود ...إنما التحايل كما في المثال الذي أرفقته لك وكما في مثال أخي سليم أيضاً

بارك الله فيكي أيتها الأخت الكريمة أشكرك على حسن المتابعة .. وأرجو الاستمرار والمواظبة مشكور على ملفات الـ PDF ... ولو فيه أي نقطة مش واضحة في الحلقات (وليس الدروس) السابقة يرجى التنبيه لها ، حتى نقوم بتوضيح النقاط التي قد تكون غامضة

أخي العزيز / ابن صحراء الليبو لو أرفقت ملفاً كان أفضل ولكن على سبيل المثال لو افترضنا أن تواريخ الميلاد موجودة في العمود (c) بس لابد أن يكون تنسيق الخلايا تاريخ ومدخلة باليوم والشهر والسنة كما أشرت في سؤالك استعمل هذه المعادلة للمواليد الذين يقع سنهم من 1956 إلى 1970 بحيث يدخل معهم أصحاب 1965 و1970 =SUMPRODUCT((YEAR(C3:C626)>=1965)*(YEAR(C3:C626)<=1970)) أما إذا أردت استثناء مواليد 1965 و 1970 احذف إشارة يساوي لتصبح المعادلة بهذا الشكل =SUMPRODUCT((YEAR(C3:C626)>1965)*(YEAR(C3:C626)<1970)) ونفس الطريقة طبقها لمواليد 1970 أو 1971 إلى 1975 فقط قم بتغير الأعوام =SUMPRODUCT((YEAR(C3:C626)>=1971)*(YEAR(C3:C626)<=1975)) إن شاء الله واضح الشرح

انسخي الكود أدناه في الصيغة البرمجية للنموذج Private Function Rem_days() Dim FCount As Long Dim tDate As Date Dim Count_Fridays As Long Dim LDOM As Date Count_Fridays = 0 tDate = Date LDOM = DateSerial(Year(Date), Month(Date) + 1, 0) If Weekday(Date, vbFriday) <> 1 Then tDate = tDate - Weekday(Date, vbSaturday) + 7 End If Do While tDate <= LDOM Count_Fridays = Count_Fridays + 1 tDate = tDate + 7 Loop Rem_days = LDOM - Date - Count_Fridays End Function ثم غيري معادلة النص في النموذج لتكون كما يلي =rem_days()

الشكر لله اخي احمد تفضل جرب المرفق معادلة الايام بعد التعديل: TRUNC((((($W8/360)-$P8)*12)-$O8)*30) حساب مدد.zip

جرب الان حساب المدة الفعلية.zip

اخى ياسر ارفق ملف واوضح فيه ماذا تريد

تم التعديل قليلاً على الملف لمزيد من الخيارات تحديد المكرر 1.rar

السلام عليكم ورحمة الله وبركاته استاذنا الكبير عبدالله باقشير اخى ياسر اسمحو لى بالمشاركه بكود يوضع فى حدث الورقه Private Sub Worksheet_SelectionChange(ByVal Target As Range) Range("A4") = ActiveSheet.Name End Sub كما يمكن استخدام الكود الاتى ايضا Private Sub Worksheet_Activate() Range("A4") = ActiveSheet.Name End Sub تقبلو تحياتى

أخى الفاضل جرب الشيت المرفق كنترول رجب 2013 منازل أولى ثانوى.rar

لدي ملف اكسل عادي وآخر ملف اكسل محفوظ بصيغة csv عملت نسخ ولصق ارتباط من الاول للثاني وتمام الشغل لكن عندما أغير في الملف الأول ثم افتح الثاني لايطلب التحديث ولايتم التحديث من زر تحديث الكل ( وهنا السؤال)كيف اجعل الملف الثاني يحدث البيانات تلقائيا بمجرد فتحه؟

السلام عليكم راجع هذان الموضوعان http://www.officena.net/ib/index.php?showtopic=39376 http://www.officena.net/ib/index.php?showtopic=34213