اضافة تايمر داخل ملف الإكسيل

[Undo]

السلام عليكم

 

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

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

 

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

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

و شكرا

timer.xlsx

[Ali Mohamed Ali]

تفضل تم الغاء الحماية نهائيا للتمكن من وضع كود التايمر وكود الحروف الكبيرة-واعتقد ايضا ان ملفك به فيروس

 

 

timer.xlsm

[Undo]

السلام عليكم

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


اولا : يوجد تايمر في الاكسل و لكن لا يعمل بالطريقة المطلوبة, حيث انه يتوقف عن العمل عند الكتابة في اي من حقول البرنامج, الرجاء اصلاح الكود.

ثانيا : يوجد كود في SHEET 2 , يقوم بتنفيذ عملية عند الكتابة في حقل L , اريد التعديل على الكود حيث يعمل نفس العملية و لكن عندما اضغط على زر HS CODE MERGEN.

ثالثا : اريد اضافة كود الى زر DELETE EMPTY ROW, يقوم بعمل DELETE للصفوص العرضية الفاضية من البيانات داخل الجدول, حيث يبقي الصفوص التي تحتوي على بيانات فقط.

رابعا : اريد كود يقوم بإضافة صف عرضي تلقائياً عند الكتابة في آخر مربع من العمود B داخل اطاار الجدول.


ملاحظة : لا مشكلة اذا كان المساعد لا يستطيع عمل جميع الطلبات, فليتم عمله و ننتظر شخص آخر للتطوير
الرجاء المساعدة للضرورة القصوى, و شكرا للجميع

AAAA.xlsm

[Ali Mohamed Ali]

تفضل لك ما طلبت

 

Timer.xlsm

[Ali Mohamed Ali]

تفضل

 

test.xlsm

[Undo]

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

+

كود الDELETE EMPTY ROW

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

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

 

[Ali Mohamed Ali]

تفضل-ولكن لا تقوم بكتابة الأرقام الموجودة بالعمود الأول A يدويا فموجود الترقيم داخل كود ادخال سطر جديد

 

 

2test.xlsm

[Undo]

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

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

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

[Ali Mohamed Ali]

تم تعديل وتغيير الملف في المشاركة السابقة

[Undo]

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

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

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

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

الف شكرا 

2test (1).xlsm

[Ali Mohamed Ali]

لا شيئ فقط تم تغيير كود الحروف الكبيرة من Change الى SelectionChange

لأن هناك فى نفس الصفحة كود اخر لإدخال سطر جديد يعمل ب Change فلا يمكن عمل كودين فى نفس الصفحة تحت نفس الإسم

بارك الله فيك والحمد لله الذى بنعمته تتم الصالحات

[Undo]

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

 

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

 

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

 

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

 

اشكرك

2test (1).xlsm

[Ali Mohamed Ali]

ما تقوله غير منطقى فعند حذف الصف لخلوه من البيانات كيف يتم الإبقاء على اى شيء فلابد من حذف الصف بأكمله

والا تقوم بعمل هذا الترقيم يدويا وهذا يكون غير دقيق بالنسبة لك فربما تنسى سريال

يسر ولا تعسر

[Undo]

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

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

الصفين رقم 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

 

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