تغيير حجم الصفوف بناءا على محتوى خلية

[Salah1989]

السلام عليكم

فى الملف المرفق مجموعة من الصفوف عددهم 7 صفوف ملونة باللون الاصفر اريد كود لتغيير جحم الصفوف بناءا على النطاق الملون بالازرق بحيث حجم    ;حجم العمود 50;IF(COUNTA(K12:K18)=3;;;;;حجم العمود 100;IF(COUNTA(K12:K18)=2

تكليف نقلتجريبى3.rar

[ياسر خليل أبو البراء]

وعليكم السلام أخي الكريم صلاح

هل المطلوب تغيير ارتفاع الصفوف من 12 إلى 18 أم عرض الأعمدة ؟؟؟ !!!

يرجى مزيد من التوضيح وطلبك يسير جداً إن شاء الله ، فقط وضح الأمر بلغة الإكسيل .. افترض قيم محددة كمثال في العمود K ، لتوضح الصورة بشكل أفضل

 

هل المطلوب العمل على تغيير عرض العمود K بالشروط المذكورة في المشاركة الأولى؟

إذا كان الأمر كذلك جرب الكود التالي

Sub Test()
    If Application.WorksheetFunction.CountA(Range("K12:K18")) = 3 Then
        Columns(11).ColumnWidth = 50
    ElseIf Application.WorksheetFunction.CountA(Range("K12:K18")) = 2 Then
        Columns(11).ColumnWidth = 100
    End If
End Sub

تقبل تحياتي

[Salah1989]

السلام عليكم

جزالك الله خيرا يا استاذ ياسر وشكرا على الاهتمام..

فعلا اريد تغيير ارتفاع الصفوف من 12 إلى 18 وليس الاعمدة...برجاء الاطلاع على الملف المرفق حيث اننى استفدت من الكود اللى حضرتك كتبته فى المشاركة وقمت بتعديل عليه اوصلنى لما اريده.

برجاء الاطلاع على الكود الموجود على الزر Hide والتعديل عليه اذا كان فيه شيى مش مظبوط.

تكليف نقلتجريبى3.rar

هذا هو الكود استاذ ياسر

 

Sub Hideempty()
'
' Hideempty Macro
'

'
   
    ActiveSheet.Range("$O$3:$O$18").AutoFilter Field:=1, Criteria1:="=Value", _
        Operator:=xlOr, Criteria2:="="
    If Application.WorksheetFunction.CountA(Range("K12:K18")) = 1 Then
        Selection.RowHeight = 200
    ElseIf Application.WorksheetFunction.CountA(Range("K12:K18")) = 2 Then
        Selection.RowHeight = 150
        ElseIf Application.WorksheetFunction.CountA(Range("K12:K18")) = 3 Then
        Selection.RowHeight = 100
        ElseIf Application.WorksheetFunction.CountA(Range("K12:K18")) = 4 Then
        Selection.RowHeight = 80
        ElseIf Application.WorksheetFunction.CountA(Range("K12:K18")) = 5 Then
        Selection.RowHeight = 70
        ElseIf Application.WorksheetFunction.CountA(Range("K12:K18")) = 6 Then
        Selection.RowHeight = 60
        ElseIf Application.WorksheetFunction.CountA(Range("K12:K18")) = 7 Then
        Selection.RowHeight = 50
        
        
    End If
    
        
End Sub

[سليم حاصبيا]

جرب هذا الماكرو

Sub rows_()
  Select Case Application.WorksheetFunction.CountA(Range("K12:K18"))
  Case 1
        s = 200
  Case 2
         s = 150
  Case 3
        s = 100
  Case 4
         s = 80
  Case 5
         s = 70
  Case 6
        s = 60
  Case 7
       s = 50
  Case Else
  s = 18.5
   End Select
 Selection.RowHeight = s
End Sub

 

[Salah1989]

شكرا استاذ سليم حاصبيا على مجهودك  ولكن الكود لا يعطينى ما اريده

[ياسر خليل أبو البراء]

جرب الكود بهذا الشكل

Sub Test()
    Dim iCount As Integer
    
    iCount = Application.WorksheetFunction.CountA(Range("K12:K18"))
    Range("K12:K18").RowHeight = Choose(iCount, 200, 150, 100, 80, 70, 60, 50)
End Sub

 

 

[Salah1989]

5 ساعات مضت, ياسر خليل أبو البراء said:

جرب الكود بهذا الشكل

Sub Test()
    Dim iCount As Integer
    
    iCount = Application.WorksheetFunction.CountA(Range("K12:K18"))
    Range("K12:K18").RowHeight = Choose(iCount, 200, 150, 100, 80, 70, 60, 50)
End Sub

 

 

 

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