[حل شده] بهم ریختگی داشبورد اکسل در مانیتورهای مختلف

[mahdi_vsgh]

سلام
من یه داشبورد طراحی کردم تو سیستم خودم همه چی اوکیه!!!
اینم تصویرش


اما وقتی فایل رو به یه سیستم دیگه منتقل میکنم (ورژن یکسان آفیس!!!) این فایل دچار بهم رخیتگی میشه و به شکل زیر در میاد


عکس این مطلب هم صادق هست. یعنی اگه یه فایل تو سیستم دیگه ای درست نشون بده وقتی به سیستم خودم منتقل میکنم بهم ریخته میشه!!
خیلی سرچ کردم چیزی پیدا نکردم! (لازم به ذکره حتی رزولیشن مانیتورهام یکی هست!)

[saed.rasa]

سلام
اگر امکان داره فایل نمونه قرار دهید لطفا!
پیشنهاد: آفیس را دوباره نصب کنید

[mahdi_vsgh]

سلام
اگر امکان داره فایل نمونه قرار دهید لطفا!
پیشنهاد: آفیس را دوباره نصب کنید

بفرما خدمت شما!

[saed.rasa]

سلام
فایل شما را مشاهده کردم به نظر میاد حجم فایل بالا است و سنگین.
شاید این طبیعی باشد بخاطر اینکه تعداد زیاد از ماکرو استفاده کردید
3 تا از شیت های شما تا آخرین ردیف از border (فرمت جدول) استفاده کردید باید سلول های خالی را( فرمتش را ) پاک کنید
و این لینک هم مطالعه کنید

https://forum.exceliran.com/showthread.php/5330-%D8%B1%DA%98%DB%8C%D9%85-%D9%84%D8%A7%D8%BA%D8%B1%DB%8C-%D8%A8%D8%B1%D8%A7%DB%8C-%D8%A7%DA%A9%D8%B3%D9%84-%D9%87%D8%A7%DB%8C-%DA%86%D8%A7%D9%82

[majid_mx4]

با سلام

دوست عزیز

بنظر می رسه این تغییر بخاطر اختلاف رزولیشون دستگاه های مختلف با هم است یک راه ساده وجود دارد که ممکن است بتوان به شما کمک کند و آن تغییر zoom با vba است .

توجه داشته باشید این فقط یک پیشنهاد است راه های بسیار زیادی برای تنظیمات هنگام باز شدن اکسل وجود دارد ولی بنظر شخصی بنده این راه بسیار ساده است

دستورات زیر را در ThisWorkbook اضافه و ذخیره کنید و یکبار اکسل را بسته و باز کنید. تنظیمات zoom بر اساس دستگاه مورد نظر تنظیم می گردد.( دستورات از یک سایت برداشته شده است ولی تست شده )
حتما راه های دیگری است که اساتید محترم میتوانند پیشنهاد کنند که بهتر از این راه باشد.

Private Sub Workbook_Open()
Zoomitgood
End Sub
Sub Zoomitgood()

'this macro will loop through all the sheets and zoom to fit the contents by
'measuring the width and height of each sheet. It will then zoom to 90% of
'the "zoom to fit" setting.


    Dim WS_Count As Integer
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim maxwidth As Integer
    Dim width As Integer
    Dim Height As Integer
    Dim MaxHeight As Integer
    Dim zoom As Integer

'First Loop: Loop through each sheet, select each sheet so that each width
'and height can be measured. The width and height are measured in number of
'cells.

WS_Count = ActiveWorkbook.Worksheets.Count

For i = 1 To WS_Count

Worksheets(i).Activate
maxwidth = 0
MaxHeight = 0

'Second loop: measure the width of each sheet by running line by line and
'finding the rightmost cell. The maximum value of the rightmost cell will be
'set to the maxwidth variable

For j = 1 To 100
width = Cells(j, 100).End(xlToLeft).Column
If width >= maxwidth Then

maxwidth = width

End If

Next

'Third loop: measure the height of each sheet by running line by line and
'finding the rightmost cell. The maximum value of the lowest cell will be
'set to the maxheight variable.

For k = 1 To 100
Height = Cells(100, k).End(xlUp).Row
If Height >= MaxHeight Then

MaxHeight = Height

End If

Next

'Finally, back to loop 1, select the range for zooming. Then set the zoom to
'90% of full zoom.

Range(Cells(1, 1), Cells(MaxHeight, maxwidth)).Select
ActiveWindow.zoom = True
zoom = ActiveWindow.zoom
ActiveWindow.zoom = zoom * 0.95
Cells(1000, 1000).Select
Application.CutCopyMode = False
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1

Next

MsgBox "You have been zoomed"


Application.ScreenUpdating = True
Application.DisplayAlerts = True



 End Sub

پایدار باشید میر

[mahdi_vsgh]

سلام
فایل شما را مشاهده کردم به نظر میاد حجم فایل بالا است و سنگین.
شاید این طبیعی باشد بخاطر اینکه تعداد زیاد از ماکرو استفاده کردید
3 تا از شیت های شما تا آخرین ردیف از border (فرمت جدول) استفاده کردید باید سلول های خالی را( فرمتش را ) پاک کنید
و این لینک هم مطالعه کنید
https://forum.exceliran.com/showthre...86%D8%A7%D9%82

والا بعید میدونم ربط داشته باشه!! اون لینکی که دادید رو هم مطالعه کردم تاثیری تو کار نداشت و همچنان تو این مانیتور مشکل داره!

