Поиск по сайту
Не нашли нужную работу? Закажи реферат, курсовую, диплом на заказ реферат на тему: VBA ПлатежкаoBox1.ListIndex = -1 Then
Exit Sub
Else
Windows("Клиенты" & Year(Date)).Activate
Worksheets(№ПЛ).Select
Rows(ComboBox1.ListIndex + 1).Select
Selection.Delete Shift:=xlUp 'Удаляем запись о клиенте
a = ComboBox1
ComboBox1.RemoveItem (ComboBox1.ListIndex)
ActiveWorkbook.Save
БОКС = MsgBox("Вы удалили Получателя : " & a, , BOX)
ComboBox1.ListIndex = -1
Счёт = ""
Банк = ""
Клиент = ""
КодБанка = ""
УНН = ""
ВидОперации = ""
НазначПлатежа1 = ""
НомНазПл = ""
НомерПл = ""
Деньги = ""
ДатаУслуг = ""
End If
End Sub Private Function Впечать() As String Sheets("Лист1").Select If Счётчик2 = 1 Then ActiveWorkbook.Save ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ElseIf Счётчик2 = 2 Then Range("A1:W28").Select Selection.Copy Range("A29").Select ActiveSheet.Paste ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Rows("29:80").Select Selection.Delete Shift:=xlUp ActiveWorkbook.Save ElseIf Счётчик2 = 3 Then Range("A1:W28").Select Selection.Copy Range("A29").Select ActiveSheet.Paste ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Rows("29:80").Select Selection.Delete Shift:=xlUp ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ActiveWorkbook.Save End If End Function Private Function Вплатёжку() As String Windows("Платёжка.xls").Activate Дата = Format(Дата, "Short Date") Worksheets("Лист1").Range("D13") = Банк Worksheets("Лист1").Range("Q11") = Счёт Worksheets("Лист1").Range("E12") = Клиент Worksheets("Лист1").Range("P14") = КодБанка Worksheets("Лист1").Range("C12") = УНН Worksheets("Лист1").Range("T7") = (Деньги & "=") Worksheets("Лист1").Range("G4") = Format(Дата, "d mmmm yyyy") Worksheets("Лист1").Range("L19") = ДатаУслуг Worksheets("Лист1").Range("V19") = ВидОперации Worksheets("Лист1").Range("B22") = НазначПлатежа1 Worksheets("Лист1").Range("O2") = НомерПл Worksheets("Лист1").Range("V20") = НомНазПл МестоПечати 'Функция работающая с параметрами места печати в платёжке Worksheets("Лист1").Range("C27") = МП1 End Function Private Function МестоПечати() As String If МП = True Then МП1 = "М/П" ElseIf БП = True Then МП1 = "Б/П" ElseIf БезПечати = True Then МП1 = "" End If End Function Private Function МестоПечати1() As String If Worksheets(№ПЛ).Range("M" & Счётчик) = "М/П" Then МП = True ElseIf Worksheets(№ПЛ).Range("M" & Счётчик) = "Б/П" Then БП = True ElseIf Worksheets(№ПЛ).Range("M" & Счётчик) = "" Then БезПечати = True End If End Function скачать реферат первая ... 4 5 6 7 Не нашли нужную работу? Закажи реферат, курсовую, диплом на заказ Внимание! Студенческий отдых и мегатусовка после сессии!
Рефераты и/или содержимое рефератов предназначено исключительно для ознакомления, без целей коммерческого использования. Все права в отношении рефератов и/или содержимого рефератов принадлежат их законным правообладателям. Любое их использование возможно лишь с согласия законных правообладателей. Администрация сайта не несет ответственности за возможный вред и/или убытки, возникшие или полученные в связи с использованием рефератов и/или содержимого рефератов.
|
Обратная связь. |