اذهب الي المحتوي
أوفيسنا

Ali Mohamed Ali

المشرفين السابقين
  • Posts

    11,634
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    289

كل منشورات العضو Ali Mohamed Ali

  1. وعليكم السلام-عليك بضبط اللغة العربية لديك ... وبما انك لم تقم برفع الملف فكان عليك استخدام خاصية البحث بالمنتدى-تفضل مشكلة في اللغة العربية
  2. بارك الله فيك استاذ مجدى وزادك الله من فضله
  3. وعليكم السلام-تفضل لك ما طلبت =CONCATENATE(TEXT(B5,"dddd"),CHAR(10),TEXT(B5,"b2dddd")) 1 Microsoft Excel Worksheet (2).xlsx
  4. بارك الله فيك استاذ محمد فؤاد يمكنك استخدام هذا الكود أستاذ حسن للطباعة بدون فراغات 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
  5. وعليكم السلام-تفضل لك ما طلبت بالتنسيقات الشرطية بعد ضبط تنسيق التواريخ بصفحة التقويم Training Plan - Master - Final 2021.xlsx
  6. عمل ممتاز أستاذ محمد جعله الله فى ميزان حسناتك
  7. ان قمت بالتدقيق فى الرابط الذى رفعته لك لوجدت طلبك به وهذه هى المعادلة المطلوبة =IFERROR(MID($A3,LEN($A3)-(COLUMNS($B2:B2)-1),1),0)+0 فصل الرقم القومى1.xlsm
  8. وعليكم السلام-كان عليك إستخدام خاصية البحث بالمنتدى قبل رفع مشاركتك -تفضل طريقة توزيع رقم من خلية واحدة الى مجموعة خلايا وهذا كود أخر يمكنك أيضاً إستخدامه 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)
  9. السلام عليكم وبما انك لم تقم بملف توضيحى للمطلوب بكل دقة حيث لا يمكن العمل على التخمين فيمكنك مشاهدة هذه الفيديوهات فبها طلب ان شاء الله جدول متابعة المهام MS EXCEL باليوم والشهر والسنة مراقبة انجاز المهام و تأخرها في العمل اسلوب احترافي اكسل
  10. وعليكم السلام-يمكنك استخدام هذه المعادلة =IFERROR($G3*VLOOKUP($A3,'نسب العمولة'!$D$3:$G$800,2,0),"") Test1.xlsx
  11. فقط يمكنك استخدام هذه المعادلة لتلبية طلبك فأول جزء المعادلة هو 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
  12. تفضل -يمكنك استخدام هذه المعادلة مع ضبط تنسيق الخلايا =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
  13. تفضل بإستخدام هذه المعادلة وعليك بإستكمال هذا على نفس الطريقة =IFERROR(VLOOKUP(C$8,Sheet2!$G$2:$I$380,2,0),"") 1a.xlsx
  14. أحسنت أستاذ محمد عمل ممتاز بارك الله فيك وجعله الله فى ميزان حسناتك
  15. وعليكم السلام-بعد اذن الأستاذ سليم ولإثراء الموضوع ,تفضل تم عمل معادلة مصفوفة لطلبك (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
  16. وعليكم السلام يمكنك استخدام هذه المعادلة-معادلة مصفوفة (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
  17. وعليكم السلام-عليك بإستخدام هذا الكود Sub run() Range("a65536").End(xlUp).Select End Sub الذهاب الى اخر صف مكتوب.xlsm
  18. وعليكم السلام-يمكنك استخدام هذه المعادلة =COUNTIF(A3:AC3,"ح")+COUNTIF(A3:AC3,"ج")+COUNTIF(A3:AC3,"ق") مجموع الأحرف1.xlsm
  19. بارك الله فيك وزادك الله من فضله
  20. تفضل يمكنك استخدام هذه المعادلة لطلبك =IF($E52="","",IF(AND($D52>$H52,$H52<>0),"سداد جزئى",IF($D52=$H52,"سداد كلى",0))) مثال1.xlsx
  21. وعليكم السلام-حاول إضافة هذا السطر بالكود بعد السطر الذى تحدث به المشكلة Sheets("Sheet1").Protect UserInterfaceOnly:=True جلب الاسماء من عدة شيتات مع عدم التكرار1.xlsm
  22. أكرمك الله استاذ محمد وجعلك ممن يستمعون القول فيتبعون أحسنه - بارك الله فيك
  23. وعليكم السلام-بكل بساطة يمكنك استخدام هذه المعادلة لطلبك وزيادة عن ذلك تم عمل قائمة منسدلة لأسماء الطلاب لتسهيل الإختيار بدل من الكتابة =IFERROR(VLOOKUP($D4,ورقة1!$D$4:$F$600,3,0),"") 1استدعاء.xlsx
  24. وذلك من خلال هذه المعادلة =TRIM(MID(SUBSTITUTE(";"&$A3,";",REPT(" ",50)),COLUMN(A1)*50,50)) PAVARC.xlsm
  25. تفضل يمكنك هذا بهذه المعادلة =IFERROR(INDEX(البيانات!$C$2:$F$11,MATCH($B2,البيانات!$B$2:$B$11,0),MATCH(C$1,البيانات!$C$1:$F$1,0)),"") تقرير1.xlsx
×
×
  • اضف...

Important Information