نجوم المشاركات

It is better to use doubleclick event. Try the following code in the worksheet module Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim x, m As Long Cancel = True If Not Intersect(Target, Range("J11:L20")) Is Nothing Then Application.EnableEvents = False x = Application.Match(Target, Columns(2), 0) If Not IsError(x) Then Cells(x, 6) = Cells(x, 6) + 1 Else m = Range("B" & Rows.Count).End(xlUp).Row + 1 Cells(m, 2) = Target.Value Cells(m, 6) = Cells(m, 6) + 1 End If Application.EnableEvents = True End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim lr As Long If Not Intersect(Target, Range("A11:H30")) Is Nothing Then Application.EnableEvents = False lr = Target.Row Range("B1").Value = lr With Shapes("Edit") .Left = Sheets(1).Range("i" & lr).Left - 32 .Top = Sheets(1).Range("i" & lr).Top .Visible = msoCTrue End With With Shapes("Delete") .Left = Sheets(1).Range("i" & lr).Left - 16 .Top = Sheets(1).Range("i" & lr).Top .Visible = msoCTrue End With Application.EnableEvents = True End If End Sub

تفضل .... مثالترقيم (1).accdb

قبل ما تحضر العفريت تعرف ازاي هتصرفه يا صديقي @محب لله ورسوله في مثل هذه الحالة يجب وضع زر لإغلاف النموذج أو أي شيء يجعل المتغير C قيمته تساوي true ويكون هذا كود الزر مع كود إلغاء الإغلاق Dim c As Boolean Private Sub CommandButton1_Click() c = True: Unload Me End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If Not c Then Cancel = True End Sub لاحظ الإعلان عن متغير c أعلى كل الأكواد عند الضغط على الزر غير قيمته ل true تم تغيير عدم الإغلاق إذا لم تكن قيمة c تساوي true بالتوفيق

يمكنك استعمال هذا الكود في زر (قسط شهري جديد) Private Sub CommandButton27_Click() Dim lastrow As Long, n As Long, col As String lastrow = Sheets("حركة الأقساط").Range("b" & Rows.Count).End(xlUp).Row For n = 12 To lastrow If Sheets("حركة الأقساط").Range("b" & n) = Me.TextBox21 Then Select Case Me.ComboBox7 Case Is = "جانفي" col = "h" Case Is = "فيفري" col = "i" Case Is = "مارس" col = "j" Case Is = "افريل" col = "k" Case Is = "ماي" col = "l" Case Is = "جوان" col = "m" Case Is = "جويلية" col = "n" Case Is = "اوت" col = "o" Case Is = "سبتمبر" col = "p" Case Is = "اكتوبر" col = "q" Case Is = "نوفمبر" col = "r" Case Is = "ديسمبر" col = "s" End Select Sheets("حركة الأقساط").Range(col & n) = Val(Me.TextBox24) MsgBox "تم ترحيل القسط" Exit Sub End If Next n End Sub وإذا تم استعمال رقم الشهر 1،2،3 بدلا من اسمه في القائمة سيتم اختصار الكود جدا Private Sub CommandButton27_Click() Dim lastrow As Long, n As Long lastrow = Sheets("حركة الأقساط").Range("b" & Rows.Count).End(xlUp).Row For n = 12 To lastrow If Sheets("حركة الأقساط").Range("b" & n) = Me.TextBox21 Then Sheets("حركة الأقساط").cells(n, val(Me.ComboBox7)+7) = Val(Me.TextBox24) MsgBox "تم ترحيل القسط" Exit Sub End If Next n End Sub بالتوفيق

حبيبي ابو حسان جرب اول مرفق في مشاركتك الأولى الخلل موجود من الأول وليس من تعديلي الأخير على كل حال سوف انظر في الخلل

هل هذا التصور المطلوب حتى يتم العمل عليه ؟؟؟؟؟

عذرا لتأخر الرد ما رأيت المشاركة إلا الآن وبعد تجارب بسيطة تم تبسيط المعادلتين الاضافي والانصراف المبكر انصراف مبكر: Round (IIf([بدايه الانصراف]-[الانصراف]>0 and [بدايه الانصراف]-[الانصراف]<0.5,[بدايه الانصراف]-[الانصراف],0)*24,2) الإضافي: round(IIf([الانصراف]>[بدايه الانصراف],[الانصراف]-[بدايه الانصراف],IIf([بدايه الانصراف]-[الانصراف]<0.5,0,1-([بدايه الانصراف]-[الانصراف])))*24,2) ويمكن تطبيق المنازل العشرية 2 للحفاظ على. تنسيق الرقم بالتوفيق

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

