求列宽的代码

zw0713 · 发表于 2023-7-4 14:47

谢谢！！！！！！！！！！！！

ykcbf1100 · 发表于 2023-7-4 14:58

是这意思？

你是空表，我就不发附件了。

zw0713 · 发表于 2023-7-4 15:10

ykcbf1100 发表于 2023-7-4 14:58
是这意思？

你是空表，我就不发附件了。

求每列宽的固定值

ykcbf1100 · 发表于 2023-7-4 15:12

zw0713 发表于 2023-7-4 15:10
求每列宽的固定值

就我发的这个啊，我发的是A列的宽度，其它列也一样，代码就这样

zw0713 · 发表于 2023-7-4 15:46

我想要的是A列宽8，B列宽10，C列宽5，D,E,F等等用数值可以改变宽的代码，谢谢！！

fanyoulin · 发表于 2023-7-4 16:00

zw0713 发表于 2023-7-4 15:46
我想要的是A列宽8，B列宽10，C列宽5，D,E,F等等用数值可以改变宽的代码，谢谢！！

Columns("D:D").ColumnWidth = 10
Columns("F:G").ColumnWidth = 20
Columns("A:B").ColumnWidth = 15

zw0713 · 发表于 2023-7-5 11:28

fanyoulin 发表于 2023-7-4 16:00
Columns("D:D").ColumnWidth = 10
Columns("F:G").ColumnWidth = 20
Columns("A:B").ColumnWidth = ...

求行高的代码，例如
Rows("5").RowHeight = 30.5          17行,29行,.....341行=30.5
Rows("6").RowHeight = 18             18行,30行.........342行=18
Rows("7").RowHeight = 30.5          19行,31行.........343行=30.5
Rows("8").RowHeight = 36             20行,32行.........344行=36
Rows("9:16").RowHeight = 25.5          9行....  .............. 345行=25.5
这代码要怎么写

蓝桥玄霜 · 发表于 2023-7-5 11:49

Sub yy()
For i = 17 To 341 Step 12
Rows(i).RowHeight = 30.5
Rows(i + 1).RowHeight = 18
Rows(i + 2).RowHeight = 30.5
Rows(i + 3).RowHeight = 36
Next
End Sub

复制代码

fanyoulin · 发表于 2023-7-5 11:53

zw0713 发表于 2023-7-5 11:28
求行高的代码，例如
Rows("5").RowHeight = 30.5 17行,29行,.....341行=30.5
Rows("6").RowH ...

单行设定把引号去掉，多行设定需要引号，因为中间有个 ":"，参考截图

fzxba · 发表于 2023-7-5 12:02

		自动登录	找回密码
密码			免费注册

[求助] 求列宽的代码