Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 25 След.
CREATEOBJECT("EXCEL.APPLICATION") на компьютере без EXCEL
 
Wiss, проверьте после установки этого SDK, будет ли формировать файл без установленного office.
Программа после экспорта пытается открыть эти файлы?
Нужно разработать скрип для MS Outlook. Есть кто возьмётся?, ЛС
 
oceanpack, добрый день!
Скиньте пожалуйста ТЗ на почту(в профиле), посмотрим.
Выпадающий список - исключить определенные элементы из именованного диапазона
 
Цитата
Sceptic написал:
"Включить новые элементы в фильтр"
Спасибо большое, я вообще как-то про этот параметр забыл. То что нужно.
Выпадающий список - исключить определенные элементы из именованного диапазона
 
Sceptic, спасибо за развернутый ответ, так и предполагал.

Цитата
БМВ написал:
почему срау в сводной не убрать то что лишнее
дело в том, что таблица А периодически пополняется данными и если обновить сводную, ничего не изменится, и чтобы в списке появлись новые данные, необходимо залезать в фильтр и там их выбирать.
Ладно, шаверму можно убрать руками, а что делать с "пусто/blank"? Меня этот вопрос больше всего волнует.

В VBA это конечно можно, хотелось бы стандартными способами.

p.s. что-то у меня ваша формула вызывает ошибку при вставке.
Выпадающий список - исключить определенные элементы из именованного диапазона
 
Jack Famous, благодарю, но мне хотелось бы обойтись без доп. таблиц, напрямую из именованного диапазона, если это возможно.
VBA: DataObject - некорректное отображение символов при вставке из буфера обмена
 
Цитата
Столбенко Владислав написал:
А причем кодировка и некорректное отображение
Потому что у вас проблема как раз в отображении кодировки. Если нет, то проверьте локально что передается свойству MyDataObj.SetText из ActiveCell.Value.
Цитата
Столбенко Владислав написал:
если на любою входную  строку- числовую или символьную,  любой длинны из буфера возвращает два символа "?"  с кодом 63  ?
Этого указано не было.

Как себя поведет этот кусок кода?
Код
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
     .SetText ActiveCell.Text
     .PutInClipboard
End With
Выпадающий список - исключить определенные элементы из именованного диапазона
 
Добрый день, коллеги!

Ни разу не формулист, гугл плохо помогает - мне необходима подсказка в решении формирования выпадающего списка из сводной на отдельном листе, где присутствуют нежелательные элементы как "(пусто)" или "(blank)", так и "шаверма" в списке фруктов. Их то и надо отсечь.
Список формирую с помощью диспетчера имен на динамическом диапазоне сводной(чтобы в будущем автоматически расширять список).

Файлик с примером прикладываю.

p.s. "(пусто)" или "(blank)" не заменяются пробелом в параметрах сводной.
VBA: DataObject - некорректное отображение символов при вставке из буфера обмена
 
Если в редакторе кода попробовать написать на кириллице, будет нормально отображаться или в виде белиберды?
VBA: DataObject - некорректное отображение символов при вставке из буфера обмена
 
Цитата
Столбенко Владислав написал:
Ранее этот код работал. Почему перестали ехать лыжи ?
ОС сменилась? Просто так ничего не перестает работать, произошли какие-то изменения.
Во время выполнения макроса возникает окно "Свойства канала передачи данных", Свойства канала передачи данных открытие книги
 
Ігор Гончаренко, мы договорились с ТСом в понедельник посмотреть(т.е. сегодня), как он будет на рабочем месте(где глючит файл).
Но, поскольку код ваш, может все таки вы посмотрите и разберетесь с проблемой? Вам ваш код более понятен и быстрее разберетесь.
Я нисколько не против.
Сохранить в отдельный PDF файл часть листа, которая не сгруппирована
 
ramin911, здравствуйте

Вот вам кусок кода, который сохраняет в выбранную папку:
Код
Private Sub SaveToPDF()
    With ActiveSheet.Range("A1:I17")
        If Not Application.GetSaveAsFilename(ActiveSheet.Name, "PDF (*.pdf), *.pdf") Then
            .ExportAsFixedFormat Type:=xlTypePDF, Filename:=(SAF), Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
            'CreateObject("Shell.Application").Explore (Left(SAF, InStrRev(SAF, "\"))) 'раскомментировать строку, если необходимо открывать указанную папку после сохранения
        End If
    End With
