أكاديمية الصقر للتدريب

اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
بكار للأبد Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil الداله الجديده المعرفه alsqrdate - حسام خطاب اكسيل اسئله واجابات



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .


الرئيسية
نتائج البحث


نتائج البحث عن ردود العضو :Eslam Abdullah
عدد النتائج (486) نتيجة
18-12-2018 11:26 مساء
icon جمع المتشابة برقم الكود في عمود B وبينهم صف فارغ | الكاتب :Eslam Abdullah |المنتدى: اكسيل اسئله واجابات
 
المشاركة الأصلية كتبت بواسطة: محمود ابو الدهب »
تحت امر حضرتك اولا للترتيب من الاصغر الى الاكبر ,ولتمديد النطاق الى العمود aa
نغير بعض البيانات بالسطر التالى 

ws.Range("a7:l" & lr).Sort Key1:=ws.Range("b7:b" & lr), Order1:=xlDescending, Header:=xlNo


1- للترتيب من الاصغر للاكبر
نغير xlDescending
الى xlAscending
ليصبح السطر كالتالى

ws.Range("a7:l" & lr).Sort Key1:=ws.Range("b7:b" & lr), Order1:=xlAscending, Header:=xlNo


2- لتمديد النطاق على العمود aa مثلا 
نغير اول الوكد ws.Range("a7:L" & lr
نجعل L نجعلها AA او CBA اختر العمود الى يناسبك بقة

3- للعمل ان الجزء المسؤل عن رقم الكود الى بيرتب بناء علية هو 
Key1:=ws.Range("b7:b" & lr)

اى رتب بناء على بيانات العمود  b  هذا لو احببت ان تغير ترتيب رقم عمود رقم الكود

ثانيا بخصوص انه يضيف اسطر اسفل الكود وذالك لانه في كل مرة يرتب الاعمده يقوم بتنزيل الصفوف الفارغة التى اضافها من المرة السابقة الى الاسفل ولو تريد ان يحذفها 
فمثلا ضع السطر التالى 
ws.Range("a" & lr + 1 & ":" & "a" & lr + 1000).EntireRow.Delete

ومعناه اذاهب لاخر صف به بيانات وحدده وزد علية الف صف وانا وضعة الاف بزيارد وهذا كتعبير ثم بعد ان تحدد الالف صف اخر اخر صف به بيانات احذفهم 

والشكل النهائي للكود بعد التعدليلات التى طلبتها

Option Explicit

Sub abodahab()
Dim lr      As Long
Dim x       As Long
Dim ws      As Worksheet

Application.ScreenUpdating = False
Set ws = Worksheets("data")
lr = ws.Cells(ws.Rows.Count, 2).End(xlUp).row
ws.Range("a7:AA" & lr).Sort Key1:=ws.Range("b7:b" & lr), Order1:=xlAscending, Header:=xlNo
lr = ws.Cells(ws.Rows.Count, 2).End(xlUp).row
ws.Range("a" & lr + 1 & ":" & "a" & lr + 1000).EntireRow.Delete
For x = 7 To lr
   If ws.Range("b" & x).Value <> ws.Range("b" & x + 1).Value And ws.Range("b" & x + 1).Value <> "" Then
    ws.Rows(x + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    x = x + 1
    lr = lr + 1
   End If
Next x
Application.ScreenUpdating = True
End Sub



وبالنهائية اتمنى ان يحقق طلباتك 


تقبل تحياتى وتقديرى


 

رائع ياحوده ، ايه الحلاوه دى 123
17-12-2018 05:46 مساء
icon الدالة المعرفة DateDif30 | الكاتب :Eslam Abdullah |المنتدى: اكسيل شروحات ودروس
 
المشاركة الأصلية كتبت بواسطة: محمود ابو الدهب »
 

حبيبى أحوده ، لا لا دا أقل ما عندى ، أنا بس مش بحب اتكلم على نفسى كتير 1[/quote]

هموت من التواضع cool[/quote]
ههههههههههههههههههههههه عارف عارف biggrin2
انت لسه مصر تقتبس النص بالشكل دا ارحمنى ياشييييخ
17-12-2018 11:38 صباحا
icon الدالة المعرفة DateDif30 | الكاتب :Eslam Abdullah |المنتدى: اكسيل شروحات ودروس
 مشكور مروركم العطر وتقديركم الغالى جميعا أخوانى وأحبائى فى الله
دمتم فى حفظ الله ورعايته 81
17-12-2018 11:37 صباحا
icon الدالة المعرفة DateDif30 | الكاتب :Eslam Abdullah |المنتدى: اكسيل شروحات ودروس
 
المشاركة الأصلية كتبت بواسطة: الصقر »

جزاكم الله خيرا ايها المبرمج الصغير 123


بعض ما عندكم أستاذنا ومبرمجنا والمدير المالى الكبير biggrin2
17-12-2018 11:35 صباحا
icon الدالة المعرفة DateDif30 | الكاتب :Eslam Abdullah |المنتدى: اكسيل شروحات ودروس
 
المشاركة الأصلية كتبت بواسطة: محمود ابو الدهب »
جارى التنزيل والتجربه ومتأكد انها ستكون من ضمن افضل الدوال الخاص بك سلم حبيبي
 

حبيبى أحوده ، لا لا دا أقل ما عندى ، أنا بس مش بحب اتكلم على نفسى كتير 1
16-12-2018 12:41 مساء
icon الجمع أعتماداً على تنسيق الخلايا ومعرفة الصحيح منها والعشرى - حسام خطاب | الكاتب :Eslam Abdullah |المنتدى: تطبيقات محاسبيه بالاكسيل
 جزاك الله خيرا استاذى الحبيب حسام مبدع كعادتك
وهذا موضوع مشابه لاثراء الموضوع لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
13-12-2018 09:04 مساء
icon الداله الجديده المعرفه alsqrdate - حسام خطاب | الكاتب :Eslam Abdullah |المنتدى: اكسيل شروحات ودروس
 جزاك الله خيرا استاذى الحبيب حسام 123
09-12-2018 08:46 مساء
icon أبجدية الأسماء بمعادلة صفيف | الكاتب :Eslam Abdullah |المنتدى: اكسيل شروحات ودروس
 لا لا مش هيشيله اصله مش بيحب يزعلنى biggrin2biggrin2biggrin2biggrin2biggrin2
08-12-2018 04:45 مساء
icon شكر واجب | الكاتب :Eslam Abdullah |المنتدى: المنتدى العام
 بارك الله فيك أخى الكريم جلال 81
06-12-2018 09:14 مساء
icon دالة وحساب الضريبة | الكاتب :Eslam Abdullah |المنتدى: اكسيل اسئله واجابات
 قمت بفتح الملف المرفق ولكن لم افهم المطلوب بالضبط
ارجوا ارفاق ملف بسيط بالسؤال وبيان بعض النتائج المتوقعه
للتوضيح والتعامل مع المطلوب بشكل افضل
05-12-2018 04:28 مساء
icon ضبط التنسيق بلغة واحدة | الكاتب :Eslam Abdullah |المنتدى: اكسيل شروحات ودروس
 وجزاكم الله خيرا جميعا
مشكور مروركم العطر على الموضوع المتواضع 81
04-12-2018 11:29 مساء
icon ضبط التنسيق بلغة واحدة | الكاتب :Eslam Abdullah |المنتدى: اكسيل شروحات ودروس
 مشكور أخى الغالى عبدالجيد لمرورك العطر والمشرف على الموضوع المتواضع 81

الصفحة 1 من 41 < 1 2 3 4 41 > الأخيرة »





الساعة الآن 09:43 صباحا

أعلن هنا
أعلن هنا
أعلن هنا