أحمد يوسف

أحسنت استاذ عبد الفتاح فالملف يعمل بكل كفاءة وشوف بنفسك مجاهد2013 وهذه صورة بعد فتح الملف للتأكيد وبكده يجب غلق المشاركة

1402041816_-Copie.rar

Zakariadz Bms من فضلك تجنباُ لإهدار الوقت أتمنى وأرجو منكم سرعة الرد دائماً ولا تتأخر ,فهل يعقل ان أقوم بالرد عليك يوم الإثنين وترد عليا  يوم الخميس ؟!!! لو ممكن تقوم بالنظر الى الملف وان لم يكن هذا هو المطلوب , فعليك بتوضيح المطلوب اكثر من ذلك مع وضع النتائج المطلوبة يدوياً وشكرا .. وأرجو سرعة الرد حتى يتم غلق المشاركة
حساب الاجر الوحيد أوفيسنا1.xlsx

انتبه من فضلك فقد تكررت هذه المشكلة كثيرا وتم تناولها كثير جدا بالمنتدى ... فكان عليك استخدام خاصية البحث بالمنتدى تجنباً لإهدار وقت الأساتذة :
مشكلة في اللغة العربية

طالما انك لم تقم برفع ملف ... فكان عليك استخدام خاصية البحث بالمنتدى -تفضل
هل يمكن تفعيل عجلة الماوس داخل الفريم
وهذا كود أخر يمكنك استخدامه
أكواد اليوزرفورم
Option Explicit Private Sub UserForm_Activate() WheelHook Me 'For scrolling support End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) WheelUnHook 'For scrolling support End Sub Private Sub UserForm_Deactivate() WheelUnHook 'For scrolling support End Sub Public Sub MouseWheel(ByVal Rotation As Long) If Rotation > 0 Then 'Scroll up If ListBox1.TopIndex > 0 Then If ListBox1.TopIndex > 3 Then ListBox1.TopIndex = ListBox1.TopIndex - 3 Else ListBox1.TopIndex = 0 End If End If Else 'Scroll down ListBox1.TopIndex = ListBox1.TopIndex + 3 End If End Sub ووضع هذا الكود فى مديول عادى
'https://www.mrexcel.com/board/threads/listbox-mouse-scroll.459781/ Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _ (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function CallWindowProc Lib "user32.dll" Alias "CallWindowProcA" ( _ ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, _ ByVal lParam As Long) As Long Private Const GWL_WNDPROC = -4 Private Const WM_MOUSEWHEEL = &H20A Dim LocalHwnd As Long Dim LocalPrevWndProc As Long Dim myForm As UserForm Private Function WindowProc(ByVal Lwnd As Long, ByVal Lmsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long 'To handle mouse events Dim MouseKeys As Long Dim Rotation As Long If Lmsg = WM_MOUSEWHEEL Then MouseKeys = wParam And 65535 Rotation = wParam / 65536 'My Form s MouseWheel function UserForm1.MouseWheel Rotation End If WindowProc = CallWindowProc(LocalPrevWndProc, Lwnd, Lmsg, wParam, lParam) End Function  

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

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

وعليكم السلام ... ارفع من فضلك ملف موضح به ما تريد !!!!

تفضل كان عليك استخدام خاصية البحث بالمنتدى تجنباً  لإهدار الوقت خصوصاً ان طلبك تكرر كثير جداً بالمنتدى
أو بكل بساطة يمكنك استخدام هذه المعادلة لتلبية طلبك وحله
=DATE(IF(LEFT(A3,1)*1=3,20,19)&MID(A3,2,2),MID(A3,4,2),MID(A3,6,2)) (مميز ) دالة استخراج تاريخ الميلاد او النوع او المحافظة من الرقم القومي
Text1.xlsm

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

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

وعليكم السلام - تفضل
 
 

