طارق محمود

أين هي الخلية التي تغيرها وتغير تاريخ في الخلية تبعا للشهر الحالي

السلام عليكم اخي الكريم عندك حق نسيت تثبيت مجال الجمع تفضل المعادلة المضبوطة =SUMIF($A$2:$A$7,A12,$D$2:$D$7)

السلام عليكم أخي العزيز ضع في الخلية C12 المعادلة التالية ثم انسخها لباقي الخلايا =SUMIF($A$1:$A$7,A12,D2:D7)

نسيت ان اذكر لك أن الإجراءات المطلوبة في المثال السابق أنا فرضتها أنها مجرد كلمة السر وهي 123

السلام عليكم أخي العزيز ضع الكود التالي في حدث الورقة Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column > 1 Or Target.Row < 2 Or Target.Row > 10 Then Exit Sub [ad1] = Target.Value If [ad1] <> "" Then [b2].Select End Sub إذا كانت الخلية (إحدي الخلايا الصفراء) التي تنوي ملئها فارغة فسيقبل ولن يفعل شيئا وإلا إذا كانت ملأي فسينتقل بمجرد الإشارة إليها إلي الخلية B2 تفضل المرفق أيضا test2.rar

السلام عليكم أنظر المرفق قد يكون هو ماتريد تغير تاريخ الخلية تبعا للشهر .rar

السلام عليكم أخي طاهر ستجد عندك بداية من الخلية M3 العبارة التالية إختر ماتريد ي ، خ ، ز مثلا فإذا إعتبرت الخلية L2 كمرجع لأي من إختياراتك ( ي ، خ ، ز ) فيكون الخيار الأول (ي) ، يبعد عن الخلية L2 بمقدار 1صف للأسفل و 2 عمود يسار والخيار الثاني (خ) ، يبعد عن الخلية L2 بمقدار 1صف للأسفل و 4 عمود يسار والخيار الثالث (ز) ، يبعد عن الخلية L2 بمقدار 1صف للأسفل و 6 عمود يسار وكما تلاحظ بسبب وجود خلية بها فاصلة بين الخيارات فالخطوة أفقيا كل خليتين الرقم 1 في سؤالك يعني أن مكان الخيارات يبعد 1 صف عن الخلية المرجع الرمز i يرمز لعداد لعدد الخيارات المتاحة فإذا كان عندك 5 خيارات مثلا فالسطر For i = 1 To 3 يتغير إلي For i = 1 To 5 علي أن تضع الخيارات بنفس النسق

السلام عليكم أخي طاهر الأفضل إرفاق مثال

السلام عليكم أختي الفاضلة عدلي السطر الخامس من الآخر في كود Private Sub CommandButton1_Click() الخاص بالفورم Add2 من Sheets("MaterialIndex").Cells(yy, "K") = TextBox6.Value 'Qnty إلي Sheets("MaterialIndex").Cells(yy, "K") = Sheets("MaterialIndex").Cells(yy, "K") + TextBox6.Value 'Qnty لتصبح نهاية الكود كالتالي Else Sheets("MaterialIndex").Cells(yy, "K") = Sheets("MaterialIndex").Cells(yy, "K") + TextBox6.Value 'Qnty End If MsgBox "ÊãÊ ÅÖÇÝÉ ÇáÈíÇä ÃíÖÇ áæÑÞÉ" & Chr(10) & " MaterialIndex", vbInformation, "ÊãÊ ÇáÅÖÇÝÉ" End If Next yy End Sub

السلام عليكم أخي العزيز لايوجد داعي للأكواد ، تستطيع إلغاؤها الشغل كله معادلات وتسمية نطاقات أنظر الفيديو والملف المرفقين Copy Bataqa.rar بطاقة مدرسية2.rar

السلام عليكم أخي فراس تفضل المرفق الترحيل fras2.rar

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

السلام عليكم أخي الحبيب برجاء زيارة الرابط http://www.officena.net/ib/index.php?showtopic=16598&st=0&p=73383&hl=vlookup&fromsearch=1&#entry73383 وإذا عندك اي أسئلة فلاتتردد فكلنا معك

