1

Тема: Помощь неучу и нулю в программировании для облегчения жизни

Доброе утро!

Работаю много и долго, сижу в офисе допоздна. Хотя вспомнила про макросы, которые облегчат мне жизнь и дадут возможность заниматься растяжкой на шпагаты дальше

Прошу очень помочь!

Работаю в тендерах. Пытаюсь вести статистику/аналитику по работе аукционистов. Резко возросло количество подач.

По номеру аукциона я каждый день вбиваю информацию в определенные ячейки только определенную нужную информацию. Как можно это автоматизировать? Только, чтобы, например я брала номер извещения, вставляла в ячейку и вся информация автоматически вбивалась в ячейки сама)) Звучит, как волшебство.. Возможно ли это.


Сам сайт с номером закупки: внешняя ссылка

(всегда в шапке меняю номер и копирую информацию)

Таблица во вложении.

Начальный этап я сделала (записала макрос с интернета на новом листе). А как отредактировать его....без понятия..(((

Здесь много умных, чем я. (Мои мизерные знания не позволяют этого сделать) Слезно прошу помощи.

__________________________________________
Errare humnnum est

2

Re: Помощь неучу и нулю в программировании для облегчения жизни

Прикладываю файл (обрезан, информация в нем более мене старая)

__________________________________________
Errare humnnum est

3

Re: Помощь неучу и нулю в программировании для облегчения жизни

та=даам

Post's attachments

СВОДНАЯ все компаниимакрос.xlsx 40.41 Кб, 4 скачиваний с 2017-08-04 

You don't have the permssions to download the attachments of this post.
__________________________________________
Errare humnnum est

4

Re: Помощь неучу и нулю в программировании для облегчения жизни

часть строк --это данные по тендеру(кто , когда....), 2 столбца
часть --это перечень услуг(таблица), 5 столбцов

и что из этого вы берете в свою таблицу
выложите и ее примерчик

5

Re: Помощь неучу и нулю в программировании для облегчения жизни

shanemac51 пишет:

часть строк --это данные по тендеру(кто , когда....), 2 столбца
часть --это перечень услуг(таблица), 5 столбцов

и что из этого вы берете в свою таблицу
выложите и ее примерчик



Вот тут, что синей стрелкой, что мне нужно с сайта Закупки.гов. чтобы вводилось автоматически, когда вбиваю реестровый большой номер. А крестик - сама ввожу с учетом людей что знаю внутри компании.

Не знаю, что Вам нужно?

Post's attachments

по таблице сводная.docx 326.83 Кб, 1 скачиваний с 2017-08-04 

You don't have the permssions to download the attachments of this post.
__________________________________________
Errare humnnum est

6

Re: Помощь неучу и нулю в программировании для облегчения жизни

Ищете по номеру извещения?

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

7

Re: Помощь неучу и нулю в программировании для облегчения жизни

Fck_This пишет:

Ищете по номеру извещения?

Да,сэр)

__________________________________________
Errare humnnum est

8

Re: Помощь неучу и нулю в программировании для облегчения жизни

Fck_This пишет:

Ищете по номеру извещения?

по номеру закупки ищем

например, 0148200001917000067

__________________________________________
Errare humnnum est

9

Re: Помощь неучу и нулю в программировании для облегчения жизни

yuuki16 пишет:
Fck_This пишет:

Ищете по номеру извещения?

по номеру закупки ищем
например, 0148200001917000067

Самое простое - записать макрорекордером прогрузку одной страницы в новый лист, затем сделать переменную для имени, по которому происходит запрос (может сделать выгрузку в новую книгу, хотя можно просто потом очищать и удалять лист). Затем надо просмотреть и разнести все ячейки в вашу таблицу. Делать такое долговато выйдет - попробую, что успею.

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

10

Re: Помощь неучу и нулю в программировании для облегчения жизни

Где вы берёте данные в поля "Аукционист", Торговая площадка, способ закупки и поставщик?

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

11

Re: Помощь неучу и нулю в программировании для облегчения жизни

Fck_This пишет:

Где вы берёте данные в поля "Аукционист", Торговая площадка, способ закупки и поставщик?

эти данные сама вбиваю - определяет компания (руководство).

__________________________________________
Errare humnnum est

12

Re: Помощь неучу и нулю в программировании для облегчения жизни

Fck_This пишет:

Где вы берёте данные в поля "Аукционист", Торговая площадка, способ закупки и поставщик?


Торговая площадка - на главной странице записана тоже - там более развернутый ответ и ссылка на площадку есть
Способ закупки- тоже там же.


А вот аукционист и поставщик - данные дает руководство.

__________________________________________
Errare humnnum est

13

Re: Помощь неучу и нулю в программировании для облегчения жизни

Fck_This пишет:
yuuki16 пишет:
Fck_This пишет:

Ищете по номеру извещения?

по номеру закупки ищем
например, 0148200001917000067

Самое простое - записать макрорекордером прогрузку одной страницы в новый лист, затем сделать переменную для имени, по которому происходит запрос (может сделать выгрузку в новую книгу, хотя можно просто потом очищать и удалять лист). Затем надо просмотреть и разнести все ячейки в вашу таблицу. Делать такое долговато выйдет - попробую, что успею.


Боже милостивый. Готова последовать Вашему примечанию smile
А вы нигде не преподаете курсы?))

