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

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

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

استخدم هذا الكود .... Dim I As Long Dim txtBuff As String Dim CheckChars As String CheckChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890 " Me.kanory.SetFocus txtBuff = kanory.Text For I = 1 To Len(CheckChars) txtBuff = Replace$(txtBuff, Mid$(CheckChars, I, 1), "") Next I If txtBuff = "" Then Me.kan1.Enabled = False Me.kan2.Enabled = True Else Me.kan2.Enabled = False Me.kan1.Enabled = True End If

ابحث في المنتدى عن طرق الحماية ..... تجد العديد والعديد من الطرق لذلك .....

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

شكرا لاستاذنا القدير حسام على المداخلة انظر المرفق انا بسطت لك العملية ، حيث حولت النموذج الى ادخال بيانات : نعم بمعنى انك سوف تدخل المعرف واسم المستخدم المهم ان الفكرة تصل ترقيم حسب المستخدم.rar

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

وعليكم السلام اخي الحبيب طلبك واضح ومفهوم .. اطلعت على المرفق ، واليك ملاحظاتي وهي خطوات يمكنك تطبيقها اولا : يجب ان يتم اختيار (او كتابة) معرف او يوزر المستخدم اولا .. فان كان موجود سيظهر اسمه ، وان كان جديد يلزم كتابة اسمه نأتي للترقيم : عند النقر على الزر يتم " عد " معرفات المستخدم الموجودة باستخدام : Dcount .. ويضاف لها واحد (+1)

يمكنك استعمال هذا الكود في حدث عند تغيير محتوي شيت الفاتورة Private Sub Worksheet_Change(ByVal Target As Range) Dim n As Long, r As Long, c As Long Dim sh As Worksheet: Set sh = Sheets("رصيد") If Target.Address = "$D$1" Then Range("b3:d16").ClearContents c = 2: r = 3 For n = 2 To sh.Cells(Rows.Count, 1).End(3).Row If sh.Range("b" & n) = Target Then Cells(r, c) = sh.Range("c" & n) r = IIf(c = 4, r + 1, r): c = IIf(c = 4, 2, c + 1) End If Next n 'MsgBox "Done by mr-mas.com" End If End Sub ولمن لا يعرف إضافة الكود في أحداث الصفحة كلك يمين على اسم الشيت ثم view code تقريبا بالعربي عرض التعليمات البرمجية ثم لصق الكود بالتوفيق

كلما كان المطلوب محددا وفر على الجميع الوقت والجهد تفضل إن شاء اللّه يكون هو المطلوب تم إضافة شيت أكثر تنظيما للملف واستعمال معادلة طويلة نسبيا حتى لا نستعمل أكواد فيجوال بيسك بالتوفيق الرواتب.xlsx

لا تحتاج إلى تغيير في المعادلة تحتاج إلى استعمال حلقة تكرارية for next for i = 10 to 1000 Range("R" & i ) = DateDiff("d", [K4], Range("K" & i )) next i بالتوفيق

الحل في حذف ما بعد acFormatPDF, وقبل , FALSE او true مع الحفاظ على الفاصلتين بالتوفيق

ما شاء اللّه الأمانة العلمية متوفرة جدا ولكن الحمد لله رغم تأخر نشري لهذا المجهود لي السبق موضوع منتدى الصقر : الدالة المعرفة JoinEA بديل للدالة TEXTJOIN بتاريخ 18-08-2018 10:05 مساء وموضوعي: مكتبة الموقع - بدائل دالة textjoin الموجودة في إكسل 2016 لجميع إصدارات اكسل mastextjoin بواسطة أ / محمد صالح, يناير 26, 2018 ربنا يصلح حالنا جميعا

شكرا للأمانة العلمية في نقل المعادلة المستخدمة هنا منذ أكثر من أربعة أعوام بدون ذكر صاحبها حينما قال صاحب الاستفسار أن المعادلة الأولى لم تعمل قمت بالرد في موضوعي بدائل دالة textjoin حتى يظهر له الحل بطريقة غير مباشرة بالتوفيق 🙄😏

I think your office version doesn't support TextJoin function so you can use UDF that is alternative to TextJoin. You will use the same formula exactly but replace the name of TextJoin with MyTextJoin Function MyTextJoin(break As String, ignore As Boolean, txt) As String Dim t, s$, i% For Each t In txt s = s & IIf(i = 0 Or (ignore = True And (s = "" Or t = "")), "", break) & t i = 1 Next t MyTextJoin = s End Function

الملف يعمل عندي بصورة طبيعية لذلك يجب التأكد من اختيار منطقة region عربية مثل Arabic(Egypt ) مثلا من لوحة التحكم control panel ---> الساعة والمنطقة clock and region ----> تغيير تنسيق التاريخ والوقت والأرقام change date, time, or number formats بعدها سيعمل بإذن الله بالتوفيق

تفضل إن شاء اللّه يكون المطلوب وتذكر دائما كلما ذكرت جميع التفاصيل حول المطلوب كلما سهلت المهمة على غيرك بالتوفيق البحث عن سعر البيع لكل عميل.xlsm

هذا جزء من برنامجي ..... ka_stu.accdb

بارك الله فيك اخي الكريم ...... الحمد لله رب العالمين .... بالتوفيق

جرب المرفق ..... السبب في عدم الالحاق افتح الجدول A وازل الاشارات من كل السجلات ... AB.mdb

بارك الله فيك الاستعلام مكتوب كجملة SQL داخل الزر انظر الصور .....

طيب اخي الكريم جرب المرفق ووافينا بالنتيجة .... علما اننا اضفنا حقل نعم / لا في الجدول A AB.mdb

نظام اللمس يصلح للمطاعم والكافيهات اما البقالات والمتاجر فالذي يصلح لها هو نظام قارىء الباركود

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

