يحيى حسين

السلام عليكم و رحمة الله و بركاته إضافة لحل الأخ أيسم و لإثراء الموضوع و على فرض ان الإسم الذي ترغب في تجزئته موجود في الخلية A1 في الخلية B1 =LEFT(A1,FIND(" ",A1)-1) في الخلية C1 =TRIM(LEFT(SUBSTITUTE(A1,B1,"",1),FIND(" ",TRIM(SUBSTITUTE(A1,B1,"",1))))) في الخلية D1 =LEFT(TRIM(SUBSTITUTE(SUBSTITUTE(A1,B1,"",1),C1,"",1)),FIND(" ",TRIM(SUBSTITUTE(SUBSTITUTE(A1,B1,"",1),C1,"",1)))) في الخلية E1 =TRIM(RIGHT(SUBSTITUTE(A1," ",REPT(" ",50)),50)) ============ دمتم في حفظ الله

السلام عليكم و رحمة الله تفضل اخي كيماس

وعليكم السلام ورحمة الله وبركاته مرورك استاذ يحي شرف كبير شكرا لكم ونرجو ان تظل تمر علينا انا في خدمتكم اخي و لكن ما شاء الله الاخ عماد و الاخ خالدي ابدعو معك

السلام عليكم و رحمة الله اخي مثالك الثاني نفس المثال الاول و لا يهم التسلسل عندنا و لكن عندما يكبر حجم الداتا يحصل بطئ فيها اكثر ما يهمنا هو ان يكون رقم القيد غير مكرر فهو المعيار الرئيسي في هذه العملية

السلام عليكم و رحمة الله تفضل أخي شاهد المرفق و أتمنى أن يكون هو طلبك Classeur1.rar

السلام عليكم و رحمة الله حسب ما فهمت من الاخ يوسف جرب المعادلات التالية على فرض ان الرقم القومي في الخلية a1 B1 ="19"&MID(A1,2,2) C1 =MID(A1,4,2) D1 =MID(A1,6,2)

السلام علكيم و رحمة الله و بركاته إخواني في الله هذه هي المرة الأولى التي اعرض فيها هذا الدالة و التي تقوم بجعل الدالة vLOOKUP تقرأ من بالعكس من اليمين لليسار و ليس من الياسر لليمين أتمنى أن تستفيدو منها أخي ضع هذه الدالة في الخلية F2 ثم اسحبها للأسفل بدون تغيير شكل الجدول لديك =VLOOKUP(E2,IF({1,0},$B$1:$B$1015,$A$1:$A$1015),2,0) =============== دمتم في حفظ الله

السلام عليكم و رحمة الله أخي يوجد عدة طرق لحل هذه المشلكة قم بتحديد المدى او العامود ثم من التاب داتا اختر TextTocolumn و إضغط انها و ستجد ان جميع الداتا تحولت لأرقام الطريقة الثانية قم بكتابة الرقم 1 في اي خلية فارغة ثم اعمل كوبي له و اذهب و حدد العمود الذي ترغب في تحويل بياناته ثم اختر لصق خاص PastSpecial ثم حدد في الجزء الوسط عملية الضرب Mutilply و هذا كود بسيط جدا لحل هذه المشلكة قم بتحديد اي مدى ثم فعل الكود Sub Excel4Us() With Selection .TextToColumns End With End Sub او جرب هذا الكود و يقوم بعمل التحويل لكامل الجدول Sub Excel4Us() Dim LastR As Long LastR = Range("a" & Rows.Count).End(xlUp).Row Cells(15, 1).Value = 1 Cells(15, 1).Copy Range("a2:h" & LastR).PasteSpecial , xlPasteSpecialOperationMultiply End Sub و لكن تذكر انه يجب عليك اعادة تنسيق الخلايا بعد ان تطبق هذه الاكواد ============== دمتم في حفظ الله

السلام عليكم و رحمة الله اكيد اخي ممكن و لكن ارفق مثال مع شرح بسيط يوضح اين النسة و الشهر في الرقم