__________________________________________
Errare humnnum est

14

Re: Помощь неучу и нулю в программировании для облегчения жизни

Sub TakeNumber()
Dim sValue As String
Dim iRow As Integer
Dim iAnswer As Integer
sValue = ActiveCell.Value
iRow = ActiveCell.Row
iAnswer = MsgBox("Отправляем запрос по № " & sValue & "?", vbYesNo)
If iAnswer = 6 Then
    Call МакросРекордера(sValue)
Else
    MsgBox "Значит выбирайте другой номер."
End If
Call Заполнялка(iRow)
End Sub
Sub МакросРекордера(ByRef sNumber As String)
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://zakupki.gov.ru/epz/order/notice/ea44/view/common-info.html?regNumber=" & sNumber _
        , Destination:=Range("$A$1"))
        .Name = "common-info.html?regNumber=" & sNumber
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub
Sub Заполнялка(ByVal iRow As Integer)
Dim Наименование, Организатор, СтартЦена, Обеспечка, КонецПриема, ДатаАукциона, ВремяАукциона As String
'Наименование (J), Организатор(K), СтартЦена(L), Обеспечка(M), КонецПриема(O), ДатаАукциона(R), ВремяАукциона(S)
'Sheets("Лист1").Activate
iEmpty = Cells(Rows.Count, 1).End(xlUp).Row
Наименование = ПолучениеДанных(iEmpty, "Объект закупки")
Организатор = ПолучениеДанных(iEmpty, "Организация, осуществляющая размещение")
КонецПриема = ПолучениеДанных(iEmpty, "Дата и время окончания подачи заявок")
ДатаАукциона = ПолучениеДанных(iEmpty, "Дата проведения аукциона в электронной форме")
ВремяАукциона = ПолучениеДанных(iEmpty, "Время проведения аукциона")
СтартЦена = ПолучениеДанных(iEmpty, "Начальная (максимальная) цена контракта")
Обеспечка = ПолучениеДанных(iEmpty, "Размер обеспечения заявок")
Sheets("Лист2").Delete
Sheets("Аук").Activate
Range("J" & iRow).Value = Наименование: Range("K" & iRow).Value = Организатор: Range("L" & iRow).Value = СтартЦена: _
Range("M" & iRow).Value = Обеспечка: Range("O" & iRow).Value = КонецПриема: Range("R" & iRow).Value = ДатаАукциона: _
Range("S" & iRow).Value = ВремяАукциона
End Sub
Private Function ПолучениеДанных(ByVal iEmpty As Integer, ByVal sInfo As String)
For i = 1 To iEmpty
If Range("A" & i).Value = sInfo Then
    ПолучениеДанных = Range("B" & i).Value: MsgBox Range("B" & i).Value: Exit Function
    'Разнести по строка и добавить:
    'If Range("B" & i).Value = "" Then GoTo NextI
End If
NextI:
Next i
End Function