بسم الله الرحمان الرحيم والصلاة والسلام على رسول الله الحمد لله تم إنشاء هذه المواقيت ربما لن تفيدنا في الدول الإسلامية ولكن في غيرها تكون نعمة بإذن الله https://drive.google.com/file/d/1qmfQaOXtQkjqJ0mna98jC9Smx1uM6vy3/view?usp=sharing

معليش اتعبتك معايه ..كدا تمام ,,,يعطيك العافية

السلام عليكم ورحمة الله وبركاته جزاكم الله خيرا سيدي الفاضل المعادلة تعمل بشكل جيد شكرا جزيلا

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

رحم الله والديك استاذ ابو الحسن على هذا الدعاء بالنسبة للتعديلات : نعم استاذ كلامك سليم جدا

وهذا التعديل بالنسبة للاضاقة في نفس السطر Database5.accdb

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

وبارك فيك ...

اين الحروف في المثال ؟؟؟؟ على كل حال انظر المرفق .... مثال.rar

تم التعديل يمكن الفلترة بالفصل والتخصص في نفس الوقت first_20 New.xlsm

لاحظت في الفترة الأخيرة كثرة الأسئلة عن موضوع نسيان كلمات مرور ملفات الإكسل أو بعض ورقات العمل بالملف فأحببت أن أشارك إخوتي وأحبّتي أعضاء ومشرفي وخبراء منتدانا الرائع هذه الإضافة MasNoPass لفك حماية أوراق العمل في ملفات الإكسل وتعمدت تسهيل عملها فقط تحتاج لإضافة الوظيفة الإضافية: 1 في ويندوز xp نسخ المرفق إلى المسار التالي C:\Documents and Settings\***\Application Data\Microsoft\AddIns حيث أن C هو قرص النظام و *** هو اسم المستخدم 2 في ويندوز 7 نسخ المرفق إلى المسار التالي C:\Users\***\AppData\Roaming\Microsoft\AddIns حيث أن C هو قرص النظام و *** هو اسم المستخدم بالنسبة لمستخدمي إكسل 2003 من خلال: فتح برنامج الإكسل والضغط على قائمة أدوات tools ===> وظائف إضافية Addins ===> ثم اختر MasNoPass ثم موافق ok وبالنسبة لمستخدمي إكسل 2007 يتم ذلك من خلال : فتح برنامج الإكسل والضغط على زر الأوفيس ثم خيارات إكسل Excel options ثم اختيار وظائف إضافية Addins من الجانب الأيمن/الأيسر ثم اذهب go ثم اختيار MasNoPass ثم موافق ok وبالنسبة لمستخدمي إكسل 2010 وما بعدها يتم ذلك من خلال : فتح برنامج الإكسل والضغط على قائمة ملف file ثم خيارات إكسل Excel options ثم اختيار وظائف إضافية Add-ins من الجانب الأيمن/الأيسر ثم اذهب go ثم اختيار MasNoPass ثم موافق ok طريقة العمل:- بعد تسجيل الوظيفة الإضافية تجد ظهور قائمة جديدة باسم (فك الحماية) وتحتاج فقط إلى فتح الملف المحمي ثم الضغط على قائمة فك الحماية واختيار (إزالة كلمة المرور) بعدها سيتم البدء في عدّ المحاولات والوقت المنقضي في إجراء العملية بعدها تظهر رسالة تفيد أنه تم إزالة كلمة المرور عن الملف وبعد الضغط على الرسالة ستجد الملف مفكوك بين يديك و أذكّر نفسي وإياكم بأن الصحابة عليهم رضوان الله كان الواحد منهم إذا أراد أن يدعو لنفسه دعا لأخيه فيقول له الملك آمين ولك مثلها فلا ينقصني سوى دعائكم وأخيرا أذكر بخطورة الموقف وأرجو عدم استعمالها فيما حرّم الله وعند النقل يجب ذكر المصدر منتديات أوفيسنا اللهم قد بلّغت ... اللهم فاشهد أخوكم محمد صالح يرجى من السادة المشرفين حذف هذا السطر بعد تحديث المشاركة الأولى بمضمون هذه المشاركة وبإذن الله سيتم رفع فيديو لشرح كيفية استعمال الأداة MasNoPass.rar

مشكووووووووووووووووووووووووووووووووووور

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

الاخ محمد mas123 بارك الله فيك و تقبل الله منك صالح الاعمال

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

اخانا الكريم بارك الله فيك وعمل اكثر من رائع ولكن هل يمكن ان تتفضل علي بشرح هذا الجزء من الكود للتعلم ليس الا زادك اللع علما ونفعك بما تعلم Private Function NewCodeWord() Dim MaxLong As Integer, Ulimit As Integer, Oline As Integer, lng As Integer, Word As String, i As Integer MaxLong = 9 Oline = 255 Ulimit = 32 lng = Int(MaxLong * Rnd + 1) Word = "" For i = 1 To lng - 1 Word = Word + Chr(Int((34 - 33 + 1) * Rnd + 33)) Next i Word = Word + Chr(Int((Oline - Ulimit + 1) * Rnd + Ulimit)) NewCodeWord = Word End Function

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

شكرا جزيلا رائع

كل الشكر اخي الفاضل

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

أخي محمد صالح أحمد الله أن المنتدى يضم مشرفاً مثلك : ) عمل أكثر من رائع

حاولت البحث عن عبارات الثناء ولكني لم أجد غير جزاك الله خير

السلام عليكم موضوع مميز وجديد كعادتك أستاذنا الفاضل محمد صالح اسال الله لك الفردوس الأعلى من الجنة وزادك الله رفعة وعلما

السلام عليكم جزاك الله خيرا أستاذ محمد صالح على هذه الأداة المفيدة

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