حامد يونس

اللاخ ابو نصار اعتقد الاخ السائل كان يسأل عن ترجمة الاسماء وليس النصوص فهل هناك طريقة معينة لعمل ذلك من خلال كود وشكرا

الاستاذ دغيدي ما المشكلة اذن

استاذ يوسف جرب هذا الكود و ابلغني باالنتيجة Sub test() Dim s As String With GetObject("winmgmts:\\.\root\CIMV2") For Each itm In .ExecQuery("SELECT * FROM Win32_DiskDrive", , 48) s = s & "SerialNumber: " & itm.SerialNumber & vbCrLf s = s & "Model: " & itm.Model Next itm End With MsgBox s End Sub

السلام عليكم جرب هذا اللنك www.zamzar.com

السلام عليكم =SUM(IF(FREQUENCY(IF(LEN(B3:B12)>0,MATCH(B3:B12,B3:B12,0),""), IF(LEN(B3:B12)>0,MATCH(B3:B12,B3:B12,0),""))>0,1)) وهذه معادلة اخرى =SUMPRODUCT((names<>"")/COUNTIF(names,names&""))

الاستاذ دغيدي الاولى تجمع الظاهر من التصفية الاستاذ بن علية حاجي فعلا لقد اصبت

السلام عليكم استاذنا العزيز طارق ما رأيك بهذه =Subtotal(109,A1:A5)

وأجبته عن الويندوز وهو يسأل عن الإكسل وأجيبه أنا بالنيابة أن هذه الدالة NETWORKDAYS.INTL ليست موجودة قبل إكسل 2010 ، حتي أنها ليست ضمن 2007 وهنا بالرابط التالي ستجد شرح لها http://office.micros...gin=HA010342655 الاستاذ العزيز طارق محمود انا سألته عن نسخة الاكسل التي يستخدمها . لان الدالة الاولى لاتعمل الا مع الاصدار 2010 واما الثانية فهي تعمل مع جميع النسخ وشكرا

جرب هذه المعادلة ضع ايام العطل من غير الجمعة و السبت في ( G2) ضع التاريخ الاول في (A2) ضع التاريخ الثاني في ( B2) =SUMPRODUCT(--(WEEKDAY(ROW(INDIRECT(A2&":"&B2)))<6),--(ISERROR(MATCH(ROW(INDIRECT(A2&":"&B2)),G$2:G$10,0))))

ألاستاذ عبدالله نبقى تلاميذ صغار امامك

مشكور اخى الكريم و لكن قد حاولت التنفيذ و اعطانى خطا يشير على التالى A2,B2,7,H$2 مشكور اخى الكريم و لكن قد حاولت التنفيذ و اعطانى خطا يشير على التالى A2,B2,7,H$2 أخي العزيز اذا امكن ان تعلمني اي نسخة من الاكسل لديك

الاستاذ رجب ما رأيك بهذا التعديل Private Sub CommandButton1_Click() Dim cnt As Integer cnt = Sheets.Count For i = 1 To cnt If Sheets(i).Name = TextBox1.Value Then MsgBox "åÐÇ ÇáÇÓã ãæÌæÏ ãÓÈÞÇ" Exit Sub End If Next Sheets.Add After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Select Sheets(Sheets.Count).Name = TextBox1.Text End Sub

الاستاذ رجب جاويش لمسات محترفة من شخص محترف

السلام عليكم وهذا حل اخر , اضافة للحل في المشاركة رقم2 Private Sub CommandButton1_Click() Sheets.Add After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Select Sheets(Sheets.Count).Name = TextBox1.Text End Sub

اخي العزيز . هل تستحدم المعادلة اسبوعيا او شهريا فأذا كان اسبوعيا فما هي المشكلة . واذا كان شهريا فأن عدد ايام الجمعة والسبت سوف يكون 8 ايام واذا كان هناك يوم اجازة في اخر اسبوع سيكون9 ايام لأادري انا هكذا فهمت سؤالك

اخي العزيز . عدد الايام الغير محسوبة غير ايام الجمعة والسبت هو بتغير الرقم 1 بأخر المعادلة . مثلا اذا كان هناك يومان عطلة يمكنك تغير الرقم (1) الى (2) واذا كان هناك (3) ايام عطلة ايضا يمكنك تغير الرقم الى (3) واذا لم يكن اي يوم عطلة ماعدا الجمعة والسبت يمكنك مسح الرقم (-1)

جرب هذه المعادلة =SUMPRODUCT(--(WEEKDAY(ROW(INDIRECT(A1&":"&B1)),2)<6))-1

السلام عليكم الرجاء من الاساتذة الكرام المساعدة في وضع الاكواد لهذه المشروع الموجود في المرفق اريد عند كتابة الاسم داخل الفورم تظهر جميع البيانات وشكرا جزيلا project 1.zip

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

الاستاذ العزيز أحمد حمور ابو عبدالله تحية طيبة يبدو ان فهمي محدود لذا استميحك عذرا في بعض الاستفسارات 1- عندما اقوم في البحث هناك حقل لايتم ظهور نتيجة البحث فيه وهو حقل السهاده الدراسية 2- لقد حاولت ان يكون البحث في ( A ) و (B ) لكن لم انجح فكيف يكون ذلك بعد اذنك 3- اشكرك جزيل الشكر لسعة صدرك وتفاعلك مع اعضاء النتدى 4- الرجاء التفضل بالاطلاع على الملف المرفق . وابداء ملاحظاتك القيمة http://www.up-00.com/dld3nH17628.rar.html

الاستاذ العزيز ابو عبدالله بعد الشكر والتحية ارفق الى حضرتك هذا المرفق بعد التعديل واتمنى سماع ملاحظاتك القيمة . كما اطمع انا ومن على شاكلتي في معرفة كيفية الخوض في عالم الاكواد . واشكرك جزيل الشكر وجميع الاساتذة القائمين على هذا المنتدى والصرح العلمي الكبير لكن هناك مشكلة في رفع الملف من هنا لذا سوف تجده على هذا اللنك http://www.up-00.com...645035.rar.html

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

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

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

شكرا جزيلا الى الاساتذة الكرام الاستاذ يحياوي و الاستاذ ابو احمد على هذا الشرح الرائع