Excel VBA-验证日期和特定的字符串输入

Question

I am looking for a solution to the following problem:

I need to add a Validation to a specific range on an Excel sheet. The Validation should allow any date and simple string inputs like "done" or "tbc".

I know how to add a validation for dates only via VBA but I can't find a way to use two validation types in one cell.

Is there any solution to my problem?

Many thanks in advance

Answer 1

The easiest thing I can thing of is to go to custom validation and to use something like this formula:

=OR(ISDATE(RANGE),(LEN(RANGE)<5))

You can edit it and record it with the macro recorder... Or give code, as proposed.

Answer 2

thanks for the answers so far. I'd prefer a VBA solution. So I tried to implement the suggestions given by Vityata in VBA and came up with the following. However, I get runtime error 1004. Any help?

Sub customValidation()

Dim rngCell As Range


With Tabelle1

    maxCell = .Cells(.Rows.Count, 1).End(xlUp).Row

    For Each rngCell In .Range("L11:O" & maxCell)

        With rngCell.Validation

            .Delete
            .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Formula1:="=OR(Isdate(rngCell),rngCell=""done"")"
            .IgnoreBlank = True
            .InCellDropdown = False
            .InputMessage = "Enter date or ""done"""
            .ErrorTitle = ""
            .InputMessage = "Enter date or ""done"""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With

    Next rngCell
End With

End Sub

Answer 3

Here is an example which allows dates or 'TBC'. In this case covering a column range (part of a dynamic solution)

Set rng = wksOpenReview.Range(wksOpenReview.Cells
   (display_row, ro.lco_sd), wksOpenReview.Cells(lngLastRow, ro.lco_sd))
With rng.Validation
  .Add xlValidateCustom, AlertStyle:=xlValidAlertStop, Formula1:="=OR(
  NOT(ISERROR(DATEVALUE(TEXT(" & rng.Cells(1, 1)
  .Address(False, True, xlA1) & ",""dd/mmm/yyyy""))))," &
  rng.Cells(1, 1).Address(False, True, xlA1) & "=""TBC"")"