План такой: Вписываем в новую строку таблицы номер, затем нужно выделить эту ячейку с номером (т.е. мышкой кликнуть в другое место, а затем по ней) и запускаем макрос TakeNumber

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

15

Re: Помощь неучу и нулю в программировании для облегчения жизни

Надо довести до ума, но предварительно так. Должно работать, остальное на вас (дообрезать данные, ячейку мож неправильно где указал. постетите)
Вот файл с более правильной версией

Post's attachments

СВОДНАЯ все компаниимакрос.xlsm 49 Кб, 2 скачиваний с 2017-08-04 

You don't have the permssions to download the attachments of this post.
Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

16

Re: Помощь неучу и нулю в программировании для облегчения жизни

Fck_This пишет:

Надо довести до ума, но предварительно так. Должно работать, остальное на вас (дообрезать данные, ячейку мож неправильно где указал. постетите)
Вот файл с более правильной версией

Спасибо, о Великий!

Сначала попробуем сейчас все сделать и потестить))

__________________________________________
Errare humnnum est

17

Re: Помощь неучу и нулю в программировании для облегчения жизни

Fck_This пишет:

Надо довести до ума, но предварительно так. Должно работать, остальное на вас (дообрезать данные, ячейку мож неправильно где указал. постетите)
Вот файл с более правильной версией

Немного совсем изменила. НО Возникло несколько вопросов:

1. Сделала так, чтобы Российский рубль не появлялось в ячейке с обеспечилкой, НО возникла проблема - выше столбики, которые не имели это слово, теперь становятся черти какими форматами. Как сделать, чтобы формат был всегда - числовой с разделением по разрядам. Попыталась вставить эту функцию, он не разрешил (макрос).

2. Попыталась по Вашей Аналогии еще чтобы в столбец Дата рассмотрения заявки вносилась дата автоматически - в макросе написан, но дата не появляется. Почему?
И сюда же. Попыталась столбец Торговая Площадка в экселе, чтобы забивалась с сайта автоматически (берется со строчки Наименование электронной площадки в информационно-телекоммуникационной сети "Интернет") - но из-за кавычки не дает макрос вписать его. Так же, если вдруг получится, там нужно сокращенные названия этих площадок (чтобы автоматически преобразовывались). Возможно ли это? Названия площадок прописаны на вкладке const (желтым цветом выделены)

3. Как сделать, чтобы время окончания подачи тоже заносилось автоматически в столбец? На самом сайте они пишутся слитно     "06.08.2017 18:00" это проблема сделать или вернее прописать в макросе?

4. Наверно, стоит еще сделать в макросе пропись, чтобы новую добавленную строчку делалась "Формат по образцу" строчки № 2 экселя. Тогда формат новой забитой строчки будет такой же, как и у всех предыдущих.

5. Не могу понять, почему столбец "Неделя" стал противица и не считать автоматически неделю?


Помогите, пожалуйста, в силу моей не опытности.

Post's attachments

СВОДНАЯ все компаниимакрос.xlsm 49.3 Кб, 2 скачиваний с 2017-08-06 

You don't have the permssions to download the attachments of this post.
__________________________________________
Errare humnnum est

18

Re: Помощь неучу и нулю в программировании для облегчения жизни

yuuki16 пишет:
Fck_This пишет:

Надо довести до ума, но предварительно так. Должно работать, остальное на вас (дообрезать данные, ячейку мож неправильно где указал. постетите)
Вот файл с более правильной версией

Немного совсем изменила. НО Возникло несколько вопросов:

1. Сделала так, чтобы Российский рубль не появлялось в ячейке с обеспечилкой, НО возникла проблема - выше столбики, которые не имели это слово, теперь становятся черти какими форматами. Как сделать, чтобы формат был всегда - числовой с разделением по разрядам. Попыталась вставить эту функцию, он не разрешил (макрос).

