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

الاخوة الافاضل العزيزين على قلبى اقدم لكم شرح مبسط لداله VLOOKUP للمبتدئين هذا الشرح عملته لاحدى اعضاء المنتدى وحبيت اعمله مشاركه مستقله حتى يعم النفع مثلا عندنا جدول مقسم كالتالى اسم الطالب فى العمود A والجنسية بالعمود B وتاريخ الميلاد بالعمود c والجدول هذا بشيت اسمه الطلبه مثلا وحنا الان فى شيت اسمه الفصل مثلا فى الخلية A1 مكتوب اسم الطالب محمد احمد وانا عايز بالخلية B1 ابحث عن اسم الطالب ده بالجدول واجيب جنسيتة كدا تمام داله VLOOKUP هى دالة بحث تتكون من اربع اقسام كالتالى اول شئ نقف بالخلية b1 اللى هنعمل فيها المعادله ونكتب ) VLOOKUP= اولا الخلية اللى هندور عليها بالجدول وهو فى هذا المثال نحتاج الى البحث عن اسم الطالب صح اذن نقول ; VLOOKUP(A1= بس نقف هنا فى فاصله بعد A1 صح دى بتتكتب من شيفت+ حرف ك بالعربى على الكيبورد كدا تمام ثانيا حنا عايزين نبحث عن اسم الطالب ده فين فى اى جدول فى شيت الطلبه فى الجدول من A1:c5 طيب كدا حلو قوى لحد كدا نرجع بقى نكمل المعادله بتاعتنا ونقول ;A1:c5!الطلبه;VLOOKUP(A1= ونقف هنا طبعا ايه اللى انضاف اسم الشيت وهو الطلبه متبوع ! علامة التعجب هذه هتقولى ازاى نكتبها هقول شيفت + رقم 1 اللى فوق جنب حرف ذ بالكيبورد طيب كتبنا اسم الشيت وبعدها ! ثم الجدول بتاعنا وهو A1:C5 ثالثا القيمة اللى احنا عايزنها من الجدول هو احنا بنعمل المعادله دى ليه اصلا من علشان نجيب الجنسية للطالب اللى موجود بالخلية A1 من الجدول اللى بشيت اسمه الطلبه حلو طيب الجدول مقسم كالتالى اسم الطالب فى العمود A والجنسية بالعمود B وتاريخ الميلاد بالعمود c طيب احنا اتفقنا انى انا عايز اجيب الجنسية ( عمود الجنسية هنا كم رقمه من الجدول رقمه 2 برافو نرجع بقى نكمل المعادله ;2;A1:c5!الطلبه;VLOOKUP(A1= ايه الزياده هنا هو رقم 2 اللى هو رقم عمود الجنسية بالجدول صح رابعا كتابة 0 أو 1 ( الزيرو يعنى ابحث عن اسم الطالب مطابقه تامه يعنى لو الخلية A1 فىها محمد احمد يروح يدور بالجدول على الاسم ده بالملى ولو لقى اسم طالب محمد احمد على ملوش دعوه بيه لانه مش نفس الاسم صح فية اختلاف عنه وهو على &&& اما 1 فهو البحث عن اسم الطالب بالجدول فممكن يكون موجود محمد احمد على فيجيبة لانه بيبحث عن اى جزء مشابه فلافضل اختيار 0 ) نرجع بقى نكمل المعادله (0;2;A1:c5!الطلبه;VLOOKUP(A1= ايه اللى انضاف جديد هو 0 وقفلنا القوس لان المعادله كدا خلصت بقت باللون الاخضرمنورة كدا تمام يبقى مننساش انى فى اربع اقسام للداله ما بين كل قسم نحط ( ; ) وهى قلب اللغه انجلش وبعدين شيفت وحرف ك اتمنى اكون وفقت فى هذا الشرح المبسط ويعم النفع على الجميع

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

السلام عليكم ورحمة الله وبركاته كيف حالكم إخواني الكرام في المنتدى الغالي؟ لقيت نفسي نفسي (نفسي الأولى غير التانية ..) نفسي الأولى يعني أنا - وأعوذ بالله من كلمة أنا - ، ونفسي التانية يعني حاجة أتمنى أعملها .. المهم لقيت نفسي أعمل حاجة مختلفة .. بشكل مختلف .. بأسلوب مختلف يكون فيه عنصر التشويق والإثارة والبساطة مجتمعين في نفس الوقت. كتير مننا أول ما يسمع كلمة البرمجة والأكواد يتخض وكأن الموضوع مستحيل ...أبدا كل الحكاية إننا بنبدأ غلط مش بناخد الخطوات الصحيحة لتعلم البرمجة. لو عايز تتعلم البرمجة ونفسك بجد تبدأ تتمكن فيها خليك معايا ، هنقضيها رغي شوية وهزار شويتين ، وجد مش كتير ... ايه رأيكم؟ نبدأ على بركة الله .. أول حاجة بعد ما تنصب الأوفيس وتفتح الإكسيل تلاقي اللي انت عايزه مش موجود طيب نظهره إزاي ؟؟ ببساطة فيه زر أوفيس فوق شمال هتضغط عليه وتضغط 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 من لوحة المفاتيح بس بشرط يكون مؤشر الماوس واقف في الكود.. لما نشغل الكود دا اللي هيظهر لي وبكدا أكون وصلتكم وفتحت لكم الباب .. لو عايزين نكمل قولوا كمل مش عايزين .. يبقا كفاية لحد كدا ويا كود ما يقربش منك حد .. ونعمل بالمثل الفلاحي اللي بيقول : ابعد عن الكود وادعي عليه! والسلام عليكم سبحانك اللهم وبحمدك .. نشهد أن لا إله إلا أنت ..نستغفرك ونتوب إليك كان معكم على الهواء مباشرة أخوكم أبو البراء من ملعب أوفيسنا .. إلى اللقاء مع مباراة جديدة وأهداف جديدة وشيقة دمتم بود ====================================== ====================================== السلام عليكم نرجوا وضع ردود الشكر والاعجاب على الرابط ادناه هنا ====================================== ======================================

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

جرب أخي الملف التالي يمكن وضع الكود في حدث فتح المصنف Disable CTRL + P.rar

من المفترض أنه إذا وجد الماء بطل التيمم .. فالأستاذ الكبير عبد الله باقشير لا يمكن مضاهته بأي حال من الأحوال ولكن إثراء للموضوع تفضل أخي محمد Private Sub TextBox1_Change() Select Case Me.TextBox1.Value Case Is < 2 Me.TextBox1.BackColor = &H80FF80 Case 2 To 4 Me.TextBox1.BackColor = &H80FFFF Case Is > 4 Me.TextBox1.BackColor = &HFF End Select End Sub

جرب الملف التالي test501.rar

السلام عليكم جرب هذا Private Sub TextBox1_Change() On Error GoTo 1 Me.TextBox1.BackColor = Val(Me.TextBox1) 1 End Sub تحياتي

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

جميل أخي الحبيب أبو ذهب ولإثراء الموضوع هذا ملف فيه شرح وافي لمثل طلبك VBA DIR Function.rar

أخي العزيز / مصطفى أبو العينين وبعد إذن أستاذنا القدير سليم حاصبيا جرب ضع المعادلة التالية في الخلية (i19) =IF(OR(AND(C19<>$C$13;C19<>$C$14;C19<>$C$15;C19<>$C$16;E19<>$E$10);AND(OR(C19=$C$13;C19=$C$14;C19=$C$15;C19=$C$16);E19<>$E$10;G19>=350));G19*5%;G19*0%)

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

تم التعديل أخي على الكود Application.Visible = True Hide UserForm1.Hide Sheet2.PrintPreview Application.Visible = False UFormChang.Show

اخى الفاضل ( وعليكم السلام ورحمة الله وبركاته ) ضع هذا الكود في حدث فتح الملف Workbook_Open Private Sub Workbook_Open() Dim Interval As Integer Interval = DateTime.Date - Sheet1.Range("A1") If Interval >= 30 Then Sheet1.Range("B4:B8").EntireRow.Delete End If End Sub أولا ضع التاريخ الذي تريد بداية العد منه في الشيت في الخلية A1 أو اى خلية اخرى تختارها ولكن غير A1 في الكود الى الخلية التى تريدها هنعرف متغير باسم Interval تمام المتغير ده هو ناتج طرح تاريخ اليوم - التاريخ الموجود بالخلية A1 لو قيمة ال Interval دي اكبر من او تساوي الفترة اللى انت عاوزها بقي 30 او 60 يوم زي ما تحب نحدد المدي اللى انت عاوز تحذف صفوفه وانا هنا حاطط المدي اللى انت حددته في الملف B4:B8 وطبعا حطينا الكود في فتح الملف علشان تلقائي بمجرد الفتح لو انطبق الشرط يحذف مباشرة .. ارجو انى اكون افدتك وهذا العمل هو طلبك تحياتي

كل السبل تؤدي إلى روما .. بس يبدو يا ابن مصر محدش فاهم القصة دي غيري وغيرك تقبل تحياتي

اخى الفاضل طب ما تغير في الكود وخليه كده Private Sub Worksheet_Change(ByVal Target As Range) Dim myRange As Range Set myRange = Sheet1.Range("H6:H100") myRange.SpecialCells(xlCellTypeBlanks).Select End Sub تحياتي

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

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

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

وعليكم السلام ورحمة الله وبركاته هلا بيك Zika86 عندي بعض الاقتراحات من الاسهل الى الاصعب: 1- في الصورة 2 ابحث اذا كان يوجد خيار Extract to Excel 2- ابحث اذا كان هناك خيار Extract to CSV ... تستطيع استيراده الى الاكسل و العمل عليه. 3- اطلب من قسم ال IT ان يتم اضافة هذه الميزة (Extract to Excel) او ان يتم تصميم تقرير جديد...هذا يعتمد اذا كان تم تطوير هذا البرنامج من فريق الشركة او خارجها. 4- اما اذا كان لابد من استخراج البيانات من قاعدة البيانات...هنا انصح باستخدام برنامج الاكسس.. و ليس الاكسل(تستطيع بالاكسل عن طريق كود {VBA) ... الصعوبة ==== تحتاج لانشاء اتصال بقاعدة البيانات و هنا ستستخد عنوان ال IP و البورت 7777 و اسم المستخدم و كلمة المرور و اسم قاعدة البيانات. ستحتاج لربط LINK الاكسل بالقاعدة بعد نجاح الاتصال ستحتاج لمعرفة العلاقات بين الجداول لانشاء الاستعلام وبعدها يمكنك نسخ نتائج الاستعلام و لصقها بالاكسل. هذه صورة مبسطة و خطوط عريضة للحل الرابع.

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

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

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

تفضل كود نادر ضع فى حدث "عند النقر" للكمبوبوكس الكود التالى Private Sub tr_Click() Me.o.Value = Me.tr.ListIndex End Sub و أرى أن النقر على أسماء الصفحات أفضل

مشكور يا بن مصر لمزيد من الاثراء اليك هذا الحل الاخر استخراج اول واخر حركة 1.rar

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

اليك الحل كما تريد count uniques item & numeration 1.rar

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

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

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

السلام عليكم ورحمة الله وبركاته هذه محاوله بسيطه بعد اذن جميع الاخوه..... باستخدام كليك يمين للنسخ .. وكليك يمين للصق نسخ.rar

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

تفضل أخي الحبيب المرفق التالي قمت بإضافة عمود مساعد على يمين البيانات عشان الترقيم يتظبط خليت الأسماء على اليمين Count Unique.rar

أستاذي أبو البراء الف ألف مبروك الترقيه عن جداره تستحقها جزاك الله خيرا على كل ما تقدمه لنا من دروس ، مساعدات ،نصائح ،توجيهات ...إلخ إستفدت اليوم من درس المتغيرات. طبقته في كود التالي تهنئه بخصوص الترقية Sub تهنئة() Dim MyYasser As String MyYasser = "ألف ألف مبروك الترقية.أستاذي أبو البراء" MsgBox MyYasser End Sub

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

تفضل أخى كما توقعت الأولى جمع الصفر مع شرط الأسم =COUNT(IF(ISNUMBER(SEARCH("محمد",$C$1:$C$13)),IF($E$1:$E$14=0,$E$1:$E$14))) المعادلة معادلة صفيف أى لابد من الضغط على " CTRL+SHIFT+ENTER" لعد الأسماء بإستثناء الأرقام =COUNTIF($C$1:$C$13,"*"&"محمد"&"*") ويمكن وضع رقم حلية بدل الأسم ك " FI " ويتم تغيرالأسماء منها بدل كتابة الأسم فى المعادلة جمع الصفر فى العمود بدون أى شروط أخرى =SUMPRODUCT(--(E1:E14=0)*(E1:E14<>"")) تقبل تحياتى الجمع بالعديد من الشروط.rar

ان شاء الله يتم المحاوله تقبل تحياتى

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

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

السلام عليكم كل عام وانتم بخير الشكر واصل لجميع المشاركين.....حفظكم الله معادلة الاخ الفاضل محمد عبد الغني اوحت لي هذه المعادلة البسيطة =VALUE(TRIM(SUBSTITUTE(B2;CHAR(160);""))) ارجوا ان فيها الفائدة تحياتي

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