اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


Undo
إذهب إلى أفضل إجابة Solved by Ali Mohamed Ali,

الردود الموصى بها

السلام عليكم

 

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

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

 

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

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

و شكرا

timer.xlsx

رابط هذا التعليق
شارك

السلام عليكم

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


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

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

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

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


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

AAAA.xlsm

رابط هذا التعليق
شارك

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

+

كود الDELETE EMPTY ROW

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

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

 

Untitled.png

رابط هذا التعليق
شارك

  • أفضل إجابة

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

 

 

2test.xlsm

  • Like 3
رابط هذا التعليق
شارك

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

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

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

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

الف شكرا 

Untitled.png

2test (1).xlsm

رابط هذا التعليق
شارك

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

 

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

 

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

 

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

 

اشكرك

2test (1).xlsm

رابط هذا التعليق
شارك

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

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

يسر ولا تعسر

  • Like 1
رابط هذا التعليق
شارك

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

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

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

 

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

Untitled.png

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information