如果在Excel某區(qū)域中只輸入某幾個選項(xiàng)，如“優(yōu)秀、合格、不合格”等，在輸入沒有規(guī)律的情況下，可以用數(shù)字“1、2、3”等來代替這些文字的輸入。由于這些數(shù)字能在小鍵盤中輸入且只輸入一個字符，從而可以加快輸入速度。對于只有兩個或三個的選項(xiàng)，可以用設(shè)置單元格格式的方法，對于四個以上的選項(xiàng)，可以用VBA的方法來輸入，步驟如下。
方法一：用設(shè)置自定義單元格格式的方法
例如要在F4:F50區(qū)域中只輸入“男”或“女”。選擇該區(qū)域，鼠標(biāo)右擊，在右鍵菜單中選擇“設(shè)置單元格格式”，彈出“設(shè)置單元格格式”對話框，依次選擇“設(shè)置→自定義”，在右側(cè)“類型”下方的文本框中輸入：
[=1]"男";[=2]"女";
單擊“確定”。
如果有三個選擇，如“優(yōu)秀、合格、不合格”，上述代碼改為：
[=1]"優(yōu)秀";[=2]"合格";"不合格";
這樣，在上述區(qū)域中輸入“1”時自動顯示為“優(yōu)秀”，輸入“2”時顯示為“合格”，而輸入其他數(shù)值時顯示為“不合格”。需要注意的是，這時單元格中的內(nèi)容仍然為數(shù)字，只是通過自定義單元格格式將其顯示為文字而已。
方法二：用VBA
例如要在G4:G50區(qū)域中將輸入的數(shù)字“1、2、3、4”分別轉(zhuǎn)換為“優(yōu)秀、良好、及格、不及格”。按Alt+F11打開VBA編輯器，在代碼窗口中粘貼下列代碼：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rRng As Range
Set rRng = Application.Intersect(Target, Range(" G4:G50"))
If rRng Is Nothing Then End
Dim rCell As Range
For Each rCell In rRng
Select Case rCell.Value
Case 1
rCell.Value = "優(yōu)秀"
Case 2
rCell.Value = "良好"
Case 3
rCell.Value = "及格"
Case 4
rCell.Value = "不及格"
End Select
Next
End Sub
關(guān)閉VBA編輯器，在G4:G50區(qū)域中輸入相應(yīng)的數(shù)字時即可自動轉(zhuǎn)換為對應(yīng)的文字