2. Попыталась по Вашей Аналогии еще чтобы в столбец Дата рассмотрения заявки вносилась дата автоматически - в макросе написан, но дата не появляется. Почему?
И сюда же. Попыталась столбец Торговая Площадка в экселе, чтобы забивалась с сайта автоматически (берется со строчки Наименование электронной площадки в информационно-телекоммуникационной сети "Интернет") - но из-за кавычки не дает макрос вписать его. Так же, если вдруг получится, там нужно сокращенные названия этих площадок (чтобы автоматически преобразовывались). Возможно ли это? Названия площадок прописаны на вкладке const (желтым цветом выделены)

3. Как сделать, чтобы время окончания подачи тоже заносилось автоматически в столбец? На самом сайте они пишутся слитно     "06.08.2017 18:00" это проблема сделать или вернее прописать в макросе?

4. Наверно, стоит еще сделать в макросе пропись, чтобы новую добавленную строчку делалась "Формат по образцу" строчки № 2 экселя. Тогда формат новой забитой строчки будет такой же, как и у всех предыдущих.

5. Не могу понять, почему столбец "Неделя" стал противица и не считать автоматически неделю?


Помогите, пожалуйста, в силу моей не опытности.





Во втором пункте

Дата рассмотрения заявки - это на сайте "Дата окончания срока рассмотрения первых частей заявок участников"

__________________________________________
Errare humnnum est

19

Re: Помощь неучу и нулю в программировании для облегчения жизни

yuuki16 пишет:
yuuki16 пишет:
Fck_This пишет:

Надо довести до ума, но предварительно так. Должно работать, остальное на вас (дообрезать данные, ячейку мож неправильно где указал. постетите)
Вот файл с более правильной версией

Немного совсем изменила. НО Возникло несколько вопросов:

1. Сделала так, чтобы Российский рубль не появлялось в ячейке с обеспечилкой, НО возникла проблема - выше столбики, которые не имели это слово, теперь становятся черти какими форматами. Как сделать, чтобы формат был всегда - числовой с разделением по разрядам. Попыталась вставить эту функцию, он не разрешил (макрос).

2. Попыталась по Вашей Аналогии еще чтобы в столбец Дата рассмотрения заявки вносилась дата автоматически - в макросе написан, но дата не появляется. Почему?
И сюда же. Попыталась столбец Торговая Площадка в экселе, чтобы забивалась с сайта автоматически (берется со строчки Наименование электронной площадки в информационно-телекоммуникационной сети "Интернет") - но из-за кавычки не дает макрос вписать его. Так же, если вдруг получится, там нужно сокращенные названия этих площадок (чтобы автоматически преобразовывались). Возможно ли это? Названия площадок прописаны на вкладке const (желтым цветом выделены)

3. Как сделать, чтобы время окончания подачи тоже заносилось автоматически в столбец? На самом сайте они пишутся слитно     "06.08.2017 18:00" это проблема сделать или вернее прописать в макросе?

4. Наверно, стоит еще сделать в макросе пропись, чтобы новую добавленную строчку делалась "Формат по образцу" строчки № 2 экселя. Тогда формат новой забитой строчки будет такой же, как и у всех предыдущих.

5. Не могу понять, почему столбец "Неделя" стал противица и не считать автоматически неделю?


Помогите, пожалуйста, в силу моей не опытности.





Во втором пункте

Дата рассмотрения заявки - это на сайте "Дата окончания срока рассмотрения первых частей заявок участников"



