أبو قاسم

up

UP

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

البحث من خلال اى عدد من التكست 1بوكس.xlsm

اشكرك جدا على مبادرتك 

السلام عليكم ورحة الله وبركاتة 

محتاج طريقة استخراج النسبة المئوية  ...... ايد اكتب العدد الاول مثلا 200 والعدد الثاني 195 يعطيني النسبة المئوية 

وجزاكم الله خير 

البحث من خلال اى عدد من التكست بوكس.rar

2 دقائق مضت, سليم حاصبيا said:

جرب هذا الكود  (يمكنك اختيار عدد الصفوف من الكود/في المثال 10)

الباسورد " Salim" يمكنك تغييره ايضاً من الكود

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row <= 10 Then
       
        ActiveSheet.Protect Password:="Salim", _
        AllowInsertingRows:=False, AllowDeletingRows:=False
    Else
        ActiveSheet.Unprotect Password:="Salim"
    End If
End Sub

 

شكرا لك وجزاك الله خير 

السلام عليكم 

محتاج كود أو طريقة منع المستخدم من إدراج صف أو حذف صف 

ولكم كل الشكر والتقدير 

5 ساعات مضت, shreif mohamed said:

 

Private Sub worksheet_SelectionChange(ByVal Target As Excel.Range)

' حيث اسم الشيت المطلوب عدم تغيير اسمهMaster

If ActiveSheet.Name <> "Master" Then

ActiveSheet.Name = "Master"

End If

End Sub

[/CODE)

شكرا لك وجزاك الله الف خير

كود منع المستخدم من تغيير اسم الشيتات 

شكرا لكم وجزاكم الله  عنا الف خير 

عند الكتابة في عمود A2-01. يظهر لي 1-صفر 

ماهو الحل. ولو حتى بالأكواد  ..... ولكن عند اختيارها من قائمة  منسدلة تظهر بشكل صحيح 

 كود حفظ صفحة اكسل بصيغة pdf بشكل افقي 

للرفع

السلام عليكم ورحمة الله وبركاتة 

المطلوب استخراج متوسط ساعات العمل لكل موظف خلال فترة  لتقييم الموظف المجتهد 

طبعا بامكانكم التعديل على الفكرة 

Book1.rar

استخرجنا وقت الدخول بالمعادلة =IF(D2="دخول";TEXT(C2;"hh:mm")+0;"") التي في العمود E .......ثم استخرجنا الخروج بامعادلة =IF(D2="خروج";TEXT(C2;"hh:mm")+0;"") التي في العمود F ...... ثم استخراج الوقت الفعلي للعمل بالمعادلة =IFERROR(F3-E2;"")  التي في G

جرب هذة الفكرة يمكن تطبق معاك

المصنف1.rar

ربنا يبارك فيك ويزيدك علما ويجعل ماتقوم بة في ميزان حسناتك ........... كود ممتاز ولك كل الشكر والتقدير ورمضان كريم

الموجود: عند الكتابة في الخلية o2  يظهر التاريخ والوقت  في الخلية l2

المطلوب : عند مسح الكتابة من الخلية o2    يمسح التاريخ في الخلية l2

Book1.rar

رمضان كريم على الجميع  واشكركم جزيل الشكر والعرفان لاتسعني الكلمات التي اقولها ولكن نقول جزاكم الله عنا الف خير مع التحية 

مساء الخير هل من اجابة من الاخوة الاعزاء 

جمعة مباركة على الجميع ....... هل من حل ان وجد ..... وجزاكم الله خير

السلام عليكم ورحمة الله وبركاتة 

جعل الادخال في الحضور والانصراف عن طريق دبل كليك فقط ولا يمكن الكتابة اليدوي

Book1.rar

جزاك الله خير

Private Sub Workbook_Open()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)"
Sheets(1).Select
End Sub



Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",TRUE)"
Application.ScreenUpdating = True
End Sub

ضع هذة الاكواد في 
ThisWorkbook

جزاك الله الف خير ربنا يوفقك على ماتقدم من عمل لوجة الله