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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 19 След.
Преобразование телефонной книги .xls в формат google CSV, преобразование телефонной книги, контакты, csv
 
#
20 Янв 2019 17:21:09
Привет!
Пишу в личку.
В работе.
Изменено: Inexsu - 20 Янв 2019 18:17:39
 
Перейти    
Написать макросы
 
#
18 Янв 2019 18:14:38
Привет!
Пишу в личку.
 
Перейти    
Исполнение всех формул перед сохранением?
 
#
12 Янв 2019 22:23:20
Цитата
xebtius написал:
на английском
Не уверен, но кириллицу, кое-где заменил, убрал :-)
 
Перейти    
Исполнение всех формул перед сохранением?
 
#
12 Янв 2019 22:05:13
Цитата
xebtius написал:
макросы отключены либо не доступны на этом листе
Другие надстройки работают?

опция «Доверять доступ к объектной модели проектов VBA» включена?
 
Перейти    
Исполнение всех формул перед сохранением?
 
#
12 Янв 2019 21:31:29
Привет!
Надстройка во вложении.
В активной книге во всех листах заменяет всё на значения и предлагает сохранить как ...
 
Перейти    
Форматирование части текста в ячейке
 
#
12 Янв 2019 21:15:17
«владел топором, как волк владеет зубами, одинаково легко выбирая ими блох из шерсти и перекусывая толстые кости»
 
Перейти    
Форматирование части текста в ячейке
 
#
12 Янв 2019 20:39:54
Привет!
Для Excel " Это — службишка, не служба" :-)
Скопировать лист,
в новом листе заменить всё на значения.
 Лист готов к раскраске!
 
Перейти    
Указание источника для сводной таблицы макросом
 
#
11 Янв 2019 23:20:24
Привет!

Скрытый текст
Изменено: Inexsu - 11 Янв 2019 23:37:42
 
Перейти    
Найти ошибку в макросе, При определенной условиях после закрытия формы, Excel вылетает
 
#
10 Янв 2019 20:03:38
Привет!
Пишу в личку.
Спасибо. До новых встреч!
Изменено: Inexsu - 10 Янв 2019 22:05:04
 
Перейти    
Анекдот дня, Постим сюда понравившиеся:)
 
#
9 Янв 2019 14:26:13
Цитата
StoTisteg написал:
ленивый
Ленивый? Ленивый бы похудел, чтобы не тратить силы, на избыточный вес. :-)
 
Перейти    
Анекдот дня, Постим сюда понравившиеся:)
 
#
8 Янв 2019 18:10:12
Привет!
Цитата
Мотя написала:
диетологу
Это очень хитрый диетолог. В регистратуре к нему записей много, а на самом деле ...
Изменено: Inexsu - 8 Янв 2019 18:10:50
 
Перейти    
разделить по определенным критериям текст
 
#
7 Янв 2019 15:25:51
Привет!
Сделал прототип для области, города, улицы.
Дом, квартира можно сделать по аналогии.
Изменено: Inexsu - 7 Янв 2019 15:26:10
 
Перейти    
Перенос данных из одного столбца в другой
 
#
6 Янв 2019 23:11:36
Привет, Казанский!
Цитата
Казанский написал:
На каждое действие своя процедура, все структурировано
Рефакторинг и ремонтопригодность кода.

Конечно Ваш код стремителен!! Но сложен :-(. Ещё недавно я тоже так хотел кодить :-). Мой код тоже ждёт улучшений.
Вот выкатит ТС уточнения, через пару недель и посмотрим чей код проще подстроить под новые требования :-)
dodge, сильно Вам нужна скорость в этой задаче?
 
Перейти    
Макрос для редактирования субтитров., Имеются исходные субтитры на русском языке в текстовом файле txt и перевод этого текста на другой язык. Необходимо заменить русские слова переводом.
 
#
6 Янв 2019 22:51:53
Привет!
Пишу в личку.
 
Перейти    
Перенос данных из одного столбца в другой
 
#
6 Янв 2019 12:35:08
Привет!
Во вложении.
 
Перейти    
Поиск столбца и пустой ячейки
 
#
5 Янв 2019 13:21:19
Привет!
Код
Public Sub REName_(Optional ByVal msg As Variant)
' Тестом НЕ покрыта

    Dim ws     As Worksheet:     Set ws = ActiveSheet

    Dim r      As Range
    Dim Cell_Empty As Range
    
    Dim str    As String:    str = "Пример8"

    Set r = ws.UsedRange.Find(str)

    If Not r Is Nothing Then

        Set r = ws.Columns(r.Column)

        Set Cell_Empty = r.SpecialCells(xlCellTypeBlanks).Cells(1, 1)

    End If