إخواني الأعزاء والآن نتعرض لدالة Vlookup وتستخدم هذه الدالة ......الرابط http://www.officena.net/ib/index.php?showtopic=16598&st=0&p=73383&hl=vlookup&fromsearch=1&#entry73383 تمنياتي بالتوفيق والسداد

السلام عليكم أستاذنا الفاضل وعالمنا الجليل / خبور خير لعلك وعندك الحق طبعا ، مازلت مشغولا بأحداث اليمن اللهم فرج هم اهلنا باليمن وليبيا وسوريا ومصر وسائر بلاد المسلمين وجنبنا اللهم الفتن ما ظهر منها وما بطن أخي الحبيب لأن الموضوع هام ، فسأكمل ماتيسر وإن شاء الله يكون عند حسن ظنك إخواني الأعزاء سنتعرض اليوم لدالة Fixed وتستخدم هذه الدالة ...... مارأيكم في الذهاب إلي هذا الرابط http://www.officena....showtopic=28228 تمنياتي بالتوفيق والسداد

السلام عليكم أخي / ابواحمد (ولد المجرب) جزاك الله خيرا أختي / نادية للأسف ركبت أوفيس جديد وليس عندي calender والحمد لله قد حلها لنا أخونا / ابواحمد بالنسبة لجزئية الترحيل المتراكب ، فهذا ماشككت به أولا وطلبت منك المراجعة لذلك مرفق الملف الأخير لأخي / ابواحمد المضاف إليه calender وقد اضفت أنا إليه تعديل بكود Private Sub CommandButton1_Click() الخاص بالفورم Add2 تفضلي المرفق MRS3_Weld.rar

السلام عليكم سهلة ان شاء الله أخي الكريم لكن إرفق أي مثال ولو لخمس طلاب فقط ليتسني لغير المدرسين مساعدتك

السلام عليكم أخي الكريم لم لا تستفيد من دالة VLOOKUP ولاداعي للفورم وخلافه أنظر الموضوع http://www.officena.net/ib/index.php?showtopic=36629

السلام عليكم أخي العزيز استخدم دالة VLOOKUP أو انظر المرفق بيانات الاتصالات.rar

السلام عليكم أخي الحبيب / جمال دغيدي جزاك الله خيرا وجعلنا عند حسن ظنكم أخي الحبيب / بيجاتو جزاك الله خيرا بالنسبة للسؤال أضف معامل آخر للصيغة في الخلية E10 لتصبح =IF(D10>=20,0.15*D10+0.05*(D10-10),IF(D10>=10,0.12*D10+0.03*(D10-7),IF(D10>=7,0.1*D10+0.02*(D10-5),IF(D10>=5,0.1*D10,0))))*B10 ثم انسخها للباقي

السلام عليكم بعد اذن أخي / جمال تفضل المرفق أخي الكريم المصنفTareq.rar

السلام عليكم بعد اذن أخي واستاذي الحسامي شرحت الفكرة في هذا الموضوع http://www.officena.net/ib/index.php?showtopic=36495&pid=194113&st=0&#entry194113

السلام عليكم أخي الكريم صياغتك للمعادلة غير سليمة في حالة وجود شرط مثل OR أو AND فإنك لابد أن تضع مكوناته بين قوسين ، راجع هذه المعادلة مع اعتبار الفاصلة او الفاصلة المنقوطة حسب جهازك =IF(OR(J23<L23,J23>L22),"ttt",IF(OR(J23>L25,J23<L24),"mmm",IF(OR(J23>L27,J23<L26),"yyy"))) أو =IF(OR(J23<L23;J23>L22);"ttt";IF(OR(J23>L25;J23<L24);"mmm";IF(OR(J23>L27;J23<L26);"yyy")))

السلام عليكم تفضل أخي الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub Application.EnableEvents = False If Target.Value = "" Then x = [A10000].End(xlUp).Row For Each ce In Range("A1:A" & x) ce.Value = ce.Value - 1 If ce.Value = 0 Then ce.Value = "" Next ce End If If Target.Column > 1 Then With Cells(Target.Row, 1) If .Value = "" Then .Value = Format(Application.WorksheetFunction.Max(Columns(1)) + 1) End If End With End If Application.EnableEvents = True End Sub

السلام عليكم أخي الكريم / messboub