?如果在Excel某區(qū)域中只輸入某幾個(gè)選項(xiàng)，如“優(yōu)秀、合格、不合格”等，在輸入沒有規(guī)律的情況下，可以用數(shù)字“1、2、3”等來代替這些文字的輸入。由于這些數(shù)字能在小鍵盤中輸入且只輸入一個(gè)字符，從而可以加快輸入速度。對(duì)于只有兩個(gè)或三個(gè)的選項(xiàng)，可以用設(shè)置單元格格式的方法，對(duì)于四個(gè)以上的選項(xiàng)，可以用VBA的方法來輸入，步驟如下。

??? 方法一：用設(shè)置自定義單元格格式的方法

??? 例如要在F4:F50區(qū)域中只輸入“男”或“女”。選擇該區(qū)域，鼠標(biāo)右擊，在右鍵菜單中選擇“設(shè)置單元格格式”，彈出“設(shè)置單元格格式”對(duì)話框，依次選擇“設(shè)置→自定義”，在右側(cè)“類型”下方的文本框中輸入：

??? [=1]"男";[=2]"女";

???

??? 單擊“確定”。

??? 如果有三個(gè)選擇，如“優(yōu)秀、合格、不合格”，上述代碼改為：

??? [=1]"優(yōu)秀";[=2]"合格";"不合格";

??? 這樣，在上述區(qū)域中輸入“1”時(shí)自動(dòng)顯示為“優(yōu)秀”，輸入“2”時(shí)顯示為“合格”，而輸入其他數(shù)值時(shí)顯示為“不合格”。需要注意的是，這時(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ù)字時(shí)即可自動(dòng)轉(zhuǎn)換為對(duì)應(yīng)的文字。