Похожие работы на «Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов »

Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов
Программирование и комп-ры, Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов , Работа Курсовая ... xlSheetHidden End Sub Sub InitS() For i = 1 To m + 2 For j = 1 To m ActiveSheet.Cells(i + 2, j) = "" Next j Next i End Sub Sub Button3_Click() ' ОК n ...
... j) End If Next j Sheet4.Cells(i + 4, 9) = x Next i End Sub Sub rab4(n As Variant) Call getA Sheet4.Activate Call InitS Sheet4.Range("H3") = "Min ...


Анализ эффективности вложений денежных средств в РКО
Инвестиции, Анализ эффективности вложений денежных средств в РКО, Диплом ... ViewProgram" End With End Sub Sub ViewPaper() Sheets("Бумаги").Select Call EndOf End Sub Sub ViewDeal() Sheets("Сделки").Select Call EndOf End Sub Sub ...
... j Exit For End If Next If k = 0 Then a = a + 1 GoTo NNN End If If Not IsEmpty(Worksheets("Сделки").Cells(a; 4)) Then Sign = 1 Else Sign = -1 End If If ...


Решение экономических задач с помощью VBA [нестрогое соответствие]
Программирование и комп-ры, Решение экономических задач с помощью VBA, Курсовая ... 2 To 6 If p = 2 Then For j = 1 To k + 1 A(j) = Cells(j + 3, 2).Value Next j End If If p > 2 Then For j = 1 To k + 1 A(j) = Cells(j + 3, p + 5).Value ...
... n = 1 To k + 1 m = -1 For j = 1 To n If m < A(j) + r(n + 1 - j, p) Then m = A(j) + r(n + 1 - j, p) End If Next j Cells(n + 3, 6 + p).Value = m l = t ...


VBA Платежка [нестрогое соответствие]
Экономико-математическое моделирование, VBA Платежка, Курсовая ... True Then Дата = CDate(Дата) - 1 Else End If End Sub Private Sub Плюс_Click() ' прибавляет один день к дате If IsDate(Дата) = True Then Дата = CDate( ...
... KeyAscii) Like "[0-9]")) Then KeyAscii = 0 End Sub Private Sub УНН_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If (Not (Chr(KeyAscii) Like "[0-9 ...


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


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


Программная система обработки и анализа изображений [нестрогое соответствие]
Программирование и комп-ры, Программная система обработки и анализа изображений, Курсовая ... yEnd-yStart+1) - 2*dy else Range := dy; { Три квадрата по горизонтали } for j := 1 to 3 do begin if j = 2 then Range := (xEnd-xStart+1) - 2*dx else ...
... число не белых пикселов } if Image.Canvas.Pixels[x,y] <> clWhite then Inc(Count); end; { for x } end; { for y } x1 := x1+dx; { Следующий квадрат по ...


Программная реализация модального управления для линейных стационарных систем [нестрогое соответствие]
Радиоэлектроника, Программная реализация модального управления для линейных стационарных систем, Курсовая ... ColCount, Pred(AGrid.RowCount)); for i := 1 to AMatrix.RowCount do for j := 0 to AMatrix.ColCount do begin if j = 0 then k := AMatrix.ColCount else k ...
... 1]); cvRoots.Data[j].Im := StrToFloat(StringGrid_Roots.Cells[j, 2]); end; for j := 1 to Order do begin if Odd (j) then K := -1 else K := +1; mKp[Order ...


Защита данных от несанкционированного доступа [нестрогое соответствие]
Программирование и комп-ры, Защита данных от несанкционированного доступа, Курсовая ... 8 do case i of 1: MasEnd[8*(j-1)+i] := Mas[41-j]; 2: MasEnd[8*(j-1)+i] := Mas[09-j]; 3: MasEnd[8*(j-1)+i] := Mas[49-j]; 4: MasEnd[8*(j-1)+i] := Mas[17 ...
... 7: Mas[8*(i-1)+j]:=MasByte[69-8*j]; 8: Mas[8*(i-1)+j]:=MasByte[71-8*j] end; T[0] := ord(Password[k]); if k < length(Password) then inc(k) else k := 1; ...


Курс лекций по V B 5.0 [нестрогое соответствие]
Программирование и комп-ры, Курс лекций по V B 5.0, Лекция ... I%, 1) = "." then Points $ = Points $ + 1 End If Next I% = Left (cтрока, № до позиции) = Right (строка, с № позиции) Функцию Mid можно использовать ...
... Form_QueryUnload(Cansel As Integer, UnloadMode As Integer) X % = MgBox("Вы уверены?", VbYesNo) If X % = VbNo Then Cancel = True Else Cancel = False ...