Undo قام بنشر يوليو 6, 2019 مشاركة قام بنشر يوليو 6, 2019 السلام عليكم الرجاء اضافة تايمر يبدأ بحساب كم الوقت المستغرق و انت فاتح الاكسل بحيث اول ماتفتح الاكسل يبدأ من ال0 و لو سكرت الاكسل و رجعت فتحته يرجع من ال0 و طلب اخر, اريد البيانات التي يدخلها المستخدم تكون دائما capital latter يفضل ان تكون كتابة كود في الصفحة و ليس ماكرو و شكرا timer.xlsx رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر يوليو 7, 2019 مشاركة قام بنشر يوليو 7, 2019 تفضل تم الغاء الحماية نهائيا للتمكن من وضع كود التايمر وكود الحروف الكبيرة-واعتقد ايضا ان ملفك به فيروس timer.xlsm 3 رابط هذا التعليق شارك More sharing options...
Undo قام بنشر يوليو 12, 2019 الكاتب مشاركة قام بنشر يوليو 12, 2019 السلام عليكم لدي اكسل تمت برمجته مسبقا, اتمنى التعديل عليه مع بعض الاضافات المطلوبة اولا : يوجد تايمر في الاكسل و لكن لا يعمل بالطريقة المطلوبة, حيث انه يتوقف عن العمل عند الكتابة في اي من حقول البرنامج, الرجاء اصلاح الكود. ثانيا : يوجد كود في SHEET 2 , يقوم بتنفيذ عملية عند الكتابة في حقل L , اريد التعديل على الكود حيث يعمل نفس العملية و لكن عندما اضغط على زر HS CODE MERGEN. ثالثا : اريد اضافة كود الى زر DELETE EMPTY ROW, يقوم بعمل DELETE للصفوص العرضية الفاضية من البيانات داخل الجدول, حيث يبقي الصفوص التي تحتوي على بيانات فقط. رابعا : اريد كود يقوم بإضافة صف عرضي تلقائياً عند الكتابة في آخر مربع من العمود B داخل اطاار الجدول. ملاحظة : لا مشكلة اذا كان المساعد لا يستطيع عمل جميع الطلبات, فليتم عمله و ننتظر شخص آخر للتطوير الرجاء المساعدة للضرورة القصوى, و شكرا للجميع AAAA.xlsm رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر يوليو 15, 2019 مشاركة قام بنشر يوليو 15, 2019 تفضل لك ما طلبت Timer.xlsm 3 1 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر يوليو 15, 2019 مشاركة قام بنشر يوليو 15, 2019 تفضل test.xlsm 3 رابط هذا التعليق شارك More sharing options...
Undo قام بنشر يوليو 15, 2019 الكاتب مشاركة قام بنشر يوليو 15, 2019 عند الانتقال الى الصفحة الاخرى و الرجوع الى صفحة الجدول يظهر هذا الخطأ + كود الDELETE EMPTY ROW يجب ان يمسح الصفوف الفاضية دون الاعتماد على العمود A.. لانه سيحتوي دائما على ارقام اعتذر لك مجددا,شكرا رابط هذا التعليق شارك More sharing options...
أفضل إجابة Ali Mohamed Ali قام بنشر يوليو 15, 2019 أفضل إجابة مشاركة قام بنشر يوليو 15, 2019 تفضل-ولكن لا تقوم بكتابة الأرقام الموجودة بالعمود الأول A يدويا فموجود الترقيم داخل كود ادخال سطر جديد 2test.xlsm 3 رابط هذا التعليق شارك More sharing options...
Undo قام بنشر يوليو 15, 2019 الكاتب مشاركة قام بنشر يوليو 15, 2019 اشكرك ع الاضافة و لكن الى الان يظهر الخطأ السابق عند فتح الملف و الذهاب الى الصفحة رقم واحد و العودة الى الصفحة رقم 2, يحدث الخطا مرفق الصور للخطأ رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر يوليو 15, 2019 مشاركة قام بنشر يوليو 15, 2019 تم تعديل وتغيير الملف في المشاركة السابقة 3 رابط هذا التعليق شارك More sharing options...
Undo قام بنشر يوليو 15, 2019 الكاتب مشاركة قام بنشر يوليو 15, 2019 الكود شغال 100% و لكن في شيء بسيط فرق معي قبل كذا كان لما اكتب small latter بعد مابخرج من مربع الكتابة على طول يتحول capital بفضل الكود المرفق و لكن الان بعد الكتابة يضل small latter لحد ما ارجع ع مربع الكتابة مرة اخرى هل هناك شيء عطل الكود من التشغيل؟ الف شكرا 2test (1).xlsm رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر يوليو 15, 2019 مشاركة قام بنشر يوليو 15, 2019 لا شيئ فقط تم تغيير كود الحروف الكبيرة من Change الى SelectionChange لأن هناك فى نفس الصفحة كود اخر لإدخال سطر جديد يعمل ب Change فلا يمكن عمل كودين فى نفس الصفحة تحت نفس الإسم بارك الله فيك والحمد لله الذى بنعمته تتم الصالحات 1 رابط هذا التعليق شارك More sharing options...
Undo قام بنشر يوليو 16, 2019 الكاتب مشاركة قام بنشر يوليو 16, 2019 تمام اشكرك، فضلا الرجاء تعديل كود مسح الصفوف ليتجاهل به عمود الارقام، اعرف اني لو اضفت الصفوف بالكود الاوتوماتيكي حقك و بعدها مسحت المحتوى راح يمسح رقم الصف اوتوماتيك وهكذا بقدر امسح الصف عن طريق الزر و لكني استخدم ماكرو آخر للتجميع فيمسح المحتوى دون رقم الصف، هكذا يتوجب علي يدويا مسح ارقام الصفوف اذا كنت اريد استخدم زر المسح اتمنى تجاهل رقم الصف في عملية تقدير الصف الفاضي التعديل ع الملف المرفق هنا اشكرك 2test (1).xlsm رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر يوليو 17, 2019 مشاركة قام بنشر يوليو 17, 2019 ما تقوله غير منطقى فعند حذف الصف لخلوه من البيانات كيف يتم الإبقاء على اى شيء فلابد من حذف الصف بأكمله والا تقوم بعمل هذا الترقيم يدويا وهذا يكون غير دقيق بالنسبة لك فربما تنسى سريال يسر ولا تعسر 1 رابط هذا التعليق شارك More sharing options...
Undo قام بنشر يوليو 17, 2019 الكاتب مشاركة قام بنشر يوليو 17, 2019 اتوقع انك فهمتني خطأ شوف الصورة في المرفقات الصفين رقم 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 كل الشكر لك و المعذره على الاطالة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان