0

пытаюсь написать пару функций для Excel 2010 в VBA но постоянно вылетает ошибка

Pablic Function SetClrIndex(rng As Range, ColorIndex As Integer)
    rng.Cells(1,1).Interior.ColorIndex = ColorIndex ' тут "Error 1004: Application-defined or object-defined error"
End Function

если перед rng.Cells(1,1).Interior. поставить set тогда ошибка "Error 424: Object required"

в функцию передаётся диапазон заданный пользователем

подскажите как справиться с данной проблемой?

15
  • 1) Public, а не Pablic; 2) Sub, а не Function.
    – Akina
    21 дек 2019 в 10:15
  • исправил, но ошибки так и остались (((((
    – woojin
    21 дек 2019 в 10:28
  • Функция возвращает значение, В же пытаетесь изменить цвет другой ячейки. Что Вы хотите получить? Опишите ЗАДАЧУ. 21 дек 2019 в 13:14
  • Оба исправления внесены? ошибки ТЕ ЖЕ ?
    – Akina
    21 дек 2019 в 14:54
  • 1. на сколько я понимаю функция cells берёт данные из переданного ей диапазона, т.е. из rgn, мне надо в этом диапазоне изменить цвет первой слева сверху ячейки 2. да, Pablic на Public изменил, а ошибки те же (((
    – woojin
    21 дек 2019 в 15:11

1 ответ 1

0

Очень важное замечание: если не хотите дополнительной головной боли, никогда не называйте переменные, функции, процедуры зарезервированными именами (IsValue, ColorIndex...).

UDF (функции пользователя) не предназначены для изменения других ячеек, они, как и формулы листа, возвращают значение в ячейку, из которой вызваны. В данном случае применение UDF ошибочно. Но задача решаема.

В модуль листа пишем процедуру реагирования на событие листа - изменение значения в диапазоне:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rRng As Range
    Dim lColor_ As Long

    If Not Application.Intersect(Range("A2:A50"), Target) Is Nothing Then
        If Target.Cells.Count > 1 Then Exit Sub
        Application.EnableEvents = False

        If Not IsEmpty(Target.Value) Then
            Set rRng = Range("C2:D15")
            lColor_ = 48
            Call SetClrIndex(rRng, lColor_)
        End If

        Set rRng = Nothing
        Application.EnableEvents = True
    End If
End Sub

В общем модуле:

Sub SetClrIndex(rRng As Range, lColor_ As Long)
    rRng.Cells(1, 1).Interior.ColorIndex = lColor_
End Sub

При изменении ячейки в диапазоне A2:A50 (только при записи значения - If Not IsEmpty(Target.Value) Then) передается управление макросу, который отвечает за заливку ячейки указанного диапазона.

Назначение объекта переменной (Set rRng) и указание цвета (lColor_) в событийной процедуре неоправдано. Это лишь для примера. Данные можно брать из ячеек, задавать условием, вычислять в поцедуре заливки...

1
  • ооо! спасибо! это интересный вариант
    – woojin
    22 дек 2019 в 14:54

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими условиями использования и подтверждаете, что прочитали и поняли наши политику конфиденциальности и нормы поведения.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.