ياسر خليل أبو البراء

أخي زياد Private Sub UserForm_Initialize() 'هذا هو حدث فتح الفورم End Sub

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

لابد أن تكون اللغة العربية هي المنصبة لديك .. ادخل على التبويب Administrative واختر اللغة العربية ... جرب الخيار Context .. ملحوظة : يجب تغيير الخيارات في لوحة التحكم قبل فتح المصنف . وبعدها يتم فتح المصنف لتلاحظ التغيرات

وعليكم السلام أخي الكريم أبو يحيى حدد الخلايا المراد تغيير التنسيق لها ثم كليك يمين ثم اختر Format Cells ثم اختر أول خيار في القائمة في جهة اليسار والمسمى General

وعليكم السلام أخي الكريم للأسف جربت أكثر من 7 برامج مختلفة وكلها لا تؤدي إلى نتيجة .. أعتقد أنه لا فائدة من البكاء على اللبن المسكوب .. يا ريت لو فيه حد عنده برنامج يكون جربه وأعطى نتائج حقيقية .. يقوم بإرفاقه في مشاركة ليستفيد الجميع أو على الأقل يكتب اسم البرنامج

جرب التعديل التالي عله يفي بالغرض Private Sub Worksheet_Change(ByVal Target As Range) Dim Rng As Range, LR As Integer If Target.Column = 3 And Target.Row > 8 Then Application.EnableEvents = False If Not IsEmpty(Target) Then LR = Cells(Rows.Count, "C").End(xlUp).Row Set Rng = Range(Cells(9, 1), Cells(LR, 1)) With Rng .ClearContents .Formula = "=IF(C9="""","""",SUBTOTAL(3,C$9:C9))" .Value = Rng.Value End With Target.Offset(, 3).Value = "زياد777" End If Application.EnableEvents = True End If End Sub تقبل تحياتي

كود ممتاز وبسيط ورائع أخي الغالي عبد السلام بارك الله فيك وجزيت خيراً

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

للحصول على النتائج في الأعمدة المطلوبة قم فقط بتغيير الحرف H إلى M في السطر التالي في الكود .Range("H" & I).Resize(1, 3).Value = English_Arabic_Numbers(.Range("G" & I).Value) بالنسبة للحل بالمعادلات فليس لي علم بها .. وسأترك الأمر للأخوة المتمكنين في المعادلات وإن شاء الله يصلوا لحل يناسبك

افتح ملفك اضغط Alt + F11 للدخول لمحرر الأكواد من قائمة Insert اختر Module لإدراج موديول جديد انسخ الكود الموضوع في مشاركتي السابقة الصقه في الموديول الجديد الذي تم إدراجه اذهب لورقة العمل واضغط Alt + F8 من لوحة المفاتيح واختر الإجراء الفرعي المسمى Test ثم انقر Run لابد أن تتعلم الأساسيات في التعامل مع محرر الأكواد للمزيد يرجى زيارة الرابط التالي من هنا

أخي الكريم زياد يكفي أن تضيف سطر يمسح النطاق بدايةً من الخلية A9 وإلى نهاية النطاق بهذا الشكل Rng.ClearContents قبل سطر وضع المعادلة

أخي الكريم الشيباني جرب الكود التالي عله يفي بالغرض إن شاء الله Sub Test() Dim Lr As Long, I As Long On Error Resume Next ThisWorkbook.VBProject.References.AddFromFile "C:\Windows\System32\vbscript.dll\3" On Error GoTo 0 With ActiveSheet Lr = .Cells(.Rows.Count, "G").End(xlUp).Row For I = 4 To Lr .Range("H" & I).Resize(1, 3).Value = English_Arabic_Numbers(.Range("G" & I).Value) Next I End With End Sub Private Function English_Arabic_Numbers(ByVal Nms As String) Dim E$, A$, Nm$ Dim V_r As Object Set V_r = CreateObject("VBScript.Regexp") On Error Resume Next With V_r .Global = True .IgnoreCase = True .Pattern = "\w|\n|\-|\(|\)|\&|\." A = Trim(.Replace(Nms, "")) .Pattern = "\D+" E = Trim(.Replace(Nms, "")) .Pattern = "[-?\d+(\.\d+)?|\u0600-\u06FF]" Nm = Trim(.Replace(Nms, "")) End With English_Arabic_Numbers = Array(Nm, A, E) Set V_r = Nothing End Function تقبل تحياتي