هل جربت الكود وحذفت بعض تواريخ الحضور والانصراف ؟ ايام الشهر كلها موجود (في حاضرها وغيابها)

اعمل حقل جديد في الاستعلام وضع فيه الكود التالي: حالة الحضور: IIf(IsNull([EnDate]) And IsNull([ExDate]);"غياب";"حاضر") طبعا في البداية (غياب) والثانية حاضر بسبب اللغة العربية انقلب الكود

جميعا بإذنه تعالى فلله الحمد والشكر

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

أولا أحييك تعديلاتك رائعة تدل على فهم لمضمون الكود ثانيا رقم 4 في هذا السطر هو رقم عمود النهاية في الخلايا التي يتم الكتابة فيها ورقم 2 هو عمود البداية r = IIf(c = 4, r + 1, r): c = IIf(c = 4, 2, c + 1) حيث يتم الكتابة في عمود 2 و3 و4 في حالتك الجديدة يتم الكتابة في العمود 10 و11 و12 لذا نغير 4 إلى. 12 وتعدل بداية العمود c من 2 إلى 10 وسيعمل الكود بنجاح r = IIf(c = 12, r + 1, r): c = IIf(c = 12, 10, c + 1) بالتوفيق

تفضل DATA1041-3.rar

وعليكم السلام بس واضح من الجدول ان الموظف 10002 مسجل دخول1 في كل ايام الشهر ............................ هل هذا يعني ان بقية الموظفين غياب .؟؟؟؟؟

الله يفتح عليك معلمنا الجليل حلو مرة الحته حق التاريخ انا طبقت حسب المثال المرفق وكله تمام ـ يارب اعرف اطبقه على برنامجى استاذي الفاضل / ابو خليل حل عبقرى من استاذ مثلك الله يعطيك العافية والصحة وطول العمر كل الاحترام والتقدير لكم الشكر موصول للاستاذ العبقرى / @husamwahab

كنت اعتقد انك تقصد بالمستخدم هو العميل الآن خرجت لنا بفكرة جديدة والحل حسب رأيي ان يكون الترقيم للمستخدم حسب تاريخ اليوم يستمر في الترقيم حسب المستخدم طوال اليوم وفي الغد يبدأ الترقيم من جديد وهنا لا يلزم ادخال المعرف لانه سوف يظهر في النموذج بمجرد دخوله ، ومع هذا يجب رصده في الجدول مع كل عملية ليصبح الكود مثل هذا : Dim i As Integer i = DCount("usr_id", "voice", "usr_id=" & usr_id & " and voicedate=#" & Date & "#") voiceno = i + 1

عندما يرى رواد المنتدى هذه العلامة تعني انه نم الاجابة والوصول لافضل اجابة ...... وهذه العلامة من حق من يجيب احابة وافية وليس هي للسائل نفسه ؟؟؟؟؟؟

جزاك الله خيرا يااستاذنا @أ / محمد صالح تم فتح الملف والحمد لله

لا يحدث هذا إلا إذا جعلت النموذج يظهر عند فتح المصنف لحل هذه المشكلة: * إذا كان الملف مفتوحا يجب إنهاء مهمة الإكسل كله لغلق الملف كلك يمين على شربط المهام ثم task manager مدير المهام * افتح اكسل وأنشئ مصنفا جديدا أو افتح مصنفا تملك الدخول إلى أكواده * افتح نافذة محرر الفيجوال بيسك alt+f11 * افتح الملف صاحب المشكلة ثم توجه إلى نافذة الفيجوال: alt+tab والوصول للملف المسموح للوصول لنافذة الفيجوال بيسك أو الوقوف بمؤشر الفارة على زر اكسل في شريط المهام ثم اختيار نافذة الفيجوال بيسك * وهناك تضغط على اسم الملف صاحب المشكلة في أعلى يسار النافذة لترى أكواده وتعدل عليها بالتوفيق

المطلوب عمل تجميع لكافة الأرقام والنسب التي أمام كل موظف علي مدار أيام الشهر ويتم ذلك كله في شيت واحد (Row) ويكون التجميع في الشيت الأخير حسب اسم الموظف FAY @ BEN Daily performance .rar

