主页 / coding / 问题 / 79343798
Accepted
Forward Ed
Asked: 2025-01-10 03:20:12 +0800 CST

检查单元格输入是否会产生错误的最佳实践

  • 772

情况：

我使用单元格“D2”的内容命名工作表。我刚刚编辑了下面的代码，以捕获各种问题条目、发布消息并提供一个有效且显然需要替换的值。

代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim BadData As Boolean
    
    If Intersect(Target, ThisWorkbook.Sheets(2).Range("D2")) Is Nothing Then
        Exit Sub
    End If
    
   BadData = False
        
    If Len(Target.Value) > 31 Or IsEmpty(Target.Value) Then
        BadData = True
    ElseIf InStr(Target.Value, "[") <> 0 Then
        BadData = True
    ElseIf InStr(Target.Value, "]") <> 0 Then
        BadData = True
    ElseIf InStr(Target.Value, "*") <> 0 Then
        BadData = True
    ElseIf InStr(Target.Value, "?") <> 0 Then
        BadData = True
    ElseIf InStr(Target.Value, "\") <> 0 Then
        BadData = True
    ElseIf InStr(Target.Value, "/") <> 0 Then
        BadData = True
    ElseIf InStr(Target.Value, ":") <> 0 Then
        BadData = True
    End If
    
    If BadData Then
        MsgBox "You have entered an unacceptable ID value." & vbCrLf & _
                vbCrLf & _
                "The Site No entry must:" & vbCrLf & _
                vbCrLf & _
                "1)  Be a value less than 31 characters long" & vbCrLf & _
                "2)  Not contain the following characters:  /, \, :, ?, *, [, ]" & vbCrLf & _
                "3)  Not be a blank value" & vbCrLf & _
                "4)  Be compatible with excel sheet name restrictions"
                
        Target.Value = "Enter Site ID"
    End If
    
    ThisWorkbook.Sheets(2).Name = Target.Value

End Sub

虽然上面的代码似乎有效，但我确信还有多种其他方法可以实现相同的最终结果。多个 IF 语句导致相同的值让我有点困扰。

我最初想把所有单独的 InStr 检查与 Len 和 IS Empty 检查放在一个长的 OR 语句中，但最后决定不这样做，因为我觉得其他人来尝试并找出代码会很麻烦。我意识到如果检查结果为 TRUE，ELSEIF 可能会有一些好处，可以防止进行后续检查。

问题

我想知道是否有更好的方法来做到这一点？

excel

1 个回答

  1. Best Answer

    您可以将其放入函数中然后使用它吗？这样您就可以维护（添加、删除条件）该函数。

    '~~> UNTESTED
Private Function IsBadData(CellValue As Variant) As Boolean
    Dim BadString As String
    Dim BadData As Boolean
    Dim MyAr
    Dim i As Long
    
    BadString = "[,],*,?,\,/,:"
    
    If Len(Trim(CellValue)) = 0 or Len(Trim(CellValue)) > 31 Then
        BadData = True
    Else
        MyAr = Split(BadString, ",")
    
        For i = LBound(MyAr) To UBound(MyAr)
            If InStr(1, CellValue, MyAr(i)) Then
                BadData = True
                Exit For
            End If
        Next i
    End If
    
    IsBadData = BadData
End Function

    用法：

    If IsBadData(Target.Value) Then
    MsgBox "Blah Blah"
End If
    • 3

相关问题