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

السلام عليكم اليك الملف اخي نزار مع التعديلات وهو يعمل لكن ممكن ان تعدل عليه error_limits.rar

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

السلام عليكم اخي نزاز مشكور جدا على الاهتمام اليك ملف ان شاء الله اكون قد وفقت في طرح الموضوع و هو كما طلبت بدون معادلات error_limits.rar

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

شكرا لك نيابه عن كل اهل فلسطين

مشكورر

السلام عليكم بطريقه اخرى Sum_Of_ODD___EVEN_Numbers.rar

السلام عليكم اليك مرفق يدرج كافة الالوان و ارقامها و هناك مشاركات كثير للاساتذه الكبار عمر الحسيني هادي سالم حسام نور ملاحظه الترتيب للاسماء عشوائي وليس لشيء اخر وغيرهم بهذا الخصوص Colors_in_Excel.rar

السلام عليكم الرقم 5 يشير الى رقم اللون الذي تريد جمعه وهو الازرق true & false هما من اجل الجمع حسب لون الخلفيه للخليه لو حسب لون النص false للخلفيه و true للون النص

السلام عليكم انشئ موديل والصق الداله الموجوده في الملف بداخله و ستعمل باذن الله و تجدها ضمن دالات (معرفه بواسطه مستخدم )

السلام عليكم المطلوب ان ندخل السعر في العمود B و نقارنها بالقيمه بالقيمه الموجوده في العمود D لكن اي قيمه في العمود D ?? اللذي يحدد ذلك الرقم الموجود في العمود A فالرقم هو الذي يحدد الرقم + الهامش لو تطلب الامر الاتصال بك هاتفيا افعل ذلك

السلام عليكم هناك شرح وافي لما ابغيه ارجو الاهتمام __________2.rar

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

السلام عليكم شاهد المرفق sum_of.rar

السلام عليكم اخي البوريني انا عينبوسي جاركم المهم يجب ان تنسخ الكود الموجود في الفايل الى الفايل الاخر الذي تريد

السلام عليكم استغل فرصه تواجد الكثير من المميزين اليوم في المنتدى للتذكير بمشاركتي

السلام عليكم اضم صوتي لصوت الاخ خالد

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

السلام عليكم مشكورر

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

مشكوووورر

السلام عليكم هذا كود من الموقع المذكور يقوم باضافة الموديل برمجيا يعني برمجه بالبرمجه لكن للاسف ليس دائما استطيع ادراج النص ككود ADD Module programmaticly Public Sub Main() ' See if there's a module already there For Each c In ActiveWorkbook.VBProject.VBComponents If (c.Properties("Name") = ActiveSheet.Name) Then Set WBCodeMod = c.CodeModule End If Next ' Count the lines in the module LineCount = WBCodeMod.CountOfLines ' If so delete them ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook._ ActiveSheet.CodeName).CodeModule.DeleteLines 1, LineCount ' Adding code programatically ActiveWorkbook.VBProject._ VBComponent(ActiveWorkbook.ActiveSheet.CodeName).CodeModule.AddFromString _ "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" & vbCr & _ "Dim iColor As Integer" & vbCr & _ "On Error Resume Next" & vbCr & _ "iColor = Target.Interior.ColorIndex" & vbCr & _ "If iColor < 0 Then" & vbCr & _ " iColor = 36" & vbCr & _ "Else" & vbCr & _ " iColor = iColor + 1" & vbCr & _ "End If" & vbCr & _ "If iColor = Target.Font.ColorIndex Then iColor = iColor + 1" & vbCr & _ "Cells.FormatConditions.Delete" & vbCr & _ "With Range(""A"" & Target.Row, Target.Address) " & vbCr & _ " .FormatConditions.Add Type:=2, Formula1:=""TRUE""" & vbCr & _ " .FormatConditions(1).Interior.ColorIndex = iColor" & vbCr & _ "End With" & vbCr & _ "With Range(Target.Offset(1 - Target.Row, 0).Address & _ "":"" & Target.Offset(-1, 0).Address)" & vbCr & _ " .FormatConditions.Add Type:=2, Formula1:=""TRUE""" & vbCr & _ " .FormatConditions(1).Interior.ColorIndex = iColor" & vbCr & _ "End With" & vbCr & _ "End Sub"

السلام عليكم http://www.vba-programmer.com/#ExcelBkmk

السلام عليكم مشكور ونفعنا الله بها

الاخوه العزاء هل من الممكن عمل ذلك ؟؟