اكواد لمحاذاة الخلية . يمين ، وسط ، يسار

[قنديل الصياد]

محاذاة لليمين

Sub kk()
 ActiveCell.HorizontalAlignment = xlRight
End Sub

محاذاة للوسط

Sub kkkk()
 ActiveCell.HorizontalAlignment = xlCenter
End Sub

محاذاة لليسار

Sub kkk()
 ActiveCell.HorizontalAlignment = xlLeft
End Sub

مرفق ملف به التطبيقات

 

محاذاة الخلية.rar

[حسين شاكر]