استاذ محمد
حاولت فى التكرار و صلت الى هذه المعادلة
ولكن يبقا ان رقم واحد يكون 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)))
فهل يوجد حل
استاذ محمد الريفى
الف شكر تسلم ايدك
يوجد مشكلة صغيرة الأول يعطى 0 فهل لو اضفت للمعادلة +1 ممكن
طلب اخر لو سمحت هل ممكن نضيف مكرر الى الترتيب
جزاكم الله كل خيراً
استاذ اكرم
قم باضافة هذه الاوامر باسم التكست بوكس المراد
Private Sub TextBox2_Enter()
LoadKeyboardLayout "00000409", 1
End Sub
Private Sub TextBox24_Enter()
LoadKeyboardLayout "00000401", 1
End Sub
ارجو ان يكون هذا المطلوب
السادة الخبراء
مرفق ملف تم عمل به ترتيب المواد الدراسية على مستوى الفصلين بالمعادلات
ولكن اريد الترتيب على مستوى كل فصل
فهل هذا ممكن
جزاكم الله كل خيراً
ترتيب.rar
السادة الخبراء
اريد مساعدة فى قاعدة اف
عندى شيت مواد و خانة اخر الشيت اكتب فيها مثال رقم 1 يكون التقدير العام ليس فيه درجة العربي
و عند كتابة رقم 3 التقدير العام ليس فيه درجة العربى و الدراسات
حاولت بقاعدة اف و لكن الحتمالات كثيرة
برجاء المساعدة
ولكم جزيل الشكر
جزاكم الله خيراً
IF.rar
استاذ ابو حنين وجدت هذا الكود على النت
ارجو يكون المقصود
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
السادة الخبراء
عندى مشكلة مع اكسل 2007 مش لقى امر Shockwave flash object
مع انى منزل برنامج فلاش بلاير و لا يوجد فى باكسل
فماهى المشكلة
وجزاكم الله كل خير