[發問] excel列高隨電腦windows 7 設定不同而有差異

帖子: 36
主題: 6
精華: 0
積分: 50
點名: 0
作業系統: windows xp
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-2-20
最後登錄: 2015-3-6

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2014-12-25 09:00 | 只看該作者

[發問] excel列高隨電腦windows 7 設定不同而有差異

下列的巨集遇到一個問題無法解決想請教除了手動調整windows設定外能否以巨集方式自動處理？
因為表格(列高、欄寬均有固定規格)有複製需要故以下列程式碼處理
但此程式碼在本人電腦運作正常在他人電腦會發生表格跑掉情形
經過確認原始表格的列高數值(右鍵確認列高)是固定的但問題出在於windows 7設定
控制台>外觀及個人化>讓螢幕上的內容更容易閱讀
我的設定是100%，他人的設定是125%
導致我的表格在預覽時都正常但他人的電腦在預覽第三頁之後就開始跑掉(第4頁的資料跑到第3頁…等)
請教該如何處理？

If myPhoto <> "" Then
j = 25
Set Rng = Rows("1:24")
Rng.Copy
For i = 1 To (countPhoto - 1)
With ActiveSheet.Cells(j, 1)
.PasteSpecial Paste:=xlPasteAll
' .PasteSpecial Paste:=xlPasteFormats
End With
j = j + 24
Next i
Application.CutCopyMode = False

複製代碼

樓主熱帖

HELLO !!

帖子: 36
主題: 6
精華: 0
積分: 50
點名: 0
作業系統: windows xp
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-2-20
最後登錄: 2015-3-6

12^#

發表於 2015-1-5 14:07 | 只看該作者

回復 8# GBKEE
GBKEE大：
試過提供的方法還是無法解決跳頁的問題再拜託GBKEE大了…

HELLO !!

帖子: 36
主題: 6
精華: 0
積分: 50
點名: 0
作業系統: windows xp
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-2-20
最後登錄: 2015-3-6

11^#

發表於 2014-12-30 09:18 | 只看該作者

回復 6# GBKEE
GBKEE大：
經過嘗試雖然可以固定列高但這方法在改變螢幕比例(不是縮放比例)後仍會發生相同的問題
再麻煩 GBKEE大

HELLO !!

帖子: 36
主題: 6
精華: 0
積分: 50
點名: 0
作業系統: windows xp
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-2-20
最後登錄: 2015-3-6

10^#

發表於 2014-12-29 16:45 | 只看該作者

回復 9# stillfish00
stillfish00大：
嘗試你的建議程式碼還是會超出該頁面我想可能不是縮放比例的關係
因為我的工作表列高值和別人電腦的列高值完全一樣
我電腦的登錄檔設定值 = Hex 60 時, 10進位值 = 96 (其意為 96 DPI, = 100%)
別人電腦登錄檔設定值 = Hex 78 時, 10進位值 = 120 (其意為 120 DPI, = 125%)
結果就是我印出來都正常別人印出來就開始出現錯位情形
感謝stillfish00大

HELLO !!

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

9^#

發表於 2014-12-29 15:37 | 只看該作者

回復 5# baconbacons
沒有要你設定為100啊，是要你在copy完執行一次 4# 的 AutoZoom，讓他去自動調整

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2014-12-29 15:05 | 只看該作者

回復 7# baconbacons
ThisWorkbook的
Private Sub Workbook_Open()
在檔案開啟時自動執行的程式.
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
在活頁簿中選擇作用中工作表時自動執行的程式.

你的情況可能須在這程式中一一指定個別儲存格的欄寬,列高

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 36
主題: 6
精華: 0
積分: 50
點名: 0
作業系統: windows xp
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-2-20
最後登錄: 2015-3-6

7^#

發表於 2014-12-29 14:27 | 只看該作者

回復 6# GBKEE
GBKEE大：
問一個笨問題，是要把這三個Private Sub都貼在ThisWorkbook的模組再執行嗎？
還是貼在原本自己的程式碼中？因為我的儲存格並非每一列高、每一欄寬都固定大小
而是將24列合併儲存格後，以此合併儲存格為樣板去複製，所以才會有下列程式碼的作法
Set Rng = Rows("1:24")
Rng.Copy

HELLO !!