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

السلام عليكم اذا كنت تستخدم اكسيل 2007 هناك داله اسمها AVERAGEIF تقوم بالمهمه L.2.10.7.rar

السلام عليكم ممكن ان تسمى المدى كما فعلت و بذلك تستطيع استخدامه مباشره في الصيغه و بذلك يسهل العمل و يكون اكثر تنظيما فلو كان لدينا عمود السعر و عمود عدد الوحدات و عمود المجموع نسمى كل عمود باسمه ونقول المجموع = السعر* عدد الوحدات

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

السلام عليكم هذه داله معدله لتجمع الخطوط المنسقه بنوع الخط Arial مع امكانيه تغيير الى الخط السميك او العادى او المائل If Rng.Font.Bold And IsNumeric(Rng.Value) Then If Rng.Font.Italic And IsNumeric(Rng.Value) Then Function SumByArialFont(InRange As Range) Dim Rng As Range Application.Volatile True For Each Rng In InRange.Cells If Rng.Font.Name = "Arial" And IsNumeric(Rng.Value) Then SumByArialFont = SumByArialFont + Rng.Value End If Next Rng End Function SumByarialFont.rar

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

السلام عليكم عدل السطر التالى في الكود Sub hide7() Rows("1:1000").Hidden = True i = 5 For x = 1 To 1000 If Cells(x, 1).Row Mod i = 0 Then Cells(x, 1).EntireRow.Hidden = False i = i + 7 End If Next x End Sub Unhide5_7.rar

السلام عليكم تصحيح لغوى ملئى السنابل تنحني بتواضعٍ ----- والفارغات رؤوسهن شوامخ

السلام عليكم ممكن بالتحقق من الصحه او الكود Summ.rar

السلام عليكم احسنت صنعا اخى

السلام عليكم سؤال تشكر عليه انا لا اعتقد ان ذلك ممكن فانت تتحدث عن اسم معرف (فريد) و الله اعلم تشرفنا بكم من قسم الاكسيس

السلام عليكم يتم اخفائها او ما تريد و هنا كود اخر يفي بالغرض ايضا Sub hide7() i = 5 For x = 1 To 1000 If cells(x, 1).Row Mod i = 0 Then cells(x, 1).EntireRow.Hidden = True i = i + 7 End If Next x End Sub hide5_7.rar hide5_7.rar

السلام عليكم بل هى دوال البحث VLookup Or Hlookup او من دوال الاستاذ ابو تامر vlooktall or Vlookon

السلام عليكم منكم نستفيد دائما استاذنا ابو تامر

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

السلام عليكم =Randbetween(1,5)

السلام عليكم انت سباق اخى هشام

السلام عليكم Dim cell As Range Dim myrng As Range Set myrng = Range("n4:ap68") For Each cell In myrng.Cells If cell.Value = "ت1" Then cell.Interior.ColorIndex = 4 End If If cell.Value = "ت2" Then cell.Interior.ColorIndex = 6 End If If cell.Value = "ت3" Then cell.Interior.ColorIndex = 39 End If Next cell او Dim cell As Range Dim myrng As Range Set myrng = Range("n4:ap68") For Each cell In myrng.Cells Select Case cell.Value Case Is = "ت1" cell.Interior.ColorIndex = 4 Case Is = "ت2" cell.Interior.ColorIndex = 6 Case Is = "ت3" cell.Interior.ColorIndex = 39 End Select Next cell

السلام عليكم المشكله انك استخدمت الفراغ بين ("") كالاتى (" ") المعادله كما هو ادناه =IF(C6<>"",VLOOKUP(aa!C6,'1'!$B$6:$J$35,2,0),"") بالنسبة للطلب الثانى تغيير مصدر البيانات بتغيير الرقم استخدم الكود التالى =IF(G2=1,IF(C6<>"",VLOOKUP(aa!C6,'1'!$B$6:$J$35,2,0),""),IF(G2=2,IF(C6<>"",VLOOKUP(aa!C6,'2'!$B$6:$J$35,2,0),""),IF(G2=3,IF(C6<>"",VLOOKUP(aa!C6,'3'!$B$6:$J$35,2,0),IF(G2=4,IF(C6<>"",VLOOKUP(aa!C6,'4'!$B$6:$J$35,2,0),"")))))) الامر سهل و بسيط و ليس فيه تحدى _____.rar

السلام عليكم اذا اردت مسح الخلايا الفارغه فقط تحت اول خليه فارغه كود الاخ اعلاه تمام اما اذا اردت حذف كل الخلايا سواء كانت فارغه او غير فارغه تحت اول خلية فارغه اليك الكود الاتى يعمل مثل الكماشه على الخلايا المطلوبه Sub MoveBlankRowsToBottom() Dim X As Range, Y As Range Set X = Range("b4").End(xlDown).Offset(1, 0) Set Y = Range("b100").End(xlUp).Offset(1, 0) Range(X, Y).ClearContents End Sub

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

Private Sub CommandButton2_Click() Range("A:A,F:F,D:D").Select Selection.EntireColumn.Hidden = False If CommandButton2.Caption = "أخفاء الاعمدة A&f&d" Then Range("E:E,G:G,C:C").Select Selection.EntireColumn.Hidden = True CommandButton2.Caption = "أظهار الاعمدة E&G&C" Else Range("E:E,G:G,C:C").Select Selection.EntireColumn.Hidden = False Range("A:A,F:F,D:D").Select Selection.EntireColumn.Hidden = True CommandButton2.Caption = "أخفاء الاعمدة A&f&d" End If End Sub

السلام عليكم بسم الله الرحمن الرحيم "وقال ربكم ادعوني استجب لكم" صدق الله العظيم اخوكم مقبل على امر يحتاج لدعائكم ادعوا لى الله التوفيق و السداد في القول و العمل اخوكم

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

السلام عليكم اليك حل اخفاء العمود A و هو نفس طريقة عمل الاخ هادى سالم Private Sub CommandButton2_Click() If CommandButton2.Caption = "&Atilde;&Icirc;&Yacute;&Ccedil;&Aacute; &Ccedil;&aacute;&Uacute;&atilde;&aelig;&Iuml; A" Then Columns("A").Hidden = True CommandButton2.Caption = "&Atilde;&Ugrave;&aring;&Ccedil;&Ntilde; &Ccedil;&aacute;&Uacute;&atilde;&aelig;&Iuml; A" Else Columns("A").Hidden = False CommandButton2.Caption = "&Atilde;&Icirc;&Yacute;&Ccedil;&Aacute; &Ccedil;&aacute;&Uacute;&atilde;&aelig;&Iuml; A" End If End Sub الرجاء زياره هذا الرابط http://www.officena.net/ib/index.php?showtopic=24793 Show_Hid.rar Hide.rar

السلام عليكم application.ontime