الاقسام
-
قسم تطبيقات و لغات مايكروسوفت
-
- 233
- مشاركات
-
- شركة موشن جرافيك
- بواسطه motiongraphics,
-
- 1k
- مشاركات
-
- 15.1k
- مشاركات
-
- 348.4k
- مشاركات
-
- حذف صف بناء على شرطين
- بواسطه أ / محمد صالح,
-
- 214.4k
- مشاركات
-
- 169
- مشاركات
-
- 15.9k
- مشاركات
-
- اطار لصفحة الوورد
- بواسطه eziahquadir,
-
- 5.9k
- مشاركات
-
- 1.8k
- مشاركات
-
- 237
- مشاركات
-
- 417
- مشاركات
-
- 966
- مشاركات
-
- تحميل برنامج Front Page
- بواسطه أ / محمد صالح,
-
- 92
- مشاركات
-
- طلب بتغيير عنوان هذا القسم
- بواسطه Jasmin,
-
- 40
- مشاركات
-
- 33
- مشاركات
-
- Business Card بطاقة عمل
- بواسطه shawndeee1,
-
- 6
- مشاركات
-
- 34
- مشاركات
-
- 609
- مشاركات
-
- 249
- مشاركات
-
- 14
- مشاركات
-
- 12
- مشاركات
-
-
الغات و أدوات البرمجة الأخرى
-
- 566
- مشاركات
-
- 91
- مشاركات
-
- تسيير مدرسة ابتدائية
- بواسطه OUASSIM2020,
-
- 66
- مشاركات
-
- مرتجعات الفاتورة
- بواسطه فيصل الحربي,
-
- 42
- مشاركات
-
- برنامج موبايل
- بواسطه جورج13,
-
-
أقسام الإدارة و إدارة المشاريع و تطبيقاتها
-
- 6
- مشاركات
-
- 368
- مشاركات
-
- 4
- مشاركات
-
- 32
- مشاركات
-
- 145
- مشاركات
-
- قاعدة ١٠ / ٩٠
- بواسطه Ahmed Elkasaby,
-
- 124
- مشاركات
-
- 114
- مشاركات
-
- مهارات التخطيط
- بواسطه binshehab,
-
-
البحث العلمي و علوم البيانات
-
- 58
- مشاركات
-
- كتابة الأبحاث
- بواسطه 0d59eacf59,
-
- 30
- مشاركات
-
- 23
- مشاركات
-
- مساعدة ولو بمقال كتب
- بواسطه مارك ويلكينز,
-
- 29
- مشاركات
-
- 5
- مشاركات
-
- 11
- مشاركات
-
- 46
- مشاركات
-
-
القسم العام
-
- 154
- مشاركات
-
- 1
- مشاركه
-
- نرحب بزوار الموقع
- بواسطه محمد طاهر,
-
- 534
- مشاركات
-
- إسترجاع الحساب
- بواسطه أكرم جلال,
-
- لاتوجد مشاركات بعد
-
-
احصائيات المنتدى
-
اجمالي الموضوعات88.4k
-
اجمالي المشاركات619.6k
-
-
احصائيات الاعضاء
-
مشاركات
-
بواسطه أ / محمد صالح · قام بنشر
يمكنك استعمال هذا الكود لحذف أقدم التكرارات Sub DeleteOldestRepeated() lr = Cells(Rows.Count, 3).End(xlUp).Row For r = 2 To lr If Evaluate("=COUNTIF($C$2:$C$" & lr & ",C" & r & ")") > 1 Then For n = (r + 1) To lr If Range("c" & n).Value = Range("c" & r).Value Then If Range("b" & n).Value >= Range("b" & r).Value Then Rows(r & ":" & r).Delete Shift:=xlUp r = r - 1 Else Rows(n & ":" & n).Delete Shift:=xlUp End If End If 'Exit For Next n End If Next r MsgBox "Done by mr-mas.com" End Sub وإذا كانت احتمالات التكرارات مرتين فقط في الاسم الواحد فيمكن حذف علامة التعليق قبل exit for لتسريع الكود أكثر بالتوفيق -
وجدت بالمنتدى مثال عسى أن يوضح لحضراتكم الفكرة حيث حاولت تطبيقها ولم استطيع على مثالى هذا مثالى للتطبيق عليه ومرفق معه ما وجدته بالمنتدى ارشيف - Moosak.rar test.rar -
انا فعلا نزلت البرنامج ممتاز جدا ونفذت الكود على سطر CMD وبالفعل تم عمل دمج لاكثر من ملف PDf https://drive.google.com/file/d/1EM6IQUr0I8ugusnlC48OZWNE7YUzOsdf/view?usp=sharing ولكن كيف يتم كتابة هذا الكود داخل الاكسس بحيث يتم الدمج مباشرة بعد الضغط على مفتاح مثلا بدون تدخل مستخدم البرنامج -
-
.thumb.gif.27c4a79ce23abc61b721f833e6899131.gif)
الله اكبـــــر يحيا العدل 👈 صعيدى وافتخر هذا فضل الله تعالى الذى هدانا وما كنا لنهتدى لولا ان هدانا الله عزوجل وهذا رزقكم ساقه الله اليكم
-
-
أحدث الموضوعات
-
-
اعلي المشاركون تقييماً
-
1
-
2
-
3
-
4
-
5
-
6
-
7
-
8
-
9
-
10
-
-
اعلي التحميلات من مكتبة الموقع
-
-
مدونات فرق الموقع
-
-
المتواجدين الان (اضغط هنا للقائمه الكامله)
