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

خالد الشاعر

05 عضو ذهبي
  • Posts

    1,514
  • تاريخ الانضمام

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

  • Days Won

    2

كل منشورات العضو خالد الشاعر

  1. استاذ mxfouad الموضوع بسيط جداً اتفضل هذه المعادلة =IF(L3=D7;K3;"")
  2. الاستاذ ابو بهاء ده بسبب تنسيق الخلية راجع التنسيق
  3. استاذ اكرامى مرفق ملف لاسترجاع اعداد اكسل فى اصدارين استرجاع الاعدادات الاصلية للاكسيل.zip
  4. استاذ ياسر جرب هذا البرنامج ممكن ينفع معك http://www.4shared.com/rar/Vx5N8rVqce/MTW60C_Fit.html?
  5. استاذ محمد تسليم ايدك جزاك الله كل خير و جعلة فى مزان حسناتك
  6. استاذ محمد حاولت فى التكرار و صلت الى هذه المعادلة ولكن يبقا ان رقم واحد يكون 0 ولو جمعنا +1 يفرق فى كل الترتيب واحد زيادة =IF(COUNTIF($R$14:$R14;R14)>1;SUMPRODUCT(1*($C$14:$C$85=$C14)*($R$14:$R$85>R14))&" "&"مكرر";SUMPRODUCT(1*($C$14:$C$85=$C14)*($R$14:$R$85>R14))) فهل يوجد حل
  7. استاذ محمد الريفى الف شكر تسلم ايدك يوجد مشكلة صغيرة الأول يعطى 0 فهل لو اضفت للمعادلة +1 ممكن طلب اخر لو سمحت هل ممكن نضيف مكرر الى الترتيب جزاكم الله كل خيراً
  8. استاذ اكرم قم باضافة هذه الاوامر باسم التكست بوكس المراد Private Sub TextBox2_Enter() LoadKeyboardLayout "00000409", 1 End Sub Private Sub TextBox24_Enter() LoadKeyboardLayout "00000401", 1 End Sub ارجو ان يكون هذا المطلوب
  9. السادة الخبراء مرفق ملف تم عمل به ترتيب المواد الدراسية على مستوى الفصلين بالمعادلات ولكن اريد الترتيب على مستوى كل فصل فهل هذا ممكن جزاكم الله كل خيراً ترتيب.rar
  10. استاذ ياسر تسلم ايدك ولكن يوجد مشكلة عند ترجمة الاسماء ذات صفه مثال منتصر - محارب فهل لها حل جزاكم الله كل خيراً
  11. استاذ سليم جزاك الله كل خير
  12. استاذ سليم شكرا على سرعة الرد ولكن ان لا اريد ان اغير فى درجة الاجمالى لان كل العمود ياخذ التقدير مبنى علية ولكن بعض الطلبة ياخذ اعفاء من درجة العربى
  13. السادة الخبراء اريد مساعدة فى قاعدة اف عندى شيت مواد و خانة اخر الشيت اكتب فيها مثال رقم 1 يكون التقدير العام ليس فيه درجة العربي و عند كتابة رقم 3 التقدير العام ليس فيه درجة العربى و الدراسات حاولت بقاعدة اف و لكن الحتمالات كثيرة برجاء المساعدة ولكم جزيل الشكر جزاكم الله خيراً IF.rar
  14. استاذ ابو حنين وجدت هذا الكود على النت ارجو يكون المقصود Sub ShowAllLinksInfo() 'Author: JLLatham 'Purpose: Identify which cells in which worksheets are using Linked Data 'Requirements: requires a worksheet to be added to the workbook and named LinksList 'Modified From: http://answers.microsoft.com/en-us/office/forum/office_2007-excel/workbook-links-cannot-be-updated/b8242469-ec57-e011-8dfc-68b599b31bf5?page=1&tm=1301177444768 Dim aLinks As Variant Dim i As Integer Dim Ws As Worksheet Dim anyWS As Worksheet Dim anyCell As Range Dim reportWS As Worksheet Dim nextReportRow As Long Dim shtName As String shtName = "LinksList" 'Create the result sheet if one does not already exist For Each Ws In Application.Worksheets If Ws.Name = shtName Then bWsExists = True Next Ws If bWsExists = False Then Application.DisplayAlerts = False Set Ws = ActiveWorkbook.Worksheets.Add(Type:=xlWorksheet) Ws.Name = shtName Ws.Select Ws.Move After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count) Application.DisplayAlerts = True End If 'Now start looking of linked data cells Set reportWS = ThisWorkbook.Worksheets(shtName) reportWS.Cells.Clear reportWS.Range("A1") = "Worksheet" reportWS.Range("B1") = "Cell" reportWS.Range("C1") = "Formula" aLinks = ActiveWorkbook.LinkSources(xlExcelLinks) If Not IsEmpty(aLinks) Then 'there are links somewhere in the workbook For Each anyWS In ThisWorkbook.Worksheets If anyWS.Name <> reportWS.Name Then For Each anyCell In anyWS.UsedRange If anyCell.HasFormula Then If InStr(anyCell.formula, "[") > 0 Then nextReportRow = reportWS.Range("A" & Rows.Count).End(xlUp).Row + 1 reportWS.Range("A" & nextReportRow) = anyWS.Name reportWS.Range("B" & nextReportRow) = anyCell.Address reportWS.Range("C" & nextReportRow) = "'" & anyCell.formula End If End If Next ' end anyCell loop End If Next ' end anyWS loop Else MsgBox "No links to Excel worksheets detected." End If 'housekeeping Set reportWS = Nothing Set Ws = Nothing End Sub
  15. استاذ YasserKhalil انا عارف مكان الوظيفة لكن هى مش موجودة اصلاً هل فى عيب فى الاوفس
  16. السادة الخبراء عندى مشكلة مع اكسل 2007 مش لقى امر Shockwave flash object مع انى منزل برنامج فلاش بلاير و لا يوجد فى باكسل فماهى المشكلة وجزاكم الله كل خير
  17. استاذ عبد الباري البنا شكراً على سرعة الرد ولكن عند محاولة الغاء ال Missing يقول لى انها in use هل هناك طريقة اخرى
  18. استاذ الخالدى الف شكر
  19. المشكلة فى المشاركة الاولى
×
×
  • اضف...

Important Information