錄入過程中,為了反複錄入符号“√”,讓不少人心煩。
解決的辦法可以使用數據有效性,也可以使用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
返回工作表,即可使用該功能。
, 更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!