الجموعي

بأي برنامج قمت بفتح الملف Gestion Administrativ.. أنا أستعمل برنامج Multimedia Builder 4.9.8

لا تحتاج إذن اخي بارك الله فيك على الزيادات الطفيفة

تفضل أخي ما طلبته CC002.rar

لتعرف أن الملف يعمل تمام من قائمة إبدا الامر تشغيل msconfig بدء التشغيل شاهد الصورة المرفقه من جهازي

أخي أنا عن تجربه يعمل تمام في جهازي

تم المطلوب اخي قمت بتحويل الملف إلى xlsm المرفق 2010 حضور_ww.rar

أخي أنت قمت إضافة عنصر تحكم نموذج وليس عنصر تحكم Active x

تقصد خط الليبل .........الله اعلم لا أخي أقصد إتجاه الكتابة تكون افقية

أخي الكريم قم بإدراج CheckBox1 في الشيت وأدخل الكود التالي Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Reg_Write3 Else Reg_Delete3 End If End Sub تم تعديل الكود من CheckBox3 إلى CheckBox1

بعد تثبيت برنامج ملتيمديا بيلدر قومي بفتح الملف Gestion Administrativ.mbd وأتبع الشرح في الصورة التالية

أخي الكريم أرفق لي ملف الكود الذي يعمل بكفاءة وبارك الله فيك

بارك الله فيك أخي سليم ملف رائع جدا

بارك الله فيك أستاذي القدير جزاك الله كل الخير عندي إستفسار هل من طريقة لجعل الكتابة أفقية مثل في الصورة

شكرا أخي على النصيحة تفضل المرفق label 1 ‫‬.rar

بارك الله فيكم وجزاكم الله خيرا

السلام عليكم ورحمة الله تعالى وبركاته أريد مساعدتي في هذا الكود الكود الرئيسي يعمل بنجاح Private Sub UserForm_Initialize() Dim i As Integer For i = 1 To 5 Me.Controls("Label" & i).Caption = Cells(2, i).Value Next i End Sub أنا أريد إضافة هذا الكود للكود الرئيسي بحيث For i = 1 To 2 Me.Controls("Lab" & i).Caption = Cells(1, i).Value Next i أرجو تكون الفكرة قد وصلت

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

تفضل أخي ما طلبته sl.rar

للرفع في إنتظار ردك أستاذي القدير عبد الله باقشير

تفضل أخي ما طلبته نسخ من فورم ادخال و تعديل مرن مع الطباعة 3.rar

شكرا أخي قصي بارك الله فيك

أخي محمد الخازمي الكودالذي أدرجه العلامة القدير /عبد الله باقشير حفظه الله ورعاه يعمل بنجاح تفضل المرفق به الكودات نسخ من فورم ادخال و تعديل مرن مع الطباعة 2_2.rar

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

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

أستاذي الكريم هذا الكود وجدته في ملف من منتدى أجنبي قمت بنسخه وإستبدال ما يجب تغييره صراحة لا أعرف ما الغرض منة ربما عنده علاقه بالازرار في الملف الأصلي هاهو الكود كاملا من الملف الأصلي Option Explicit Dim id As Integer, i As Integer, j As Integer, flag As Boolean Sub GetData() If IsNumeric(UserForm1.TextBox1.Value) Then flag = False i = 0 id = UserForm1.TextBox1.Value Do While Cells(i + 1, 1).Value <> "" If Cells(i + 1, 1).Value = id Then flag = True For j = 2 To 3 UserForm1.Controls("TextBox" & j).Value = Cells(i + 1, j).Value Next j End If i = i + 1 Loop If flag = False Then For j = 2 To 3 UserForm1.Controls("TextBox" & j).Value = "" Next j End If Else ClearForm End If End Sub Sub ClearForm() For j = 1 To 3 UserForm1.Controls("TextBox" & j).Value = "" Next j End Sub Sub EditAdd() Dim emptyRow As Long If UserForm1.TextBox1.Value <> "" Then flag = False i = 0 id = UserForm1.TextBox1.Value emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1 Do While Cells(i + 1, 1).Value <> "" If Cells(i + 1, 1).Value = id Then flag = True For j = 2 To 3 Cells(i + 1, j).Value = UserForm1.Controls("TextBox" & j).Value Next j End If i = i + 1 Loop If flag = False Then For j = 1 To 3 Cells(emptyRow, j).Value = UserForm1.Controls("TextBox" & j).Value Next j End If End If End Sub