在excel工作表中對(duì)單元格進(jìn)行行高設(shè)置操作，一般情況下，都是通過點(diǎn)擊菜單：格式——行——行高，然后進(jìn)行設(shè)置。

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

　　首先運(yùn)行excel，新建一工作表，輸入如下數(shù)據(jù)，詳見下圖：

　　輸入完數(shù)據(jù)后，進(jìn)行按鈕的錄入和VBA代碼編寫部分。

　　第一，依次單擊菜單：視圖——工具欄——窗體，調(diào)出窗體工具欄。

　　第二，單擊窗體工具欄中的按鈕，鼠標(biāo)成為十字形狀，然后在工作界面拖動(dòng)一矩形框，松開鼠標(biāo)，完成按鈕的錄入。

　　第三，松開鼠標(biāo)后，會(huì)彈出“指定宏”對(duì)話框，單擊其中的“新建”，出現(xiàn)Visual Basic代碼編寫界面。

　　第四，全選代碼界面現(xiàn)有的代碼，刪除，并將下面一段代碼復(fù)制進(jìn)去：
Sub 設(shè)置行高()
??? Dim h As Long, r As Long, i As Integer, n As Integer
??? Dim ws1 As Worksheet
??? h = Application.InputBox(prompt:="請(qǐng)輸入所選行的高度：", _
??????? 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

　　第五，單擊保存，關(guān)閉Visual Basic代碼編寫界面，并右擊該按鈕，選中按鈕上的文字，重命名為：設(shè)置行高。

　　第六，參考1-5步的操作，在頁(yè)面新建另外一個(gè)按鈕，并重命名為：自動(dòng)設(shè)置行高。該按鈕的代碼為：
Sub 自動(dòng)調(diào)整行高()
??? Selection.Rows.AutoFit
End Sub

　　第七，完成上面的操作，最后的界面就如上圖所示的一樣了。然后，當(dāng)我們點(diǎn)擊工作表中的“設(shè)置行高”按鈕，就會(huì)彈出“輸入行高”對(duì)話框，可以在這里輸入數(shù)值來調(diào)整行高。也可以單擊“自動(dòng)設(shè)置行高”按鈕，來清除所設(shè)定的行高。