你是想讓Excel自動檢查輸入錯誤，Excel有數(shù)據(jù)有效性檢查這個功能，針對設置單元格字符長度，以 Excel 2007 為例，說明如下： 設置方法： 選擇要檢查的區(qū)域，然后：數(shù)據(jù) - 數(shù)據(jù)有效性 - 設置 1. 在“有效性條件”下設置允許的文本長度 2. 在“出錯警告”中將“式樣”設置為“警告” 注：“有效性條件”有很多選項，可以根據(jù)各種不同的需要而分別設置 如果如入錯誤數(shù)據(jù)，系統(tǒng)會當場報警，而不必等到事后修改。如果輸入時人為忽略了錯誤，也可以事后復查，方法如下： 數(shù)據(jù) - 數(shù)據(jù)有效性 - 圈釋無效數(shù)據(jù)， 錯誤的數(shù)據(jù)就會被紅線圈出。條件格式－使用公式確定要設置的單元格格式假設要設置成A列單元格字符長度不等于15就自動填充為紅色 公式輸入=LEN(A1)<>15格式設置填充紅色區(qū)域選擇：A:A=len(a1)如果你需要不斷使用之一功能，可以在 1.工具——宏——vb編輯器 2.將以下代碼拷進去（注意20是指你要修改的最大行數(shù)，你可以自己改成你需要的數(shù)字，A是你的目標列，如果是別的列） 3.OK了。 Private Sub Worksheet_Change(ByVal Target As Range) Dim str As StringDim n As Integerstr="A" N=20 For i = 1 To N If Len(Range(str & i)) = 15 Then Range(str & i).Interior.ColorIndex = xlNone Else Range(str & i).Interior.ColorIndex = i End If Next End Sub如果你需要不斷使用之一功能，可以在 1.工具——宏——vb編輯器 2.將以下代碼拷進去（注意20是指你要修改的最大行數(shù)，你可以自己改成你需要的數(shù)字，A是你的目標列，如果是別的列） 3.OK了。 Private Sub Worksheet_Change(ByVal Target As Range) Dim str As StringDim n As Integerstr="A" N=20 For i = 1 To N If Len(Range(str & i)) = 15 Then Range(str & i).Interior.ColorIndex = xlNone Else Range(str & i).Interior.ColorIndex = i End If Next End Sub格式-條件格式中公式下輸入=LEN(A1)<>15然后進行格式設置.
客服1