excel中使用vba来设置行高列宽

excel中使用vba来设置行高列宽

 

工具/原料

 

• excel2013
• 更多经验请关注，如果帮到了你，请在上方给个投票谢谢支持。 好人一生平安。
• 先顶后看年薪百万，如果帮到了你，帮忙给个好评，这对小编很重要，万分感谢。

方法/步骤

 

1. 1

   首先我们打开一个工作样表作为例子。

   
2. 2

   使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

    

   Sub 设置行高列宽()dim w as integer

   dim h as integer    

   w = inputbox("请输入列宽")

   h = inputbox("请输入行高") 

   ActiveWindow.RangeSelection.ColumnWidth = w            ActiveWindow.RangeSelection.RowHeight = hEnd Sub

   
3. 3

   这里我们输入两个变量w和h分别声明为整数变量，w为宽，h为高。

   
4. 4

   这两个变量我们使用inputbox函数的输入值来获取，这样比较灵活，如果有固定的格式需求，我们可以将变量值直接赋予，这样也可以提高效率。

   
5. 5

   ActiveWindow.RangeSelection我们激活当前窗口并是对当前选择的单元格区域进行属性定义。这里分别定义行高和列宽。

   
6. 6

   实际使用时，最好先新建一个按钮并指定宏，然后在选取区域单元格后，点击按钮运行宏，就能得到我们想要的结果了。

   
   END

注意事项

 

• 谢谢你的投票。
• 你的投票是我编辑经验的动力。谢谢你。