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

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

أخى الفاضل جرب هذا الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Rng As Range, LR As Integer LR = Cells(Rows.Count, 2).End(xlUp).Row Set Rng = Range(Cells(1, 1), Cells(LR, 1)) Rng.Formula = "=IF(NOT(ISBLANK(B1)),COUNTA(B$1:B1),"""")" End Sub

بفرض عدم بداية الترقيم من السطر الاول فان معادلة الاخ محى الدين تحتاج تعديل لتصبح على النحو التالى (IF(B3="","",ROW()-2 حيث ان رقم -2 يعنى رقم السطر السابق لبداية الرقيم بفرض ان هناك سطور مخفية فان معادلة الاخ المسلم العربى تحتاج الى تعديل الرقم 3 ليصبح 103 ( هذا التعديل وضعه الاستاذ سليم حاصبيا فى موضوع اخر)

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

كيف استطيع تحويل ملف اكسل يحتوي على عمود مجموعة كبيرة من ارقام الهاتف الى صيغة ملف يتعرف عليه الهاتف النقال مثل csv , vcf ولك جزيل الشكر

لاثراء الموضوع يمكن استعمال هذه المعادلة توضع في الخلية A2 اذا كانت البيانات تبدأ من B2 =IF(B2<>"",MAX($a$1:a1)+1,"")

تفضل جرب المرفق عدم ادخال بيانات مكررة.rar

جرب هذا الملف لا تحاول كتابة اسم اليوم اكسل يقوم بنفسه بهذا الامر كلمة السر salim basic made by ahmed musa.rar

برنامج مصغر قمت بتصميمه وتجميعه وتعديل بعض الاكواد التي استفدت منها من الاخوان في هذا المنتدى الجميل البرنامج عباره عن فورم لادخال بينات وفور للبحث عن هذه البيانات بالاسم وفورم اخر للبحث عنها برقم الجوال كذلك يقوم فورم الادخال بطباعه البيانات على نموذج طباعه بالامكان تغييره ووضعه في خلفيه الورقه print وتعديل اماكن text boxليتوافق مع النموذج المراد الطباعه عليه البرنامج متواضع وللاستخدام الشخصي واردت ان اشاركه مع اعضاء القروب والباحثين عن مثل هذه الافكار كما كنت ابحث قبل ان اتوصل للشكل النهائي للفكره التي اريدها وشكرا Reception.rar

تفضل وهو عمل حماية لورقة العمل yasser.rar

السلام عليكم ورحمة الله وبركاته نسأل الله أن يعينكم على فعل الخير ونشر العلم النافع لدي ملف به زرأمر وتكست بوكس مربوط بالخلية B1 فأود أن يقوم زر الأمر بمسح محتويات التكست بوكس إن كان به بيانات ويبقى مؤشر الكتابة فيه للكتابة من جديد المصنف1.rar

السلام عليكم بعد اذنكم طريقة أخرى ارجو أن تنال الإعجاب ترقيم تلقائى.rar

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

تفضل جرب وبلغني بالملاحظات عدم ادخال بيانات مكررة.rar

تفضل فكرة جميلة لعلها تفي بالغرض طبعا مطبق في المثال اذا كان الرقم اكبر من 100 او اقل من 500 يتغير للون الاحمر ويتم جمعه جمع الخلايا الملونة.rar

تفضل المصنف1.rar

تفضل تم تطبيق عدم التكرار على الاسم فقط الان كمثال ولاكمال الباقي استفسار فقط هل ترغب في عدم التكرار في حال تشابه 1 - الاسم فقط ماذا يحدث 2- رقم بطاقة السكن فقط ماذا يحدث 3- رقم التموينية فقط ماذا يحدث 4- اذا تشابه بندين من الثلاثة فقط ماذا يحدث 5- اذا تشابه الثلاثة كلهم ماذا يحدث عدم ادخال بيانات مكررة.rar

احفظ المرفق على صيغة mdb

هل تقصد هكذا ربط 2 كمبوبوكس.rar

جرب هذا الملف Okool salim.rar

فاهمين وموضوع مطلوب ومهم برافو

تك تحميل الملف يرجى التجربة Book166.rar

تفضل حل آخر لعله يفي بالغرض Book166.rar

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

جرب هذا الكود Sub terhil() For i = 2 To Sheets.Count Sheets("sheet1").Range("A1:L9").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets(i).Range("p1:p2"), _ CopyToRange:=Sheets(i).Range("a1"), Unique:=False Sheets(i).Columns.AutoFit Next End Sub

جميلة هذه الفكرة

جزاك الله خيرا أخى الفاضل

بارك الله فيك لك كل التقدير والاحترام

الاخ الفاضل أكرم لإنشاء مجلد باسم Test مثلا على البارتشن C قم بتطبيق هذا الكود يمكنك تغيير اسم المجلد أو المسار كما تحب Sub Test() If Len(Dir("C:\Test", vbDirectory)) = 0 Then MkDir "C:\Test" End If End Sub

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

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

بالنسبة لمعادلة الاحتساب تكون كالتالي : الحالة الاولى: السنوات من 2 الى 5 سنوات او اقل : مجموع الايام =عدد السنوات *15 /3 الاشهر : مجموع الايام =عدد الاشهر* 15 /12/3 الايام : مجموع الايام = عدد الايام * 15 / 30 / 12 / 3 بجمع النواتج ينتج س ايام ويتم احتسابها على اساس المرتب هذا بالنسبة للحالة الاولى عندما تكون مدة الخدمة اقل من خمس سنوات واكثر من سنتين ارجو المساعدة

بارك الله لك أخي عبد الله وأود أن أضيف بعض الخلفية النظرية التي ربما يحتاجها الأخ المشترك في الدورة ما هي vba ؟ هي لغة برمجة غير قائمة بذاتها (أي يتم تضمينها داخل أي تطبيق) ولا تستطيع بناء برنامج متكامل وحدها (الذي يقوم بهذا هي لغة vb فيجوال بيسك أو vb.net الإصدار الأحدث من vb ) متى نحتاج لاستخدامها؟ * عند الرغبة في اختزال خطوات كثيرة يجب تنفيذها فمثلا إذا أردنا إضافة نص لخلية وتنسيقه بأكثر من طريقة مثل لون الخط وحجم الخط والإطار وما إلى ذلك * وكذلك نحتاجها عند التكرار وهو تكرار تنفيذ مجموعة من الأوامر بصورة متتالية أو مشروطة * نحتاجها أيضا في التعامل مع المستخدم لجمع بيانات منه في صورة نموذج ومن ثم التعامل مع هذه البيانات وغيرها الكثير من الاستخدامات ما الفرق بين vba و vb ؟ عرفنا سابقاً فيجوال بيسك التطبيقات بأنها لغة برمجة تحتاج لتطبيق آخر يتم تضمينها داخله ولكنها بها كل مميزات الفيجوال بيسك وكل الكائنات التي تستخدم داخل الفيجوال بيسك يمكن استخدامها في vba غير أنها ينقصها وهذا ما تزيد به لغة vb عنها وهو القدرة على بناء برامج تنفيذية قائمة بذاتها وتتفضل vba عن vb بأن لها من القدرة على التعامل مع التطبيق المضمنة داخله بصورة أكثر سهولة من vb فمثلا للتعامل مع المصنف النشط نستعمل الكائن activeworkbook بينما إذا أردنا ذلك من خلال vb نحتاج لكثير من الأكواد ما علاقة vba بالإصدار الأحدث من vb وهو vb.net ؟ بنفس الطريقة يمكن للـ vba استعمال كل مميزات vb.net بشرط وجود ملفات تشغيل vb.net على جهاز المستخدم ما الماكرو؟ الماكرو عبارة عن مجموعة من السطور يبدأ بكلمة sub ثم اسم الماكرو وتنتهي بكلمة end sub وبينهما جميع الأكواد التي يتم تسجيلها أو كتابتها ما أفضل الطرق للتعامل مع الماكرو؟ * يوجد طريقة تسجيل الماكرو وهي الأسهل والتي ينصح بها في البداية * ويوجد طريقة كتابة الأكواد مباشرة بدون الحاجة إلى استعمال مسجل الماكرو وهي للمستوى المتقدم *** بينما الطريقة الفاعلة وهي التي يستخدمها معظم المبرمجين هي (كما علمنا ديننا : خير الأمور الوسط) الجمع بين الطريقتين بمعنى استعمال الماكرو ثم تعديل الكود سواء بإضافة سطور أو حذف سطور أو تعديلها ويجدر الإشارة هنا إلى أهمية التخطيط المسبق لعملية تسجيل الماكرو فيجب أن تكون محددا لكل ما تريد تنفيذه بالماكرو وإلا سيتم كتابة خطوات أنت لست في حاجة إليها وإنما تم تنفيذها أثناء تخطيطك أو ترتيبك لما تريد أن تقوم به وقديما علمونا : التخطيط الجيد سبيل النجاح ..... حتى وإن أخذ وقتا طويلاً فالوقت الذي يستهلك في التخطيط والإعداد لا يتساوى من الوقت المستهلك لتعديل الأخطاء الناتجة عن عدم التخطيط بل ربما يتم إعادة تنفيذ ما لم يتم التخطيط له أكثر من مرة حتى نصل للصواب وأخيرا أقول الحمد لله الذي هدانا لهذا وما كنا لنهتدي لولا أن هدانا الله

اقدم لكم كود فيجوال بيسك لكيفية إرسال بريد و ..... انظر الملف دعواتكم SendMail_Final.rar