Ali Mohamed Ali

وعليكم السلام-تفضل لك ما طلبت =CONCATENATE(TEXT(B5,"dddd"),CHAR(10),TEXT(B5,"b2dddd")) 1 Microsoft Excel Worksheet (2).xlsx

بارك الله فيك استاذ محمد فؤاد يمكنك استخدام هذا الكود أستاذ حسن للطباعة بدون فراغات Sub Macro4() Range("A1:e350").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:="<>" Columns("A:e").Select Range("A1").Activate Selection.PrintOut Copies:=1, Preview:=True, Collate:=True On Error Resume Next Sheet2.ShowAllData On Error GoTo 0 End Sub كشف حساب.xlsm

وعليكم السلام-تفضل لك ما طلبت بالتنسيقات الشرطية بعد ضبط تنسيق التواريخ بصفحة التقويم Training Plan - Master - Final 2021.xlsx

عمل ممتاز أستاذ محمد جعله الله فى ميزان حسناتك

ان قمت بالتدقيق فى الرابط الذى رفعته لك لوجدت طلبك به وهذه هى المعادلة المطلوبة =IFERROR(MID($A3,LEN($A3)-(COLUMNS($B2:B2)-1),1),0)+0 فصل الرقم القومى1.xlsm

وعليكم السلام-كان عليك إستخدام خاصية البحث بالمنتدى قبل رفع مشاركتك -تفضل طريقة توزيع رقم من خلية واحدة الى مجموعة خلايا وهذا كود أخر يمكنك أيضاً إستخدامه Sub SplitStuff() Dim Rng As Range Dim InputRng As Range, OutRng As Range xTitleId = "KutoolsforExcel" Set InputRng = Application.Selection Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8) Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8) Application.ScreenUpdating = False For Each Rng In InputRng xValue = Rng.Value xRow = Rng.Row For i = 1 To VBA.Len(xValue) OutRng.Cells(xRow, i).Value = VBA.Mid(xValue, i, 1) Next Next Application.ScreenUpdating = True End Sub أو يمكنك أيضاً استخدام هذه المعادلة اذا كان الرقم القومى مثلاً موجود بالخلية A1 =MID($A1,COLUMNS($A$1:A$1),1)

بارك الله فيك وزادك الله من فضله

السلام عليكم وبما انك لم تقم بملف توضيحى للمطلوب بكل دقة حيث لا يمكن العمل على التخمين فيمكنك مشاهدة هذه الفيديوهات فبها طلب ان شاء الله جدول متابعة المهام MS EXCEL باليوم والشهر والسنة مراقبة انجاز المهام و تأخرها في العمل اسلوب احترافي اكسل

وعليكم السلام-يمكنك استخدام هذه المعادلة =IFERROR($G3*VLOOKUP($A3,'نسب العمولة'!$D$3:$G$800,2,0),"") Test1.xlsx

فقط يمكنك استخدام هذه المعادلة لتلبية طلبك فأول جزء المعادلة هو lookup ثم فتح القوس وكتابة الرقم 1 ثم علامة ثم 0 وهذا كود ثابت بالمعادلة ثم علامة / وكتابة الجزء الخاص بالبحث بالعمود الأول بالصفحة التى تريد جلب البيانات منها ثم الجزء الأخر بالمعادلة وهو Offset ثم ذكر رقم الخلية التى نود البحث من خلالها وأخيراً الجزء الأخير من المعادلة وهو ذكر العمود الثانى من الصفحة التى نريد جلب البيانات منها وهى النتيجة التى نريد اظهارها بالمعادلة =IFERROR(LOOKUP(1,0/MATCH("*"&Sheet2!$A$1:$A$45&"*",OFFSET(C69,,,COUNTIF(F:F,F69)),0),Sheet2!$B$1:$B$45),"") New Microsoft Excel 97-2003 Worksheet.xls

تفضل -يمكنك استخدام هذه المعادلة مع ضبط تنسيق الخلايا =INT(E6/100)/24+MOD(E6,100)/1440 وهناك أيضاً معادلة ثانية ولكن طويلة =IF(LEN($E6)=3,LEFT(E6,1)&":"&RIGHT(E6,2),LEFT(E6,2)&":"&RIGHT(E6,2)) &" " & TEXT(IF(LEN($E6)=3,LEFT(E6,1)&":"&RIGHT(E6,2),LEFT(E6,2)&":"&RIGHT(E6,2)),"am/pm") وهذه معادلة ثالثة مع ضبط التنسيق أيضاً =--TEXT(E6,"00\:00") export - 1.xls

بارك الله فيك استاذ ماجد وزادك الله من فضله

تفضل بإستخدام هذه المعادلة وعليك بإستكمال هذا على نفس الطريقة =IFERROR(VLOOKUP(C$8,Sheet2!$G$2:$I$380,2,0),"") 1a.xlsx

أحسنت أستاذ محمد عمل ممتاز بارك الله فيك وجعله الله فى ميزان حسناتك

وعليكم السلام-بعد اذن الأستاذ سليم ولإثراء الموضوع ,تفضل تم عمل معادلة مصفوفة لطلبك (Ctrl+Shift+Enter) ... كما تم عمل قائمة منسدلة بالخلية B1 لتسهيل العمل لك لإختيار بدلاً من الكتابة لتقليل الأخطاء =IFERROR(INDEX(رئيسية!$B$2:$B$140,SMALL(IF(رئيسية!$C$2:$C$140=$B$1,ROW(A$2:A$140)-ROW(A$2)+1),ROWS($A$3:A3))),"") GOING1.xlsx

وعليكم السلام يمكنك استخدام هذه المعادلة-معادلة مصفوفة (Ctrl+Shift+Enter) IF(AND(A$19<>$A$1:$U$1,A$19<>$A$9:$U$9),"غير موجود",IFERROR(HLOOKUP(A$19,$A$1:$U$3,2,0),HLOOKUP(A$19,$A$9:$U$11,2,0))) دمج1.xlsx

وعليكم السلام-عليك بإستخدام هذا الكود Sub run() Range("a65536").End(xlUp).Select End Sub الذهاب الى اخر صف مكتوب.xlsm

وعليكم السلام-يمكنك استخدام هذه المعادلة =COUNTIF(A3:AC3,"ح")+COUNTIF(A3:AC3,"ج")+COUNTIF(A3:AC3,"ق") مجموع الأحرف1.xlsm

بارك الله فيك وزادك الله من فضله

تفضل يمكنك استخدام هذه المعادلة لطلبك =IF($E52="","",IF(AND($D52>$H52,$H52<>0),"سداد جزئى",IF($D52=$H52,"سداد كلى",0))) مثال1.xlsx

تسلم ايديك استاذ ماجد

وعليكم السلام-حاول إضافة هذا السطر بالكود بعد السطر الذى تحدث به المشكلة Sheets("Sheet1").Protect UserInterfaceOnly:=True جلب الاسماء من عدة شيتات مع عدم التكرار1.xlsm

أكرمك الله استاذ محمد وجعلك ممن يستمعون القول فيتبعون أحسنه - بارك الله فيك

وعليكم السلام-بكل بساطة يمكنك استخدام هذه المعادلة لطلبك وزيادة عن ذلك تم عمل قائمة منسدلة لأسماء الطلاب لتسهيل الإختيار بدل من الكتابة =IFERROR(VLOOKUP($D4,ورقة1!$D$4:$F$600,3,0),"") 1استدعاء.xlsx

وذلك من خلال هذه المعادلة =TRIM(MID(SUBSTITUTE(";"&$A3,";",REPT(" ",50)),COLUMN(A1)*50,50)) PAVARC.xlsm