گری یک کتاب کار با دوازده کاربرگ، یکی برای هر ماه تنظیم کرده است. او اطلاعات را در این کاربرگها قاب کرده است تا فقط بر روی صفحه نمایش او قرار بگیرد. در نقطه ای او کتاب کار خود را باز می کند تا متوجه شود که عرض ستون های ژوئن گسترش یافته است به طوری که همه آنها روی صفحه نمایش او قرار نمی گیرند. فقط ستونهای ژوئن گسترش مییابند، اما ارتفاع ردیفهای همه کاربرگها از 12.75 به 13.50 افزایش مییابد. اگر گری همه چیز را تغییر اندازه دهد تا یک بار دیگر با صفحه نمایشش مطابقت داشته باشد، همه چیز برای یک هفته یا بیشتر خوب است، و سپس تغییر اندازه دوباره اتفاق می افتد.
مشخص نیست چه چیزی ممکن است باعث این مشکل شود، اما چند چیز وجود دارد که می توانید بررسی کنید. اگر کتاب کار در شبکه ای ذخیره می شود، جایی که افراد دیگر می توانند به آن دسترسی داشته باشند، ممکن است این تغییر زمانی رخ دهد که شخص دیگری کتاب کار را باز کرده است. علاوه بر این، اگر کتاب کار در ماشینهای مختلف باز شود، ممکن است ماشینهای دیگری که روی آنها باز میشود، بر روی کتاب کار تاثیر بگذارند، به شرطی که وضوح صفحه نمایش متفاوتی داشته باشند یا فونتهای چاپگر متفاوتی نصب شده باشند.
از آنجایی که از علت آن مطمئن نیستید، ممکن است بهترین راه حل ایجاد یک ماکرو باشد که با باز شدن کتاب کار به طور خودکار اجرا شود. این ماکرو میتواند از میان کاربرگها عبور کند و عرض ستون و ارتفاع ردیف را به آنچه نیاز دارید تنظیم کند. ماکرو زیر این مراحل را انجام میدهد:
Private Sub Workbook_Open()
Dim wSheet As Worksheet
For Each wSheet In Worksheets
Change range to reflect columns and rows you need to affect
With wSheet.Range("A1:A15")
.ColumnWidth = 12 Change to column width desired
.RowHeight = 13 Change to row height desired
End With
Next wSheet
End Sub