Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Подключение через прокси с MSXML2.ServerXMLHTTP.6.0, не получается подключиться к прокси
 
Цитата
написал:
Почему setProxy 1 а не setProxy 2
Спасибо, большое. Помогло. Теперь работает как надо - с неверным паролем не пускает.

Я правильно понимаю что 1 - это работать только напрямую, а 2 - это работать только через прокси?
Подключение через прокси с MSXML2.ServerXMLHTTP.6.0, не получается подключиться к прокси
 
Добрый день.

Пробую отправить данные методом POST таким макросом через прокси
Код
    Set headers = CreateObject("MSXML2.ServerXMLHTTP.6.0")
    headers.Open "POST", endpoint, False
    headers.setProxy 1, "proxy.com:222"
    headers.setProxyCredentials "user", "pass"
    headers.setRequestHeader "Content-Type", "application/json"
    headers.setRequestHeader "Authorization", "Bearer " & apikey
    body = "body"
    headers.send body

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

Пробовал подставлять разные объекты
CreateObject("WinHttp.WinHttpRequest.5.1")
CreateObject("MSXML2.XMLHTTP")
Они работают, но только напрямую, если закоментировать строчки с прокси.

Как правильно отправить данные, чтобы они передавались именно через прокси?
VBA скрипт
 
Цитата
написал:
Могу сделать
Добрый день.
Спасибо.
Уже сделали заказ.
В будущем может еще что то понадобится, я напишу.
VBA скрипт
 
Цитата
написал:
думаю, что Вам подойдет вариант Лейлы:
Я скачал это решение.
Но при запуске там выдает Runtime error 424
Да он и не предназначен для массовой генерации, там только одно поле ввода.
Нужно доработать этот VBA скрипт.
Сможете помочь?
Какая будет цена?
ChatGPT
 
Цитата
написал:
в Работе создайте тему, там разберутся.
Спасибо.
Создал там тему.
Обычно пишу сначала в тематическую ветку.
VBA скрипт
 
Добрый день.
Кто нибудь может сделать VBA скрипт для массовой генерации ответов GPT?
То есть пишешь в первой колонке запрос, а во второй колонке выходит ответ.
Готов оплатить работу.
Напишите в личку, если получится сделать такое.
Спасибо.
ChatGPT
 
Цитата
написал:
к ChatGPT уже обращались с этим вопросом?
Я сам не разберусь. Специалист нужен.
ChatGPT
 
Добрый день.
Кто нибудь может сделать VBA скрипт для массовой генерации ответов GPT?
То есть пишешь в первой колонке запрос, а во второй колонке выходит ответ.
Готов оплатить работу.
Напишите в личку, если получится сделать такое.
Спасибо.
Не сцеплять нулевые значения
 
Все получилось!
Отлично!
Спасибо большое!
Не сцеплять нулевые значения
 
Добрый день.

Делаю сцепку с добавлением спец символов - пробела, тире и переноса строки.


Получаю такой результат внутри одной ячейки:
Площадь помещения - 0
Подача питания - 0
Подробная комплектация - 0
Потребляемая мощность при обогреве - 1250 Вт
Потребляемая мощность при охлаждении - 1220 Вт
Предварительный фильтр - 0
Протокол связи - 0
Пульт дистанционного управления - есть


Можно ли как то получить такие данные исключая строки в которых значения нулевые?
То есть вот такие:
Потребляемая мощность при обогреве - 1250 Вт
Потребляемая мощность при охлаждении - 1220 Вт
Пульт дистанционного управления - есть


Или может как то обработать уже полученные данные и удалить строчки в которых присутствует последовательность " - 0"

Делал сцепку такой формулой
=СЦЕПИТЬ(
A2;СИМВОЛ(32);СИМВОЛ(45);СИМВОЛ(32);B2;СИМВОЛ(10);
C2;СИМВОЛ(32);СИМВОЛ(45);СИМВОЛ(32);D2;СИМВОЛ(10);
E2;СИМВОЛ(32);СИМВОЛ(45);СИМВОЛ(32);F2;СИМВОЛ(10);
G2;СИМВОЛ(32);СИМВОЛ(45);СИМВОЛ(32);H2;СИМВОЛ(10);
I2;СИМВОЛ(32);СИМВОЛ(45);СИМВОЛ(32);J2;СИМВОЛ(10);
K2;СИМВОЛ(32);СИМВОЛ(45);СИМВОЛ(32);L2;СИМВОЛ(10);
M2;СИМВОЛ(32);СИМВОЛ(45);СИМВОЛ(32);N2;СИМВОЛ(10);
O2;СИМВОЛ(32);СИМВОЛ(45);СИМВОЛ(32);P2;СИМВОЛ(10);
)

