Undo

السلام عليكم

اعدادات الجهاز

Uni-code = arabic

VBA Editor Font = Calibary Arabic

الخط يظهر جيدا باللغة العربية في نص البرمجة وعند تشغيل البرنامج

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

حتى عند حفظ الملف بصيغة utf-8

هل هناك حل؟

السلام عليكم

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

مثال : ديسمبر

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

في الصفحة الانجليزية

1 - قم بتغيير اتجاه النص ليكون من اليسار الى اليمين

2 -المحاذاة تكون على اليسار مثل الصورة

وجرب بعدها

بإمكانك عمل ترقيم تسلسلي في الجدول الذي تستورد مزه بيانات دمج المراسلات

وتضع الرقم في الاستمار

كيف يعني اشوف ملف الخط؟ الملف تظهر فيه جميع الحروف دون اخطاء

حتى في الوورد تظهر الحروف ولكن بعض الاحيان في الطباعة تظهر بعضها ؟؟

السلام عليكم

في بعض الاحيان عند الطباعة من برنامج وورد تظهر رموز ؟ بدل بعض الاحرف

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

السلام عليكم

كيف يمكنني تنسيق الـPivot Table حسب الطريقة المطلوبة في الصورة؟ حيث ان كود الموظف خاص به يحتوي على موظف واحد فقط, لا داعي لعمله كمجموعات

Book1.xlsx

ماهو الحل لو اراد طباعة النموذج 7000 مرة ؟

قد تكون هناك خيارات اخرى و هذا احد الخيارات

1 - اعمل ملف اكسل اعطي اسم للعامود و قم بترقيمه حسب التسلسل المطلوب

2 - افتح الاستمار على الوورد، اختار mailing ثم select reciptions ثم use an exsiting list ثم اضف ملف الاكسل، ثم حدد مكان كتابة رقم الاستمارة واضغط add field و اختار اسم العامود في ملف الاكسل

بعد ذلك يمكنك طباعة الاستمارات دفعة واحدة بالضغط على Finish&Merge ومن ثم طباعة الكل

السلام عليكم

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

ولكن هل يمكن عمل تصحيح تلقائي لحقل نصي textbox مع الكلام مع التنسيق؟

قمت بالمحاولة ولكن يظهر فقط * في خانة Formated text

السلام عليكم

ماهي افضل طريقة لعمل جدول فيه اعمدة بيانات لموظفين

و ثم الذهاب الى شيت آخر و عمل جدول حسب الطلب بعدد معين من الاعمدة (الHeaders) ثم يقوم يتم ملئ الجدول تلقائيا استنادا على اسم الموظف و الاعمدة المطلوبة المطابقة بالأسم في الجدول الرئيس

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

هل هناك طريقة لجلب بيانات العمود بناءً على اسم العامود؟ أعتقد ان هنالك طريقة بالـPOWER QUERY لربط الاعمدة

و شكرا

شكرا لك, يبقى الحل الافضل هو استعمال justify ثم تـمـديـد الكلمات يدويا لتسكير المسافات

نعم اخي, انا اريد ان تكون نهاية السطور واحدة مثل ميزة justify و لكن يكون الضبط عن طريق تـمـديـد الكلمات فقط دون اضافة مسافات, هل هناك حل؟

السلام عليكم

عند كتابة الفقرات في الوورد تواجهني مشكلة و هي عند تنسيق نهاية السطور بميزة justify تكون بعض الكلمات في بعض السطور متباعدة بعض الشيء رغم التمديد

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

هل هناك حل؟

المسافات.docx

قد يكون احد هذه الخطوط

https://fontbug.com/ar/fontsearch/539891-2

شكرا لك 

السلام عليكم

احتاج كود للزر لاختيار ملف xml من الجهاز

و من ثم يقوم النظام بقراءة ملف الxml المختار و يقوم بإستيراد قيم الtags الموضحة في جدول الشروط فقط

حيث ان جدول الشروط يوضح الtags المطلوب استيرادها من ملف الxml و اسم رأس الجدول المراد وضع فيه بيانات كلtag في الجدول الاول

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

ملاحظة : احتاج كود برمجي خاص و ليس استيراد من اعدادات اكسل

تم ارفاق ملف الاكسل و ملف xml

و شكرا للجميع

استيراد.xlsm xml.rar

السلام عليكم

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

بحيث لو احد حاول يشوف الكود البرمجي مايسمح له الاكسل

اسم البرنامج VBA protection

الرجاء الافادة من صاحب البرنامج؟ اريد رابط الموضوع و شكرا

اتوقع انك فهمتني خطأ

شوف الصورة في المرفقات

الصفين رقم 5 و 7 حسب ترقيم اكسل. يعتبران فاضيان, و لكن الكود مايمسح الصفين لانه يعتمد ايضا على العمود A فيعتبر ان جميع الصفوف حاليا بهم بيانات

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

اريده يعتمد فقط ع الاعمدة بين B TO L

هذا هو الكود اذا ممكن تعدل عليه

Private Sub CommandButton2_Click()

Dim LastRowIndex As Integer
    Dim RowIndex As Integer
    Dim UsedRng As Range
     Set UsedRng = ActiveSheet.UsedRange
    LastRowIndex = UsedRng.Row - 1 + UsedRng.Rows.Count
    Application.ScreenUpdating = False
     For RowIndex = LastRowIndex To 1 Step -1
        If Application.CountA(Rows(RowIndex)) = 0 Then
            Rows(RowIndex).Delete
        End If
    Next RowIndex
     Application.ScreenUpdating = True
 

End Sub

كل الشكر لك و المعذره على الاطالة

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

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

اتمنى تجاهل رقم الصف في عملية تقدير الصف الفاضي

التعديل ع الملف المرفق هنا

اشكرك

2test (1).xlsm

الكود شغال 100% و لكن في شيء بسيط فرق معي

قبل كذا كان لما اكتب small latter بعد مابخرج من مربع الكتابة على طول يتحول capital بفضل الكود المرفق

و لكن الان بعد الكتابة يضل small latter لحد ما ارجع ع مربع الكتابة مرة اخرى

هل هناك شيء عطل الكود من التشغيل؟

الف شكرا 

2test (1).xlsm

اشكرك ع الاضافة و لكن الى الان يظهر الخطأ السابق

عند فتح الملف و الذهاب الى الصفحة رقم واحد و العودة الى الصفحة رقم 2, يحدث الخطا

مرفق الصور للخطأ

عند الانتقال الى الصفحة الاخرى و الرجوع الى صفحة الجدول يظهر هذا الخطأ 

+

كود الDELETE EMPTY ROW

يجب ان يمسح الصفوف الفاضية دون الاعتماد على العمود A.. لانه سيحتوي دائما على ارقام

اعتذر لك مجددا,شكرا

AAAA.xlsm

السلام عليكم

الرجاء اضافة تايمر يبدأ بحساب كم الوقت المستغرق و انت فاتح الاكسل

بحيث اول ماتفتح الاكسل يبدأ من ال0 و لو سكرت الاكسل و رجعت فتحته يرجع من ال0

و طلب اخر, اريد البيانات التي يدخلها المستخدم تكون دائما capital latter

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

و شكرا

timer.xlsx