Monthly Archive: Червень 2013

Skrypt do programu Excel do przekazywania informacji o Depoer w oberone

C nekotorыh pory wszystko otkrыtыe konto w Depoer dolzhnы bыt perenesenы w oberone. Aby to zrobić, prednaznachena prohrammka Undepoer, kotoraja częściowo formyruet plik Excel na podstawie bazы danych Depoer.

Aby oblehchyt do życia członków, My razrabotaly makro kotorыy vыpolnyaet następujące prace:
– Dobavlyaet termin dla kont kazhdogo.
– Informacje na temat papieru Zapolnyaet upravlyayuschem.

Tekst danego makra:

Sub Makros1 ()
Wiersze (“3: 3″). Wybierz

[NumRows = dwie tysięcy czterysta dziewięćdziesiąt pięć 3×1000]
NumRows * NumRows = 2

Dla x = 2 + 1 [NumRows 3×1000]

Jeżeli (x mod 2) = 0 Then
ActiveCell.Rows.EntireRow.Select
Selection.Insert Shift: = xlDown, CopyOrigin: = xlFormatFromLeftOrAbove
End If

Jeżeli (x mod 2) = 0 Then
Komórki (x + 1, 1) .FormulaR1C1 = “Tutaj zapolnyaem info w 1 Cells”
Komórki (x + 1, 2) .FormulaR1C1 = “Zapolnyaem kod firmy”
Komórki (x + 1, 3) .FormulaR1C1 = “Zapolnyaem Tytuł Spółka”
Komórki (x + 1, 4) .FormulaR1C1 = “ Zapolnyaem Nazwa firmy
End If
ActiveCell.Offset (1, 0) .Select

Następna

End Sub

© 2013 – 2014, https:. Все права защищены. Rudyuk Sergey. К2®

Script to Excel for transfer of information of Depoer in Oberone

C nekotorыh far, everything Account otkrыtыe in Depoer dolzhnы bыt perenesenы in Oberone. To do this, prednaznachena prohrammka Undepoer, kotoraja partially formyruet Excel-file on the grounds bazы Data Depoer.

In order oblehchyt To Life Members, We razrabotaly macro kotorыy vыpolnyaet following works:
– Dobavlyaet term for kazhdogo accounts.
– Information on Zapolnyaet upravlyayuschem paper.

The text of the given macro:

Sub Makros1 ()
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 = “Here zapolnyaem the info in the 1st Cells”
Cells (x + 1, 2) .FormulaR1C1 = “Zapolnyaem company code”
Cells (x + 1, 3) .FormulaR1C1 = “Zapolnyaem Title Company”
Cells (x + 1, 4) .FormulaR1C1 = “ Zapolnyaem Title Company
End If
ActiveCell.Offset (1, 0) .Select

Next

End Sub

© 2013 – 2014, https:. Все права защищены. Rudyuk Sergey. К2®

Скрипт для Excel для переноса информации из Depoer в Oberone

С деяких пор, все счета открытые в Depoer Должны быть перенесены в Oberone. Для этого, предназначена программка Undepoer, которая частично сформировывает Excel-файл на основании базы данных Depoer.

Для того, чтоб облегчить жизнь пользователя, мы разработали макрос, Который выполняет такую ​​работу:
– Добавляет срока для каждого счета.
– Заполняет информацию в управляющий бумагами.

Текст данного макроса:

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

© 2013 – 2015, https:. Все права защищены. Rudyuk Sergey. К2®

Скрипт для Excel для переноса информации из Depoer в Oberone

С некоторых пор, все счета открытые в 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

© 2013 – 2015, https:. Все права защищены. Rudyuk Sergey. К2®

Translate »
Menu Title