سليم حاصبيا

الماف يحتوي على خلايا مدمجة بالمئات مما يعيق العمل حاول اعادة صياغة لملف دون الدمج

حاول ان تجرب هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False If Target.Column <> 1 Or Target.Row < 6 Then GoTo 1 Application.EnableEvents = False '========================================== lr = Cells(Rows.Count, 1).End(3).Row For x = 6 To lr If Cells(x, 1) = "*" Then Cells(x, 2).Resize(1, 3).ClearContents Next '===================================== 1: Application.EnableEvents = True Application.ScreenUpdating = True End Sub

ارفع الملف (أو جزء منه)للمعاينة و اجراء اللازم

جرب هذه المعادلة اذا اردت الا تحتسب 75 او 100 احذف علامة = ( من داخل المعادلة) =SUMIFS($A$4:$AD$4,$A$4:$AD$4,">="&75,$A$4:$AD$4,"<="&100)

اذن استعمل هذا الماكرو Sub salim() With Range("A1:z100") ' تستطيع التعيير .HorizontalAlignment = xlGeneral .VerticalAlignment = xlCenter .ShrinkToFit = True End With End Sub

جرب هذا الماكرو و اعطني التنيجة Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Columns = "" And Target.Value = "" Then Target.ColumnWidth = 8: Exit Sub Target.EntireRow.AutoFit Target.EntireColumn.AutoFit c = Target.ColumnWidth r = Target.RowHeight If r < 29.25 Then r = 29.25 If c < 8 Then c = 8 Target.ColumnWidth = c Target.RowHeight = r End Sub

هناك طرق عدة لهذه الامر منها مثلاً هذه المعادلة =SUMIFS($M$6:$M$9,$K$6:$K$9,F6,$L$6:$L$9,G6)

استعمل هذا الكود لهذا الامر Sub select_choosen_rows() Dim lr As Integer Dim my_rg As Range Dim my_nb As Integer Dim i As Integer Dim cel As Range my_nb = Cells(1, 1).Value lr = Cells(Rows.Count, 1).End(3).Row For i = 2 To lr If Cells(i, 1) = my_nb Then If my_rg Is Nothing Then Set my_rg = Cells(i, 1).Resize(1, 5) Else Set my_rg = Union(my_rg, Cells(i, 1).Resize(1, 5)) End If End If Next For Each cel In my_rg If cel.HasFormula Then cel.Value = cel.Value Next End Sub

انا مش عارف الفائدة من اخر سطر ماذا تقصد ان تفعل

ربما كان لمطلوب two_dimension vlookup.zip

نموذج بسيط عما تريد يمكن تعميمة بمعادلات اخرى fill_formulas.zip

تم التعديل حسب الطلب المصنف1 cond.zip

1-حدد اي خلية من الجدول 2- اضغط Alt+O+D 3- يظهر لك مربع حواري (اختر منه Edit rule) و سوف ترى معادلة التنسيق الشرطي

عليك بهذا الملف المصنف1 cond.zip

اذهب الى العمودين Z و X ستجد هناك معادلات تساعدك على اتمام الامر عليك تعديلها فقط حسب المطلوب اعمل نسخة احتياطية عن الملف قبل البدء بأي عمل تلافياً للأخطاء

جرب هذا الملف يمكنك الاطلاع على الورقة Search حيث يوجد اختصار لكل الصفحات والقائمة المنسدلة في الخلية C7 تعمل اوتو ماتيكياً حسب اسم الصفحة بحث salim.zip

ممتاز اخي مختار ولكن لما الارتباط بقيمة 15% دع المستخدم يختار القيمة من الخلية B1 (حسب الكود الذي وضعته انا)

جرب هذا الملف المصنف1 salim.zip

استعمل هذا الكود Sub etoil() lr = Cells(Rows.Count, 1).End(3).Row For x = 15 To lr If Cells(x, 1) = "*" Then Cells(x, 1).Resize(1, 4).ClearContents Next End Sub

ربما يكون المطلوب مثال salim.zip

جرب هذا الشيء form_date.zip

حتى تنجح المعادلة يجب ان يكون تنسيق الخلية A1 تاريخ و لبس نص

جرب هذه المعادلة (اذا كانت الخلية المطلوبة A1) =TEXT(A1,"yyyymmdd")

شاهد هذا الفبديو https://www.youtube.com/watch?v=BPuDV3--Wkg

ربما كان المطلوب اذا لم يكن كذلك ارسل نموذجاً عما تريد مثال _لجدول التقاطعات salim 1.zip