End Sub
Что касается части, которая не сгруппирована - было бы неплохо уточнить, это строки с 1 по 17 или те, которые в конце располагаются?
Во время выполнения макроса возникает окно "Свойства канала передачи данных", Свойства канала передачи данных открытие книги
 
ivan1388, здравствуйте, напишите мне на почту(в профиле), попробуем разобраться в вашей проблеме.
Варианты написания запросов к БД через VBA, sql и vba
 
Luc, а так сработает?
Код
EXEC [adm].[dbo].[mp_g_p_moo_mono_i] 'ALL'
Что-то мне подсказывает, что это процедура которой передаются параметры.
Извлечение ссылок со страницы
 
Цитата
Lex396 написал:
с 7 строчки соответствий не находит, хотя если смотреть в ручную код такой же
Как вы смотрите код? Вот именно по ссылке с 7 строки нет таких данных по шаблону.
Извлечение ссылок со страницы
 
Lex396, добрый день.
Из html кода я вижу одинарные кавычки, в шаблоне двойные - уточните этот момент.
Извлечение ссылок на картинки, Извлечь со страницы все ссылки на саму картинку из определенного контейнера html
 
Lex396, упростим, избавимся от коллекций(я там немного не то написал) и будем использовать массив для ссылок.

Поправим метод, ссылки будут добавляться в новых столбцах
Код
        With CreateObject("msxml2.xmlhttp")
            .Open "GET", URL, True
            .send
            Do: DoEvents: Loop Until .readyState = 4
            t = .responseText
            arr = dann(t)
            If Not IsEmpty(arr) Then
                For j = 0 To UBound(arr)
                    Cells(i, 7 + j) = "http:" & arr(j)
                Next
            Else
                Cells(i, 7) = "нет картинки"
            End If
        End With
Функция
Код
    With CreateObject("VBScript.RegExp")
        .IgnoreCase = True
        .Global = True
        .MultiLine = True
        .Pattern = "data-fancybox-group=(.*?) href=""(.*?)"""
        If .Test(t) Then
            Set Matches = .Execute(t)
            ReDim arr(Matches.Count - 1)
            For i = 0 To Matches.Count - 1
                arr(i) = Matches(i).SubMatches(1)
            Next
            dann = arr
            Set Matches = Nothing
        End If
    End With
Извлечение ссылок на картинки, Извлечь со страницы все ссылки на саму картинку из определенного контейнера html
 
Lex396, добрый день!

Что-то вроде этого?
Возвращаете функцией коллекцию со ссылками и далее работаете с листом.
Код
     Set REGEXP = CreateObject("VBScript.RegExp")
     REGEXP.IgnoreCase = True
     REGEXP.Global = True
     REGEXP.MultiLine = True
     REGEXP.Pattern = "data-fancybox-group=(.*?) href=""(.*?)"""
     If REGEXP.Test(t) Then
        Set Matches = REGEXP.Execute(t)
        Set List = CreateObject("Scripting.Dictionary")
        For Each m In Matches
            List.Add m.SubMatches(1), Nothing
        Next
     End If
Power Query: Импорт таблицу в из Интернета
 
azma, добрый день!

Воспользуйтесь вот такой ссылкой. Правда сайт периодически вываливается в 504 ошибку.
Как сделать так, чтобы кнопка на втором листе добавляла строку в таблицу второго листа?
 
Алексей Галимов, здравствуйте.
Замените все Sheets(1) на ActiveSheet
Защита книги от распространения
 
Vitasik, добрый день!

Цитата
Vitasik написал:
или нужно его еще самому придумать и реализовать?  
Самому. Если необходима защита от  просмотра части важного кода, эта часть переносится на, как правильно подметил БМВ, на серверную часть и пишется в библиотеку (Web API).
Далее запросами из книги получаем с web api уже рассчитанные данные и вставляем в код. В плане проверок идентификации тоже можно сделать с помощью запросов.

Из минусов все же остаются варианты:
- Более опытные посмотрят проверку идентификации и сделают обход, но не смогут посмотреть необходимый функционал(т.к. он лежит в серверной части).
- Требуется связь с серверной частью - интернет или сетевое окружение.

