نجوم المشاركات

السلام عليكم تفضل =IF(LEN(D3)>=10,"0"&LEFT(B3,2)&"-"&MID(B3,3,100), "0"&LEFT(B3,1)&"-"&MID(B3,2,100))

السلام عليكم اضع بين ايديكم هذا العمل المتواضع لاستخراج كشف حساب عميل تفصيلي ويكفيني منكم جزاكم الله خيرا كشف حساب عميل 2018.rar

فورم حساب الورث للمتوفى بالاكسل الفيديو الصور رابط الملف http://www.mediafire.com/file/7ryeba73vp71sni/حساب+الميراث.rar

السلام عليكم تفضل الملف المرفق، وفيه أرقام ترتيب لكل انتقاء... بن علية حاجي قرعة متعددة الاختيار.xls

السلام عليكم نعم ممكن جدا بتعديل طفيف على المعادلات حيث يُستبدل النطاق AD$13:$AD$24 $ في الجزئية (EQUIV($A13;$AD$13:$AD$24;0 بالنطاق AD$13:$AD$25 $ ثم في الجدول (على اليسار) نبدل الكلمة "المعدل الفصلي" بالكلمة "عدد التلاميذ حسب المعدل الفصلي"... مع دمج الخلايا A16:A18 وملئها بالعبارة "عدد التلاميذ حسب معدل المواد الأساسية" ثم دمج الخلايا A26:A28 وملئها بالعبارة "عدد التلاميذ حسب المعدل الفصلي"، أي يجب أن يكون تطابق في العناوين بين الجدولين... كل هذه التعديلات المقترحة وضعتها في الملف المرفق... بن علية حاجي Classeur111 (4).xlsx

تفضل أخي اصناف3.xlsm

رائع استاذ بن علية لكن اذا كنت تريد نقل التنسيق ايضاً يمكن استعمال هذا الكود حلقة تكرارية واحدة (ربما يكون أسرع للبيانات الكبيرة) مع امكانية ادراج صف فارغ أو لا (بعد نسخ البيانات) من خلال الاجابة عن سؤال Yes Or No Option Explicit Sub All_in_on_New() With Sheets("Sheet1") Dim my_rg As Range, N_col%, x% Dim k%: k = 2 Dim sub_rg As Range Dim Answer As Byte .Range("j2:j" & Rows.Count).Clear Set my_rg = .Range("a2").CurrentRegion N_col = my_rg.Columns.Count Answer = MsgBox(" Your Data With Empty Row Between Or NO??", 4) For x = 1 To N_col Set sub_rg = my_rg.Columns(x).SpecialCells(2, 23) sub_rg.Copy Cells(k, "j") k = k + sub_rg.Cells.Count + (7 - Answer) Next End With End Sub الملف مرفق Write_in_one_co_New.xlsm

السلام عليكم ورحمة الله وهذا كود آخر في المرفق يقوم بجمع قيم خلايا الأعمدة من A إلى F في العمود M بداية من الصف الثاني مع نسخ لون خلايا هذه القيم (والكود لا يعتبر الخلايا الفارغة في الأعمودة)... بن علية حاجي New Microsoft Excel Worksheet (1).xlsm

جرب هذا الماكرو Option Explicit Sub All_in_on() With Sheets("sheet1") Dim my_rg As Range, N_col%, N_Row%, x% Dim t%, k%: k = 2 Set my_rg = .Range("a2").CurrentRegion .Range("j2", Range("j1").End(4)).ClearContents N_col = my_rg.Columns.Count N_Row = my_rg.Rows.Count For x = 1 To N_col For t = 1 To N_Row If Not IsEmpty(my_rg.Cells(t, x)) Then .Cells(k, "J") = my_rg.Cells(t, x) k = k + 1 End If Next Next End With End Sub الملف مرفق Write_in_one_col.xlsm

السلام عليكم ورحمة الله أخي الكريم تفضل جرب الكود التالي Sub nn() For sh = 1 To Sheets.Count With Sheets(sh) LR = .[C9999].End(xlUp).Row .Range("A" & LR & ":H" & LR).Copy .[A17].PasteSpecial xlPasteValues With .Range("A18:H" & LR) .ClearContents .Interior.ColorIndex = xlNone End With End With Next sh End Sub ومرفق أيضا الملف وبه الكود اصناف2.xlsm

بارك الله فيك استاذ سليم وجزاكم الله خير

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

مع انك لم ترفع ملفاً للمعاينة اليك هذا الملف كنموذج =IF(N(A1)<=0,"",CHOOSE((0.5-MOD(A1,1)<=0)+1,FLOOR(A1,1),CEILING(A1,1))) takrib.xlsx

استأذن من استاذي القدير ابو خليل كن معي اولا افتح نموذجك في وضع تصميم وغير لون الخلفية كله الى لون محدد اي لون كان تريد اضف اليه بوكس او ليبل الى اعلى النموذج و وسطه و اسفله وانطيه لون ما تريد لكل المستويات اضف اليه زر اغلاق النموذج في اعلاه او اي زر تريد وشوف احنا اضفنا بوكس الى ثلاث مستويات 1 و 2 و 3 و شوف ايظا في كل اتجاه خلينا فراغ لكي بيظهر كحدود النموذج وغيرنا RECORD LOCKS الى Edited Record او تكدر بدل هذا ان تغير خاصية منبثق الى نعم وايضا خلينا كل من البوكس اللي احنا اضفنا لكل مستويات الى الخلف لكي يظهر لنا المربعات النصية اللي في النموذج كما في الصورة وايظا غيرنا بعض خصائص نموذج كما مبينة في الصورة اللي في مربع الحمراء والنتيجة بيكون هكذا وهذا قاعدة بيانات استاذ ابو خليل مع نموذج اللي عملت عليه شرح مع تقدير إطار.rar