Похожие работы на «VBA Платежка»

VBA Платежка
Экономико-математическое моделирование, VBA Платежка, Курсовая ... ПЛ).Range("d" & НомерПл) = Счёт Worksheets(№ПЛ).Range("b" & НомерПл) = Клиент Worksheets(№ПЛ).Range("e" & НомерПл) = КодБанка Worksheets(№ПЛ).Range("f ...
... из списка Получателей " End Sub Private Sub ПоНомеру_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) ...


Решение экономических задач с помощью VBA [нестрогое соответствие]
Программирование и комп-ры, Решение экономических задач с помощью VBA, Курсовая ... B11").Value c = Worksheets("Задание1").Range("C11").Value D = Worksheets("Задание1").Range("D11").Value mas1(1) = B mas1(2) = c mas1(3) = D i = 1
Loop Until i = 3 End Sub Sub Task3_Evrica() Dim AA_2(10) As Integer Dim MM_1(10) As Integer Dim MM_2(10) As Integer Dim MM_3(10) As Integer Dim MM_4( ...


Разработка программы контроллера автоматически связываемых объектов для управления конструкторской документацией в среде Windows 95/NT (дипломная ... [нестрогое соответствие]
Программирование и комп-ры, Разработка программы контроллера автоматически связываемых объектов для управления конструкторской документацией в среде ... ... As String UsedProgramm As Long Discription As String ImageIcon As String ImageText As String X As Integer Y As Integer OutputFunPoints() As Integer ...
... pro1.prj" End End Sub Private Sub ImageIcon_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 ...


Анализ экономических показателей Японии 1960-1992 гг. \Компьютерная подготовка в ГУУ. 2 курс.\ [нестрогое соответствие]
Программирование и комп-ры, Анализ экономических показателей Японии 1960-1992 гг. \Компьютерная подготовка в ГУУ. 2 курс.\ , Рефераты ... в Visual Basic!" 'Выдает сообщение "Выдает приветственное сообщение End Sub Private Sub Text1_Change() Text1.Enabled = False 'Делает текстовое поле ...
... Dim t(10) As Single Dim p As Integer Dim per As Integer Dim i, j As Integer Dim a1(50) As Single Dim a2(10) As Single Dim a3(10) As Single Dim a4(10) ...


Создание автоматизированной системы расчета трудоемкости разработки и сопровождения программных средств [нестрогое соответствие]
Программирование и комп-ры, Создание автоматизированной системы расчета трудоемкости разработки и сопровождения программных средств , Рефераты ... Удаление стадии Public Sub unsetStage(ByVal index As Integer) Stage(index) = -1# End Sub 'Проверка добавлена стадия или нет Public Function checkStage ...
... Проверка на наличие функции Public Function checkVi(ByVal index As Integer) As Boolean If ViPr(index) = 0# Then checkVi = False Else checkVi = True ...


Игра на ловкость Змейка [нестрогое соответствие]
Программирование и комп-ры, Игра на ловкость Змейка, Курсовая ... Right_Click() XDir = 1 YDir = 0 End Sub Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Форма_Змейка.Enabled = True Форма_Змейка ...
... Exit_Click() КнопкаВыход_Click End Sub Private Sub NewGame_Click() КнопкаПовторить_Click End Sub Private Sub КнопкаВыход_Click() Unload Форма_Змейка ...


Програмирование на Visual Basic [нестрогое соответствие]
Кибернетика, Програмирование на Visual Basic, Реферат ... keyascii = 13 Then combo2.Addltern combo2.Text End If End Sub Private Sub Form_Load () Listl.AddItem "Иванов И.И." Listl.AddItem "Петров П.П." Listl. ...
... Command6_Click() Datal.Recordset.Update End Sub Private Sub Command7_CiicK ( i Text4.SetFocus End Sub Private Sub Form_Load() Pri = True Pr2 = True ...


Индексированные элементы управления [нестрогое соответствие]
Программирование и комп-ры, Индексированные элементы управления , Лекции ... End If Command2.Caption < Command3.Caption Then End If Command2.Caption < Command4.Caption Then End If Command2.Caption < Command5.Caption Then End If ...
... End If Command9.Caption < Command2.Caption Then End If Command9.Caption < Command3.Caption Then End If Command9.Caption < Command4.Caption Then End If ...


Курс лекций по V B 5.0 [нестрогое соответствие]
Программирование и комп-ры, Курс лекций по V B 5.0, Лекция ... Case Is < 13 позволяет проверить значение переменной Grade = 2 Case Is < 18 Grade = 3 Case Is < 22 Grade = 4 Case Else Grade = 5 End Select Пример 1. ...
... M$ = "DDE связь установлена с" + PicMy.LinkTopic "поданным"+ M$ = M$ + PicMy.LinkItem MsgBox End Sub LinkClose - завершение сеанса DDE; для формы ...


Программирование логической игры на visual basic [нестрогое соответствие]
Программирование и комп-ры, Программирование логической игры на visual basic , Работа Курсовая ... Then Label55.Visible = False "Загасить элемент индикатора If IndLent = 2 Then Label54.Visible = False "Загасить элемент индикатора If IndLent = 3 Then ...
... Обработка нажатия клавиш "стрелка вправо" и "стрелка влево" If (GetAsyncKeyState(vbKeyLeft)) Then ' Кнопка влево Form1.Caption = "Left" Move_Point_ ...