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

السلام عليكم تفضل أخي الكريم، ثاني حل بالمعادلات في الملف المرفق... بن علية حاجي تجزئة البيان.xlsx

حرب هذا الملف تجزئة .xlsx

هذه المعادلة في الخلية G7 ثم اسحبها يسارا حتى العامود I ونزولاً الى احر صف =INDEX($D$6:$F$6,MATCH(LARGE($D7:$F7,COLUMNS($G$1:G1)),$D7:$F7,0)) الملق مرفق salimللمنتدى.xlsx

اجمل تحية لاخي العزيز وفعلا مررت بتجرب اكثر من مرة بسبب تغيير نظام التشغيل لدي العملاء وقد كنت اعطي لهم رقم تسجيل جديد شرح وافي جدا تحياتي لك ولكن بعد تجربة هذا المثال الجميل جدا .. فلا املك الا ان اقول .. جزاك الله خيرا تحياتي

تحت امر الجميع فى اى استفسار واعتذر عن عدم انزال الملف وذلك لكبر حجمة وتحياتى للاساتذة المنتدى العظام الذى تعلمت منهم الكثير وهذا البرنامج خلاصت جهدهم معى وكل عام وحضرتكم جميع بخير تم عمل جميع المراحل من الصف الاول الابتدائى حتى الثالث الاعدادى للمدارس الحكومية والخاصة واللغات

اخي الكريم محمد سلامة تحية طيبة لك أولاً.. البرنامج هو حصيلة ماتم شرحه في هذه المشاركة .. حيث قمت بشرح آلية الحماية التي تضمن افضل اداء من وجهة نظري الشخصية وعن تجربة بخصوص الرقم السري فانني تكلمت عنه في نهاية الشرح وهو كالتالي كلنا يعلم ان رقم الهارد يمكن تغييره كما انه يتغير تلقائياً بعد الفورمات لذلك فان الاعتماد على رقم الهارد لتوليد كود التفعيل ليس عملياً لان الشخص الذي اشترى منك كود التفعيل قد يقوم بتغيير الويندوز وعندما يثبت ويندوز اخر فان البرنامج لن يتفعل لديه عندما يستعمل كود التفعيل الذي اشراه منك وهذا امر غير جيد هل نستبدل المعادلة السابقة ونضع سيريال اللوحة الام مكانها؟ الاجابة لا لانك ستواجه نفس المشكلة فجميع سيريلات الجهاز تتغير بتغيير نظام التشغيل بلا استثناء "اقولها بعد التجربة" اذن ماهو الحل البديل؟ الحل البديل من رأيي هو ان تضع مكان سيريال الهارد في المعادلة السابقة باسوورد خاص بالعميل لايعرفه احد الا هو كيف ذلك: عندما يذهب العميل الى زر امر تفعيل البرنامج تظهر له نافذة تطالبه بادخال كلمة السر الخاصة به .. عندما يدخل مثلاً 54321 يقوم البرنامج باخذ تلك القيمة وادخالها في المعادلة السابقة 54321 × 2 + 5 ويظهر له الناتج وهو 108647 فتقوم انت بطلب منه رمز البرنامج هذا فيرسله لك وانت تدخله في معادلة اخرى على سبيل المثال 108647 × 7 وتعطيه الناتج الذي سيكون هو رقم التفعيل 760529 .. سيقوم العميل بادخال الرقم الجديد في خانة التفعيل ويضغط على زر التفعيل .. سيقوم البرنامج بعمل نفس المعادلة التي اجريتها انت 108647 × 7 ومقارنة النتيجة برقم التفعيل الذي ارسلته له فإن كان نفسه فهذا يعني ان البرنامج يعمل عليه نفس الشخص الذي اشترى حقوقه بتلك الطريقة فانت لاتجعل العميل لديك مقيد بالعمل على جهاز واحد فهو لديه حقوق البرنامج ويستطيع تشغيله على اكثر من جهاز اما اذا اردت اجبار المستخدم على العمل على جهاز واحد حينها يمكنك ادخال اسم المعالج في المعادلة "اسم المعالج لايتغير بتغيير نظام التشغيل" .. اسم المعالج يحتوي على ارقام بالعادة لذلك انت ستأخذ الارقام الموجودة مع اسم المعالج وتدخلها في المعادلة وبذلك فلن يستطيع العميل ان يفعل البرنامج على اكثر من جهاز. استاذ فارس يسعدني مرورك وابداء ملاحظاتك حول الموضوع