Эх, неужели никто не поможет?(

По поводу 5 пункта - отпадает, все ок, наладила.
По поводу 3 пункта - нужно сделать тоже самое, только формат времени поставить, тогда будет копироваться в ячейку время с сайта или нет?

__________________________________________
Errare humnnum est

20

Re: Помощь неучу и нулю в программировании для облегчения жизни

yuuki16 пишет:
yuuki16 пишет:
yuuki16 пишет:

Немного совсем изменила. НО Возникло несколько вопросов:

1. Сделала так, чтобы Российский рубль не появлялось в ячейке с обеспечилкой, НО возникла проблема - выше столбики, которые не имели это слово, теперь становятся черти какими форматами. Как сделать, чтобы формат был всегда - числовой с разделением по разрядам. Попыталась вставить эту функцию, он не разрешил (макрос).

2. Попыталась по Вашей Аналогии еще чтобы в столбец Дата рассмотрения заявки вносилась дата автоматически - в макросе написан, но дата не появляется. Почему?
И сюда же. Попыталась столбец Торговая Площадка в экселе, чтобы забивалась с сайта автоматически (берется со строчки Наименование электронной площадки в информационно-телекоммуникационной сети "Интернет") - но из-за кавычки не дает макрос вписать его. Так же, если вдруг получится, там нужно сокращенные названия этих площадок (чтобы автоматически преобразовывались). Возможно ли это? Названия площадок прописаны на вкладке const (желтым цветом выделены)

3. Как сделать, чтобы время окончания подачи тоже заносилось автоматически в столбец? На самом сайте они пишутся слитно     "06.08.2017 18:00" это проблема сделать или вернее прописать в макросе?

4. Наверно, стоит еще сделать в макросе пропись, чтобы новую добавленную строчку делалась "Формат по образцу" строчки № 2 экселя. Тогда формат новой забитой строчки будет такой же, как и у всех предыдущих.

5. Не могу понять, почему столбец "Неделя" стал противица и не считать автоматически неделю?


Помогите, пожалуйста, в силу моей не опытности.





Во втором пункте

Дата рассмотрения заявки - это на сайте "Дата окончания срока рассмотрения первых частей заявок участников"



Эх, неужели никто не поможет?(

По поводу 5 пункта - отпадает, все ок, наладила.
По поводу 3 пункта - нужно сделать тоже самое, только формат времени поставить, тогда будет копироваться в ячейку время с сайта или нет?

2 пункт наладила, я команду не прописала, куда должно значение попадать) но вопрос относительно сокращенных названий площадок остался открытым...

__________________________________________
Errare humnnum est

21

Re: Помощь неучу и нулю в программировании для облегчения жизни

Был на военных сборах. Чего там, настроили?

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

22

Re: Помощь неучу и нулю в программировании для облегчения жизни

Fck_This пишет:

Был на военных сборах. Чего там, настроили?

Вы военный?

Нет, пока не получилось.
Еще одна проблема возникла. ip блокируется, то есть много запросов я не могу сделать, сайт начинает считать меня спамером или хакером) ладно, решила эту проблему у себя на компе с помощью проги (меняет страну), но беда в том, что 30 компов и ip один. Блочится у всех. Есть ли решение такой проблемы?

Помимо тех, что у меня не получается решить:


1. Сделала так, чтобы Российский рубль не появлялось в ячейке с обеспечилкой, НО возникла проблема - выше столбики, которые не имели это слово, теперь становятся черти какими форматами. Как сделать, чтобы формат был всегда - числовой с разделением по разрядам. Попыталась вставить эту функцию, он не разрешил (макрос).
2.  Попыталась столбец Торговая Площадка в экселе, чтобы забивалась с сайта автоматически (берется со строчки Наименование электронной площадки в информационно-телекоммуникационной сети "Интернет") - но из-за кавычки не дает макрос вписать его. Так же, если вдруг получится, там нужно сокращенные названия этих площадок (чтобы автоматически преобразовывались). Возможно ли это? Названия площадок прописаны на вкладке const
3. Как сделать, чтобы время окончания подачи тоже заносилось автоматически в столбец? На самом сайте они пишутся слитно     "06.08.2017 18:00" это проблема сделать или вернее прописать в макросе?
4. Наверно, стоит еще сделать в макросе пропись, чтобы новую добавленную строчку делалась "Формат по образцу" строчки № 2 экселя. Тогда формат новой забитой строчки будет такой же, как и у всех предыдущих.


PS Сделала "кнопку", которую нажимаешь и она "заводит" макрос. Как ее выделить цветом или переименовать?))

__________________________________________
Errare humnnum est

23

Re: Помощь неучу и нулю в программировании для облегчения жизни

Fck_This пишет:

Был на военных сборах. Чего там, настроили?


во вложении файлик...

Post's attachments

СВОДНАЯ черн.xlsm 108.07 Кб, 1 скачиваний с 2017-10-11 

You don't have the permssions to download the attachments of this post.
__________________________________________
Errare humnnum est