تنظيم خودكار پهنا يا ارتفاع يك سلول

[arsalan135]

مي بخشيد آيا كد زي كه آقاي قاسميان گذاشتند ، هم بايستي اضافه گردد ؟ چگونه ؟

Private Sub Worksheet_Change(ByVal Target As Range)
q = Target.Column
Columns(q).EntireColumn.AutoFit
End Sub

ممنون

[~M*E*H*D*I~]

بله استفاده كردم ولي چون فونتها متفاوت هستند جالب در نمياد

وقتی ماکرو run میشه history مربوط به undo پاک میشه و لذا قادر نیستید از ctrl+z استفاده کنید، در واقع این امکان زمانی است که کاربر کاری رو انجام بده نه کد البته ممکنه بشه class module هایی طراحی کرد که history رو حفظ کنه که بنده تا حالا کار نکردم

[~M*E*H*D*I~]

مي بخشيد آيا كد زي كه آقاي قاسميان گذاشتند ، هم بايستي اضافه گردد ؟ چگونه ؟

Private Sub Worksheet_Change(ByVal Target As Range)
q = Target.Column
Columns(q).EntireColumn.AutoFit
End Sub

ممنون

این کد هم همون شیوه هست و باز هم قابلیت undo نداره