اعرف والله صفاء قلبك اتجاه الاخوه الاعضاء
فمنك نتعلم استاذ ياسر العزيز
سؤال لو سمحت ممكن توضيح اخر ثلاث اسطر لاني عند حذفهم لام يتغير شي في الكود
'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0
With Selection
' ÇÑÊÝÇÚ ÇáÎáíÉ
.ColumnWidth = 22
' ÚÑÖ ÇáÎáíÉ
.RowHeight = 22.5
' áæä ÇáÎáíÉ
.Interior.ColorIndex = 40
' äæÚ ÇáÎØ
.Font.Name = "Abuhmeda -f2"
' áæä ÇáÎØ
.Font.ColorIndex = 1
' ÍÌã ÇáÎØ
.Font.Size = 12
'ÇáÎØ ÚÑÈÖ
.Font.Bold = True
'ÇáÎØ ãÇÆá
.Font.Italic = True
'ÇÍÊæÇÁãäÇÓÈ Ýí ÇáÎáíÉ
.ShrinkToFit = True
'ããßä ÊæÖÍ ÇáÇÓØ 1æ2æ3
'1 .HorizontalAlignment = xlCenter
'2 .VerticalAlignment = xlCenter
'3 .BorderAround ColorIndex:=xlAutomatic, Weight:=xlMedium
End With
'End Sub