Пример файла во вложении.

Спасибо.
Удаление дублей в строке, Удаление дублей в строке
 
Спасибо большое.
Удаление дублей в строке, Удаление дублей в строке
 
Серьезно? Не знал.
Как отблагодарить за подсказку работников форума?
Удаление дублей в строке, Удаление дублей в строке
 
Ого! Так быстро ответили.
Спасибо большое! Все работает! Супер!
Удаление дублей в строке, Удаление дублей в строке
 
Добрый день.

Есть вот такой макрос удаляющий дубли в строке.

Код
Sub bb()
Dim c As Range, x
With CreateObject("scripting.dictionary")
  For Each c In Selection
    .RemoveAll
    For Each x In Split(c)
      .Item(x) = 0
    Next
    c = Join(.keys)
  Next
End With
End Sub


Проблема в том, что он удаляет слова только с одинаковым регистром.

Можно ли его как то доработать, чтобы удалять дубли независимо от регистра?
Спасибо.
Изменено: БМВ - 30.08.2022 12:08:28
Как убрать пробелы только в конце текстовой строки?
 
vikttur, Большое спасибо!
Все оказалось так просто)))
Действительно мне подошла функция СЖПРОБЕЛЫ
Спасибо!
Как убрать пробелы только в конце текстовой строки?
 
=ЛЕВСИМВ(I2;7) показывает "бассейн"

А каким способом еще удалить пробелы на конце?
Формула {=ЛЕВСИМВ(A1;ДЛСТР(A1)-ПОИСКПОЗ(1=0;ПСТР(A1;ДЛСТР(A1)-СТРОКА($1:$100);1)=" ";0))} из поста GIG_ant тоже не работает
Она я так понял просто убирает последний символ и если в строчке не было пробела на конце, то удаляется последняя буква
"бассейн красивый бассейн" превращается во фразу "бассейн красивый бассей"

С этой формулой еще один вопрос. В каком формате она записана в файле Последние_пробелы_ненужны (1).xls ?
При попытке править эту формулу боковые фигурные скобки пропадают и выдается ошибка #Н/Д
Использую Excel 2016
Как убрать пробелы только в конце текстовой строки?
 
Как то странно эта формула удаляет пробел
=ЛЕВСИМВ(RC[-1];ПОИСК(ПРАВСИМВ(СЖПРОБЕЛЫ(RC[-1]);5);RC[-1])+4)
Немного преобразовал ее в другой формат
=ЛЕВСИМВ(I2;ПОИСК(ПРАВСИМВ(СЖПРОБЕЛЫ(I2);5);I2)+4)
Если в тексте есть дублирующиеся или однокоренные слова, то формула обрезает текст
Например фраза "бассейн красивый бассейн " превращается во фразу "бассейн"
Можно это как то исправить?
подсчет различных значений
 
Большое спасибо! Это моя ошибка. Я внешние скобки убирал ))))) Теперь все работает!
подсчет различных значений
 
Во вложении файл с фамилиями. Всего 10 строк. Две фамилии повторяются. То есть реально там 8 человек. Как автоматически посчитать только не повторяющиеся фамилии?
подсчет различных значений
 
Нажимаю Ctrl+Shift+Enter ничего не происходит.
подсчет различных значений
 
Не очень понятно как эту формулу применять. У меня столбец с фамилиями которые часто повторяются. Мне нужно посчитать количество человек, то есть если фамилия повторяется несколько раз считать что это 1 человек. Данная формула мне показывает результат 0,5 В любом случае должно быть целое число.
подсчет различных значений
 
А как посчитать в колонке количество различных значений. То есть если какое то значение появляется несколько раз, то считеть его только один раз.
Добавление пустых строк между заполненных
 
Как сделать чтоб вставлялось по 2 пустые строчки?
Страницы: 1
Наверх