الـعيدروس

الاخوة الافاضل عبدالله المجرب ابو احمد tahar1983 alouma abo_alaa سعيد جداً لمروركم الكريم حفظكم الله

السلام عليكم ورحمة الله وبركاته اهل الخبره عممتم مساء (اكسل بلا حدود) لدي استفسار عن طريقة لعمل تسلسل ليوم ترقم وكتابه بمعنى (السبت 1)- (الاحد 2) وهكذا وعند السحب يكمل ايام الاسبوع مع الترقيم برجاء من لديه الحل لايبخل بالرد والسلام عليكم

يس مشاهدة يس تحميل نو ردود :')

فعلن ياعبقري كانت هناك المعضله اشتغل زي الفل جزاك الله خيراً وزوجت بكراً

السلام عليكم واليكم هذه الهديه فورم اله حاسبة حملتها من موقع اجنبي والسلام عليكم اله حاسبه.rar

غير موجوده عندي هالاداة التي في الصورة علما بان الوندوز الذي استخدمه XP

السلام عليكم اليكم هذا الملف وفيه فورمات وعليها حركات شي جديد علي يمكن تستفيدو منها حلمته من احدى المواقع الاجنبيه xl.rar

جزاك الله خير الاستاذ الفاضل دغيدي

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

اتفضل تاريخ صلاحية.rar

هل يوجد كود لمنع عمل الشرطه او المسافه مثلا الاســـــــــم لايقبل الا حروف هكذا الاسم من عنده الخبره فاليفيدنا جزاكم الله خيرا

مشكور اخي على دعائك

اليكم كود لتلأم العمود لمحتوى النص بمعنى عند كتابة اسم طويل بالخليه تتوسع اتوماتيك ينحط الكود في حدث workbook Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range) ActiveSheet.Columns(Target.Column).AutoFit End Sub

جزاك الله خير الاستاذ القدير عادل حنفي

كود لجمع الخلايا ذات اللون المعين وادراجه كمعادلة هذه ضيغة الداله =ColorFunction($C$1;$A$1;TRUE) الجزء المضلل بالاحمر المدى المراد جمع خلاياه الملونه والجزء المضلل بالاخضر الخليه العينه التي فيها اللون المراد جمع الخلايا التي تحتوي على نفس اللون اليكم الكود Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean) Dim rCell As Range Dim lCol As Long Dim vResult '=ColorFunction($C$1;$A$1:$A$12;TRUE)كالتالي عمل الداله الاول بعد القوس الخليه التي تحط فيها اللون المراد جمعه 'وبعد الفاصل من خليه والفاصل الثاني الي خليه اغلق القوس lCol = rColor.Interior.ColorIndex If SUM = True Then For Each rCell In rRange If rCell.Interior.ColorIndex = lCol Then vResult = WorksheetFunction.SUM(rCell, vResult) End If Next rCell Else For Each rCell In rRange If rCell.Interior.ColorIndex = lCol Then vResult = 1 + vResult End If Next rCell End If ColorFunction = vResult End Function معادلة لجمع الخليه الملونة بالكسور.rar

اخي عملت لك ملف فيديو يوضح كيفية عمل كومبوكس وربطه مع خلايا تفضل على الرابط ادناه http://www.2shared.com/file/-QdwClY2/_exe1.html

اشكرك اخي يحي على توضيح الكود اكثر نعم هذا كود من المدخرات في رحلة البحث على الجوجل استخدمته في التحكم بعرض القائمة على حد علمي انه لايمكن التحكم بخط القائمة المنسدله لدى التحقق من البيانات فلهذا استفدت من هذه الجزئيه ومااوضحته انفع برضه

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

طريقة التغلب على تحديد اللون وكبر الخط في القائمة المنسدله التحقق من الصحه بربط كومبكس في حدث الصفحه اليكم الكود يشرح نفسه ومرفق مثال Option Explicit Private Sub TempCombo_KeyDown(ByVal _ KeyCode As MSForms.ReturnInteger, _ ByVal Shift As Integer) Select Case KeyCode Case 9 ActiveCell.Offset(0, 1).Activate Case 13 ActiveCell.Offset(1, 0).Activate Case Else End Select End Sub Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim str As String Dim cboTemp As OLEObject Dim ws As Worksheet Dim wsList As Worksheet Set ws = ActiveSheet Set wsList = Sheets("æÑÞÉ1") Cancel = True Set cboTemp = ws.OLEObjects("TempCombo") On Error Resume Next With cboTemp .ListFillRange = "" .LinkedCell = "" .Visible = False End With On Error GoTo errHandler If Target.Validation.Type = 3 Then Application.EnableEvents = False str = Target.Validation.Formula1 str = Right(str, Len(str) - 1) With cboTemp .Visible = True .Left = Target.Left .Top = Target.Top .Width = Target.Width + 15 .Height = Target.Height + 5 .ListFillRange = str .LinkedCell = Target.Address End With cboTemp.Activate End If errHandler: Application.EnableEvents = True Exit Sub End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim str As String Dim cboTemp As OLEObject Dim ws As Worksheet Set ws = ActiveSheet Application.EnableEvents = False Application.ScreenUpdating = False If Application.CutCopyMode Then GoTo errHandler End If Set cboTemp = ws.OLEObjects("TempCombo") On Error Resume Next With cboTemp .Top = 10 .Left = 10 .Width = 0 .ListFillRange = "" .LinkedCell = "" .Visible = False .Value = "" End With errHandler: Application.ScreenUpdating = True Application.EnableEvents = True Exit Sub End Sub abood.rar

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

تفضل هالمرفق اضغط مرتين على الخليه الخضراء ويظهر لك كومبوكس قائمة التحقق.rar

جزاك الله خير مقدر جهدك الكريم

للاسف اخي جمال الفار لايوجد الا اذا اخترت كمبوكس من اداوت التحكم تقدر تتحكم بمحتوياته من خط تكبير تصغير لون هذا ماعندي والله اعلم Book1.rar

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

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