solar25 (Автор тем)

формирование номера договора по маске

Пользователь

Сообщений: 17 Регистрация: 01.01.1970

18.05.2018 11:44:39

Добрый день.
Подскажите оптимальный вариант реализации.
Есть столбец с датами вида "13.05.2018 12:00:00". Необходимо в ином столбце автоматически формировать номер договора.
Например 13-05/18-СБКД-1.
То есть раскладываем дату, добавляем суффикс СБКД. Это я сделал.
Но как реализовать схему, при которой если в столбце уже
имеется 13-05/18-СБКД-1, присваивалось бы 13-05/18-СБКД-2, 13-05/18-СБКД-3, 13-05/18-СБКД-4 и т.д?

Перейти

Работа с IE из VBA. При заполнении значений из макроса не активируется кнопка

solar25

Пользователь

Сообщений: 17 Регистрация: 01.01.1970

03.10.2017 15:35:35

Добрый день.
Прошу помочь с решением. Присваиваю значения инпут боксам таким кодом:

Скрытый текст

Код

Sub Procedure_3()
    Dim myShell As Object
    Dim myInternetExplorer As Object
    
    'Создаём в оперативной памяти компьютера объект "Shell.Application"
        'и даём этому объекту VBA-имя "myShell", через которое будем
        'обращаться к объекту "Shell.Application".
    Set myShell = CreateObject(Class:="Shell.Application")
    
    For Each myInternetExplorer In myShell.Windows
        
        If myInternetExplorer.Name = "Internet Explorer" Then
            Exit For
        End If
        
    Next myInternetExplorer
    
    If myInternetExplorer Is Nothing Then
        Exit Sub
    End If
    
    Debug.Print myInternetExplorer.Name
    
    myInternetExplorer.Visible = True
   ' myInternetExplorer.Navigate "https://eva.domclick.ru/login"
   ' myInternetExplorer.Document.getElementsByTagName("input").Item(0).value = "+7(926)589-42-98"
    myInternetExplorer.Document.getElementsByTagName("button").Item(0).Click
'    Do While myInternetExplorer.Busy
'    Application.Wait DateAdd("s", 5, Now)
'    Loop
'    myInternetExplorer.Visible = True
    myInternetExplorer.Document.Focus
    myInternetExplorer.Document.getElementById("borrowerLastName").value = "Иванов"
    myInternetExplorer.Document.getElementById("borrowerFirstName").value = "Петр"
    myInternetExplorer.Document.getElementById("borrowerMiddleName").value = "Викторович"
    myInternetExplorer.Document.getElementById("borrowerPhone").value = "+7 (988) 111-22-33"
    myInternetExplorer.Document.getElementById("borrowerPassportSeries").value = "4555"
 '  myInternetExplorer.Document.getElementById("borrowerPassportNumber").SetFocus
    myInternetExplorer.Document.getElementById("borrowerPassportNumber").value = "889988"
    myInternetExplorer.Document.getElementsByTagName("button").Item(1).Click
    
End Sub

Поля заполняются, но кнопка "Сохранить" после выполнения продолжает оставаться неактивной...Активируется лишь при ручном вводе данных.
Возможно ли решить проблему?

Перейти

Парсинг части кода из html страницы

solar25

Пользователь

Сообщений: 17 Регистрация: 01.01.1970

06.04.2017 14:51:46

Всем привет!
Прошу помощи. Необходимо выдернуть из html страницы некоторые значения и записать из в определенные ячейки.
В данном примере выдернуть надо значение этажа (21) и площадь окса (38,9)
Фрагмент html кода:

Код

                     <tr>
                            <td align="left" valign="top" width="250">
                                <nobr>Этаж:</nobr>
                            </td>
                            <td width="75%" valign="top">
                                    <b>21</b>
                            </td>
                        </tr>

                    <tr>
                        <td align="left" valign="top" width="250" nowrap="true">
                            <nobr>
                                Площадь ОКС'a:
                            </nobr>
                        </td>
                        <td width="75%" valign="top">
                                <b>38,9</b>
                        </td>
                    </tr>

                    <tr>
                        <td align="left" valign="top" width="250" nowrap="true">
                            Единица измерения (код):
                        </td>
                        <td width="75%" valign="top">
                            <b>Квадратный метр</b>
                        </td>
                    </tr>

код:

Код

Sub Test1()
    Dim sEnv As String, sURL As String
    Dim xmlhtp As Object
    sURL = "https://rosreestr.ru/wps/portal/p/cc_ib_portal_services/online_request/!ut/p/z1/pVFNc4IwEP01Xs1GtKK3...jc8fmMbUlN0GT-vHyezVllBEZg-KiwhbK0W-3kH6km9d7YKTu2d-9gXOgOyt/p0/IZ7_01HA1A42K0EE90ABVVBS3S2001=CZ6_GQ4E1C41KGQ170AIAK131G00T5=MEcontroller!QCPObjectDataController==/?object_data_id=" & Cells(ActiveCell.Row, 55) & "&dbName=firLite®ion_key=177"
    Set xmlhtp = CreateObject("MSXML2.XMLHTTP")
    With xmlhtp
        .Open "POST", sURL, "False"
            '  .setRequestHeader "Content-Length", b
            '   .setRequestHeader "Content-Type", "application/json; charset=utf-8"
            '   .setRequestHeader "Accept", "application/json"
              '  .setRequestHeader "Authorization", "Token 2688a4ce9e30e66310292f3bf96a2b9881711279"
                .setRequestHeader "Host", "http://rosreestr.ru/api/online/address/fir_objects"
        .send ' (sEnv)
       Worksheets(1).Cells(ActiveCell.Row, 56) = .responseText
    End With

Спасибо!

Изменено: solar25 - 06.04.2017 14:56:28

Перейти

Поиск совпадений по данным из масива

solar25

Пользователь

Сообщений: 17 Регистрация: 01.01.1970

22.03.2012 00:09:20

Добрый день. Помогите, пожалуйста!
На первом листе - описание товара (производитель товара указан по-разному, совпадает лишь часть) в столбце A. На втором листе - список производителей. Задача - найти совпадения в ячейках столбца А первого листа по искомому тексту из столбца А второго листа и в столбец С первого листа записать значения искомого текста в случае совпадения по части описания. Аналог - формула вида:
ЕСЛИ(ЕСЛИОШИБКА(НАЙТИ("БОКОВОЙ";A2);0)>0;"БОКОВОЙ";ЕСЛИ(ЕСЛИОШИБКА(НАЙТИ("ХРЕБТОВОЙ";A2);0)>0;"ХРЕБТОВОЙ";ЕСЛИ(ЕСЛИОШИБКА(НАЙТИ("ХРЕБТОВЫЙ";A2);0)>0;"ХРЕБТОВОЙ";ЕСЛИ(ЕСЛИОШИБКА(НАЙТИ("ШЕЙНЫЙ";A2);0)>0;"ШЕЙНЫЙ";ЕСЛИ(ЕСЛИОШИБКА(НАЙТИ("ШЕЙНОЙ";A2);0)>0;"ШЕЙНЫЙ")))))
Но поскольку значений в случае с производителем - много, формулой не обойтись...

Заранее признателен за помощь.

Перейти