VBA Макросы: Можно ли использовать в одной строке кода два знака равно?

[moland]

Подскажите а можно ли в одну строку написать этот код?

Есть такой код:
sh_mat.Cells(i, 9).Value = _
            WorksheetFunction.VLookup(sh_mat.Cells(i, 4).Value, sh_spravka.Columns("A:I"), 3, 0)
jD2 = sh_mat.Cells(i, 9).Value

Но хотелось быть это записать одной строкой, но с 2-мя знаками равно. Но это не работает:
sh_mat.Cells(i, 9).Value = WorksheetFunction.VLookup(sh_mat.Cells(i, 4).Value, sh_spravka.Columns("A:I"), 3, 0)=jD2

Т.е нужно чтобы значение sh_mat.Cells(i, 9).Value после того как сработает функция ВПР присвоилось переменной jD2.


     

[Администратор]

Нет, такого в VBA нет.

[moland]

ОК. Спасибо.

[Администратор]

В данном случае правильно делать так, чтобы макрос быстро работал:
    Dim var
    var = WorksheetFunction.VLookup(sh_mat.Cells(i, 4).Value, sh_spravka.Columns("A:I"), 3, 0)
    sh_mat.Cells(i, 9).Value = var
    jD2 = var