الـعيدروس

شرح الطريقة تفضل المرفق توضيح.rar

شاهد المرفق --------------------- اي ملاحظة او تعديل ارجو طرحها المرفق الاول شرح الية العمل على البرنامج بعد التعديل المرفق الاخر البرنامج تحياتي شرح2.rar برنامج_مقهى_3.rar

السلام عليكم ملفك واجهة محرر الاكواد مغلق برقم سري ؟ جرب الكود التالي Option Explicit Option Base 1 Public Sub Ali_Hed() On Error Resume Next ' الاعمدة المراد إخفائها ' Range("J:W")' كما هو موضح حاليا ' Range ("A2,E:F,J:W")'واذا اردت الاشاره الى اعمدة معينه متفرقه هكذا Dim M As Range: Set M = Range("J:W") ALI_HID_C Sheet1, M End Sub Private Sub ALI_HID_C(ALI_SH As Worksheet, SH_A As Range) With SH_A .Columns.EntireColumn.Hidden = 1 With ALI_SH.PageSetup .PrintArea = "$A$7:$AR$30" .BlackAndWhite = False .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 ALI_SH.PrintPreview .PrintArea = "" End With .Columns.EntireColumn.Hidden = 0 End With End Sub

وضحت الصورة اخي mmmmxx88 امهلني بعض الوقت

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

المرفق الاول شرح يوضح اليه العمل على البرنامج المرفق الاخر البرنامج جرب وابلغنى بالنتائج واي ملاحظات او تعديل انا بالخدمة اخي الكريم شرح توضيحي.rar برنامج_مقهى_2.rar

جربتها ليس فيها مشكله ؟

شرحي السابق بموجب طريقة شاهدتها في مقهى انترنت فيه يمكن اكثر من 30 جهاز محل واسع الية حساب العميل فيه كالتالي ورقة وقلم وكروت مغلفه بترقيم معين وعند الدخول يعطيك كرت ويقوم بتسجيل رقم الكرت بخانه والتي تليها الوقت الحالي وعند خروج العميل يستلم منه الكرت وسجل وقت الخروج بخانه اخرى ويقوم بحساب الوقت بالاله فااستغربت محل بكبره وليس لديه برنامج بسيط لحساب العميل ففكرت بعمل برنامج بهذا الصدد وهو مجرد فضول الى ان شاهدت طلبك نفذت حسب تفكيري السابق ان شاء الله تكون لديك طرق عدة بحكم تخصصك واحتكاكك بهذ المجال ونحاول نفيدك ان شاء الله ------------------------- شاهد الشرح المرفق شرح اّلية البرنامج الى ان تنورنا بما تريده ------------------------- شرح.rar

اخي الفاضل mmmmxx88 اريد اعرف مالنظام الذي تريده نظام ارقام بحيث عند دخول زبون جديد تعطيه رقم وتقوم انت باادخال الرقم في البرنامج وتحفظ وعند خروج الزبون تأخذ منه الرقم وتدخله فيه البرنامج بحيث بيقوم البرنامج بااستخراج وقت دخوله ويحسب وقت الخروج عند استعراض الرقم من البرنامج ويعطيك فرق حساب الوقت بين الدخول والخروج ام كما هو البرنامج حالياً يعطيك رقم الي متسلسل عند دخول زبون جديد وافضل الطريقة السابقه وملاحظة اخرى هل نظامك 24 ساعه ام تقفل بنفس اليوم وكم حساب اول دقيقة ؟ منتظر ردك عشان اعدلك على البرنامج بما يتناسب مع طلبك

جرب الكود التالي حسب المرفق الاخير Public Sub Ali_D() Dim Rn As Range Dim A As String Dim x On Error Resume Next For Each Rn In Range("E7:E" & Cells(Rows.Count, 1).End(xlUp).Row) If Rn.Value <> Empty Then A = Rn.Text: x = Split(A, ".") With Rn .Offset(0, 1) = x(1) .Offset(0, 2) = x(0) End With End If Next End Sub mmm_A.rar

ارفق مثال ليتم العمل عليه ماتريده يمكن عمله بكود

جربى الكود التالي في حدث Thisworkbook Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Set Sh = ActiveSheet If Not Intersect(Target, Range("B:B,J:J,K:K,L:L")) Is Nothing Then If IsDate(Target) Then Target = Format(Target, "d/m/yyyy") End If End Sub

