Задача вроде банальная и справку уже перечитал несколько раз. Но что то не то Как обычно надо найти записи в одной таблице и занести в другую. Таблицу поиска отсортировал по столбцу поиска. Лист (TDSheet). ВПР задал на строгое совпадение Лист (Лист2).Но часть записей не находит. Не понимаю почему
Здравствуйте У меня стоит задача программно добавить несколько листов, но это надо сделать не отвлекая пользователя, т.е. что бы excel не переключался на добавляемый лист Делаю это таким кодом
Код
Application.ScreenUpdating = False
Application.EnableEvents = False
Set wks = ThisWorkbook.Sheets.Add(, Worksheets(Worksheets.count), 1, XlSheetType.xlWorksheet)
With wks
.Name = psName
.Range("A1:S1").Interior.Color = rgbGold
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
Но Excel все равно переключается на новый лист Подскажите пожалуйста. Может есть способ запретить это? Во вложении пример
Итак. Есть готовое работающее приложение (как Excel файл) с листом данных и организованным обменом данными с сайтом. Обмен организован так: Пользователь выбирает позиции и нажимает на кнопку отправить. Макрос отправки составляет строку запроса и делает вызов стороннего скрипта VBS, не дожидаясь от него ответа. таким образом возможно отправить подряд несколько запросов. VBS скрипт делает запрос к сайту и получив ответ делает попытку заполнить определенную ячейку на листе в Excel файле. Если попытка не удачна (Excel занят) ждем некоторое время и снова пытаемся отдать ответ. И так пока не отдадим. В рабочем файле Excel, в свою очередь запущен таймер, по которому проверяются ячейки ответов. Если ответа долго нет, то макрос убивает соответствующий процесс VBS скрипта и запускает новый. Такая себе защита. Такой подход позволил развязать руки пользователю, т.е. он может работать с файлом, а в это время происходит обмен (время между вводом данных). Но как показала практика это не комфортно. Налицо несколько явных проблем. 1. - Если Excel аварийно закроется, то в системе останутся вечные процессы. 2. - Из за временных нестыковок некоторые запросы могут быть запрошены несколько раз, хотя ответ уже получен, но не успел дойти до адресата. ... + Сложность кода
Идеи Хочется упростить и разделить код. А именно. Хочется сделать приложение которое будет в фоне обновлять данные. Например пользователь изменил данные в ячейке, макрос change отравил сообщение (я думал через sendMessege) изменить такое поле программе, которая возьмет на себя все заботы про обмену данными и вернет ответ (тоже как сообщение например). А excel прочитает, когда будет готов. Плюс думаю организовать весь код Excel как надстройку. Для этого Смотрел в сторону организации программы севера, т.к. хочется консольное приложение.
А теперь просьба Подскажите в правильном ли направлении я думаю. Может есть какой-то путь, который лучше но я сейчас не вижу.
Здравствуйте Прошу помощи с составлением регулярного выражения Требуется в строке определить есть ли в ней символы какие либо символы кроме S L M X - . / 0 1 2 3 4 5 6 7 8 9 и слова ONE С набором символов я разобрался [^\.\-/SMLX\d\s], а вот добавить что бы также исключало слово ONE додумать не могу
Есть идея найти все эти символы и слово и заменить на пустую строку "". Потом проверить результат на пустоту. (идея пришла после создания темы)
Здравствуйте. Помогите пожалуйста разобраться. Делаю запрос к адресу https://api.livecoin.net/exchange/ticker с помощью объекта MSXML2.ServerXMLHTTP и получаю странное сообщение об ошибке -"Error: №-2146893018 - Получено непредвиденное сообщение или оно имеет неправильный формат." Причем не на все https адреса такая реакция. Некоторые нормально загружает. В google решения не нашел. Грешил на систему - XP32, но браузер нормально загружает. Вот код
Код
Option Explicit
Const SXH_SERVER_CERT_IGNORE_UNKNOWN_CA = 256
Const SXH_SERVER_CERT_IGNORE_WRONG_USAGE = 512
Const SXH_SERVER_CERT_IGNORE_CERT_CN_INVALID = 4096
Const SXH_SERVER_CERT_IGNORE_CERT_DATE_INVALID = 8192
Const SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS = 13056
'
Sub GetHTTPResponse()
Dim oXMLHTTP As Object
On Error Resume Next
Debug.Print "начало"
Set oXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")
With oXMLHTTP
.Open "GET", "https://api.livecoin.net/exchange/ticker", False
'.Open "GET", "http://ua.julla-mama.com/category/shorti-kapri/holli/", False
.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/57.0.2987.137 YaBrowser/17.4.1.955 Yowser/2.5 Safari/537.36"
.SetRequestHeader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8"
.SetRequestHeader "Accept-Encoding", "gzip , deflate, sdch, br"
.SetRequestHeader "Accept-Language", "uk,ru;q=0.8,en;q=0.6"
.SetRequestHeader "Cache-Control", "Max -age = 0"
.SetRequestHeader "Connection", "keep-alive"
.SetRequestHeader "Host", "api.livecoin.net"
.SetRequestHeader "Upgrade-Insecure-Requests", "1"
.SetOption 2, .GetOption(2) - SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS
.Send
If Err.Number <> 0 Then
Debug.Print "Error: №" & Err.Number & " - " & Err.Description
Exit Sub
End If
Debug.Print "Status: " & .Status
Debug.Print "Ответ: " & .ResponseText
Debug.Print "конец"
End With
Set oXMLHTTP = Nothing
End Sub
Заголовки списал из браузера. обеспечение (win xp 32, excel 2010) Может есть идеи куда смотреть, что читать.
Задача состоит в маркировке определенных строк. В определенный столбец заносится определенный символ. При выборе фильтра и нажатии на определенную кнопку должны маркироваться выбранные записи. Соответственно предыдущая маркировка должна быть очищена
Подскажите пожалуйста как можно очистить значения в строках скрытых фильтром. Отключать фильтр и устанавливать, не вариант
Код типа
Код
Columns(1).SpecialCells(xlCellTypeConstants, xlTextValues).Clear
или
Columns(1).Clear
или
Columns(1).ClearContents
или
Range("A:A").Value = Empty