Разработка учетных приложений в MS Office

ValueCells(onList.ListCount, "G").Value = nCount.ValueEnd SubPrivate Sub delList_Click() If onList.ListIndex < 0 Then Exit SubWorksheets("onlist").Rows(onList.ListIndex + 1).DeleteonList.RemoveItem (onList.ListIndex)End SubPrivate Sub doExit_Click() 'Application.Quit ' âûõîäèç excel EndEnd SubPrivate Sub GenTorg_Click() If nakBuy.ListIndex < 0 ThenMsgBox ("Íåâûáðàíçàêàç÷èê!") Exit Sub End If If onList.ListCount < 1 ThenMsgBox ("Íåâûáðàíûòîâàðû!") Exit Sub End IfSheets("torg12").Copy After:=Sheets("torg12")ActiveSheet.Name = "Íàêëàäíàÿ" & nakDoc.TextRange("X24").Value = nakDoc.ValueRange("BC18").Value = nakDoc.ValueRange("AD24").Value = nakDate.ValueRange("BC20").Value = nakDate.ValueRange("H52").Value = nakDate.Value gr = nakBuy.List(nakBuy.ListIndex, 0) & ", " gr = gr & "ÈÍÍ " & nakBuy.List(nakBuy.ListIndex, 1) & ", " & nakBuy.List(nakBuy.ListIndex, 2) & ", "gr = gr & "òåë. " & nakBuy.List(nakBuy.ListIndex, 3) & ", " & nakBuy.List(nakBuy.ListIndex, 4)Range("H13").Value = gr ' Ãðóçîïîëó÷àòåëüRange("H17").Value = gr ' Ïëàòåëüùèê With Worksheets("Firm")ps = .Range("B2").Value & ", ÈÍÍ " & Range("B3").Value & ", òåë. " & .Range("B4").Valueps = ps & ", " & .Range("B5").Value & ", " & .Range("B6").Value End WithRange("A8").Value = ps ' ÃðóçîîòïðàâèòåëüRange("H15").Value = ps ' ÏîñòàâùèêRange("H19").Value = osnova.TextRange("I46").Value = Worksheets("Firm").Range("B7")Range("W46").Value = Worksheets("Firm").Range("C7")Range("W48").Value = Worksheets("Firm").Range("B8")' ÔîðìèðóåìòàáëèöóðàáîòRange("A30").SelectActiveCell.EntireRow.CopyxCount = -1 For Each wCell In Worksheets("onlist").Range(Worksheets("onlist").Cells(1, "A"), Worksheets("onlist").Cells(Worksheets("onlist").Rows.Count, "A")) If IsEmpty(wCell.Value) Then Exit ForxCount = xCount + 1 Next If xCount > 0 Then ' ÇàïîëíÿåìðàáîòûRange(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown For i = 1 ToxCount + 1Range("A" & (29 + i)).Value = iRange("D" & (29 + i)).Value = Worksheets("onlist").Range("A" & i) & " (" & Worksheets("onlist").Range("B" & i)Range("AO" & (29 + i)).Value = Worksheets("onlist").Range("C" & i)Range("AI" & (29 + i)).Value = Worksheets("onlist").Range("E" & i) * Worksheets("onlist").Range("G" & i)Range("AL" & (29 + i)).Value = Worksheets("onlist").Range("D" & i) * Worksheets("onlist").Range("G" & i)Range("AU" & (29 + i)).Value = Worksheets("onlist").Range("F" & i)Range("AG" & (29 + i)).Value = Worksheets("onlist").Range("G" & i) NextRows(xCount + 31).Deletetfor = Range("F" & (33 + xCount)).FormulaLocal ' óñòàíàâëèâàåìâñåãîïîçèöèétfor = Replace(tfor, "A30", "A" & (xCount + 30))Range("F" & (33 + xCount)).FormulaLocal = tfor End IfMsgBox "Çàâåðøåíî, ëèñò " & ActiveSheet.Name End ' Âûõîä â ExcelEnd SubPrivate Sub UserForm_Initialize() ' ÈíèöèàëèçàöèÿnakDate = DatenakDoc.Text = Worksheets("Firm").Range("B1").ValueWorksheets("Firm").Range("B1").Value = Worksheets("Firm").Range("B1").Value + 1osnova.Value = "Ñ÷åòîò " & DateWorksheets("Buyer").ActivatenakBuy.Clear ' Ñïèñîêçàêàç÷èêîânakBuy.RowSource = "Buyer!A2:E" & Range("G1").Value ' COUNTA - ñêîëüêîòîâàðîââñåãîWorksheets("Goods").Activate ' ÇàïîëíèòüñïèñîêòîâàðîâGoodsList.RowSource = "Goods!B2:B" & Range("G1").Value ' COUNTA - ñêîëüêîòîâàðîââñåãîWorksheets("onlist").Activate ' Î÷èñòèòüòîâàðû â íàêëàäíîé For Each wCell In Range(Cells(1, "A"), Cells(Rows.Count, "A")) ' Ïåðâûéñòîëáåö If IsEmpty(wCell.Value) Then Exit ForwCell.Clear NextEnd Sub