حامد يونس

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

فهل هناك طريقة معينة لعمل ذلك من خلال كود

وشكرا

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

استاذ يوسف

جرب هذا الكود و ابلغني باالنتيجة

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)

السلام عليكم

أخي العزيز / أحمد البحيري

بعد إذنك ، تصليح،

سأل أخونا

thair younus

،

أخي العزيز

اذا امكن ان تعلمني اي نسخة من الاكسل لديك

وأجبته عن الويندوز وهو يسأل عن الإكسل

وأجيبه أنا بالنيابة أن هذه الدالة

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 )

وضع المعادلة في الخلية ( C2 )

واذا كان هناك يوم اجازه من غير الجمعة و السبت ضعه في الخلية( H2)

=NETWORKDAYS.INTL(A2,B2,7,H$2:H$10)

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

السلام عليكم تعدد الحلول تثري الموضوع , وتضيف عدة خيارات للمستخدم اخي العزيز ضع التاريخ الاول في الخلية (A2 ) وضع التاريخ الثاني في الخلية ( B2 ) وضع المعادلة في الخلية ( C2 ) واذا كان هناك يوم اجازه من غير الجمعة و السبت ضعه في الخلية( H2)

=NETWORKDAYS.INTL(A2,B2,7,H$2:H$10)

مشكور اخى الكريم و لكن قد حاولت التنفيذ و اعطانى خطا يشير على التالى

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

بعد أذن الأخ الفاضل / thair younus

هذا تعديل بسيط على الكود لمنع تكرار أسماء الصفحات

وأيضا لا يسمح بترك الاسم فارغا

Private Sub CommandButton1_Click()

Dim sh As Worksheet

If TextBox1.Text = "" Then MsgBox "ÇÓã ÇáÔíÊ áÇ íäÈÛì Ãä íßæä ÝÇÑÛÇ": Exit Sub

For Each sh In ThisWorkbook.Worksheets

If sh.Name = TextBox1.Text Then MsgBox "åÐÇ ÇáÇÓã ãæÌæÏ ãä ÞÈá", vbOKOnly, "ÇÓã ÔíÊ ãßÑÑ": Exit Sub

Next

  Sheets.Add After:=Sheets(Sheets.Count)

		Sheets(Sheets.Count).Select

		Sheets(Sheets.Count).Name = TextBox1.Text

		TextBox1.Text = ""

		Me.Hide

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

مشكور اخى بس هتظهر عندى مشكلة و هى كالتالى

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

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

اخي العزيز . هل تستحدم المعادلة اسبوعيا او شهريا

فأذا كان اسبوعيا فما هي المشكلة . واذا كان شهريا

فأن عدد ايام الجمعة والسبت سوف يكون 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

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

وهذا المرفق يوضح اكثر

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