Excel中vba教程——設置行高實例

在excel工作表中對單元格進行行高設置操作，一般情況下，都是通過點擊菜單：格式——行——行高，然后進行設置。

　　為了讓大家逐漸熟悉Excel中vba基礎知識，我們通過一系列的實例來加以介紹。

　　首先運行excel，新建一工作表，輸入如下數據，詳見下圖：

　　輸入完數據后，進行按鈕的錄入和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教程——設置行高實例的具體操作步驟。