محسن33
-
Posts
67 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو محسن33
-
السلام عليكم ورحمة الله الأخ سليم حاصبيا بارك الله فيكم هو المطلوب الله يوفقك
-
هل يمكن التطبيق على الموجود في شيت2 مطعم.rar
-
اشكرك على الاستجابة السريعة جاري التجربة مشكور ولو لي استفسار أتمنى المشاركة
-
السلام عليكم و رحمة الله لدي اكثر من 10000 صف واكثر من 70 عميل في احياء مختلفة ارجو كود الترحيل للمثال المرفق على حسب اسم الحي(الورقة يعطيكم العافية ترحيل.rar
-
السلام عليكم انا طلبي في يوزرفورم وليس في الشيت المطلوب كود تصفية لليست بوكس معتمدا على تكست بوكس ارجو الرد
-
السلام عليكم حياكم الله المطلوب كود لتصفية ليست بوكس
-
الأخ بن علية حاجي والاخ سليم حاصبيا اشكركم على الاكواد الرائعة فضلا منكم شرح كود الأخ بن علية حاجي شكرا لكم
-
السلام عليكم ورحمة الله لدي 70 الف سطر لخلايا من A1:K70000 مااريدة هو في حالة اختلاف قيمة من العمود A عن ماتحتها يتم ادراج سطر بالكود او بالمعادلات شكرا لكم اوفيسنا.rar
-
الاخ بن علية مشكور على شرح الكود بس سؤال هل يعمل الكود على عدد صفوف في حدود 400 الف صف؟؟؟؟؟؟؟؟؟ لاني جربتة لم يعمل يرجى المساعدة
-
Sub insert_rows() Dim i%, k% Application.ScreenUpdating = False i = Cells(Rows.Count, 1).End(3).Row Do Until i = 1 If Range("a" & i) = "" Then Rows(i).Delete End If i = i - 1 Loop '========================== k = Cells(Rows.Count, 1).End(3).Row Do Until k = 2 If Range("a" & k) <> Range("a" & k - 1) Then Rows(k).Insert End If k = k - 1 Loop Application.ScreenUpdating = True End Sub
-
للرفع للاهمية وهل يمكن في حالة عدد الصفوف 500000 يعمل الكود مع خالص الشكر وفي انتظار شرح االكود والسؤال
-
للرفع للاهمية وهل يمكن في حالة عدد الصفوف 500000 يعمل الكود مع خالص الشكر وفي انتظار شرح االكود والسؤال
-
السلام عليكم ارجو شرح هذا الكود لادراج سطر Option Explicit Sub insert_rows() Dim i%, k% Application.ScreenUpdating = False i = Cells(Rows.Count, 1).End(3).Row Do Until i = 1 If Range("a" & i) = "" Then Rows(i).Delete End If i = i - 1 Loop '========================== k = Cells(Rows.Count, 1).End(3).Row Do Until k = 2 If Range("a" & k) <> Range("a" & k - 1) Then Rows(k).Insert End If k = k - 1 Loop Application.ScreenUpdating = True End Sub
-
للرفع
-
لو امكن شرح الكود لكم الشكر
-
شكرا هو المطلوب
-
السلام عليكم لدي 40 الف سطر وعدد 4 اعمدة المطلوب ادراج سطر فارغ في حالة اختلاف قيمة الخلية عن الخلية التالية لها في السطور ياريت بالكود او معادلة بس تكون سريعة في التنفيذ شكرا
-
وداعا للدالة vlookup واهلا بالدالة VLOOKUPAlsaqrHMK
محسن33 replied to عماد محمد غازى محمد رحمة's topic in منتدى الاكسيل Excel
الأخ عماد جزيت خيرا الدالة جيدة ولكن عندي ملف لاكثر من 50000 صف الدالة بطيئة للغاية هل من طريقة لتسريع عرض البيانات للدالة شكرا -
السلام عليكم الأخ العزيز طلعت محمد اشكرك وهو المطلوب بالضبط انار الله لك طريقك
-
السلام عليكم لدي يوزرفورم بتم الترحيل منه الى الشيت كيف يمكنني التصحيح في أي خلية في الشيت بدون اغلاق اليوزرفورم أي المقصود التبديل بين الشيت واليوزرفورم بدون اغلاق اليوزرفورم اشكركم USER.rar
-
الأخ أبو حنين السلام عليكم ياليت مثال على الكود Dim i As Long TextBox1 = "" For i = 0 To ListBox1.ListCount - 1 TextBox1.Value = Val(TextBox1) + Val(ListBox1.List(i, 4)) Next NEXT
-
مع الاحترام لجميع الحلول ببساطة اعمل فلتر حسب اللون وظلل الحلايا وانظر تحت ستجد عددهم ومجموعهم ومتوسطهم جاهزين في الاكسيل لماذا لانبسط الاشياء؟ شكرا
-
ببساطة ممكن نضغ عمود مسلسل1 2 3 4 5 6 وهكذا امام كل اسم رقم ثم من DATA نرتب المسلسل من Z TO A ياتي المطلوب ارجو الرد على الفكرة
-
السلام غليكم قرأت وحاولت ارجو المساعدة في المثال السابق
-
للرفع
