錄入過程中，為了反複錄入符号“√”，讓不少人心煩。
解決的辦法可以使用數據有效性，也可以使用VBA，方法很簡單。
假如I列要輸入“是否三好學生”，如果是，錄入一個“√”，因為第1、2行為标題行，從第3行開始，點擊鼠标，顯示一個“√”。
鼠标右鍵點擊工作表标簽，選擇“查看代碼”，将如下代碼粘貼到光标處：
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- Dim Rng As Range
- Application.EnableEvents = False
- For Each Rng In Target
- If Rng.Row > 2 And Rng.Column = 9 Then '如果單元格行号大于2 并且 列号等于9 (I列)
- Rng = IIf(Rng = "√", "", "√") '如果這個單元格原來是"√"，改為空，否則，輸入"√"
- End If
- Next
- Application.EnableEvents = True
- End Sub
返回工作表，即可使用該功能。
,
zpostcode 
Recruit 
weather 
mreligion 
Yellowpages 
sport 
constellation 
shopping 
name 
game 
directory 
literature 
Word 
tour 
furnish 
Lottery 
tftnews 
lyrics 
News 
digital 
car 
dir 
Edu 
Finance 