اخي الكريم عاشق عدن الافضل عدم تكرار موضوع دام الموضوع السابق فعال جرب الكود التالي 1 - اسم الملف الذي تريد نسخ البيانات منه 2- اسم الورقة 3- المدى * تحديد المدى المراد لصق البيانات فيه ----------------------------- For Each Rm In Range("E4:E" & B) ----------------------------- عدل الثوابت السابق ذكرها في الكود Public Sub Cp_Ali() Dim Wb As Workbook Dim Sh As Worksheet Dim Rm As Range, Rn As Range Dim B, R Set Wb = Workbooks("2") Set Rn = Wb.Sheets("sheet1").Range("A1:A34") B = Rn.Rows.Count R = Rn.Cells(1).Row For Each Rm In Range("E4:E" & B) If Not Rm.Rows.Hidden = True Then Rm.Value = Rn.Cells(R, 1).Value R = R + 1 End If Next End Sub

ارفق ملف وبه طلبك وشرح مبسط وان شاء الله خير

انا جربته سابقاً يعمل بشكل طبيعي الاوفيس 2007 عموما ارفق مثال وبه الكود

تأكد من تسمية الاوراق في ملفك وعدل في بداية الكود السطر التالي Private Const Sht As String = "ورقة1,ورقة2"

ارفق مثال ولو تبحث بالمنتدى بتلقى مواضيع كثيره تجيب على سؤالك واكثر

السلام عليكم الصق المعادلة التاليه في "F7" واسحب للاسفل =IF(ISERROR(FIND(".";SUM($B7:$D7)));MID(SUM($B7:$D7);1;LEN(SUM($B7:$D7))); LEFT(SUM($B7:$D7);LEN(SUM($B7:$D7)))-MID(SUM($B7:$D7);FIND(".";SUM($B7:$D7));LEN(SUM($B7:$D7)))) والمعادلة التاليه في "E7" وسحب للاسفل =IF(ISERROR(FIND(".";SUM($B7:$D7)));0;MID(SUM($B7:$D7);FIND(".";SUM($B7:$D7))+1;LEN(SUM($B7:$D7)))) mmm_A.rar

السلام عليكم جرب التعديل التالي Private Const Rng As String = "D6:U21,A3:D45" Private Const Sht As String = "ورقة1,ورقة2" Sub dddd() prompt = "هل تريد مسح البيانات؟انتبه لا يوجد تراجع عن المسح!!" Command_buttons = vbYesNo + VbMsgBoxRt1Reading 'تحذير ! انتبه" project = MsgBox(prompt, Command_buttons, Title) If project = vbYes Then x = Split(Rng, ",") xx = Split(Sht, ",") For i = LBound(x) To UBound(x) On Error GoTo 1 Sheets(xx(i)).Range(x(i)).SpecialCells(xlCellTypeConstants, 23).ClearContents 1: Next End If End Sub

ماطلبك اخي الكريم هل تريد حساب المكافأت لعملتين مختلفه مثلاً بالدرهم والدينار ؟ والقيم الموجودة في أعمدة المكافئات عباره عن اي عملة ؟

السلام عليكم شاهد المرفق A_برنامج المنحة المدرسية 18.rar

كما تفضل اخي الحبيب بن عليه او نصب الملف التالي لتحديث دوال "user32" الظاهر لديك اوفيس 2010 وويندوز 64-بت Office2010Win32API_PtrSafe.rar

حدد وضع التصميم وانقر على كل زر سيفتح معك حدث الزر ضيف له الكود الذي تريده Private Sub CommandButton1_Click() '------------ Sheets("Feuil2").Select '------------ End Sub

Sub SaveWithBackup() Application.DisplayAlerts = False With ThisWorkbook .SaveCopyAs ThisWorkbook.Path & "\" & _ NameWithOutExt(.Name) & " " & _ Month(Now) - 1 & "-" & Format(Now, "yyyy") & ".xls" .Save End With Application.DisplayAlerts = True End Sub Function NameWithOutExt(pStr_FileName As String) Dim lStr_FileName As String Dim lint_Pos As Integer lStr_FileName = pStr_FileName lint_Pos = InStr(1, lStr_FileName, ".") If lint_Pos > 0 Then lStr_FileName = Left _ (lStr_FileName, InStr(1, lStr_FileName, ".") - 1) NameWithOutExt = lStr_FileName End Function

الاخ عيد مصطفى اذهب الى التنسيق الشرطي وبتلقى المعادلة لتنسيق الخلية النشطة =CELL("address")=ADDRESS(ROW();COLUMN()) ومعادلة تنسيق الصف النشط للمدى =OR(AND(CELL("row")=ROW()))