حامد يونس

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

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

استاذ يوسف جرب هذا الكود و ابلغني باالنتيجة 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 ايام لأادري انا هكذا فهمت سؤالك