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

[arsalan135]

با سلام خدمت دوستان
براي اينكه در يك سلول پس از اينكه متني وارد شد ( يا عددي ) پهنا يا ارتفاع سلول بطور اتوماتيك تنيم شود ، چه راهكاري داريد ؟
البته راههاي دستي اعم از وارد كردن پهنا يا ارتفاع سلول و يا دبل كليك روي مرز رديف يا سلول ( يا Auto fit .....) بايستي بعد از وارد كردن متن حتما اينكارها رو انجام داد. ولي من مي خواهم بعنوان مثال نتيجه محاسبه يك سلول كه عددي است ، با توجه به اينكه ممكن است تعداد رقمها تغيير كند ، بعد از بدست آمدن نتيجه يا تغيير در محاسبه همزمان پهنا يا ارتفاع سلول هم تغيير كند تا ديگر نيازي به انجام دستي نباشد
ممنون

[mokaram]

به فایل زیر توجه کنید

[Amir Ghasemiyan]

به فایل زیر توجه کنید

ممنون دوست عزيز. فقط دو مورد هست كه بايد دقت كنيد
اول اينكه اين كدي كه شما نوشتين فقط چند ستون خاص رو پوشش ميده.
دوم اينكه تا جايي كه امكان داره از گذاشتن فايل آماده خودداري بفرماييد

اين كد رو در قسمت كد شيت مورد نظرتون كپي كنيد:

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

[arsalan135]

بعد از اينكه كد رو توي كد شيت وارد مي كنيم ، UNDO و REDO غيرفعال مي شود ، چه بايد كرد ؟

[arsalan135]

البته undo و redo براي تنظيم فرمت سلولها فعال است ولي زماني كه در سلولها تغييري ايجاد شود و يا فرمولي نوشته شود و يا سلولي را به اشتباه پاك كنيم گزينه هاي undo , redo غيرفعال هستند و نمي شود تغييرات انجام شده را برگرداند

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

از قطعه کد زیر میتونید استفاده کنید

With Cells
  .EntireColumn.AutoFit
   .EntireRow.AutoFit
   .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlTop
      End With 

[arsalan135]

كد رو داخل كد شيت كپي كردم ولي كار نمي كند

[Amir Ghasemiyan]

البته undo و redo براي تنظيم فرمت سلولها فعال است ولي زماني كه در سلولها تغييري ايجاد شود و يا فرمولي نوشته شود و يا سلولي را به اشتباه پاك كنيم گزينه هاي undo , redo غيرفعال هستند و نمي شود تغييرات انجام شده را برگرداند

وقتي شما با كد تغييراتي در سلول ها ايجاد ميكنيد آندو و ريدو غير فعال ميشن. اين طبيعي هست ولي اگر با نوشتن در سلول ها بصورت دستي اين مشكل رو دارين قضيش فرق ميكنه

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

كد رو داخل كد شيت كپي كردم ولي كار نمي كند

این یک قطعه کد هست نه کد اصلی ، بایستی در انتهای کدی که باعث تغییرات میشن داخل ساب روتین کپی کنید

[Ali Parsaei]

بعضي مواقع shrink to fit در قسمت فرمت سل هم به کار مي آيد، يعني به جاي فيت کردن عرض ستون با نوشته ها، عرض نوشته ها را با ستون فيت کنيد، البته در مواقعي است که مثلا" با يک درجه کوچک کردن فونت بعضي سل ها مشکل برطرف مي گردد.

[arsalan135]

این یک قطعه کد هست نه کد اصلی ، بایستی در انتهای کدی که باعث تغییرات میشن داخل ساب روتین کپی کنید

مي بخشيد من با برنامه نويسي در اكسل آشنايي ندارم اگر امكان دارد واضحتر توضيح بدهيد .

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

Alt+F11 رو بزنید وارد محیط VBA که شدید روی مثلا sheet1 دابل کلیک کند صفحه ای که باز میشه کد زیر رو وارد کنید

Private Sub Worksheet_Change(ByVal Target As Range)
With Cells
  .EntireColumn.AutoFit
   .EntireRow.AutoFit
   .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlTop
      End With
End Sub 

[arsalan135]

ولي بازهم undo , Redo غير فعال هستند

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

از امکان shrink to fit استفاده کردید؟

[arsalan135]

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