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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 25 След.
Выпадающий список - исключить определенные элементы из именованного диапазона
 
Цитата
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 написал:
Ломать защиту нельзя.
Но, защиту ведь в любом случае придется снимать, если мы хотим что-то изменить на листе. Как быть?
Либо снять защиту только с тех ячеек, где надо делать замену.
Парсер сайта HH.ru, Спарсить вакансии на сайте hh.ru в определённых городах по определённым профессиям
 
Dunaich, здравствуйте!
Каков бюджет?
Как отправить 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 написал:
в первую строку добавлять описание каждой строки
неясно как и откуда формируется
[ Закрыто] Вставить в первую строку всех листов нужные названое всех групп 
 
_rudaya, добрый!
Вы меня извините, но я не понимаю(и уверен, большая часть аудитории форума тоже) что такое
Цитата
_rudaya написал:
Аркаш
Цитата
_rudaya написал:
Аркуш
И файл пример бы не помешал.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 25 След.
Наверх