作者CaoCao (超级讨厌统一)
看板Office
标题[算表] 请问VBA中逐栏设定栏宽怎麽写?
时间Wed Aug 17 20:43:22 2016
软体:Excel
版本:2010
请教各位,我想在第一列输入数字,然後把那数字当作该栏栏宽,这样怎麽写?
我只会写列高,不会栏宽,哭哭...
请众大神帮帮忙。
Ex.
假设要设定的有50栏,先以4栏当作例子。
A B C D ......
1 105 120 133 205 ......
然後把A栏栏宽设定为105,B栏栏宽设定为120,C栏133,D栏205......
如果是列高,我是这样写:
Dim x
Dim y As Integer
For y = 1 To 50 Step 1
x = Range("A" & y ) '列高写在A栏
Row(y).Select
Selection.RowHeight = x
用同样的写法写栏宽,要怎麽写呢?
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 180.204.23.197
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1471437805.A.39F.html
2F:→ CaoCao: 谢谢S大~~~ 08/18 00:13