تفضل اخي لون خلية.accdb

أخي @محمد عبد الشفيع أعتذر منك لضيق وقتي .. وألتزامي بعمل برنامج الى نهاية السنة ومتبقي للموعد قليل أذا جرت الامور كما هو مرتب لها .. تجدني متفرغ بعدها ( أن شاء الله ) .. واريد منك بعدها نقوم بتطوير فكرة الاستاذ @Shivan Rekany و الاستاذ @sandanet في الحماية .. أرجو أن يسع صدورهم لأفكارنا لتطوير حماية شاملة حتى تكون مرجع للجميع ولا يتشتت الاعضاء في الأختيار .. فكل طرق أساتذتنا الأفاضل رائعة نريد الأستفادة منها بدمجها أذا أمكن ذلك

كم أنت جميل يا استاذ علي بارك الله لك أخي وجزاك الله عنا خير الجزاء

السلام عليكم تم التعديل على بعض المعادلات... أرجو أن تفي المطلوب... بن علية حاجي مناداه الجموعي وساجده.rar

مش محتاج كود للبحث او الاستبدال انت ظلل على الجزء اللى عاوز تستبدله ورح ل home ومن find and select اختار replace وفى find what اكتب اسم الكلمة اللى عاوز تستبدلها وفى replace أكتب الكلمة اللى عاوز تستبدل بيها واختار replace all

تفضل لك كل ما طلبت اخفاء واظهار صفحات من الملف.xlsm

وذلك كما بالصور

في حدث عند اغلاق الصق الكود: Forms!Main4!vehicle_modle.Requery

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

بل كل الشكر لك استاذي الكريم ونفعنا الله بعلمك وجزاك الله كل خير

أكرمك الله، وزادك من فضله، الأمور تمام التمام، زبطت المحاولة. أشكر لكم حُسن تعاونكم معنا أخونا الحبيب الله يعطيكم العافية

أحسنت استاذ سليم بارك الله فيك

طريقة ثانية: في خانة البحث ضع الرمز التالي: ^f في خانة الاستبدال ضع الرمز التالي : (^&) ملاحظة هامة: اتجاه كتابة الرموز من اليسار إلى اليمين، بمعنى أن ^ تكون في البداية و f بعدها، والرمز الثاني القوس الأيسر بداية، ومن ثم الرمز ^ والرمز & وبعدها القوس الأيمن

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

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

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

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

أحسنت استاذ سليم عمل راءع بارك الله فيك

السلام عليكم ورحمة الله وبركاته تفضل هذا الكود: Word.Options.AutoFormatReplaceHyperlinks = True Selection.Range.AutoFormat يمكنك إضافته ضمن ماكرو، وبمجرد تشغيل الماكرو ستتم عملية تفعيل الروابط التشعبية خلال ثوانٍ كي تنجح معك الطريقة يجب أن يكون في المستند رابطاً واحداً على الأقل مفعلاً لإلغاء تفعيل كل الروابط بنقرة واحدة تقوم بالنقر على CTRL + A لتحديد كل المحتوى ثم تنقر CRTL + 6 ولا تنسانا من دعائك

السلام عليكم ورحمة الله وبركاته أضيف لك طريقة أخرى للفائدة، وذلك من خلال استخدام حروف البدل؛ حيث سنقوم باستبدال كل ما يتجاوز المسافتين فأكثر بنقرة زر واحدة شاهد هذه الصورة لو تكرمت: في الخانة الأول نكتب: ( ){2;} في الخانة الثانية نكتب: \1 لا تنسانا من دعاءك

السلام عليكم ورحمة الله وبركاته الأمر بسيط جداً وقد شرحته لك بالصورة التالي: في الخانة الأولى تكتب: (^2) في الخانة الثانية تكتب: (\1) يمكنك نسخها ولصقها من هنا، ولا تنسانا من دعائك 🙂

اخي الكريم تم عمل مثال ادخال يدوي وباركود انا عملت لك حقلين كما طلبت واحد للكود وواحد للباركود رغم اني لم افهم منك معنى حقل كود صنف وحقل باركود يا اخي الكريم للعلم بنسبة للبرامج التي يستخدم فيها الباركود يكون حقل واحد فقط ويكون نص وليس رقم هو انت المسؤول على تغيير هدا حقل من نص الى باركود عند الاستخدام نعلم ان اغلب البضائع التي تباع يوجد بها باركود وبضائع اخرى لا توجد بها باركود هنا ياتي دور البرنامج في عمل باركود للبضائع التي ليس بها ملصقات ويتم تصميم نمودج لعمل ملصقات وتقرير هو المسؤول على تغيير من مجرد ارقام الى باركود ليتم (طباعة الملصقات) والافضل هو الباركود في ادخال البضائع لسهولة الاستعمال دون البحث عن كود الصنف في مربع القائمة هده نصيحة Pos_Systm.rar