تفضل لك ما طلبت تم وضع كود الأستاذ ابراهيم داخل الملف ... وعمل دالة معرفة لتحويل التاريخ الهجرى الى ميلادى بعمود اخر فليس هناك طريقة أو كود أخر لتحويل التاريخ على نفس العمود , أتمنى ان ينال إعجابك
Private Function dateGregorian(sDate As String) As String Dim vVal As Variant Dim dtHijiri As Date VBA.Calendar = vbCalHijri If sDate <> vbNullString Then On Error GoTo XIT dtHijiri = DateValue(sDate) + 1 VBA.Calendar = vbCalGreg dateGregorian = dtHijiri End If Exit Function XIT: dateGregorian = vbNullString End Function export 1.xlsm

بسيطة -تفضل وبكده تم تلبية كل طلباتك ويجب غلق المشاركة
NEW2.xlsm

وعليكم السلام-تفضل ويبدو المشكلة لديك انت فالملف يعمل معى بكل كفاءة عليك بحل المشكلة بنفسك
مثال فقدان التنسيق1.xlsx

وعليكم السلام -أخى الكريم لا يمكن ان تعمل معادلة Date مع التاريخ الهجرى
بارك الله فيك

تفضل اخى الكريم ... وبما انك لم تقم برفع ملف للمطلوب ... فيمكنك تحميل الملف المطلوب أسفل هذا الفيديو وبارك الله فيك
تصميم شيت حضور الموظفين وضبط التاريخ وايام الشهر اتوماتيك فى الاكسل
وهذا فيديو أخر مهم لطلبك
برنامج تسجيل حضور / غياب الموظف مع تصدير بيانات كل شهر الى ملف جديد فى الاكسل
أين الضغط على الإعــــــــجــــــاب لكل هذه الإجابات ؟!!!!!!!💙

تفضل - تم التعديل
البرنامج الجديد 2021.xlsm

وعليكم السلام- وبما انك لم ترفع ملف  فإليك الكود أيضاً بدون ملف
 
Private Sub CommandButton1_Click() Calculate End Sub  

عذراً استاذى الكريم بن علية - ولكن أعتقد ان صاحب المشاركة يريد جلب أسماء الطلاب لكل مادة عند اختيار اسم المادة من القائمة المنسدلة الموجودة بالخلية K10 ويتم جلب أسماء الطلاب ابتداءاً من الخلية K11 الى الأسفل وتم الإستعانة بمعادلة حضرتك بعد تطويعها لهذا الأمر
0001.xlsx

هذه ليست مشكلة يمكنك الضغط على ok وخلاص أو ضبط اعدادات الماكرو للملف كما بالصورة
 

تفضل المعادلة موجودة فى العمود AL
وهذا أيضا برنامج جاهز لحساب الضريبة
الية الحل مطبقة يمكنك الإطلاع عليها طبقاً للمعطيات الموجودة بصفحة Data
وهذا أيضاً فيديو الشرح لذلك
معادلة ضريبة الرواتب 2020 لمصر
Salary Calculator Pro.rar
تجريبى1.xls

تفضل هذا الفيديو به طلبك ... للأسناذة ساجدة العزاوى لها منا كل المحبة والإحترام
أو يمكنك التعديل على كودك ليصبح هكذا
Private Sub Workbook_Open() With Sheet1 If Date <= DateValue("3/10/2020") Or .Range("xfd1").Value <= DateValue("3/10/2020") Then Exit Sub MsgBox "This workbook has expired.", 48, "Goodbye." With ThisWorkbook .Save .ChangeFileAccess Mode:=xlReadOnly Kill .FullName .Close False End With End With End Sub  
 

وعليكم السلام-كان عليك رفع الملف واما عليك تنفيذ الخطوات الموجودة بالصور
 
 

على الرغم انى لا ارى اى جدوى او فائدة من ذلك , فحجم الخط بالقائمة المنسدلة الموجودة بملفك طبيعى ويرى بالعين المجردة فلا داعى لكل ذلك .... الا انه يمكنك استخدام هذا الكود بحدث الورقة
واليك الملف مرة أخرى
Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo xErr If Target.Validation.Type > -1 Then ActiveWindow.Zoom = 140 Exit Sub End If xErr: ActiveWindow.Zoom = 100 End Sub data Validation.xlsm

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