الـعيدروس

السلام عليكم شاهد المرفق لااعلم لماذا يظهر عندك بالميلادي مثال1.rar

السلام عليكم اضف موديل والصف الكود التالي فيه Function Dy_Ad(ByVal بداية_التاريخ As Date, عدد_الايام As Integer) As String Dim Dt_S As String Dim y, m, d Dim im, idy, Tol Dim Dt_Out, D_ad, Dte Dte = بداية_التاريخ D_ad = عدد_الايام If Not IsDate(Dte) Then Exit Function Dt_S = Dte y = Split(Dt_S, "/")(2): m = Split(Dt_S, "/")(1) d = Split(Dt_S, "/")(0): Tol = d + Val(D_ad) Select Case Tol Case Is = 30 im = m + 1 m = im d = 1 Case Is > 30 idy = Tol - 30 im = m + 1 m = im d = idy Case Else: d = Tol End Select Dt_Out = DateSerial(y, m, d) Dy_Ad = Dt_Out End Function استخدام الدالية كالتالي في خلية H9 =Dy_Ad(D9;F4) على حساب ان ايام الشهر 30 يوم

السلام عليكم الملف بعد التعديلات المطلوبه Ali_CLo_Time.rar

السلام عليكم الاخ الفاضل خالد حدادة جزاكم الله كل خير

وخلية G2 ماعملها هل هيا ضمن الشرط

السلام عليكم اطلع على المرفق قائمة1.rar

السلام عليكم انسخ هذا الكود في حدث الورقة Private Const Adr = "$A$2:$F$50" Private Sub Worksheet_Change(ByVal Target As Range) Set Rng = Range(Adr) If Not Intersect(Target, Rng) Is Nothing Then Dim Shp As Shape Set Shp = ActiveSheet.Shapes("Text Box 1") Shp.Fill.ForeColor.SchemeColor = 25 End If End Sub لون الخلية1.rar

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

السلام عليكم تفضل بحث3.rar

السلام عليكم هل الادخال على الشيت مباشرة ام عن طريق فورم ؟

السلام عليكم لم افهم مامهمة الزر المعني جرب المرفق اذا هو ماتريد بحث2.rar

السلام عليكم تفضل المرفق طباعة.rar

السلام عليكم تفضل المرفق بحث1.rar

السلام عليكم جرب الملف المرفق وتأكد من مخرجاته واي ملاحظه او تعديل ارجو طرحها برنامج_مقهى5.rar

هل عمل معك البرنامج لم تعد تظهر رسالة الخطاء ؟ الوقت هو 24 ساعه تستطيع تعديل وقت دخول المستخدم عند عمل مستخدم جديد هل تقصد الدخول والخروج ليس بحينه بمعنا تدخل الحركة يدوي للدخول والخروج ؟

السلام عليكم الاخ orban راجع الموضوع التالي يمكن يفيدك http://www.officena.net/ib/index.php?showtopic=49197&hl=

السلام عليكم حمل ملف المشاركة السابقة مره اخرى تم التعديل عليه

اعطني صورة لسطر الخطاء اذا امكن

السلام عليكم انشاء زر واعمل عليه ربط مع الكود لتالي Sub Prnt() ActiveSheet.PrintOut End Sub

السلام عليكم جزاك الله خير اخي ياسر خليل والشكر ايضا للاخ شوقي ربيع تقبل مروري

السلام عليكم اطلع على المرفق ارجو التجربة برنامج_مقهى4.rar

السلام عليكم استخدم Sumif كما تفضل الاخ ابن مصر =SUMIF($H$3:$H$3003;V3;$P$3:$P$3003)

السلام عليكم هذا ماهو حاصل اخي الكريم عند دخول مستخدم جديد وله مثلا 25 دقيقة يحسبها البرنامج 2 درهم واذا له ساعه و 20 دقيقة يحسبها 6 درهم واذا له ساعه و35 دقيقة يحسبها 8 درهم هل هذا ماتقصد

السلام عليكم Function Nm_Prgram(Nm_Pth As String) As Boolean Dim In_c As Integer On Error Resume Next In_c = GetAttr(Nm_Pth) Select Case Err.Number Case Is = 0 Nm_Prgram = True Case Else Nm_Prgram = False End Select On Error GoTo 0 End Function Sub Auto_Open() Dim Pth As String '=============================== ' عادة مسار البرامج Pth = "C:\Program Files\skype" If Nm_Prgram(Pth) Then Else MsgBox " برنامج سكاي غير موجود على جهازك": _ ThisWorkbook.Saved = 1: Application.Quit ' امر اغلاق الملف End Sub

السلام عليكم لااظن ماتقولة صحيح جربت على الملف يعمل بطريقة سليمة والتجربة موجودة عليه تم اضافة طلبك على الملف في المرفق ارجو التجربه واي ملاحظات او تعديلات لاتتردد في امان الله برنامج_مقهى2.rar