Ошибка времени выполнения «1004» при добавлении проверки в DataBodyRange - PullRequest
0 голосов
/ 17 февраля 2020

Я копирую проверку ячейки из одной рабочей книги в другую. Произошла ошибка, и я думаю, что это связано с формулой проверки (потому что другие проверки копируются без проблем), хотя я не знаю почему.

Формула проверки:

=OR(INDIRECT("tblRoutingLine[@OperationNoteMaster]")="";COUNTIF(INDIRECT("tblOperationNoteMaster[OperationNoteMasterID]");INDIRECT("tblRoutingLine[@OperationNoteMaster]"))=1)

Мой код (фрагмент):

Set valMasterColumnValidation = wbkMDRoutingRCGFileMaster.Worksheets(strTableWorksheet).ListObjects(1).ListColumns(colNewColumn.Name).DataBodyRange(1, 1).Validation
If intColumnValidationType <> 999 Then
    For j = 1 To colNewColumn.DataBodyRange.Cells.Count
        With colNewColumn.DataBodyRange(j, 1).Validation
            .Add Type:=valMasterColumnValidation.Type, _
                AlertStyle:=valMasterColumnValidation.AlertStyle, _
                Operator:=valMasterColumnValidation.Operator, _
                Formula1:=Replace(valMasterColumnValidation.Formula1, ";", ","), _
                Formula2:=Replace(valMasterColumnValidation.Formula2, ";", ",")
            .IgnoreBlank = valMasterColumnValidation.IgnoreBlank
            .InCellDropdown = valMasterColumnValidation.InCellDropdown
            .ErrorTitle = valMasterColumnValidation.ErrorTitle
            .ErrorMessage = valMasterColumnValidation.ErrorMessage
            .ShowError = valMasterColumnValidation.ShowError
        End With
    Next j
End If

1 Ответ

0 голосов
/ 18 февраля 2020

Решение (часть кода выше):

Formula1:=valMasterColumnValidation.Formula1, _
Formula2:=valMasterColumnValidation.Formula2,
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...