Если значение в одной ячейке, то измените строку, которая состоит из той ячейки

Question

Я абсолютно новичок в VBA и немного борюсь с одной вещью. Я хочу сделать макрос, который проверяет значения в столбце "M". Если значение больше 5, выведите «hello». Если нет, выведите «x». К сожалению, я получаю «x» только в выбранных ячейках.

Private Sub costam()
Dim i As Integer
Dim a As Integer
a = 13

For i = 1 To Range("M" & Rows.Count).End(xlUp).Row
    If Cells(a, i).Value > 5 Then
     Range(Cells(1, i), Cells(10, i)).Value = "hello"
    Else
     Range(Cells(1, i), Cells(10, i)).Value = "x"
    End If
Next i

End Sub

Я знаю, что эта проблема глупа и занимает 1 минуту, но я пытаюсь применить некоторые похожие проблемы, но без какого-либо прогресса.

Answer 1

Вы можете создать пользовательскую функцию для этой книги.

Public Function CustomFunction(myVal As Integer)
Dim myResult As String

If myVal > 5 Then
    myResult = "Hello"
Else
    myResult = "X"
End If

    CustomFunction = myResult
End Function

Затем вы должны написать формулу в ячейку, в которую хотите вернуть значение. =CustomFunction(A2)

Ваша пользовательская функция должна быть помещена в модуль. Учебник по пользовательским функциям Excel VBA