Реферат: Анализ эффективности вложений денежных средств в РКО

Инвестиции
496

ReDim DepoFil(BumNum)

a = 2

While Worksheets("Сделки").Cells(a; 1) <> Empty

i = 1

While Worksheets("Клиенты").Cells(i + 1; 2) <> _

Возможно вы искали - Реферат: Инвестиции

Worksheets("Сделки").Cells(a; 2)

If Worksheets("Клиенты").Cells(i + 1; 2) = Empty Then

MsgBox "Неверный номер клиента в Окне 'Сделки' строка: " + CStr(a)

Sheets("Сделки").Select

Cells(a; 2).Select

Похожий материал - Реферат: Инвестиции

Exit Sub

End If

i = i + 1

Wend

k = 0

Очень интересно - Реферат: Инвестиционный анализ

For j = 1 To BumNum

If Worksheets("Врем").Cells(j; 1) = Worksheets("Сделки").Cells(a; 3) Then

k = j

Exit For