excell, vba

[tomdetom]

Добрый вечер. В универе препод задал написать функцию ЕСЛИ в vba
Пытаюсь, ничего не выходит. Облазил весь инет.
Помогите, будьте добры

[Stilet]

Дык а в хелпе искал?

[doober]

Сообщение от tomdetom

Облазил весь инет.
Помогите, будьте добры

Дырок на коленках нет?
Вот ОНА

[Казанский]

Если не учитывать, что функция ЕСЛИ может работать с массивами, то так:

Function ESLI(Optional a = False, Optional b, Optional c = False)
If a Then ESLI = b Else ESLI = c
End Function

Это, правда, не 100% аналог: при вызове без аргументов =ESLI() возвращает ЛОЖЬ, а ввести =ЕСЛИ() Эксель просто не дает.

[nerv]

держи, IIf()

[nerv]

http://programmersforum.ru/showthread.php?t=226425

[Tyoma-70]

Всем привет!
Подскажите пожалуйста в редактирования кода в макросе, не могу допереть как реализовать.

    BazaSheet = "Остатки"
    If (ProtocolSklad.Worksheets(BazaSheet).Cells(48, 5)) Then
        'Копируем остатки
        ProtocolSklad.Worksheets(BazaShee).Cells(40, 4) = BazaBook.Worksheets(BazaSheet).Cells(1, 2)
        ProtocolSklad.Worksheets(BazaShee).Cells(40, 6) = BazaBook.Worksheets(BazaSheet).Cells(2, 2)
    End If

Нужно сделать, что бы было так по формуле: если B48= 1, то строчка = BazaBook.Worksheets(BazaSheet).Cell s(2, 2) , а если B48= 2, то = BazaBook.Worksheets(BazaSheet).Cell s(3, 3)
подскажите, как код должен выглядеть. Заранее спасибо!

[Aleksandr H.]

If (ProtocolSklad.Worksheets(BazaSheet).Range("B48") = 1) Then
строчка = BazaBook.Worksheets(BazaSheet).Cells(2, 2)
else if (ProtocolSklad.Worksheets(BazaSheet).Range("B48") = 2) 
строчка = BazaBook.Worksheets(BazaSheet).Cells(3, 3)
end if

[Tyoma-70]

Сообщение от Aleksandr H.

If (ProtocolSklad.Worksheets(BazaSheet).Range("B48") = 1) Then
строчка = BazaBook.Worksheets(BazaSheet).Cells(2, 2)
else if (ProtocolSklad.Worksheets(BazaSheet).Range("B48") = 2) 
строчка = BazaBook.Worksheets(BazaSheet).Cells(3, 3)
end if

Попробовал не работает. Извиняюсь, что дезинформировал, но надо, вот так:

    If (ProtocolSklad.Worksheets(BazaSheet).Cells(48, 5)) Then
        'Копируем остатки
        ProtocolSklad.Worksheets(BazaShee).Cells(40, 4) = BazaBook.Worksheets(BazaSheet).Cells(1, 2)      ' Оставить как есть
А уже после, была функция условия: Если ячейка B48 =1, то
        ProtocolSklad.Worksheets(BazaShee).Cells(40, 6) = BazaBook.Worksheets(BazaSheet).Cells(2, 2)
Если ячейка B48 =2, то
        ProtocolSklad.Worksheets(BazaShee).Cells(40, 6) = BazaBook.Worksheets(BazaSheet).Cells(3, 2)
    End If