[tecno2012]

الكود طويل لكن هذا جزء منه
If (from = 2) Then
.Range(cell2).Font.Size = 12
.Range(cell3).Font.Size = 12

If (num >= 11 And (course = 8 Or course = 7)) Then
.Range(cell2).Value = result(sec_avg)
.Range(cell3).Value = result(tot_avg)

Else
.Range(cell2).Value = s_avg
.Range(cell3).Value = t_avg
End If
' .Range(cell3).Cells
End If


في جملة كتبتها وهي
.Cells(, "H").EntireColumn.ColumnWidth = 9.14
ولكن شكلها ما بتاثر كثير وكمان المشكلو انو صعب كل ما بدي اكتب في عمود بدي اكتب هاي الجملة