نعم اخي هو كذالك بالضبط تلك المعلومات تكفي وبزبادة الملف الملرفق ليس به اي اخطاء اما بخصوص شرح الموضوع انت فقط اشر على اي جزئية وباذن الله اشرحها لك اولا شكرا اخي سمير لهتمامك بالموضوع و و اضح جدا من الملف الذي ارسلته انك درست الملف جيدا ....احسنت اخي سمير بخصوص سؤالك عن جلب الاستعلام به دالة او لا يوجد به دالة لايوجد اي مشكل يمكن ذلك جدا الخطا الذي يضهر لك هو بسبب وجود خلايا في الاكسل قيمتها nothing و في مثالي السابق اعتمدت على المصفوفات لتخزين البيانات التي نجلبها من الاكسيس مؤقتا وكما نعلم المصفوفات لاتقب القيمة nothing لذى يضهر لك ذلك الخطا الحل بكل بساطة هو جلب البيانات من الاكسيس مباشرتا الى اليست بوكس هههه لان اليست بوكس تقبل nothing اليك هذه الخورازمية لتنفيذ دالك Function Fill2(List As Variant, SelectCommand As String) On Error GoTo Err1 List.Clear Set rs = CreateObject("ADODB.Recordset") If ConnectionState = False Then Call connectDatabase rs.Open SelectCommand, Conn If rs.RecordCount <> 0 Then List.Column = rs.GetRows End If If ConnectionState = True Then Call CloseDatabase Exit Function Err1: Dim MonResultat MonResultat = MsgBox("Description : " & Err.Description, vbCritical + vbOKOnly, "Erreur d'execution") If ConnectionState = True Then Call CloseDatabase End Function الان بكل بساطة عندما تريد انتجلب جدول الى اليست بوكس كل ما عليك استدعاء هته الخوارزمية ايضا انضر المرفق لتستوعب الفكرة اكثر اكسل & اكسيس (اضافة تعديل حذف + تقارير).rar تحياتي للجميع

From the Home tab on the ribbon, choose Find -> Advanced Find... Leave Find what blank. At the bottom, choose Format -> Style... Choose Hyperlink and press OK to close the dialog and return to the previous one. Choose Find In -> Main Document All the hyperlinks will be highlighted. From the ribbon, choose Styles -> Clear Formatting. The default colour will be restored.

أخي B2B هذا موضوع قديم وأنا أحاول إنعاش ذاكرتي به. إذا كنت تقصد طريقة جعل بعض الأرقام إنكليزية والبعض الآخر عربية، فإليك ما يلي: إذا ذهبت في ملف الإكسل (والوورد أيضا) إلى إدراج insert > رمز symbol، ثم اخترت علامة التبويب الثانية "أحرف خاصة Special characters"، ستجد في أسفل القائمة علامتين: علامة اليمين-إلى-اليسار Right-to-left mark، وأيضا علامة اليسار إلى اليمين Left-to-right mark. هاتان العلامتان هما بديل غير مرئي عن أحرف، أي إن العلامة الأولى تقوم مقام حرف عربي، بينما تقوم الثانية مقام حرف إنكليزي. صحيح أنك لا ترى شكل هاتين العلامتين، ولكن من الممكن عرضهما. الأولى لها شكل سهم عمودي رأسه منعقف إلى اليمين (وهو اتجاه الكتابة في اللغة العربية)، والثانية لها شكل سهم عمودي رأسه منعقف إلى اليسار (اتجاه الكتابة في اللغات الأوروبية، كالإنجليزية). كل ما عليك فعله هو أن تقوم بإدراج العلامة الأولى في أول الرقم العربي كي يعرف الإكسل أن السياق عربي، فيظهر الرقم عربيا؛ ثم أدرج العلامة الثانية في أول الرقم الأجنبي كي يعرف الإكسل أن السياق أجنبي فيكتب الأرقام بالأجنبية. الصورة المرفقة تريك هذه الأسهم.