Автор: Рудюк С . А.
https://corp2.net
E-Mail: rs@corp2.net
С некоторых пор, все счета открытые в Depoer должны быть перенесены в Oberone. Для этого, предназначена программка Undepoer, которая частично формирует Excel-файл на основании базы данных Depoer.
Пользователям приходится для того, чтоб корректно перенести информацию вручную добавлять строчку, вносить управляющую компанию ценными бумагами, а уже после этого – закачивать информацию. Все было бы хорошо, если бы счетов (строк в Excel-файле) было не много, но обычно это много-много тысяч… Понятное дело, в момент таких действий пользователь может допустить механическую ошибку, чем свести свои старания на нет. Не говоря уже о том, что тратится огромное количество времени…
Для того, чтоб облегчить жизнь пользователя, мы разработали макрос, который выполняет такую работу:
– Добавляет строку для каждого счета.
– Заполняет информацию о управляющем бумагами.
Текст данного макроса:
Sub Макрос1()
Rows(“3:3”).Select
NumRows = 2495
NumRows = NumRows*2
For x = 2 To NumRows+1
If (x Mod 2) = 0 Then
ActiveCell.Rows.EntireRow.Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
If (x Mod 2) = 0 Then
Cells(x+1, 1).FormulaR1C1 = “Тут заполняем информацию в 1-й ячейке”
Cells(x+1, 2).FormulaR1C1 = “Заполняем код компании”
Cells(x+1, 3).FormulaR1C1 = “Заполняем название компании”
Cells(x+1, 4).FormulaR1C1 = “Заполняем название компании“
End If
ActiveCell.Offset(1, 0).Select
Next
End Sub
Автор: Рудюк С . А. https://corp2.net
Leave a Reply