[mahdi_vsgh]

با سلام

دوست عزیز

بنظر می رسه این تغییر بخاطر اختلاف رزولیشون دستگاه های مختلف با هم است یک راه ساده وجود دارد که ممکن است بتوان به شما کمک کند و آن تغییر zoom با vba است .

توجه داشته باشید این فقط یک پیشنهاد است راه های بسیار زیادی برای تنظیمات هنگام باز شدن اکسل وجود دارد ولی بنظر شخصی بنده این راه بسیار ساده است

دستورات زیر را در ThisWorkbook اضافه و ذخیره کنید و یکبار اکسل را بسته و باز کنید. تنظیمات zoom بر اساس دستگاه مورد نظر تنظیم می گردد.( دستورات از یک سایت برداشته شده است ولی تست شده )
حتما راه های دیگری است که اساتید محترم میتوانند پیشنهاد کنند که بهتر از این راه باشد.

Private Sub Workbook_Open()
Zoomitgood
End Sub
Sub Zoomitgood()

'this macro will loop through all the sheets and zoom to fit the contents by
'measuring the width and height of each sheet. It will then zoom to 90% of
'the "zoom to fit" setting.


    Dim WS_Count As Integer
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim maxwidth As Integer
    Dim width As Integer
    Dim Height As Integer
    Dim MaxHeight As Integer
    Dim zoom As Integer

'First Loop: Loop through each sheet, select each sheet so that each width
'and height can be measured. The width and height are measured in number of
'cells.

WS_Count = ActiveWorkbook.Worksheets.Count

For i = 1 To WS_Count

Worksheets(i).Activate
maxwidth = 0
MaxHeight = 0

'Second loop: measure the width of each sheet by running line by line and
'finding the rightmost cell. The maximum value of the rightmost cell will be
'set to the maxwidth variable

For j = 1 To 100
width = Cells(j, 100).End(xlToLeft).Column
If width >= maxwidth Then

maxwidth = width

End If

Next

'Third loop: measure the height of each sheet by running line by line and
'finding the rightmost cell. The maximum value of the lowest cell will be
'set to the maxheight variable.

For k = 1 To 100
Height = Cells(100, k).End(xlUp).Row
If Height >= MaxHeight Then

MaxHeight = Height

End If

Next

'Finally, back to loop 1, select the range for zooming. Then set the zoom to
'90% of full zoom.

Range(Cells(1, 1), Cells(MaxHeight, maxwidth)).Select
ActiveWindow.zoom = True
zoom = ActiveWindow.zoom
ActiveWindow.zoom = zoom * 0.95
Cells(1000, 1000).Select
Application.CutCopyMode = False
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1

Next

MsgBox "You have been zoomed"


Application.ScreenUpdating = True
Application.DisplayAlerts = True



 End Sub

پایدار باشید میر

ممنون اینو زدم الان تو این مانیتوری که قبلا مشکل داشت اون مشکل برطرف شد. یعنی خوب نشون میداد ولی تو مانیتورهایی که قبلا درست نشون میداد داره بهم ریخته نشون میده!!!!

[majid_mx4]

با سلام

این دستورات کار خاصی انجام نمی دهند فقط مقدار zoom را تغییر می دهد و نباید بهم ریختگی ایجاد کند چون Zoom است نه تغییرات فرمتی
اگر شما به قسمت پایین صفحه اکسل توجه کنید یک اهرم وجود داره که با اضافه و یا کم کردن آن میتوانیدگسترده دید تصویر خود را اصلاح کنیدو ماکرو سافت برای این نوع مشکلات و یا برای نمایش بهتر این اهرم را گذاشته که دستورات بالا آن را در تمامی سیستم ها مثلا به 85 تغییر می دهد.
لطفا کنید در دستورات مقدار زیر را تغییر دهید و در سیستم مشکل دار دوباره آن را امتحان کنید
این تغییرات نباید بیشتر از 99 یا کمتر از عددی قابل مشاهد برای تصویر باشد.

[FONT=Tahoma][FONT=Tahoma]ActiveWindow.zoom = zoom * 0.95[/FONT][/FONT]

به شما 0.85 را پیشنهاد میکنم

موفق باشید میر

[mahdi_vsgh]

با سلام

این دستورات کار خاصی انجام نمی دهند فقط مقدار zoom را تغییر می دهد و نباید بهم ریختگی ایجاد کند چون Zoom است نه تغییرات فرمتی
اگر شما به قسمت پایین صفحه اکسل توجه کنید یک اهرم وجود داره که با اضافه و یا کم کردن آن میتوانیدگسترده دید تصویر خود را اصلاح کنیدو ماکرو سافت برای این نوع مشکلات و یا برای نمایش بهتر این اهرم را گذاشته که دستورات بالا آن را در تمامی سیستم ها مثلا به 85 تغییر می دهد.
لطفا کنید در دستورات مقدار زیر را تغییر دهید و در سیستم مشکل دار دوباره آن را امتحان کنید
این تغییرات نباید بیشتر از 99 یا کمتر از عددی قابل مشاهد برای تصویر باشد.

[FONT=Tahoma][FONT=Tahoma]ActiveWindow.zoom = zoom * 0.95[/FONT][/FONT]

به شما 0.85 را پیشنهاد میکنم

موفق باشید میر

ممنون مشکل حل شد