السلام عليكم أخي هشام في حاجة بكود مش ضرورية و يمكن الإستغناء عنها For r = 1 To 1 For c = 11 To 11 Sheets("ÇáÍÓÇÈ").Cells(r, c).Formula = "=sum('" & FF & ":" & LL & "'!" & Cells(r, c).Address & ")" Next c Next r لا يوجد اي فائدة من الحلقات التكرارية هنا لأنه لا يوجد تكرار من الأساس

السلام عليكم و رحمة الله أخي قصي ما شاء الله عمل و فكرة جميلة و إبداعات متأصله من بحور علم تنبع من الأخوين خلدي و الحسامي جزاهم الله كل خير =========== دمتم في حفظ الله

السلام عليكم و رحمة الله أخي الأرقام هل تظهر كا أنها نص أم انها صورة هناك فرق حاول ارفاق ملفك على رابط خارجي غذا كان حجم الملف كبير او تأكد من ضغط ملفك ثم قم بإعادة رقعه هنا ============== دمتم في حفظ الله

السلام عليكم و رحمة الله أخي عمل رائع متعوب عليه جزاك الله كل خير و اخي مصطفى الملف يعمل على النسخ 2007 و 2010 لذلك ظهر عندك الإمتداد xlsm ================== دمتم في حفظ الله

السلام عليكم و رحمة الله إضافة لحل الأستاذ هشام هذا كود لجمع كامل القيم في صفحة داخل مصنفك مالم يكن اسمها "الحسابات" Sub SumMySheets() Dim ws As Worksheet MySum = 0 For Each ws In ThisWorkbook.Worksheets If ws.Name <> "الحسابات" Then MySum = ws.Range("k1").Value + MySum End If Next ws Debug.Print MySum Sheets("الحسابات").Range("k1").Value = MySum End Sub و هذا كود لإحضار اسماء جميع الصفحات في الخلية i7 و لقد وضعته في حدث فتح الصفحة و في كل مرة تفتح الملف سيتم تلقائياً اضافة الاسماء Private Sub Workbook_Open() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Range("i7").Value = ws.Name Next ws End Sub ================== دمتم في حفظ الله

السلام عليكم و رحمة الله جرب هذه المعادلة اخي ضعها في الخلية F2 ثم اسحبها لليمين و للأسفل =IF(COUNTIF($A$2:$A$26,$E$2)>=ROWS($F$2:F2),INDEX(B$2:B$26,SMALL(IF($A$2:$A$26=$E$2,ROW($A$2:$A$26)-ROW($A$2)+1),ROW(1:1))),"") و لا تنسى ان تضغط Ctrl+Shift+Enter

السلام عليكم و رحمة الله اخي عمران اتوقع ان مشكلتك مرتبطة بملفات الريجستري و حاول ان تعيد تسطيب الاوفيس مرة اخرى ا جرب قبلها ملف للاخ ابو تامر لإستعادة الاعدادات الاصلية للكسيل لو بحثت عنه ستجد في المنتدى =========== دمت في حفظ الله

السلام عليكم و رحمة الله أخي الباحث اولا اشكرك على الطريقة المرتبة و الجميلة في عرض موضوعك و اسلوبك الواضح في طرح المشلكة و النتائج المتوقعة و تفضل جرب هذا الحل على فرض ان البيانات موجودة في العمود a and b جرب هذا الكود Sub Excel4us() Dim c As Range, i As Integer x = 1 For Each c In Range("b2:b4") For i = 1 To c.Value Cells(x, 5).Value = "مدرس " & c.Offset(, -1).Value & i x = x + 1 Next i Next c End Sub

السلام عليكم و رحمة اللله شرح جميل و موفق اخي كيماس و كمعلومة صغرية يمكنك استخدام الكيبورد بدلاص من الماوس في الحصول على القائمة من خلال الضغط على Alt + سهم للأسفل ======= انا من عشاق الكيبورد و احاول تجنب استخدام المواس قدر المستطاع ====== دمتم في حفظ الله

