Excel中vba教程 设置行高实例

办公教程导读

收集整理了【Excel中vba教程 设置行高实例】办公软件教程，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含938字，纯文字阅读大概需要2分钟。

办公教程内容图文

　　输入完数据后，进行按钮的录入和VBA代码编写部分。

　　第一，依次单击菜单：视图——工具栏——窗体，调出窗体工具栏。

　　第二，单击窗体工具栏中的按钮，鼠标成为十字形状，然后在工作界面拖动一矩形框，松开鼠标，完成按钮的录入。

　　第三，松开鼠标后，会弹出“指定宏”对话框，单击其中的“新建”，出现Visual Basic代码编写界面。

　　第四，全选代码界面现有的代码，删除，并将下面一段代码复制进去：
Sub 设置行高()
    Dim h As Long, r As Long, i As Integer, n As Integer
    Dim ws1 As Worksheet
    h = Application.InputBox(prompt:="请输入所选行的高度：", _
        Title:="输入行高", Type:=1)
   
    Set ws1 = ActiveSheet
    n = Selection.Rows.Count
    r = ActiveCell.Row
    For i = 1 To n
        ws1.Rows(r + i – 1).RowHeight = h
    Next
    Set ws1 = Nothing
End Sub

　　第五，单击保存，关闭Visual Basic代码编写界面，并右击该按钮，选中按钮上的文字，重命名为：设置行高。

　　第六，参考1-5步的操作，在页面新建另外一个按钮，并重命名为：自动设置行高。该按钮的代码为：
Sub 自动调整行高()
    Selection.Rows.AutoFit
End Sub

　　第七，完成上面的操作，最后的界面就如上图所示的一样了。然后，当我们点击工作表中的“设置行高”按钮，就会弹出“输入行高”对话框，可以在这里输入数值来调整行高。也可以单击“自动设置行高”按钮，来清除所设定的行高。

办公教程总结

以上是为您收集整理的【Excel中vba教程 设置行高实例】办公软件教程的全部内容，希望文章能够帮你了解办公软件教程Excel中vba教程 设置行高实例。
如果觉得办公软件教程内容还不错，欢迎将网站推荐给好友。