الـعيدروس

السلام عليكم تم عمل مربع لإضافة سعر الساعه في حال اردت حساب الساعه بقيمة معينه واذا تركت المربع فارغ يعتمد سعر الساعه الإفتراضي = 1000 وفي " إدخال حركة يومية " تم إضافة بند "إيراردات اخرى" ضمن القائمة المنسدله تعتمد لإدخال مبيعات ( ادوات الحاسبه واخرى ) ارجو التجربه قبل العمل عليه برنامج_مقهى_5-2.rar

السلام عليكم الرجاء انشاء موضوع منفصل للطلب كي يسهل البحث للاعضاء مع ارفاق مثال وبه الكود والحل موجود ان شاء الله

السلام عليكم ضيف هذه الاسطر في حدث الورقة Worksheet_Change If Range("D2").Value = "" Then ActiveSheet.Range("$A$2:$i$2500").AutoFilter Field:=4 Else Dim D_a As Date Dim Id&, Tr Tr = ActiveSheet.Range("D2") D_a = DateSerial(Year(Tr), Month(Tr), Day(Tr)) Id = D_a ActiveSheet.Range("$A$2:$i$2500").AutoFilter Field:=4, Criteria1:=Format$(Id, "yyyy/mm") End If

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

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

السلام عليكم الاستاذ القدير الخالدي عمل احترافي وقيم بارك الله فيك وجزاك كل خير تقبلو مروري

شاهد المرفق فورم بحث - اوفيسنا_A1.rar

كود زر التعديل إستبدله بالتعديل التالي Private Sub CommandButton3_Click() ' تعديل With ActiveCell Cl = 1 For ii = 3 To 22 .Offset(0, Cl) = Me.Controls("TextBox" & ii) Cl = Cl + 1 Next End With ActiveCell.Font.Color = 255 MsgBox "تم تسجيل التعديلات" For j = 3 To 22 Me.Controls("TextBox" & j) = "" Next End Sub

اطلع على المرفق إن كان ماتريد ام لا برنامج_مقهى_5-1.rar

اذا اردت حساب اول دقيقة 250 وبعد الدقيقة الاولى تحسب الدقيقة 17 ممكن على اساس الساعه 1000

اخي الفاضل هل افهم من كلامك ان يعتمد المبلغ المكتوب في مربع المدفوع وحتى ان كان اكبر من المبلغ المطلوب مثلا المبلغ المطلوب 300 ودفع 1000 يعتمد 1000 دون خصم الباقي منها

الاستاذ الحبيب دغيدي الله يحيك ويعافيك استاذي القدير

جرب الكود التالي Public Sub Ali_rc() With ActiveSheet .Range("Table1").RemoveDuplicates Columns:=1, Header:=xlYes For Each Rl In Array("00 2000", "2000 2000") .Columns("A:A").Replace Rl, "", xlPart Next End With End Sub بامكانك إضافة شروط اخرى غير الارقام الموضحه في مشاركتك الاولى 00 2000 2000 2000 مثلا اضافة 20 بيكون التعديل على السطر كالتالي For Each Rl In Array("00 2000", "2000 2000", "20")

اخي الفاضل قبل البحث حدد الخيار اولا ثم إذهب للقائمة المنسدله او حمل المرفق برنامج المنحة المدرسية آخر تعديل 4.rar

شاهد المرفق ارجو التجربه والتدقيق اذا به اي خطاء او ملاحظات لإضافة حساب أو كبينه جديد من برنامج_مقهى_5.rar

السلام عليكم جرب المرفق برنامج المنحة المدرسية آخر تعديل 3.rar

للتواصل هذا ايميلي "maicl2010ye@gmail.com"

ازبطه لك بالغد ان شاء الله

اخي الفاضل mmmmxx88 ان شاء الله اعدلك على البرنامج بحيث يكون ارقام الكبائن ككرت تضيف وتعدل وتحذف امهلني الى بكره ان شاء الله

تم تنفيذ هذه الجزئية بهذه النقطة اختلف معاك اذا رجعناه ترقيم تسلسلي كيف بتحكم دخول وخروج الكبينه ؟ اليك الحل الذي ارتئيته مناسباً لملاحظتك مربع من = تضيف الكبينه الحاليه الذي فيها الزبون مربع الى = الكبينه المراد تحويل الزبون اليها بعد اختيار من وإلى تضغط زر تغير كبينة المستخدم هل هكذا افضل او اعطيني فكره اخرى اما التسلسل انا غيرت الفكرة ليسهل التحكم في الدخول والخروج لكل مستخدم برنامج_مقهى_4-1.rar

اخي الفاضل المبلغ المدفوع مجرد اله حساب مثلا زبون حسابه 95 دفع لك 100 انت تحط 100 في مربع المبلغ المدفوع ويظهر لك المتبقي له 5 في المتبقي بمعنى بالطريقة اللي ماشيين عليها حاليا في البرنامج عمود المبلغ المدفوع = المبلغ المعطى من الزبون احتمال يكون كما المبلغ المطلوب او يزيد ------------------------- او نضيف عمود مساعد للمتبقي المبلغ المدفوع - المتبقي = المبلغ المطلوب اذا اردت اعدل كما وضحت لك اوك منتظر ردك

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

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

شاهد المرفق -------------------------- به التعديل لاجمالي دخل اليوم -------------------------- استفسار حركة اليوم هل تريدها تترحيل بشكل اتوماتيك الى حركة الصندوق اخر كل يوم ام ترحلها يدوي بزر معبن وقت ماتريد ؟ برنامج_مقهى_3-1.rar

الصق الكود التالي في مودويل في ملف تحليل البيانات على ان يكونو الملفين في فولدر واحد Private Const Nm As String = "بيانات شهرية.xlsm" Private Const Adr As String = "$A$4" Public Sub Ali_Tr() Dim Wb As Workbook Dim Wbc As Workbook Dim W As Worksheet Dim De$, Pth$ N = ThisWorkbook.Name Set Wbc = Workbooks(N) Pth = ThisWorkbook.Path & "\" & Nm If Not Is_Opn(Pth) Then Workbooks.Open Pth End If Set Wb = Workbooks(Nm) For Each W In Wb.Worksheets If W.Name = Wbc.Worksheets(1).Range(Adr).Text Then De = W.Name Exit For End If Next Wbc.Activate Application.EnableEvents = False With Wb.Worksheets(De) With Wbc Lr = .Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row .Activate .Sheets(1).Range(.Sheets(1).Cells(6, 1), .Sheets(1).Cells(Lr, 3)).Copy End With L = .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row .Range("A" & L).PasteSpecial xlPasteValues Application.CutCopyMode = False MsgBox "تم ترحيل البيانات بنجاح", vbInformation, "" End With End Sub Function Is_Opn(FileName As String) Dim iFilenum As Long Dim iErr As Long On Error Resume Next iFilenum = FreeFile() Open FileName For Input Lock Read As #iFilenum Close iFilenum iErr = Err On Error GoTo 0 Select Case iErr Case 0: Is_Opn = False Case 70: Is_Opn = True Case Else: Error iErr End Select End Function الترحيل_A.rar