End Sub

Цитата
Чих-пых написал:
"Пример 8"
а в приложенном Вами файле Пример8
 
Перейти    
Как прописать в коде конкретные ключевые слова
 
#
5 Янв 2019 12:48:19
Привет!
добавил перед
Код
N = InStr(S, "текст" & (K + 1) & "-")
строку
Код
Debug.Print "текст" & (K + 1) & "-"
получил в Immediate
текст1-
текст2-

что не так?
 
Перейти    
Как прописать в коде конкретные ключевые слова
 
#
5 Янв 2019 12:23:29
Привет!
Пробовали заменить
Код
N = InStr(S, "текст" & (K + 1) & "-")
на
Код
N = InStr(S, "текст1-")
?
 
Перейти    
Обучение
 
#
5 Янв 2019 12:08:02
Привет!

VBA я кое-что умею и время есть. Пишу в личку.
На Power не претендую.
 
Перейти    
Преобразование типов
 
#
4 Янв 2019 22:13:35
Привет!
вместо
Код
    Dim P As Double
    P = X
    Select Case P
Хватит
Код
    Select Case X
То, что вернёт функция Вы можете преобразовывать как пожелаете. В сообщении 13 тип возвращаемого значения явно не указан, но мы то с Вами знаем, что неуказанный тип будет Variant.
Если, для наглядности в сообщении 13 заменить MsgBox на Debug.Print, то увидим, что будет возвращать Ваша функция:
P = -0,5   À = -1..0   type of A = String
P = 1   À = 2,5   type of A = Single
P = 5   À = 10   type of A = Double
P = 35   À = 60   type of A = Currency
P = 60   À = 160   type of A = Long
Скрытый текст
 
Перейти    
Копирование данных с нескольки книг на один лист по столбцам, копирование данных из нескольких файлов и вставка их на один лист один за одним
 
#
4 Янв 2019 21:37:20
Привет!

Вариант во вложении. Можете кнопку "Cтарт" копировать на новые листы этой книги и данные будут собираться лист, где нажата эта кнопка.

Для себя бы сделал чтобы собранные данные были похожи на обычную базу данных.
 
Перейти    
Три значения в заданном интервале для известного среднего
 
#
4 Янв 2019 20:51:03
Привет!
Пример во вложении
 
Перейти    
Многоуровневая группировка строк
 
#
2 Янв 2019 22:11:31
Привет!
Строки группировка авто универсальная. Под Ваш случай придётся допиливать.
 
Перейти    
Как найти верхнюю правую ячейку в обрамлённом рамкой диапазоне?
 
#
30 Дек 2018 20:54:19
Цитата
MrBrown написал:
Номер Яндекс-кошелька в Вашем профиле - действующий?
Да.
 
Перейти    
Как найти верхнюю правую ячейку в обрамлённом рамкой диапазоне?
 
#
30 Дек 2018 20:06:40
MrBrown,
Пожалуйста, отпишитесь на кроссе
 
Перейти    
Как найти верхнюю правую ячейку в обрамлённом рамкой диапазоне?
 
#
30 Дек 2018 19:38:11
Привет!
Во вложении.
 
Перейти    
Как найти верхнюю правую ячейку в обрамлённом рамкой диапазоне?
 
#
30 Дек 2018 11:57:13
Привет!
Цитата
MrBrown написал:
я специально выделил нужные (внешние) границы синим.
Ништяк! И где этот файл?
 
Перейти    
Как выбрать ноутбук?..
 
#
24 Дек 2018 08:59:00
Привет!

Ноутбук для тех кто долго без источника питания.

Для дома - моноблок. Полноценный компьютер с которым можно работать в трёх уровнях.
Экран - по самочувствию, память 8 гигов, диск SSD. О процах не парьтесь.

Мой парулетний опыт ЗОЖ = МОНОБЛОК!
 
Перейти    
Exel 2013 - макросы слетают и не восстанавливаются потом.
 
#
22 Дек 2018 11:37:08
https://excelvba.ru/code/Security ?
 
Перейти    
Слитие всех файлов в один с использованием макроса на каждом файле
 
#
22 Дек 2018 00:01:10
Ветхозаветная оптимизация. Может прокатит
 
Перейти    
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 19 След.
Наверх