جرب الكود التالي عله يفي بالغرض Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Rng As Range, LR As Integer If Target.Column = 3 Then LR = Cells(Rows.Count, "C").End(xlUp).Row Set Rng = Range(Cells(9, 1), Cells(LR, 1)) Rng.Formula = "=IF(C9="""","""",SUBTOTAL(3,C$9:C9))" Rng.Value = Rng.Value End If End Sub بما أن النسخة لديك على ما يبدو أنها فرنسية فقم باستخدام معادلتك في الكود مع مراعاة وضع النصوص بين أقواس تنصيص .. تقبل تحياتي

وعليكم السلام أخي العزيز شوقي لكم اشتقنا لك ولمشاركاتك الرائعة .. في الحقيقة أنا الآن منذ ساعات وأقوم بالبحث في هذا الأمر ، وقد حصلت على البرنامج آخر نسخة منه ومعي السيريال ويعمل بشكل جيد .. إلا أن البرنامج بعد إدخال السيريال وبدء العمل عليه يغلق ولا يعمل !!!! سأضع لك البرنامج والسيريال وجرب لديك فقد تكون المشكلة لدي في نسخة الويندوز أو ما شابه مع العلم أنني جربت برامج أخرى وتعمل بشكل جيد مع الملفات التنفيذية ما عدا الملفات التنفيذية التي نحصل عليها من البرنامج xltoexe (شيء غريب!! ) .. في انتظار ردك ومحاولاتك Executable File Icons Changer (EXE Icon Changer).rar

وعليكم السلام أخي الكريم زياد أفضل إرفاق ملف للعمل عليه وتوفيراً للوقت ولتتضح الصورة أكثر ..

أخي الكريم راسبوتين .. الأداة لكل تطبيقات الأوفيس وليس للإكسيل فقط

يتم استيراد البيانات من الإكسيل إلى الأكسس ...قم بفتح برنامج الأكسس ثم كليك يمين في نافذة الـ Tables ثم التالي ثم حدد مكان ملف الإكسيل وقم بالنقر على Browse ثم انقر Open بعد تحديد ملف الإكسيل المراد استيراده ثم انقر OK ثم Next ثم Next ثم Next ثم في النافذة اختر No Primary Key ثم Next ثم اكتب اسم للجدول ثم Finish ثم أخيراً Close

أخي الحبيب أبو تامر موضوع قديم أول مرة أطلع عليه لكن للأسف المرفقات لا تعمل .. ويعطيني رسالة Unknown Excel ...؟ فهلا جددت لنا الموضوع ووضعت رابط لهذه الأداة التي أظنها رائعة كروعة صاحبها

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

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

الحمد لله أن تم المطلوب على خير وجزيت خيراً بمثل ما دعوت لي يرجى تغيير اسم الظهور للغة العربية ومراجعة موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى تقبل تحياتي

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

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

بارك الله فيك أخي العزيز جلال وجزاك الله خيراً .. ولأخونا رجب بمثل ذلك عسى أن يكون عدم دخوله للمنتدى خير إن شاء الله (افتقدناه كثيراً وافتقدنا روائعه)

ولا يهمك أخي الكريم وائل الحمد لله أن تم المطلوب على خير .. وأنت لست عاجز عن الشكر فقولك "جزاك الله خيراً" تفي وزيادة تقبل تحياتي