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

السلام عليكم الطلب -بالنسبه لى - غير واضح

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

السلام عليكم حدد المدى المراد بالماوس (سيظهر تلقائيا في الفورم ) ثم حدد العلامة و الله الموفق _____3.rar

مثال rows.count.rar

هو عدد الصفوف في الورقه و يساوى 65536

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

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

السلام عليكم هل تقصد صفحات الطباعه ام اسماء الصفحات ؟

Sub Circles() Dim c As Range Dim MyRng As Range Set MyRng = Range("a1:a10") Call RemoveCircles For Each c In MyRng If c.Value < Cells(1, 2) And c.Value <> "" Then Set v = ActiveSheet.Shapes.AddShape(msoShapeOval, c.Left, c.Top, c.Width, c.Height) v.Fill.Visible = msoFalse v.Line.ForeColor.SchemeColor = 10 v.Line.Weight = 1.25 End If Next End Sub هنا لا يضع على الفوارغ

Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo omar If Intersect(Target, Range("a1:a100")) Is Nothing Then Exit Sub Select Case Len(Target) Case Is > 10 Target.Interior.ColorIndex = 44 Target.Offset(0, 1) = Len(Target) Case 1 To 9 Target.Interior.ColorIndex = 4 Target.Offset(0, 1) = Len(Target) Case 10 Target.Interior.ColorIndex = xlNone Target.Offset(0, 1) = Len(Target) Case 0 Target.Interior.ColorIndex = xlNone Target.Offset(0, 1) = "" End Select omar: End Sub هنا لا يظهر خطا

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

السلام عليكم NO dear Tareq Excel 2003 Dosnt support this Functiion U can use VBA Code Like this http://www.vbaexpress.com/kb/getarticle.php?kb_id=230 Best Regards

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

السلام عليكم ممكن يكون بهذه الطريقة ________________________________.rar

السلام عليكم و هى تعمل على عدد الارقام !! من ذكر المجموع في الحل !!!

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

السلام عليكم كم شرط تريد 2 ام ثلاثه ؟ اكبر او اصغر من عشره شرط ام شرطين ؟؟ Book1.rar

اسف اخى badico لم ارى ردك

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

السلام عليكم ان تقول للكود اذا لم اكن في العمود تسعه انهى العمليه لذلك طبعا لن يعمل Private Sub Worksheet_Change(ByVal Target As Range) 'If Target.Column <> 9 Then Exit Sub If Range("I" & Target.Row).Value = 0 Then Range("I" & Target.Row).Interior.ColorIndex = 3 Else Range("I" & Target.Row).Interior.ColorIndex = 0 End If End Sub

السلام عليكم هذا يساعد في توفير الوقت و ذلك بادراج اموؤر جاهزه لك في الكود بعد تنصيبه ستجده في محرر البيسك و قد اضاف ازرار جديدة

السلام عليكم i هو متغير يرمز الى رقم الصف الذي انت فيه 1 - 4 هما ارقام الاعمده 1 =A 2=B و هكذا

السلام عليكم Private Sub Worksheet_Change(ByVal Target As Range) i = Target.Row Range("e" & Target.Row) = Application.WorksheetFunction.Sum(Range(Cells(i, 1), Cells(i, 4))) End Sub

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

السلام عليكم تفضل http://www.vertex42.com/ExcelArticles/user...-functions.html