«Аргумент не является дополнительной ошибкой» при запуске подпрограммы с правильными аргументами - PullRequest
1 голос
/ 04 июля 2019

Я новичок в vba, и у меня возникла необязательная ошибка аргумента при выполнении подпрограммы в vba, чтобы скрыть строки, в которых есть несколько ячеек одного цвета

Я попытался передать переменную вместонеобработанная строка

мой саб

Public Sub Ocultar_Campos_Monetarios(MarkedCells As String)
    If Range("" & MarkedCells & "").Interior.Color = RGB(153, 204, 255) Then
    ActiveSheet.Unprotect "*"
   Range.Rows(Range("" & MarkedCells & "").Row).EntireRow.Hidden = True
   Range.Rows(Range("" & MarkedCells & "").Row - 1).EntireRow.Hidden = True
   ActiveSheet.Unprotect "*", AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True
    End If
End Sub

вызов:

call Ocultar_Campos_Monetarios("D19,L19,T19")
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...