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

يفضل إرفاق ملفك للتعديل عليه الموضوع سهل جدا لكن ربما لا يجد بعضنا الوقت في إنشاء مثال فالأسهل هو تعديل ملفك

السلام عليكم ورحمة اله تعالى وبركاته أما بعد .. استكمالاً لمشاركتي في الموضوع السابق اضع بين ايديكم البرنامج + ملف توليد السيريال .. واعتذر على التأخير ملاحظة : جميع البيانات في الجدول يمكن تشفيرها كلاً حسب طريقته لذلك تركتها بدون تشفير لكي تتضح طريقة عمل البرنامج اتمنى ان ينال اعجابكم تحياتي count-sec.mdb registration_key.mdb

اتفضلوا يا اخوانى ده ملف اكسل بسيط من تصميمي يصلح لعيادة طبية لتخزين بيانات المرضى وعمل ملفات لهم على الاكسل بيانات طبية

اذا كان عندتا مجموعة من الارقام من واحد الى N ) N من اختيارك ) و يجب توزيع هذه الأرقام على جدول من M عامود ( M من اختيارك ابضاً) انظر الى الملف المرفق لمعرفة كيف يقوم الاكسل بفعل هذا الشيء الكود Option Explicit Sub CreateNumbers(rg As String, col_num As Long, max_num As Long) Dim n As Long Dim My_row As Long Dim My_col As Long ActiveSheet.Cells(6, 1).CurrentRegion.Clear For n = 0 To max_num - 1 My_row = n \ col_num My_col = n Mod col_num ActiveSheet.Range(rg).Offset(My_row, My_col) = n + 1 Next n End Sub '============================================== Sub give_numbers() Call CreateNumbers(Cells(6, 1).Address, [b2], [c2]) End Sub الملف مرفق Num_table.xlsm

الدالة التي نسختها لا تعمل كما قال الاستاذ على لكن المعادلة في الملف الذي ارفقته تعمل الاهم ان المعادلة تحقق الغرض تحياتي للجميع

طريقة سجل 1 في كل صفحة: و لترتيب شهور تم اضافة حقل باسم "Num" ترقيم تلقائي الى جدول "absent" ثم الى استعلام و منه الى تقرير بشكل مخفي و تم عمل فرز عليه في تقرير

السلام عليكم ورحمة الله استخدم هذا الكود Sub DataDate() Dim ws As Worksheet, C As Range Dim LR As Long, i As Integer, x As Integer Dim Dt Set ws = Sheets("ADD") LR = ws.Range("B" & Rows.Count).End(xlUp).Row Dt = ws.Range("S2") For Each C In ws.Range("E2:P2") If C.Value = ws.Range("R2") Then x = C.Column End If Next i = 3 Do While i <= LR If ws.Cells(i, "C") <= Dt And ws.Cells(i, "D") >= Dt Then ws.Cells(i, "R") = ws.Cells(i, x) End If i = i + 1 Loop End Sub

جرب هذا الماكرو Option Explicit Sub salim_rand_table() If ActiveSheet.Name <> "Sheet1" Then Exit Sub Dim i%, k%, New_arr() ReDim New_arr(1 To 10, 1 To 2) Dim my_rg As Range Dim myStart%: myStart = 1 Dim myEnd%: myEnd = Application.CountA(Range("a:a")) - 1 Set my_rg = Cells(2, 1).Resize(myEnd) With CreateObject("System.Collections.SortedList") For i = myStart To myEnd .Item(Rnd) = i Next i For k = 1 To 10 New_arr(k, 1) = my_rg.Cells(.GetByIndex(k)) New_arr(k, 2) = my_rg.Cells(.GetByIndex(k)).Offset(, 1) Next End With Range("f2").Resize(UBound(New_arr, 1), UBound(New_arr, 2)).Value = New_arr Erase New_arr: Set my_rg = Nothing End Sub الملف مع الكود اللازم Random word Salim.xls

تفضل ويمكنك تغيير واختيار ما تشاء من الأيام من الخلايا A3:A6 كشف Salim.xlsm

اتفضل اليك هذا Private Sub Combo2_AfterUpdate() If Me.Combo2 = "english" Then Me.Text0.KeyboardLanguage = 1 ElseIf Me.Combo2 = "Arabic" Then Me.Text0.KeyboardLanguage = 2 End If End Sub والمثال Database1.mdb

وعليكم السلام اين ملف العمل ؟!!!!!!!! الملف الذى رفعته فارغ خالى من اية بيانات عليك برفع الملف وشرح بالتفصيل ما تريده