Но это все не панацея, поскольку за серверной частью еще необходимо следить и периодически добавлять\менять функционал, улучшать защиту - ресурсов требуется больше.

Есть вариант, писать библиотеку(DLL) с функциями на языке C++, внедрять защиту. Почитайте на форуме темы от bedvit
Куплю макрос "Найти и заменить"
 
Добрый!

Цитата
Vel89 написал:
Ломать защиту нельзя.
Но, защиту ведь в любом случае придется снимать, если мы хотим что-то изменить на листе. Как быть?
Либо снять защиту только с тех ячеек, где надо делать замену.
Как отправить http запрос через VBA Excel и ждать получение ответа
 
Цитата
bkolubenka написал:
Как отправить http запрос через VBA Excel
А что мы будем отправлять? Я так понимаю, нужен POST запрос?
Цитата
bkolubenka написал:
Время выполнение 10-15 минут
Это время выполнения каких-то задач на сервере? Не очень-то удачная идея, имеется ряд ограничений по timeout(могу ошибаться).
Макрос для парсинга географических адресов
 
Цитата
Oleg Boyaroff написал:
Профи выдают:119071,  г. Москва, Ленинский пр-кт, дом 5
Какие профи и зачем мне проспект? :)
Адрес по ссылкам вписан мной от балды, по факту же у ТСа будет более точнее(проспект, не проспект и т.д.).
Моя задача в этой теме предоставить возможное решение, что я и сделал в виде подсказки. Если у вас есть готовые варианты  - пожалуйста, заберу тоже в копилку.
Макрос для парсинга географических адресов
 
Цитата
Андрей VG написал:
Вам осталось бесплатно предложить макрос для получения и парсинга xml ответа Яндекс
Нет :)
Ответ был дан в #8, файлы в сети есть. Даю подсказку - GeoYandex, v.2.xlsb
Макрос для парсинга географических адресов
 
Цитата
БМВ написал:
Останется только оплатить пописку на сервис
На яндексе 25к запросов в сутки бесплатно, пару-тройку дней на запросы.
Получаем ответ в таком виде или в формате json.
Макрос для парсинга географических адресов
 
Цитата
borro написал:
адреса просто непредсказуемы бывают, что-то есть, чего-то нет. То через запятую, то через пробел...
есть решение через API сервиса geo yandex(гуглите по названию) - отправляется непредсказуемый адрес, в ответ приходит стандартизированный адрес, где разделители только запятые. Дальше думать как разбивать.
Результат можно посмотреть на скриншоте.
p.s. хотя, от гео сервисов яндекса и гугла имеются xml\json ответы, где указаны города, регионы, пункты, улицы.
Запрет вставки из буфера обмена (Excel, Windows) в определенную область
 
hr.al, добрый!

Как я вижу вариант решения:
1. Делаем проверку на изменение ячеек в столбце H
2. Читаем буфер обмена(код на форуме есть) и сравниваем с данными в ячейке
3. Если равно, то чистим ячейку вместе с форматированием
4. Выдаем сообщение

Как вариант, применить
Код
Application.OnKey "^{v}", ""
Текст из ячейки разделить по столбцам с удалением лишней информаци
 
Цитата
Dyroff написал:
split по ":" зацепит и его
весь текст не изучал, у меня двоеточие с пробелом
Поиск непустых ячеек из столбца с учетом условия, Поиск непустых ячеек из столбца
 
vicm, добрый!
Если я правильно понял условие, то макросом просто:
Код
    arr = [a2:b11]
    For i = 1 To UBound(arr)
        If Not IsEmpty(arr(i, 2)) Then
            Cells(Cells(Rows.Count, 7).End(xlUp).Row + 1, 7) = arr(i, 1)
        End If
    Next
Или вам нужна формула?
[ Закрыто] Вставить в первую строку всех листов нужные названое всех групп 
 
Цитата
Юрий М написал:
Из этого следует: аркуш - это лист
Действительно, переводчик определяет как украинский язык.
И да, 3к листов пугает.

Тогда только пример файл поможет разобраться, поскольку
Цитата
_rudaya написал:
в первую строку добавлять описание каждой строки
неясно как и откуда формируется
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 25 След.
Наверх