返回列表 上一主題 發帖

[發問] 用巨集設定欄位寬度會出問題(謝謝大大，已解決)

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-4-24 12:00 | 只看該作者

[發問] 用巨集設定欄位寬度會出問題(謝謝大大，已解決)

本帖最後由 av8d 於 2012-4-24 12:49 編輯

Sub 巨集3()
'
' 巨集3 巨集
'

'
    Range("A:A,E:E").Select
    Selection.ColumnWidth = 15
    Range("B:B,F:F").Select
    Selection.ColumnWidth = 10
    Range("C:C,G:G").Select
    Selection.ColumnWidth = 20
End Sub


他會出現所選的全部欄位都是20
不知道什麼原因?
收藏 分享

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-4-24 12:10 | 只看該作者
回復 1# av8d

沒問題啊

可簡化為
  1. Sub 巨集3()
  2.     Range("A:A,E:E").ColumnWidth = 15
  3.     Range("B:B,F:F").ColumnWidth = 10
  4.     Range("C:C,G:G").ColumnWidth = 20
  5. End Sub
複製代碼

TOP

        靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。
返回列表 上一主題