محمد طاهر عرفه

و الكود التالي يتخص فقط باستبدال النسب ، اي الارقام او العبارات التي تنتهي ب علامة % فيقوم باضافة افواس لها Sub AddParens2NumbersP() ' يختص باضافة اقواس للعبارات المنتهية بعلامة % If Len(Selection.Range) > 0 Then For i = 1 To Selection.Words.Count With Selection.Words(i) If Right(Trim(.Text), 1) = "%" Then Selection.Words(i - 1).Text = "(" & Selection.Words(i - 1) .Text = Trim(.Text) & ") " i = i + 1 End If End With Next i Else MsgBox "لم تقم باختيار نطاق التطبيق" End If End Sub

و قد اضفت التطوير التالي للكود ليتيح اضافة اقواس لكافة الارقام الموجودة فى المنطقة المختارة اختار المنطقة أولا يم شغل الكود فيتم اضافة اقواس لكاقة الارقام ضمن المنطقة المظللة (المختارة) Sub AddParens2Numbers() If Len(Selection.Range) > 0 Then For i = 1 To Selection.Words.Count With Selection.Words(i) If IsNumeric(.Text) Then .Text = "(" & Trim(.Text) & ") " i = i + 1 End If End With Next i Else MsgBox "لم تقم باختيار العبارات المطلوب التعديل عليها " End If End Sub

كل عام و انتم بخير جميعاً

السلام عليكم فى حال وجود ارقام او اشياء أخرى مطلوب اضافتها بين اقواس ، يمكن اختيارها و تشغيل هذا الماكرو هذا الماكرو يضيف اقواس لما تختار ايا كان المحتوى و هنا نختار الكلمة او الرقم واجدا واحدا ، و بالطبق يفضل عمل زر او انشاء اختصار لاستخدامه Sub AddParens() Selection.InsertBefore "(" Selection.InsertAfter ")" End Sub و بالطبع يمكن استدال نوع الاقواس و العلامات المطلوب اضافتها باي شيء اخر او تطويره قليلا ليتبين هل تم اختيار شيء فعلا ام لا Sub AddParens() If Len(Selection.Range) > 0 Then Selection.InsertBefore "(" Selection.InsertAfter ")" Else MsgBox "No text was selected!" End If End Sub المصدر

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

دون الدخول فى تفاصيل الملف حيث لم استطع تحميله ، جاولت تعديل الكود ببحسب ما فهمت ، انه يقوم بفلترة و بترحيل من مجال 1 الي مجال 2 بعد فك الحماية اذا لم تسر الامور كما تريد اقترح ارفاق ملف الاكسيل دون ضغط و ووضع شرح مبسط لما يفترض ان يقوم به الكود ليستطيع الاخوة التفاعل بسهولة Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect Dim Range0, Range1, Range2 As Range Set Range0 = Range("A1:gg20000") Set Range1 = Range("A1:B2") Set Range2 = Range("C1:D2") If MsgBox("هل تريد الترحيل حسب الشروط", vbYesNo, "تنبيه") = vbYes Then Range0.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range1, CopyToRange:=Range2 MsgBox "تم الترحيل بنجاح ", vbOKOnly, "تنبيه" End If Set Range0 = Nothing Set Range1 = Nothing Set Range2 = Nothing ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub

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

السلام عليكم السبب الاساسي فى فصل قسمي الباوربوينت الي قسم للاسئلة و اخر للدروس و الشرح، كان بهدف تفعيل خيار (افضل اجابة و تمت الاجابة) فى قسم الاسئلة و كما تم مناقشته هنا : تمت الاجابة - و أفضل اجابة، فقد تم توفير الخاصية لكافة المنتديات ، و عليه قد لا يبقي للفصل الي قسمين داعي ، و ووجودهما معا قد يكون اسهل فى المتابعة ، لذا اطرح هذا الموضوع للحوار فى قسم الباوربينت قبل الشروع فى الدمج الفصل : أكثر تنظيما الدمج : أسهل فى المتابعة و البحث عن معلومة

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

بعد الحوار السابق فى قسم الاكسيس و الاقتراح المقدم من الاخ أبو جودي فى قسم الاقتراحات و بعد دراسة الموضوع تم تحميل اضافة لتطبيق المنتدى تتيح ما يلي ا- يمكن لصاحب السؤال او فريق الموقع اختيار افضل اجابة عن طريق علامة (صح) اعلي يمين الرد و بالتالي سيظهر فى صفحة المنتدى الرئيسيه انه قد تمت الاجابة على السؤال

تم تحميل الإضافة برجاء التجربة 😆

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

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

Invision Community v4.4.3

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

السلام عليكم هذا المنتدى من نوع Invision Community و هو يختلف عن VB Bulliten و لكن بالطبع هناك حلول اخرى مثل استخدام اضافات او التعديل البرمجي ، و كلاهما قد ينتج عنه مشاكل فنية مع التحديثات المتتالية لاصدارات المنتدى ، لذا فالسياسة العامة المتبعة هي محاولة الالتزام قدر المستطاع بالاصدار الرسمي للنسخة و التحديث الدوري لها ، و مع كل تحديث بالطبع يتم اضافة خيارات جديدة. و الاجابة هي نعم يمكن تجميل بعض الاضافات الغير رسمية التي تتيج هذه الخاصية دون تقسيم ، و لكن أي مشاكل فنية تترتب عليها مستقبلا تخرج عن اطار الدعم الفني للشركة المنتجة. لذا فانا اترك ذلك كاخر خيار متاح

للأسف حتى الان هذه الخاصية غير متاحة الياً غير فى حالة الاقسام من نوعية اسئلة واجوبة

تظهر بجانبها علامة (صح) كما فى هذا الموضوع فى قسم اسئلة الباوربوينت

السلام عليكم كما يوجد قسم للافتراحات و الشكاوي ضمن اقسام المنتدى ، يمكن فتح موضوع به

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

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

السلام عليكم الحقيقة أن المنتدى له تنسيقان معتمدان للاقسام ، تنسيق منتدى الحوار و هو الغالب فى المنتدى حاليا ، و تنسيق الاسئلة و الاجوبة و قد تم تجربة تنسيق الاسئلة و الاجوبة فقط فى قسم الباوربوينت حيث تم تقسيم منتدى الباوربوينت لقسمين ، حدهما للاسئلة و منتدى الاسئلة به الميزة التي تشير اليها ، و كن فى نفس الوقت به عيب ، الا وهو ان الاجابة المختارة كافضل اجابة يرتفع ترتيبها لتلي السؤال مباشرة مما يخل بالتسلسل الزمني و يمكن الاطلاع على قسم الباوربوينت للمزيد من التوصيح لقد كان التطبيق فى قسم الباوربوينت كتطبيق تجريبي و لكن لم يتحمس احد بعد لتعميم التجربة اكثر ـ ربما لان عدد المتابعين للقسم اقل من الاكسيل و الاكسس و اللوورد

السلام عليكم تم حل المشكلة برجاء التجربة الان

السلام عليكم سيتم بحث السبب ياذن الله تعالي

ما اعرفه فى هذا المجال هو استخدام برنامج Adope Acropat Professional و لكن لا تاتي النتائج جيدة فى كل الاحوال مع اللغة العربية حل آخر قرأت كثيرا الاشادة به على النت و لكن لم اجربه و هم رفع الملف على Google Documents ثم تصديره للورد ،و لكن صراحة لم اجربه