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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 167 След.
Удаления части текста из ячейки по нескольким условиям
 
dim284, здравствуйте!

Функции НАЙТИ() и ПОИСК() помогут найти позицию вхождения подстроки (части строки)
Функции ЛЕВСИМВ(), ПРАВСИМВ() и ПСТР() помогут взять слева, справа или с нужной позиции нужное количество символов из строки
Функция ДЛСТР() поможет определить длину строки

Комбинируйте - там всё очень просто
Изменено: Jack Famous - 25 сен 2020 14:11:16
Реквизиты для благодарности и контакты для связи — в профиле
Сортировка с помощью Power Shell, VBA. Sort by Power Shell
 
Доброго времени суток, Планетяне!

Андрей Лящук в этом сообщении показал пример сортировки через Power Shell, но я не могу никак разобраться с синтаксисом, поэтому сформулирую ряд вопросов:

  • как отсортировать одномерный массив от нуля (числа/текст/числа, текст, даты и т.д.)?
  • как отсортировать двумерный массив или 2 одномерных массива (значения  и индексы) параллельно, чтобы по индексам потом отсортировать двумерный массив?
  • как (и можно ли) подключить Power Shell через раннее связывание

Матчасть
Реквизиты для благодарности и контакты для связи — в профиле
выбрать лучший результат тестируемого
 
Kedr Iohan, здравствуйте!
Приёмы + АГРЕГАТ() в комментариях
Реквизиты для благодарности и контакты для связи — в профиле
Текст из фрагментов "время;значение", Посчитать количество значений в промежутоки времени
 
OFF
Давно замечено, что девушкам у нас помогают охотнее  :D
Реквизиты для благодарности и контакты для связи — в профиле
Дополнить макрос преобразования из кириллицы в латиницу
 
Shquall, здравствуйте!
Цитата
Shquall: казахские символы с ними тоже была проблема, в коде они определяются как знаки вопросов
просто используйте функции Chr() и/или ChrW(), которые возвращают символ по его числовому индексу
Реквизиты для благодарности и контакты для связи — в профиле
"Метод PasteSpecial из класса Range завершен неверно" при переносе на другую машину, Нестабильный сбой макроса при переносе на другую ПЭВМ
 
Николай Б, вы сначала попробуйте, а потом уже выводы делайте
Реквизиты для благодарности и контакты для связи — в профиле
Включение и выключение итоговой строки в умных таблицах
 
Framed, в названии темы ни слова про тормоза, а выглядит так, как будто вы не знаете как включить/отключить строку итогов умной таблицы
Реквизиты для благодарности и контакты для связи — в профиле
Как определить версию Excel, которой был сохранен файл
 
Цитата
sokol92: где этот макрос
в личной надстройке с доступом из любой открытой книги))
я бы себе сохранил такой
Реквизиты для благодарности и контакты для связи — в профиле
Запрет сохранения книги при наличии связей
 
Vladimir69, здравствуйте!
Изучайте Workbook.LinkSources и 2 параметра (1 и 2) к ней

Например, проверить наличие связей в активной книге книге можно вот таким кодом:
Код
Sub t ()
Dim x1,x2

x1=ActiveWorkbook.LinkSources(1)
x1=ActiveWorkbook.LinkSources(2)
If isarray(x1) or isarray(x2)then msgbox "Связи есть"
End Sub
ну а дальше остаётся повесить этот код на событие сохранения и закрытия книги

UPD
Цитата
Vladimir69: Решено. Запретом вставки
По вашему запрет вставки и запрет сохранения — одно и то же???
К тому же, я не увидел у вас проверки на наличие связей - просто запрет. Бред какой-то…
Изменено: Jack Famous - 24 сен 2020 09:48:46
Реквизиты для благодарности и контакты для связи — в профиле
Как определить версию Excel, которой был сохранен файл
 
