إخفاء عمود

[محمد الورفلي1]

السلام عليكم

 

ممكن اخفاء عمود معين وإظهارة في كود واحد

 

إخفاء عمود.rar

 

[رجب جاويش]

تفضل أخى

Sub ragab()
Dim XX As Shape
On Error Resume Next
Set XX = ActiveSheet.Shapes("إخفاء")
Columns("F:F").Hidden = Not Columns("F:F").Hidden
With XX.TextFrame.Characters
If Columns("F:F").Hidden = True Then
    .Text = "إظهار"
    Else
    .Text = "إخفاء"
    End If
End With
End Sub

إخفاء عمود2.rar

[محمد الورفلي1]

السلام عليكم

شكراً الاخ العزيز علي القلب  

((رجب جاويش ))

[رجب جاويش]

أخى الفاضل / محمد الخازمي

جزاك الله كل خير