السلام عليكم أستاذ @kanory شكراً لك الكود يعمل و لكن لا يحقق المطلوب فهو لا يأخذ بعين الاعتبار شرط قيمة مربع السرد و الحوار فبمجرد التركيز تتغير اللغة من الإنكليزية إلى العربية دون العكس و دون الأخذ بشرط قيمة مربع السرد و الحوار . مع ملاحظة أن لغة الجهاز هي العربية .

اخي الكريم صالح يكفي ان تقوم باستعمال احدى طرق التشفير كماهو موضح في هذا المثال تشفير باسورد المستخدم عند الادراج وفك تشفيره عند تسجيل الدخول.accdb

جرب هذا ..... واعلمنا بالنتيجة والمحاولات ........ SendKeys "%+"

معادلة ممتازة بارك الله فيك استاذ سليم وزادك الله من فضله

حرب هذا الشيء salim11.xls

احسنت اخي ابا جودي العزيز عمل يستحق التقدير والاحترام ( اخليك علة الراس)

أخي الكريم لعله يكون المطلوب ملحوظة فضلت أن تكون عن طريق الفلترة لا البحث .... حيث يكون من السهولة بإمكان حذف صف أو صفوف طلاب إستلموا ملازمهم ملحوظة أيضاً تاريخ استلم الملزمة المفترض أن تدخلة حتى يظهر في الخلية ( استلم / لم يستلم ) النتيجة الصحيحة حجز ملازم.xlsm

للعلم بنسبة للمثال اخي الكريم لا يمكن التعديل عليه ؟؟؟؟؟؟؟؟ لاسباب التعامل بالفواتير لها اسس غير البرامج الاخرى مثل المحاسبة مثلا المدارس اوالمعاهد تعتمد على سجل واحد وهي لطالب (نموذج مفرد) اما الفواتير فهناك في فاتورة عدة طلبيات يعني عدة سجلات (نمادج المستمرة ) كالمثال الدي ارفقته لك فادا اردت مثال مبسط فسارسله لك

ادا لم يكن لديك مانع ساقوم بتعديل مثالك غدا ان شاء الله سيكون جاهزا وادا اردت عمل على مثالك فيمكنك دالك عمل زرين في نمودج الرئيسي للاختيار ===================== الاول اكتب ادخال بالباركود الثاني ادخال يدوي ==================== عند اختيار زر ادخال يدوي يتم تعطيل حقل باركود او اخفائه وعند اختيار ادخال بالباركود يتم تعطيل قائمة المنسدلة او اخفائها فانا انصح بعدم الاخفاء وانما تعطيل افضل ليتسنى لصاحب البرنامج الاختيار _______________ قم باخفاء حقل باركود وقائمة المنسدلة خاصة بكود الصنف في نمودج الفرعي عند اضافة بالباركود انقل تركيز الى حقل باركود عند اضافة كود صنف انقل تركيز الى حقل كود الصنف _______________ اضف قائمة منسدلة مصدرها جدول ItemsT في نمودج الرئيسي اضف حقل غير منضم للباركود في نمودج الرئيسي ______________ ادا لم تصل الى حل اترك الامر لي غدا انشاء الله ساقوم بالازم وعدرا على الشرح

وفيك بارك اخى الكريم شكرا لك

الملف بعد التعديل لمن يرغب بعمل رقم تسجيل متغير .. بمعنى ان العميل عندما يرسل لك رقم النسخة يجب عليه ان يدخل رقم تفعيل البرنامج نفس اليوم لان رقم التفعيل سوف يتغير فيما بعد ارجو من الاخوة تجربة المرفق count-sec(with date) new.mdb

الغاء باسورد محرر الاكواد في الاكسيل بطريقة احترافية بدون برامج الغاء باسورد محرر الاكواد في الاكسيل بطريقة احترافية بدون برامج لتحميل الكود و الملف المستخدم http://zipansion.com/2B4Ga كما يمكنك متابعه الطريقه الاولي Excal Vb password Reset | اعاده تعين باسورد محرر الاكواد https://youtu.be/hEYDrV8faws الغاء باسورد شيت الاكسيل بطريقة احترافية بدون برامج https://youtu.be/2AFJ9JOzwTY

@qathi اخي الكريم هل جربت التعديل الاخير؟ فقد قمت بتغيير الكود الذي يتسبب بظهور تلك الرسالة حسب اعتقادي .. ارجو الاطلاع على النسخة المعدلة بالنسبة لشرح الاكواد فاتمنى منك تحديد الكود الغير مفهوم ليتم شرحه لاني للأسف لا أملك الوقت الكافي لشرحها جميعها .. اعتذر منك بشدة

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

تفضل اخى الكريم/مصطفى اتمنى ان يكون هذا ما تطلبه ولكن لاحظ انك لن تكتب الرقم هكذا 9.10 ولكن اكتبه 910 والسلام عليكم ورحمة الله وبركاته تحويل الارقام الى ساعات ودقائق.rar