sokol92, большое спасибо  :idea:
Реквизиты для благодарности и контакты для связи — в профиле
Матрица из заданного набора цифр с контролем уникальности по строкам
 
buchlotnik, ещё вариант без рандома  :D

UPD. Название темы: Матрица из заданного набора цифр с контролем уникальности по строкам
Изменено: Jack Famous - 22 сен 2020 14:51:28
Реквизиты для благодарности и контакты для связи — в профиле
Перевод на русский язык терминов, используемых в описании работы динамических массивов
 
s_bag, для контекстного поиска я использую Reverso Context — мне хватает с головой. Качество перевода при таком подходе намного выше, чем при использовании простых словарей
Реквизиты для благодарности и контакты для связи — в профиле
Матрица из заданного набора цифр с контролем уникальности по строкам
 
Maximus2134, здравствуйте!
То есть и вот так устроит?
Реквизиты для благодарности и контакты для связи — в профиле
как значение переменной внедрить в текст?
 
Цитата
Jenya1980: "Как переменную внедрить в формулу" лучше тему назвать
и ответят вам: сошлитесь на ячейку - это и есть переменная для формулы. Меняете значение в ячейке, меняется результат формулы
Изменено: Jack Famous - 17 сен 2020 09:40:25
Реквизиты для благодарности и контакты для связи — в профиле
Обновление 12.09
 
Счётчик вернулся наконец-то)
Реквизиты для благодарности и контакты для связи — в профиле
Сделать Суперскрытые листы по заданным именам листов
 
Maxim, здравствуйте!
Код
For Each x in Array("Лист1", "Лист2")
   ActiveWorkbook.Worksheets(x). Visible = xlSheetVeryHidden
Next x
Реквизиты для благодарности и контакты для связи — в профиле
[ Закрыто] Увеличить скорость работы, Часть кода при большом кол-ве данных макрос выполняется бывало и по 48 часов
 
Григорий Тимофеев,
1. Избавьтесь от селектов. Ищите в приемах тему «что такое макрос»
2. изучите массивы и циклы - это поможет значительно сократить код

тема под снос
Реквизиты для благодарности и контакты для связи — в профиле
Создание сложной сводной таблицы из 500+ книг Excel
 
New, если не отпишется, пишите в ветку недобросовестных, хотя непорядочные телефон в качестве связи не выбирают, да и никнейм вполне реальный. Надо подождать
А вы на следующий раз подумайте, перед тем, как отправлять работу без оплаты…

P.S.: В васап сообщения не доставляются
Изменено: Jack Famous - 9 сен 2020 09:36:57
Реквизиты для благодарности и контакты для связи — в профиле
Ошибка при работе с буфером обмена " objClpb As New DataObject " из книги макросов работает, а из локального файла нет
 
john22255, получается, в вашей книге макросов нужная библиотека подключена (раннее связывание), а в файле нет — а вы обращаетесь к ней. Метод отHugo называется позднее связывание и не зависит от того, подключена библа или нет (создаёт на лету)
У обоих методов есть плюсы и минусы — имейте это ввиду
Реквизиты для благодарности и контакты для связи — в профиле
Записать в строку (перечислять) значения ячеек удовлетворяющие условиям., Перечислить в строке значения.
 
Фарит, а разве по ссылке нет решения на VBA?
Хотя у вас в теме ни слова об этом
Изменено: Jack Famous - 8 сен 2020 11:51:53
Реквизиты для благодарности и контакты для связи — в профиле
Записать в строку (перечислять) значения ячеек удовлетворяющие условиям., Перечислить в строке значения.
 
Фарит, здравствуйте
СцепитьЕсли
Реквизиты для благодарности и контакты для связи — в профиле
Создание сложной сводной таблицы из 500+ книг Excel
 