السلام عليكم و رحمة الله و بركاته أخي جاد الرب هذا كود يقوم بعمل كل الخطوات السابقة و هو أسهل و أسرع Sub Excel4us() Dim i As Integer, y As Integer, x As Integer Application.ScreenUpdating = False x = 1 For y = 1 To 18 For i = 1 To 9 Range("u" & x).Value = Cells(i, y).Value x = x + 1 Next i Next y With Range("u1:u" & Range("u" & Rows.Count).End(xlUp).Row) .SpecialCells(xlCellTypeBlanks).Delete shift:=xlUp End With With Range("u1:u" & Range("u" & Rows.Count).End(xlUp).Row) .AdvancedFilter xlFilterCopy, , [v1], True End With For Each c In Range("w1:W" & Range("v" & Rows.Count).End(xlUp).Row) c.Value = WorksheetFunction.CountIf(Range("u1:u" & Range("u" & Rows.Count).End(xlUp).Row), c.Offset(, -1).Value) Next c Columns("u").Delete Application.ScreenUpdating = True End Sub

السلام عليكم و رحمة الله و بركاته أخي حسب طلبك تريد اولأ : استخراج قائمة بالأرقام بدون تكرار من جدولك, و لعمل ذلك سنقوم أولاً بتحويل الجدول الى عامود بالمعادلة التالية : ضعها في الخلية Ua =INDEX($A$1:$R$9,INT((ROWS($U$2:U2)-1)/COLUMNS($A$1:$R$1))+1,MOD(ROWS($U$2:U2)-1,COLUMNS($A$1:$R$1))+1) ثم في اخلية X2 ضع المعادلة التالية و هي معادلة صفيف , و ذلك لإستخراج القيم بدون تكرار =INDEX(U:U,MIN(IF(COUNTIF($X$1:X1,$U$2:$U$163),2^16,ROW($U$2:$U$163)))) و أخيراً في الخلية y2 ضع المعادلة التالية =COUNTIF($A$1:$R$9,X2) يحيى حسين - التكرار.rar

السلام عليكم و رحمة الله اضافة لحلول الاخوة و لكن لتجنب الفراغات و ان وجدت بالخطأ جرب هذا المعادلة في الخلية H16 ثم اسحبها للأسفل و لليمين =SUMPRODUCT(--((TRIM($D$4:$D$11)=TRIM(H$15))),--((TRIM($C$4:$C$11)=TRIM($G16))),--(TRIM($B$4:$B$11)="أ")) جرب هذا المعادلة في الخلية L16 ثم اسحبها للأسفل و لليمين =SUMPRODUCT(--((TRIM($D$4:$D$11)=TRIM(L$15))),--((TRIM($C$4:$C$11)=TRIM($K16))),--(TRIM($B$4:$B$11)="ب")) ============== دمتم في حفظ الله و رعايته

السلام عليكم و رحمة الله و بركاته إضافة إلى حل الاخ الحبيب خبور الخير و لإثراء الموضوع هذا حل آخر Numero_Examen2.rar

السلام عليكم و رحمة الله و بركاته أخي الباز انا لم أواجه مشكلتك و لكن هناك عدة إحتمالات قد تسبب هذه الراسلة في إعتقادي : وجود خلايا مدمجة . تحديد مجال اللصق بحيث يكون اصغر من مجال الخلايا التي نسخت .و لذلك لا تقم بتحديد مدى اللصق بل حدد خلية واحدة. او ربما قمت بتحديد كامل الصفحة و نسخها و محاولة لصقها. وجود تعليقات Comment, رغم ان هذه النقطة جربتها عدة مرات ولم تسبب اي مشكلة معي . أتمنى ان تراجع النقاط أعلاه و تعلمنا بالرد

السلام عليكم و رحمة الله و بركاته لا عليك اخي الحبيب بل بالعكس انا انتظر مشاركت بالمعادلات حتى يصبح الموضوع ذو قيمة أعلى و أن نرى حلول أخرى تثري الموضوع =============== دمت في حفظ الله

السلام عليكم و رحمة الله لإلغاء الحماية بواسطة الكود جرب الكود التالي Sub UnProtectMySheet() ActiveSheet.Unprotect "Excel4Us" End Sub او من خلال الطرق العادية و كلمة السر هي Excel4us