ابو اسامة العينبوسي

السلام عليكم الملف به الكود التالى : Private Sub Workbook_Open() ActiveWindow.DisplayWorkbookTabs = True End Sub

السلام عليكم افتح هذا الملف 1234.rar

السلام عليكم لتكون الصوره اوضح ارسل الملف و نعمل ما يمكن عمله

السلام عليكم اخى ايماجن لايف شكرا لك

السلام عليكم Sorry لم انتبه الى انك في canada ممكن ترفق ملف تمون الصوره اوضح

السلام عليكم الاملاء غير صحيح اخى الكريم

السلام عليكم اعتقد انك بحاجه الى AND not OR جرب التالى =IF(AND(D3>=$D$2,D4>=$D$2,C4>=$C$2),0,1)

السلام عليكم ________23.rar

السلام عليكم =IF(MONTH($A4)=MONTH(TODAY()),TRUE,FALSE) test_it.rar

من تنسيق مخصص \S\R#,##0.00

السلام عليكم على شرط الا تزيد المكررات على 56 وهو عدد الالوان المتاحه لكن عندما يكون لدى فراغ يوجد حل في حال زاد عدد التكرارات عن 56 Book6.rar

السلام عليكم تصبح على خير =IF(MOD(ROW(),4)=0,OFFSET($A$3,ROW()/4,0),"") ___________12.rar

السلام عليكم في اكسل 2007 بكل سهوله حيث ان به وظيفة جاهزه لذلك لكن في 2003 ممكن تستخدم sumproduct او sum مع if كصفيف example1.rar

السلام عليكم ممكن بهذه الصيغة =IF(MOD(ROW(),4)=0,A4,"") ___________2.rar

السلام عليكم بارك الله فيك اخى justic على ما تقوم به من جهد في هذا المنتدى امضى وعين الله ترعالك فكره حسنه و ممتازه

السلام عليكم نبهنى احد الاخوه لانه ممكن يكون المطلوب حذف الورقه المختاره Private Sub ComboBox1_Click() Application.DisplayAlerts = False Worksheets(Me.ComboBox1.Text).Delete Me.ComboBox1.RemoveItem (Me.ComboBox1.ListIndex) Application.DisplayAlerts = True End Sub Private Sub UserForm_Initialize() Dim Wsh As Worksheet For Each Wsh In ThisWorkbook.Worksheets If Wsh.Tab.ColorIndex = 5 Then Me.ComboBox1.AddItem Wsh.Name End If Next End Sub 13.rar

السلام عليكم ارفق ملف اخى

السلام عليكم سيتم عرض الاوراق الزرقاء فقط في الكمبوبوكس 12.rar

السلام عليكم ممكن ترفق ملف

السلام عليكم Z = 0 Application.ScreenUpdating = False For x = 1 To Cells(1, 3).End(xlDown).Row For i = 1 To ActiveSheet.UsedRange.Rows.Count If Cells(i, 1) = Cells(x, 3) Then Cells(i, 1).Interior.ColorIndex = 3 Cells(x, 3).Interior.ColorIndex = 3 Z = Z + 1 End If Next Next MsgBox "ÚÏÏ ÇáãßÑÑÇÊ åæ :-" & Z Application.ScreenUpdating = True Book5.rar

السلام عليكم ارفق ملف مع الماكرو المعطل

السلام عليكم ممكن مثال ؟

السلام عليكم ممكن من خلال الوظيفه Zoom Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$1" Then ActiveWindow.Zoom = 115 Else ActiveWindow.Zoom = 100 End If End Sub

السلام عليكم الكود بعد التعديل Sub Tarheel() Cells(3, 2).Select Range(Cells(5, 11), Cells(ActiveSheet.UsedRange.Rows.Count, 14)).ClearContents Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For i = 1 To Application.WorksheetFunction.CountA(Range(Cells(5, 2), Cells(ActiveSheet.UsedRange.Rows.Count, 2))) TV = ActiveCell.End(xlDown).Row TR = Cells(Rows.Count, 11).End(xlUp).Row + 1 Cells(TR, 11) = Cells(TV, 2) Cells(TR, 12) = Cells(TV, 3) Cells(TR, 13) = Cells(TV, 4) Cells(TR, 14) = Cells(TV, 9) ActiveCell.End(xlDown).Select Next Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub ____3.rar

السلام عليكم قد تحتاج الى تفعيل او تعطيل بعض المراجع في الفجوال بيسك تعطيل خاصه مراجع (missing references )