返回列表 上一主題 發帖

執行VBA後，右方捲軸為何變成可拉到65536?

winston219
　暱稱: 小溫
　頭銜: Dr.

中學生Rank: 2

帖子
93 
主題
32 
精華
0 
積分
129 
點名
0  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-4 
最後登錄
2016-11-19 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-12-9 22:04 | 只看該作者

執行VBA後，右方捲軸為何變成可拉到65536?

執行巨集後，請問如何修改VBA，以避免捲軸不要變成可拉到65536? 如附檔，謝謝! Book33.rar (7.38 KB)
收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
262  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-10-25 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2010-12-10 00:06 | 只看該作者
回復 1# winston219
程式在給值時使用整欄導致你對END的錯覺
  1. Sub yy()
  2. [a:a].HorizontalAlignment = xlCenter
  3. Range("a2:a" & [b65536].End(3).Row) = "=row()-1"
  4. Range("a2:a" & [b65536].End(3).Row) = Range("a2:a" & [b65536].End(3).Row).Value
  5. End Sub
複製代碼
學海無涯_不恥下問

TOP

winston219
　暱稱: 小溫
　頭銜: Dr.

中學生Rank: 2

帖子
93 
主題
32 
精華
0 
積分
129 
點名
0  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-4 
最後登錄
2016-11-19 

論壇贊助勳章
3#
發表於 2010-12-10 09:45 | 只看該作者
哈，可行了，感謝Hsieh大大的說明~

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題