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

Ali Mohamed Ali

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

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

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

  • Days Won

    289

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

  1. وعليكم السلام -يمكنك استخدام هذه المعادلة =INDEX($O$3:$O$500,MATCH(B3,$M$3:$M$500,0),MATCH(C3,$N$3:$N$500,0)) نقل النسب2.xls
  2. بارك الله فيك وزادك الله من فضله اللهم اغفر لوالدك وارحمه، وعافه واعف عنه، وأكرم نزله، ووسع مدخله، واغسله بالماء والثلج والبرد، ونقه من الخطايا كما ينقى الثوب الأبيض من الدنس. - اللهم أبدله دارا خيرا من داره، وأهلا خيرا من أهله، وزوجا خيرا من زوجه، وأدخله الجنة، وأعذه من عذاب القبر، ومن عذاب النار
  3. أحسنت أستاذنا الكريم بارك الله فيك وزادك الله من فضله موضوع قيم جعله الله فى ميزان حسناتك
  4. أحسنت وبارك الله فيك ودائماً من نجاح الى تفوق ان شاء الله
  5. IFERROR(LOOKUP(A1,{600001;700001;800001;900001},{525;2775;5025;8025}) بسيطة وسهلة هذا الجزء يعنى ان الشرائح التى تبدأ بـــ600001 يكون الوعاء الضريبى هو المقابل لها بالقوسين الأخرين وهو 525 أما الشريحة الثانية 700001 فالوعاء الضريبى لها هو 2775 ...وهكذا الى اخر الشرائح وشكراً
  6. وعليكم السلام أهلا وسهلاً بك بالمنتدى , كان لابد من رفع ملف لتوضيح المطلوب بكل دقة وتجنباً لإهدار وقت كل من يود مساعدتك .. ولكن عموماً بإفتراض ان الرقم المراد تقسيمه الى سنوات وشهور وأيام موجود بالخلية A2 فستكون المعادلات كالتالى =INT(A2/360) 'الشهور =INT(MOD(A2,360)/30) 'الأيام =MOD(A2,30)
  7. وعليكم السلام . كان لابد من رفع ملف للتوضيح ولكن يمكنك استخدام هذه المعادلة =IF(A1<=21000,0, IF(A1<=30000,(A1-21000)*2.5%, IF(A1<=45000,(A1-30000)*10%+225, IF(A1<=60000,(A1-45000)*15%+225+1500, IF(A1<=200000,(A1-60000)*20%+225+1500+2250, IF(A1<=400000,(A1-200000)*22.5%+225+1500+2250+28000, IF(A1<=600000,(A1-400000)*25%+225+1500+2250+28000+45000, IF(AND(A1>600000,A1<=1200000),(A1-400000)*25%+225+1500+2250+28000+45000+IFERROR(LOOKUP(A1,{600001;700001;800001;900001},{525;2775;5025;8025}),0), IF(A1>1200000,((A1-1200000)*27.5%)+300000,0) ))))))))
  8. هذه فقط تظهر معك لعدم ضبط اللغة العربية لديك , فعليك بضبطها وأوضحنا هذا من قبل كثير جداً
  9. المعادلة تعمل بالفعل وشغالة تمام بملفك وشوف بنفسك
  10. دائماً مبدع أستاذنا الكبير ياسر , تبارك الله مجهود رائع جعله الله فى ميزان حسناتك وأكرمك الله وموضوع مهم للجميع جزاك الله خير الثواب
  11. تفضل هذا الملف .على الرغم ان كان عليك من البداية رفع ملف بالمشاركة فلا تعنى أى مشاركة شيء بدون ملف يدعمها Colored.xlsb
  12. وعليكم السلام-تفضل هذا الكود Sub ColorPaletteDialogBox() Dim lcolor As Long If Application.Dialogs(xlDialogEditColor).Show(10, 0, 125, 125) = True Then 'user pressed OK lcolor = ActiveWorkbook.Colors(10) ActiveCell.Interior.Color = lcolor Else 'user pressed Cancel End If End Sub
  13. السلام عليكم بها نبدأ أى مشاركة -بما انك لم تقم برفع ملف -فيمكنك استخدام هذا الكود لطلبك: Sub ColorCompanyDuplicates() Dim xRg As Range Dim xTxt As String Dim xCell As Range Dim xChar As String Dim xCellPre As Range Dim xCIndex As Long Dim xCol As Collection Dim i As Long On Error Resume Next If ActiveWindow.RangeSelection.Count > 1 Then xTxt = ActiveWindow.RangeSelection.AddressLocal Else xTxt = ActiveSheet.UsedRange.AddressLocal End If Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8) If xRg Is Nothing Then Exit Sub xCIndex = 2 Set xCol = New Collection For Each xCell In xRg On Error Resume Next If xCell.Value <> "" Then xCol.Add xCell, xCell.Text If Err.Number = 457 Then xCIndex = xCIndex + 1 Set xCellPre = xCol(xCell.Text) If xCellPre.Interior.ColorIndex = xlNone Then xCellPre.Interior.ColorIndex = xCIndex xCell.Interior.ColorIndex = xCellPre.Interior.ColorIndex ElseIf Err.Number = 9 Then MsgBox "Too many duplicate companies!", vbCritical, "Kutools for Excel" Exit Sub End If On Error GoTo 0 End If Next End Sub
  14. أحسنت استاذنا الكريم عمل ممتاز جعله الله فى ميزان حسناتك وبارك الله فيك
  15. أحسنت استاذنا الكريم وبارك الله فيك جهود ممتازة جعله الله فى ميزان حسناتك
  16. عمل ممتاز أستاذ حسونة بارك الله فيك وزادك الله من فضله
×
×
  • اضف...

Important Information