Похожие работы на «Решение экономических задач с помощью VBA»

Решение экономических задач с помощью VBA
Программирование и комп-ры, Решение экономических задач с помощью VBA, Курсовая ... r, 1).Value = r - 3 Cells(r, 2).Value = i1 Cells(r, 3).Value = i2 Cells(r, 4).Value = i3 Cells(r, 5).Value = i4 Cells(r, 6).Value = s r = r + 1 End If ...
... r - 3 Cells(r, 2).Value = i1 Cells(r, 3).Value = i2 Cells(r, 4).Value = i3 Cells(r, 5).Value = i4 Cells(r, 6).Value = s r = r + 1 End If Next i4 Next ...


Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов [нестрогое соответствие]
Программирование и комп-ры, Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов , Работа Курсовая ... Init() Cng_List (False) n = 0 For i = 1 To m For j = 1 To m A(i, j) = 0 Next j Next i Sheet2.Visible = xlSheetHidden Sheet3.Visible = xlSheetHidden ...
... Введите матрицу А из файла") Else If Sheet3.Cells(i + 3, j) = "" Then A(i, j) = 0 ' заполнение матрицы с клавиатуры Else A(i, j) = Sheet3.Cells(i + 3, ...


Модель файловой системы FAT [нестрогое соответствие]
Программирование и комп-ры, Модель файловой системы FAT, Отличается тем, что он может быть занят не полностью .Range(Cells(6; NumberCellFAT + 5); Cells(6 + Relation; NumberCellFAT + 5)).Interior.ColorIndex ...
... FAT заданного значения Sheets("Sheet").Cells(3; NumberCell + 5).Value = Value End Sub Sub DeleteCellFromFAT(StartCell As Integer) 'рекурсивная функция ...


VBA Платежка [нестрогое соответствие]
Экономико-математическое моделирование, VBA Платежка, Курсовая ... Range("h" & НомерПл) = Дата Worksheets(№ПЛ).Range("I" & НомерПл) = ДатаУслуг Worksheets(№ПЛ).Range("J" & НомерПл) = ВидОперации Worksheets(№ПЛ).Range( ...
... Worksheets(№ПЛ).Range("f" & X) = УНН Worksheets(№ПЛ).Range("h" & X) = Дата Worksheets(№ПЛ).Range("I" & X) = ДатаУслуг Worksheets(№ПЛ).Range("J


Программная реализация модального управления для линейных стационарных систем [нестрогое соответствие]
Радиоэлектроника, Программная реализация модального управления для линейных стационарных систем, Курсовая ... begin with Form_Options do begin V0 := SpinEdit0.Value; V1 := SpinEdit1.Value; V2 := SpinEdit2.Value; V3 := SpinEdit3.Value; LS := CheckBox_Link.State ...
... begin Val := StringGrid_Roots.Cells [ACol, ARow]; if StrToFloat (Value) <> 0 then StringGrid_Roots.Cells[Succ(ACol),ARow]:=FloatToStr(- StrToFloat( ...


Построение функции предшествования по заданной КС-грамматике [нестрогое соответствие]
Программирование и комп-ры, Построение функции предшествования по заданной КС-грамматике , Работа Курсовая ... Ex:=True; l:=l^.next; End; End; If (l=Nil) or Ex Then SearchInBlock:=0 Else SearchInBlock:=j; End; Procedure InsListInBlock(n:Byte; l:NotTerm;x,d:List ...
... ошибка 03') Else Begin j:=1; While (l<>Nil) and (n<>j) Do Begin If l^.Name=#0 Then inc(j); l:=l^.Next; End; While (l<>Nil) and (l^.Name<>x.Name) Do l: ...


Анализ эффективности вложений денежных средств в РКО [нестрогое соответствие]
Инвестиции, Анализ эффективности вложений денежных средств в РКО, Диплом ... 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 End If Next If k = 0 ...
... n1 > 6 Then Cells(5; 6) = Worksheets("Клиенты").Cells(2; n1) Else Cells(5; 6) = Worksheets("Клиенты").Cells(Pos; n1) End If If n2 > 6 Then Cells(10; 6 ...


Програмирование на Visual Basic [нестрогое соответствие]
Кибернетика, Програмирование на Visual Basic, Реферат ... Chr$(13) + Chr$(10) Check2.Enabled = False End If End Sub Private Sub Check3_Cli.ck() If Check3.Value = 0 Then Listi.Columns = 1 Else Listi.Columns ...
... Text4_KeyPress(KeyAscil As Integer) Dim FindCriteriy, Poisk As Variant If KeyAscil = 13 Then Poisk = Text4.Text FindCriteriy = "Name =" ... & Poisk ...


Курс лекций по V B 5.0 [нестрогое соответствие]
Программирование и комп-ры, Курс лекций по V B 5.0, Лекция While Wend Вместо Do While x=0 Loop While x=0 Wend |If условное выражение Then (Enter) |If выражение Then | |несколько операторов |оператор | |Else ...
... Value Then Color$ = "Красный" Else If optColor2.Value Then Color$ = "Зеленый" Else If optColor3.Value Then Color$ = "Синий" Else Color$ = "Белый" End ...


Программа на Delphi [нестрогое соответствие]
Программирование и комп-ры, Программа на Delphi, Доклад ... описания процедуры MatrMult} Procedure Prim; {заголовок процедуры Prim} Var i, j: Integer; Begin For i:= 1 to n do {блок задания элементов матриц Q1, ...
... что Warn1, но в 4 строки} var i,j: byte; begin i:=Length(s1); j:=i; i:=Length(s2); if (i>j) then j:=i; i:=Length(s3); if (i>j) then j:=i; i:=Length(s4 ...