سليم حاصبيا

تم التعديل حسب المطلوب Sub del_dupl1() Dim Source_Rg, target_rg As Range Dim rg_to_del As Range Dim m, n, i, j As Integer Set Source_Rg = Range("a1:a8") Set target_rg = Range("b1:b8") m = Source_Rg.Count n = target_rg.Count For i = 1 To m For j = 1 To n If Cells(i, 1) = Cells(j, 2) Then Union(Cells(i, 1), Cells(j, 2)) = "": Exit For End If Next Next End Sub

ربما كان المطلوب في هذا الكود Sub del_dupl() Dim Source_Rg, target_rg As Range Dim rg_to_del As Range Dim m, n, i, j As Integer Set Source_Rg = Range("a1:a8") Set target_rg = Range("b1:b8") m = Source_Rg.Count n = target_rg.Count For i = 1 To m For j = 1 To n If Cells(i, 1) = Cells(j, 2) Then If rg_to_del Is Nothing Then Set rg_to_del = Union(Cells(i, 1), Cells(j, 2)) Else Set rg_to_del = Union(rg_to_del, Cells(j, 2)) ' rg_to_del.Select End If End If Next If rg_to_del Is Nothing = False Then ' rg_to_del.Select rg_to_del = "" Set rg_to_del = Nothing End If Next End Sub

جرب هذا الملف نهاية الفصل salim.rar

جرب هذا الكود Sub del_rg() With Sheets("123") .AutoFilterMode = False .Range("a1:a5000") = "" End With End Sub

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

جرب هذا الملف ehab2 salim.rar

انسخ هذه المعادلة الى الخلية d36 اضغط Ctrl+Shift+Entr ثم اسحبها حتى D42 =SUMPRODUCT($D$4:$D$34,--(WEEKDAY($C$4:$C$34,1)=MOD(ROWS($A$4:A4)-1,7)+1))

لا ضرورة للحلقات التكرارية يكفي هذا Sub del_rg() Sheets("123").Range("a1:a500")="" End Sub

اكتب هذه المعادلة =YEAR(TODAY())

جرب هذا الكود Sub formula_to_code() Range("b5").FormulaArray = "=IF(ROWS($B$5:B5)>$E$1,"""",INDEX(GG!A$7:A$2252,SMALL(IF(GG!$B$7:$B$2252<>"""",IF(GG!$B$7:$B$2252<=$D$2,IF(GG!$B$7:$B$2252>=$C$2,ROW($B$7:$B$2252)-ROW($B$7)+1))),ROWS($B$5:B5))))" Range("b5").AutoFill Range("b5:H5") Range("b5:H5").AutoFill Range("b5:H2252") End Sub

يمكن استعمال هذا التنسيق [=0]""

اسف للخطأ هذا الملف المقصود الارقام معكوسة salim.rar

تم التعديل كي يكون الامر ديناميكياً مطلوب بحث عن رقم الخلية salim معدل.rar

بعد اذن اخي صديقي بن علية هذه المعادلة (تسجب من البسار الى اليمين) =INDEX($B$5:$H$5,COLUMNS(B5:$H$5))

بعد اذن اخي غبد السلام معادلة اخرى مطلوب بحث عن رقم الخلية salim.rar

جرب هذا الكود :كلمة السر Salim هذا الكود يسمح لك بتحديد الخلية التي تحتوي غلى معادلة فقط (دون اي اجراءات اخرى مسح /تعديل /تلوين ...الخ) Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Unprotect Password:="Salim" If Target.HasFormula Then With Target .Locked = True .FormulaHidden = True End With ActiveSheet.Protect Password:="Salim" End If End Sub

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

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

جرب هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False With ActiveSheet .Unprotect Password:="Salim" .Cells.Locked = False If Target.Column = 6 And IsNumeric(Target) Then Target.Locked = True ActiveSheet.Protect Password:="Salim" Application.EnableEvents = True Exit Sub End If End With Application.EnableEvents = True End Sub

معاط تاحق كلة اخي ابو البراء كما لاحظت ان صاحب السؤال نفسه لا يهتم للاجابة فقد كانت له للموقع و كأنها لم تكن

جرب هذا الكود salim_split.rar

جرب هذا الملف الذي يمكن ان تبني عليه (فقط عليك نغيير الأرقام i ,c ,والعدد 15) حسب الحالة التي تريدها الكود يقوم بملء 3 أعمدة 15 صف بالارقام 1 /3 مرات 2 / مرتين 3 / مرتين 4 /3 مرات 5 / 5 مرات Alletoire.rar

مثال غما اعني به exemple.rar

لتعمل المعادلة يجب الضغط على Ctrl+Shift + Enter وليس Enter وحدها

اسمجوا لي بهذه الاضافة حيث اذا قمت بزيادة او حذق صفوف لا يتأثر الترقيم =IF(B2<>"",MAX($A$1:A1)+1,"") توضع المعادلة ابتداءً من الخلية A2 قم بتعبئة بعض الخلايا غي العامود B