Ali Mohamed Ali

وعليكم السلام كان عليك استخدام خاصية البحث فى المنتدى فهذا الموضوع تناول كثيرا جدا هنا وهذ برنامج بالإكسيل للعلامة القدير واستاذنا الجليل عبدالله باقشير له منا كل المحبة والإحترام وهذا ايضا رابط داخل المنتدى لجدول الحصص بالأكسيس https://www.officena.net/ib/topic/78310-مساعدة-فى-عمل-برنامج-جدول-حصص-المدارس/?tab=comments#comment-503216 بارك الله فيك برنامج الجدول المدرسي الاصدار الثاني4.xls

تفضل كيفية تغير موضع الفورم ليكون بمنتصف الشاشة.xlsm

تفضل بعد اذن استاذى الكبير ابراهيم له منا كل المحبة والإحترام Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 3 Or Target.Row < 7 Then Exit Sub Dim C As Range For Each C In Range("C7:C" & Range("C" & Rows.Count).End(xlUp).Row) If C.Value = "سدد" Or C.Value = "انهى" Or C.Value = "خالص" Then C.Offset(0, 1).Resize(1, 12).Value = "0" C.Offset(0, 13).Resize(1, 3).Value = "لا" End If Next End Sub

تفضل بمشاهدة هذه الفيديوهات ستفيدك https://www.youtube.com/watch?v=VNkf2R8zG8E https://www.youtube.com/watch?v=midywsRPuyI https://www.youtube.com/watch?v=KOcHsOTGL5A https://www.youtube.com/watch?v=_d98L3xUL7o https://www.youtube.com/watch?v=1qkjZzlgdjM https://www.youtube.com/watch?v=R0Ghnfk4ERI https://www.youtube.com/watch?v=FmAZ6DZqsUM بارك الله فيك

تفضل انظر الى هذه الصورة ستوضح لك الأمر بارك الله فيك

جرب هذا الملف متعقب حضور الموظفين.xlsm

اهلا بك اخى الكريم بالمنتدى عليك برفع ملف وشرح ما تريده عليه بالتفصيل بارك الله فيك

تفضل بعد اذن الأستاذ سليم 1شركات test.xlsx

تفضل هذه الصورة للتوضيح

تفضل بعد اذن الأستاذ عماد يومية1.xlsx

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

وعليكم السلام كلمة السر : 123 بارك الله فيك

اهلا بك فى المنتدى تفضل استحقاق الترقية#1.xlsm

بارك الله فيك استاذى الكريم ملف رائع

تفضل زر الحفظ والخروج.xlsm

تفضل هذ الكود يقوم بعمل حفظ لكل ورقة منفصلة بملف منفصل Option Explicit Sub SplitWorkbook() 'ÊÚÑíÝ ÇáãÊÛíÑ ãä ÇáäæÚ ÇáäÕí Dim xPath As String 'ÊÚÑíÝ ÇáãÊÛíÑ ãä ÇáäæÚ æÑÞÉ Úãá Dim SH As Worksheet 'ÊÚííä ÇáãÊÛíÑ áÊÓÇæí ÞíãÊå ãÓÇÑ ÇáãÕäÝ ÇáÍÇáí xPath = Application.ActiveWorkbook.Path 'ÅáÛÇÁ ÎÇÕíÉ ÇåÊÒÇÒ ÇáÔÇÔÉ Application.ScreenUpdating = False 'ÅáÛÇÁ ÎÇÕíÉ ÑÓÇÆá ÇáÊäÈíå Application.DisplayAlerts = False 'ÍáÞÉ ÊßÑÇÑíÉ áßá ÃæÑÇÞ ÇáÚãá ÈÇáãÕäÝ For Each SH In ThisWorkbook.Sheets 'äÓÎ æÑÞÉ ÇáÚãá SH.Copy 'ÍÝÙ æÑÞÉ ÇáÚãá ÈäÝÓ ÇáÇÓã æäÝÓ ÇáãÓÇÑ Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & SH.Name & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled 'ÅÛáÇÞ ÇáãÕäÝ ÇáÌÏíÏ æÇáÐí ÃÕÈÍ åæ ÇáãÕäÝ ÇáäÔØ Application.ActiveWorkbook.Close False 'ÇáÇäÊÞÇá áæÑÞÉ ÇáÚãá ÇáÊÇáíÉ Next 'ÊÝÚíá ÎÇÕíÉ ÑÓÇÆá ÇáÊäÈíå Application.DisplayAlerts = True 'ÊÝÚíá ÎÇÕíÉ ÇåÊÒÇÒ ÇáÔÇÔÉ Application.ScreenUpdating = True End Sub

أخى الكريم عليك بوضع اسم جهازك فى هذا المكان من الكود فعلى سبيل المثال اسم جهازى AliMohamed بارك الله فيك

وعليكم السلام اهلا بك اخى الكريم بالمنتدى هناك العديد من الموضوعات ناقشت هذه الجزئية عليك بإستخدام خاصية البحث فى المنتدى ومنها : https://www.officena.net/ib/topic/85473-حساب-فاتورة-بطريقة-خاصة/?tab=comments#comment-542032

الحفظ لكل الملف

وعليكم السلام تفضل زر الحفظ والخروج.xlsm

أهلا بك اخ كريم فى المنتدى عليك برفع ملف اكسيل وشرح عليه ما تريد بالتفصيل بارك الله فيك

تفضل اخى الكريم محمد اعمال يومية3.xlsm

بارك الله فيك وجزاك الله كل خير وجعله الله فى ميزان حسناتك

بارك الله فيك وجعله الله فى ميزان حسناتك

تفضل اعمال يومية3.xlsm