0
Я новичок в VBA и использую excel 2013. Я весь день ломаю голову над этой ошибкой! Линии, отмеченные звездочками получают
«Применение или объекта определенную ошибку»
Моя функция должна сделать 2 вещи ...
1) дают ток ячейки а значение
2) изменить цвет заливки другой ячейки
Excel VBA-выпуск с диапазонами «Определенная пользователем или объектная ошибка»
Там нет никаких проблем с # 1, но # 2 продолжает erroring из
Это код, который я сейчас использую ...
Я звоню его внутри ячейки в Excel, давая ему формулу: = ScoreIt()
Function ScoreIt()
Dim TotalVal As Integer, LRVal As Integer, LYVal As Integer, LGVal As Integer
TotalVal = 0
LRVal = 0
LYVal = 1
LGVal = 2
Dim CurrentRow As String, BedCell As String, Beds As Integer
CurrentRow = ActiveCell.Row
BedCell = Range("K" & CurrentRow).Address(False, False)
Beds = Range(BedCell).Value
If (Beds < 2) Or (Beds > 5) Then
TotalVal = TotalVal + LRVal
** Range(BedCell).Interior.ColorIndex = 38 **
ElseIf (Beds = 2) Or (Beds = 5) Then
TotalVal = TotalVal + LYVal
** Range(BedCell).Interior.ColorIndex = 36 **
ElseIf (Beds = 3) Or (Beds = 4) Then
TotalVal = TotalVal + LGVal
** Range(BedCell).Interior.ColorIndex = 35 **
End If
ScoreIt = TotalVal
End Function
Спасибо вы
Почему бы не просто сделать '' BedCell' на объект Range' и просто называют 'установить BedCell = Range ("K" и CurrentRow)' а затем просто использовать 'BedCell.Interior.ColorIndex = 38' – chancea
Я уже пробовал это, он тоже не работал, BedCell возвращает значение в ячейке, а не адрес/местоположение ячейки. Затем я попытался добавить .Address (False, False) до конца, но это только что закончилось ошибкой несоответствия типа. – Naimlis