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

Ali Mohamed Ali

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

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

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

  • Days Won

    289

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

  1. تفضل أستاذ عمرو ... يمكنك استخدام هذه المعادلة لرقم الصنف =[@[المجموعة الرئيسية ]]&"-"&[@[المجموعة الفرعية]]&"-"&[@[المجموعة تحت الفرعية]] أو هذه المعادلة , فكلاهما يؤدى الغرض المطلوب =CONCATENATE([@[المجموعة الرئيسية ]],"-",[@[المجموعة الفرعية]],"-",[@[المجموعة تحت الفرعية]]) 1بيانات الاصناف.xlsx
  2. وعليكم السلام -كان عليك استخدام خاصية البحث بالمنتدى فبه طلبك-تفضل كود طباعة الشهادات جميعها واخر لعدد محدد من الشهادات طباعة الشهادات كلها بأمر واحد
  3. المشكلة بسيطة جداً وتم تناول هذا الموضوع أكثر من مرة كان عليك استخدام خاصية البحث بالمنتدى ... ويتلخص الموضوع فى ضبط اعدادات اللغة العربية فى حاسوبك والخطوات كما تمت بهذا الرابط مشكلة في اللغة العربية
  4. بارك الله فيك استاذ سليم وبعد اذن حضرتك ولإثراء الموضوع هذا حل اخر بمعادلات المصفوفة (Ctrl+Shift+Enter) تفضل ahmed_atoon بالمعادلة =SUM(IFERROR(--MID(SUBSTITUTE(SUBSTITUTE(B2,CHAR(10)," ")," ",REPT(" ",99)),ROW($1:$30)*99-98,99),0)) Sum1.xlsx
  5. تفضلى - كما بالملف طريقتين مختلفتين اختارى منها المناسب لك وهذه أيضاً دالة معرفة لنفس الطلب Function summm(rng) Dim arr ReDim arr(1 To rng.Cells.Count) For Each C In rng.Cells arr(x + 1) = f(C) x = x + 1 Next summm = WorksheetFunction.Sum(arr) End Function معادلةجمع مدى يحتوى على أرقام ونصوص sumarize number with text.xlsx
  6. وعليكم السلام -تفضل هذا هو الكود المطلوب Private Sub CommandButton2_Click() With Me.Yh_ListFind Me.TextBox1.Value = .ListCount - 1 End With End Sub
  7. طبعاّ بعد اذن استاذنا الكبير إبراهيم ... بارك الله فيك كود ممتاز جعله الله فى ميزان حسناتك تفضل الأمر بسيط جداً ويمكنك تعديله بنفسك ... عليك بتعديل هذه الكلمة من كل الكود xlAscending الى xlDescending
  8. اجعل المعادلة هكذا =IFERROR(INDEX($A$2:$A$200,SMALL(IF($D$2:$D$200=$H$2,IF($E$2:$E$200=$I$2,IF($F$2:$F$200=$J$2,ROW(A$2:A$200)-ROW(A$2)+1))),ROWS($I$5:I5))),"") 3قوائم.xlsx
  9. وعليكم السلام-فقط يمكنك استخدام هذه المعادلة =SUBSTITUTE(A2," ","") رفع المسافة الواحدة بين الحرف والرقم.xlsm
  10. وبدون أكواد لا توجد سوى هذه الطريقة كما بالصورة , من قائمة Home
  11. تفضل -يمكنك استخدام هذه المعادلة فى التنسيقات الشرطية =TRIM(MID(B6,IFERROR(FIND("رخام",B6,1)+0,1),9^9))="رخام" تلوين1.xlsx
  12. وعليكم السلام-عليك بإستبدال معادلتك بهذه المعادلة =IFERROR(INDEX($A$2:$A$200,SMALL(IF($D$2:$D$200=$G$2,IF($E$2:$E$200=$H$2,ROW(A$2:A$200)-ROW(A$2)+1)),ROWS($H$5:H5))),"") 1قوائم.xlsx
  13. وعليكم السلام-تفضل شرح قائمة ديفولبر الرائعه Developer Form Controls In Excel Excel Form Control vs. ActiveX Control (7 Differences) Form controls VS Active X controls (Microsoft Excel Video Tutorial)
  14. وعليكم السلام حيرتنى معاك لأن المعادلة الموجودة بالملف تعمل بكل كفاءة ....واذا أردت تغيير قيمة التقسيم يمكنك تغيير الأرقام الموجودة بداية من الخلية AB10 الى ما تشاء وتريد وشكرا
  15. تفضل Sub Test() ActiveSheet.UsedRange.EntireColumn.AutoFit ActiveSheet.UsedRange.EntireRow.AutoFit End Sub أو يمكنك استخدام هذا الكود أيضاً Option Explicit Sub Auto_Fit() Dim sh As Worksheet For Each sh In ThisWorkbook.Worksheets sh.Columns.AutoFit sh.Rows.AutoFit Next sh End Sub مثال.xlsm
  16. تفضل لك ما تريد ... هذا فيديو تعليمى لطلبك مقدم من الأستاذة ساجدة العزاوى لها منا كل المحبة والإحترام ج89 زر امر على اليوزرفورم لفتح ملف اكسل ملف ورد ملف pdf ساجدة العزاوي open word excel userform vba
  17. كان عليك تنفيذ نصيحة استاذنا الكبير سليم .. ولكن بعد اذن استاذ سليم طبعاً يمكنك استخدام هذه الدالة المعرفة لذلك لعد الأرقام داخل الخلية الواحدة Function Mylen(Z As Range) Dim C As Long, Y As Long, A As Long, B As Variant A = 0 For C = 1 To Len(Z) B = Mid(Z, C, 1) For Y = 0 To 9 If Y = B Then A = A + 1 End If Next Next Mylen = A End Function ووضع هذه المعادلة بداية من الخلية D4 سحباً للأسفل =Mylen(F4) أو يمكنك بهذه المعادلة العادية .. وتلك الطريقتين موجودة بالملف =SUM(LEN(F4)-LEN(SUBSTITUTE(F4,{1,2,3,4,5,6,7,8,9,0},))) تسويات - 1.xlsm
  18. بما انك لم تقم برفع ملف فكان عليك لزاماً استخدام خاصية البحث بالمنتدى فبه طلبك - تفضل معادلة جمع مبالغ (10+20+30)=60
  19. أحسنت استاذ فتح وزادك الله من فضله
  20. بارك الله فيك وزادك الله من فضله ورحم الله والديك
  21. الأمر بسيط ولكن كان عليك رفع ملف بالمشاركة مع توضيح للمطلوب بكل دقة ... فليس هناك نجاح لأى مشاركة الا بإحتوائها على ملف اجعل تنسيقات الخلايا كما بالصورة .... وتم عمل ملف لك بالمطلوب 1550.xlsm
  22. وعليكم السلام- يمكنك استخدام هذه المعادلة =IF(S3="","",IF(OR($S3="وليد",$S3="سعيد"),10%,14%)) Test1.xlsx
  23. وعليكم السلام - تفضل اخى الكريم يمكنك عمل ذلك بهذه المعادلة ( معادلة مصفوفة) Ctrl+Shift+Enter =IF(COUNTIF($A$3:$A3,$A3)>1,"",MODE(IF($A$3:$A$900=$A3,$F$3:$F$900))) mode fun1.xlsx
  24. تفضل Office 365 Excel in 15 Mints - شرح الإكسل فى 15 دقيقة للمبتدئين Office365 دورة شرح اوفيس 365 بطريقة سهلة office 365
×
×
  • اضف...

Important Information