Михаил Лебедев, я отказался, т.к. делать тут очень много, допиливать потом, разбирая нюансы, ещё больше, а свободного времени у меня очень мало. Из-за всего этого, ценник получился высоким и я посоветовал вернуться в платную ветку.
Медведь не при делах вообще ))
Реквизиты для благодарности и контакты для связи — в профиле
Как подключить «навсегда» библиотеку Microsoft Scripting Runtime?
 
Бахтиёр, я бы делал ставку на макрос, а не шаблон — так надёжнее. Код у вас есть, а там уже решайте, как удобнее - по кнопке или событию. Я предпочитаю подключать ручками - это очень быстро, а в каждой книге мне ссылки не нужны
Реквизиты для благодарности и контакты для связи — в профиле
Быстрый поиск значения в большом количестве Excel файлов
 
xelario,
1. Получаем список полных путей до файлов
2. Открываем каждый файл
3. Перебираем листы
4. Диапазон каждого листа (рабочая область) забираем в массив
5. Перебираем массив, проверяя каждое значение по точному совпадению, маске или списку
6. Что подходит, собираем в массив для выгрузки с указанием полного пути до файла, листа, на котором нашли и адреса ячейки
7. Завершаем все циклы и выгружаем найденнное на лист с выводом сообщения о результатах

Могу сделать на платной основе. Контакты в профиле
Реквизиты для благодарности и контакты для связи — в профиле
Как узнать ключ словаря по значению без цикла?
 
Бахтиёр, для первого варианта:
1. Удалите строку 3 или строку 2 пишите без New
2. Как обратиться по индексу я уже писал, а вам чихать — MsgBox dic.Keys()(0)

Мы все тут уже давно не по теме беседуем, так что либо заканчивайте, либо предлагайте новое название для темы
Ответ на существующий вопрос: никак
Изменено: Jack Famous - 7 сен 2020 13:09:29
Реквизиты для благодарности и контакты для связи — в профиле
Как узнать ключ словаря по значению без цикла?
 
Hugo, Индекс не гарантирует положение - Дима уже сказал, я с этим не спорил
bedvit, когда нужно? Для сортировки ключей или элементов словаря, например
Не мгновенно? Получить 100 тыс ключей из словаря - 0 мс, до меня это мгновенно, а большее количество ключей начинает сильно грузить словарь

UPD: 0 мс - для целочисленных ключей от 1 до 100 тыс и 23 мс, если к этому числу прицепить строку 150 символов
Изменено: Jack Famous - 7 сен 2020 12:18:19
Реквизиты для благодарности и контакты для связи — в профиле
Как выделить часть текста в ячейке, vba
 
Михаил Л, чтобы закрасить букву «б» в ячейке, надо писать Start:= InStr(activecell.value2, "б")
Далее по аналогии
Реквизиты для благодарности и контакты для связи — в профиле
Как узнать ключ словаря по значению без цикла?
 
Hugo, я не отменял слов Димы))
Никто не мешает мгновенно получить из словаря одномерный массив всех ключей или элементов и работать с этим массивом в привычном режиме (с индексами и т.д.)
Изменено: Jack Famous - 7 сен 2020 10:20:25
Реквизиты для благодарности и контакты для связи — в профиле
Как узнать ключ словаря по значению без цикла?
 
Бахтиёр, здравствуйте
Не dic.Keys(3), как в массивах, а dic.Keys()(3)
Читайте матчасть — это лучшее, что есть по словарям
Реквизиты для благодарности и контакты для связи — в профиле
Остановка работы макроса при любой ошибке вмакросе
 
Максим Колесников, примерно, как New, но для ошибки в любом месте макроса:
  1. После Sub следующей строкой пишем On Error GoTo er
  2. Перед End Sub пишем 2строки
Код
Exit Sub
Er: MsgBox "Непредвиденная ошибка", vbCritical
End Sub

В таком случае по ошибке сразу прилетим на сообщение о ней и корректно выйдем
Реквизиты для благодарности и контакты для связи — в профиле
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 167 След.
Наверх