Загрузить данные с сервера за этот год (адрес сервера в файле приложения)

• Название: Загрузить данные с сервера за этот год (адрес сервера в файле приложения)
• Дата: 21.04.2023
• Размер: 16.25 Kb.
• Имя файла: Ex_14_2023_955be8784bce34b5518c6862f7d7972c.docx
• Тип: Справочник; #1079404

1. 
   Загрузить данные с сервера за этот год (адрес сервера в файле приложения)
   

При загрузке выбрать Преобразовать и поставить фильтр по дате больше 01.01.2023

Использовать файл КР_1

2. Написать макрос 1 для расчета комбинированного идентификатора Инструмент_Дата

3.   Если нет справочника инструментов, то сформировать справочник финансовых инструментов компаний ( поле CompanyInstrument) лист Ref_ CompanyInstrument

2. 
   На листе 2 ( уже сделано на КР)
   
   1. 
      поле со списком на основе справочника финансовых инструментов 
      
   2. 
      таблицу 1 с результатами выбора итогов торгов по одному финансовому инструменту (поля LegalClosePrice) по датам
      
   3. 
      Написать макрос 2 для формирования списка уникальных дат
      
   4. 
      Написать макрос 3 для обновления ряда цен (расширить на новые даты)
      
   5. 
      Адаптировать макрос задания 13 для оценки параметров тренда и построения графика
      

Справочные материалы
Объявление переменных

Sub Getdata2()

Dim row1, row2

Dim adr1, adr2 As String

Присвоение переменным значений

Range(Selection, Selection.End(xlDown)).Select

row1 = Selection.Rows.Count
Использование значений переменных в адресе

adr1 = "rz1!R1C1:R" & row1 & "C5"

adr2 = "A1:E" & row1

ActiveCell.Range(adr2).Select

Selection.Copy
Организация цикла



i = 1
While Not i > row1
Cells(i + 5, 3).FormulaR1C1 = "=RC[-2]-R5C1"
i = i + 1
Wend
Определение параметров через InputBox
Application.InputBox ( Prompt , Title , Default , Left , Top , HelpFile , HelpContextID , Type )