代码之家 › 专栏 › 技术社区 › Mike - SMT

Workbook.Worksheets.Columns()是否使用数字而不是字符串?

excel-vba vba excel

Mike - SMT · 技术社区 · 6 年前

目前我可以做两件事之一。

这就像一根绳子。

re_wb.Worksheets(1).Columns("K:J").ColumnWidth = 23

+1 和 +2

last_col = re_wb.Worksheets(1).Cells(1, re_wb.Worksheets(1).Columns.Count).End(xlToLeft).Column
re_wb.Worksheets(1).Cells(1, last_col + 1).Value = "Correct Per CL"
re_wb.Worksheets(1).Cells(1, last_col + 2).Value = "Is reassignment needed?"

对于两列来说,分别用最后一列数字+1和+2写两行来编辑它们的宽度并不是什么大问题,但是考虑到一系列列可以用一个字符串来处理,是否可以使用两组数字(或更多数字,具体取决于一次需要编辑的列数。)

re_wb.Worksheets(1).Columns(last_col + 1).ColumnWidth = 23
re_wb.Worksheets(1).Columns(last_col + 2).ColumnWidth = 23

re_wb.Worksheets(1).Columns(last_col + 1, last_col + 2).ColumnWidth = 23

没有运气。既然我无法预测列的字母是什么,那么可以用数字来定义列的范围吗?或者我只需要一次做一个,就像我上面已经做过的那样?

5 回复 | 直到 5 年前

Comintern 6 年前

Worksheet.Columns(foo) 返回一个 Range . 只是建立适当的 射程

With re_wb.Worksheets(1)
    .Range(.Cells(1, last_col + 1), .Cells(1, last_col + 2)).ColumnWidth = 23
End With

Absinthe 6 年前

Range(Cells(1, 1), Cells(1, 3)).EntireColumn.ColumnWidth = 15

vacip 6 年前

Range和EntireColumn是您的朋友:

re_wb.Worksheets(1).Range(Cells(1,last_col + 1),Cells(1,last_col + 10)).entirecolumn.ColumnWidth = 23

Mike - SMT 6 年前

如果您知道要更改宽度的第一列和最后一列,可以将数字转换为字母(请参阅本网站: Number to Letter )然后转换整个范围。

以下是此方法的示例:

Dim start_column As String, end_column As String
Dim last_col As Integer
last_col = re_wb.Worksheets(1).Cells(1, re_wb.Worksheets(1).Columns.Count).End(xlToLeft).Column

start_column = Split(Cells(1, last_col + 1).Address, "$")(1)
end_column = Split(Cells(1, last_col + 2).Address, "$")(1)
re_wb.Worksheets(1).Columns(start_column & ":" & end_column).ColumnWidth = 23

dwirony Greg Viers 6 年前

这里有很多很好的例子-我个人更喜欢使用一个函数将数字转换为列字母-这样我就不必太多地修改语法:

Function ColLetter(colnum As Long)

    ColLetter = Split(Cells(1, colnum).Address, "$")(1)

End Function

re_wb.Worksheets(1).Columns(ColLetter(last_col + 1) & ":" & ColLetter(last_col + 2)).ColumnWidth = 23

推荐文章

Kram Kramer · 通过vba自动调整文本大小以适应形状

5 月前

Swapnil Supekar · 将二维阵列转换为一维阵列,并将一维阵列粘贴到另一张图纸上

5 月前

Eric · 我有邮政编码替换问题Excel VBA

5 月前

Chasester · VBA使用嵌套的DIV抓取URL

5 月前

jkp · 特殊字符复选标记

5 月前

Iron Man · 代码插入和复制到错误的工作表

5 月前

NoFafo · 将文本框放入数组进行格式化

5 月前

Smokestack · 过滤器范围C3:G3并粘贴到其他单元格

5 月前

Julie S. · Excel VBA for循环的代码帮助,用于检查多个ListBoxes是否有值?

5 月前

Kram Kramer · 如何通过vba代码将Chart xAxes字体颜色从黑色更改为红色?

6 月前