حسب فهمي للمطلوب أنك تريد تجميع نفس الخلية من جميع الشيتات لذا يمكن استعمال نفس تصميم الشيتات في شيت row مرفق ملفك وبه المعادلة الطبيعية في الجزء العلوي وكذلك دالة معرفة vba اسمها sumall في الجزء السفلي ودالة أخرى لصناعة المعادلة العادية بالكود بالتوفيق جمع الخلية من جميع الشيتات.xlsb

بارك الله في جميع المشاركين ولإثراء الموضوع يمكن استعمال هذه الدالة في office2010 وما بعده =COUNTIFS(B:B,">"&E2,B:B,"<"&G2) بالتوفيق

اخر نقطه فى الداله الاخيرة واستحيى والله من حضرتك وهى انها لا تقبل الكسور اى الدقائق وحاولت ان افعل مثل ما حضرتك فعلا فى الداله السابقة للاضافى .............. لكنى فشلت لانها اعطت الناتج صفرا للحقل كله Hour(IIf([بدايه الانصراف]-[الانصراف]>0 And [بدايه الانصراف]-[الانصراف]<0.5;[بدايه الانصراف]-[الانصراف];0)*24)+Minute(IIf([بدايه الانصراف]-[الانصراف]>0 And [بدايه الانصراف]-[الانصراف]<0.5;[بدايه الانصراف]-[الانصراف];0)*24)/60

تفضل لن يسمح لطارق بالدخول لان تاريخ صلاحيته اصغر من تاريخ اليوم DATA1041-2.rar

تفضل التعديل حسب توجيهات استاذنا الجليل ابو خليل اعادة الترقيم-1.rar

إذا كان المطلوب بالمعادلات فيمكنك وضع هذه المعادلة في الخلية D16 =IFERROR(INDEX(التعداد!B$3:B$17,SMALL(IF(التعداد!$D$3:$D$17<>"",ROW($1:$15)),$C16)),"") ثم سحب مقبض التعبئة لأسفل ثم إلى اليسار مع تغيير تنسيق عمودي التاريخ بالتوفيق

تم حل المشكلة شكرا للاستاذ سامي والاستاذ حسام

التطبيق على مثالك في بداية الموضوع ..... اعلمنا بالنتيجة ..... ka_QR.rar

آمين ولك بالمثل وزيادة

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

السلام عليكم ورحمة الله وبركاته بداية الشكر والفضل لله تعالى ، وجزى الله كل القائمين على هذا الصرح العلمي العظيم كل باسمه كل خير. ارفق قاعدة بيانات صغيرة فيها حل (مقبول نوعا ما ) لتجاوز عملية الحفظ التلقائي في النموذج الفرعي ارجو من المهتمين الإطلاع عليها وافادتي بامكانية جدواها ولكم جزيل الشكر والعرفان الحفظ التلقائي في النموذج الفرعي.mdb

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

الحل الاول: القيام بعمل repair اصلاح للأوفيس من لوحة التحكم control panel ثم uninstall a program ثم تحديد الأوفيس مع الضغط على change وليس uninstall بعدها quick repair والانتظار حتى نهاية الاصلاح وربما يتطلب الامر اعادة تشغيل الجهاز بعدها يكون كل شيء على ما يرام بإذن الله بالتوفيق

تفضل ملفك تم وضع معادلة منفصلة لكل يوم وأنصح بعدم دمج الخلايا إلا في أضيق الحدود لأن دمج الخلايا يزيد من المعادلات بدلا من سحبها مباشرة بالتوفيق عدد الطلاب في كل يوم لكل منطقة صباحي ومسائي.xlsx

السلام عليكم ورحمة الله وبركاته لقد أنشأت برنامج بسيط وجمعت به الأكواد التي نسنتخدمها باستمرار وصممته بحيث تكون الواجهة عبارة عن شاشة يتم تجميع بها الأكواد المراد نسخها الي شاشة الفيجوال بيسك لمشاهدة كيف يعمل البرنامج من هذا الرابط بنك الأكواد - demo-24-4-2019.accdb

السلام عليكم ورحمه الله وبركاته مرفق ملف اكسيل لمتابعة تحصيلات عملاء الملف مفتوح للنسخ والتعديل والنشر متابعه تحصيلات.rar