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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 727 След.
Ежемесячное автоматическое обновление ячейки
 
Можно такой простецкий алгоритм при открытии файла использовать (решение тупо в лоб без изысков, но на 100 лет! Можно легко переделать на 1000 :) ):
Код
Sub tt()
    Dim x&, y&, i&, t$
    i = 11
    t = Year(Now) & "|" & Month(Now)
    For x = 2019 To 2119
        For y = 1 To 12
            i = i + 1
            If t = x & "|" & y Then MsgBox "Сегодня ставим № " & i: Exit Sub
        Next
    Next
End Sub
Изменено: Hugo - 13 Ноя 2019 23:05:50
ДД Как прибавить число во втором актете
 
Про октет я знаю, спасибо :)
Сохранение книги с новым именем взятым из названия листов книги.
 
Цитата
LAV75 написал:
Знать бы еще как его применить)
- https://excelvba.ru/code/Replace_symbols
ДД Как прибавить число во втором актете
 
ДД - динамический диапазон :)
А вот что такое актет? Гугл не знает...
Сохранение книги с новым именем взятым из названия листов книги.
 
Не забывайте проверять NewName на допустимые для имени файла символы!
ДД Как прибавить число во втором актете
 
1. Текст по столбцам.
2. Одному столбцу добавляем 100, любым способом.
3. Собираем назад любым способом.

Альтернатива - например одна такая UDF
Код
Function Ans(s As String)
Dim a
a = Split(s, ".")
a(1) = a(1) + 100
Ans = Join(a, ".")
End Function
Изменено: Hugo - 12 Ноя 2019 09:06:54
Удаление дубликатов строк по двум значениям в двух столбцах
 
Можно в любом свободном столбце строки например с помощью UDF получить отсортированную сцепку значений этих двух ячеек, и затем уже удалять дубли используя этот столбец.
Из другой таблицы к списку добавить количество при совпадении кода
 
Файл посмотрел - ну так и есть, одного формата мало. А вообще рекомендую в настройках включить отображение ошибок.
P.S. Кстати вот такая ФОРМУЛА МАССИВА справляется с пересортицей форматов:
Код
=VLOOKUP(TRIM(A2);TRIM($D$2:$E$49);2;0)
Изменено: Hugo - 11 Ноя 2019 17:08:45
Из другой таблицы к списку добавить количество при совпадении кода
 
Цитата
vins написал:
Формат ячеек везде : numbers
- это ещё не является гарантией того  что в ячейках числа.
Изменено: Hugo - 11 Ноя 2019 16:28:31
VBA Сбор данных из разных файлов на один лист, Копирование информации из нескольких файлов на один лист
 
Этот компонент есть на 99% компьютеров (с Windows!), так что если будете передавать работающий файл (а не только голый код), то всё заработает.
Изменено: Hugo - 10 Ноя 2019 11:23:03
VBA Сбор данных из разных файлов на один лист, Копирование информации из нескольких файлов на один лист
 
Или как было задумано автором - подключить компонент, см. http://prntscr.com/puqx3j
Объединение данных с удалением дублей с помощью макроса
 
Вообще у Application.Transpose есть какие-то ограничения на количество переворачиваемых строк, но думаю 10000 последние версии тянут.
Да и то, о чём я писал выше - пока никто достоверно не наблюдал. Но если вдруг эти ошибки встретятся Вам - то я предупредил :)
И как обойти  - написал, но может и тут кто код чуть дошлифует.
Изменено: Hugo - 9 Ноя 2019 17:24:52
Объединение данных с удалением дублей с помощью макроса
 
Если данных много - то код Кузмича в строках 11 и 12 теоретически может накосячить, т.к. производитель не гарантирует соответствие этих пар по позиции в словаре, надёжнее потрудиться и наполнить циклом двумерный массив, извлекая для каждого ключа его значение/итем.
Объединение данных с удалением дублей с помощью макроса
 
Ну или скопировать на новый лист номера, удалить дубли, затем применить UDF из копилки и стандартную суммесли
В примере слева таблица с формулами, справа изначальный пример (кода в файле нет, берите в копилке https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=2&TID=10&TITLE_SEO=10 )
Изменено: Hugo - 9 Ноя 2019 16:52:48
Удалить повторяющиеся строки сотрудников, просуммировав их начисления
 
Здравствуйте.
Сводная чтоль нужна?
Подсчитать количество уникальных значений в диапазоне.
 
Цитата
БМВ написал:
Но макросы должны быть включены.
- не обязательно, если код в надстройке.
Не открывается Excel фаил - cant find library
 
Forms кажется у всех есть.
А вот что за UNSAVED?  Может эти надстройки (или что там в фоне) глючат?
Не открывается Excel фаил - cant find library
 
Когда файл открыт - посмотрите в редакторе VBA в меню Tools->References нет ли (вернее какие именно есть) лишние ссылки на компоненты, которых нет на машине и которые не нужны для файла.
Изменено: Hugo - 8 Ноя 2019 16:43:51
Отобразить две суммы в одной ячейке
 
Цитата
sergius1985 написал:
куда этот код теперь вставить и потестить
Приёмы сайта
Начало для общего развития, про UDF в самом конце.
Изменено: Hugo - 8 Ноя 2019 14:47:28
Отобразить две суммы в одной ячейке
 
Например UDF:
Код
Function SumSpec(r As Range)
Dim el, ar, s1 As Double, s2 As Double
    For Each el In r.Cells
        ar = Split(el)
        s1 = s1 + ar(0)
        s2 = s2 + ar(1)
    Next
SumSpec = s1 & " " & s2
End Function

Кстати, интересный эффект - у меня разделители слагаемых не имеют значения:

125,11 36.58
10.1 20,58
135.21 57.16
Изменено: Hugo - 8 Ноя 2019 13:48:49
Отобразить две суммы в одной ячейке
 
С помощью функции пользователя можно сделать что угодно, но я пока только догадываюсь как это всё можно сделать, но ничего наглядного пока не вижу.
Если не знаете как это показать в экселе - ну хоть нарисуйте на бумаге и сфотографируйте чтоль...
А вообще если строк всего 12 (считать собрались только один год), то думаю чуть потрудившись можно прописать нужное суммирование руками.
Изменено: Hugo - 8 Ноя 2019 13:37:37
Подстановка данных макросом с закрытого файла
 
И чего ThisWorkbook.Sheets("Лист1") Match-то? Оно так не работает, о чём и пишет.
А вот
Код
MyRow = Application.Match(ThisWorkbook.Sheets("Лист1").Cells(i, 1), wb.Worksheets("Лист1").Range("A:A"), 0)

вполне работает. Тщательнее нужно, у Экселя с ИИ пока слабовато...
P.S. А открытую книгу в конце обычно закрывают. Но может конечно у Вас какие другие на неё виды...
Изменено: Hugo - 7 Ноя 2019 20:26:15
Редактирование файла csv
 
Ради интереса глянул что скажет Qlik Sense (дома есть пока ещё бесплатная desktop версия) - без проблем тоже распознал 10183 строки, включая заголовок.
Предложил строить сводные, диаграммы, геоаналитику...
http://prntscr.com/psdd0l
http://prntscr.com/psdm3p
http://prntscr.com/psdmsr
в отдельную строку данные из ячейки содержащей несколько данных, В ячейке содержится несколько данных - нужно выделить и перенести только номера телефона
 
Как вариант для большинства случаев:
Код
Function №Телефона(Txt As String) As String
    Dim el
    №Телефона = ""
    For Each el In Split(Application.Trim(Txt))
        If Len(el) <> 16 Then
            If Len(el) > 7 Then
                №Телефона = el: Exit Function
            End If
        End If
    Next
End Function
в отдельную строку данные из ячейки содержащей несколько данных, В ячейке содержится несколько данных - нужно выделить и перенести только номера телефона
 
Вот вот...
Не особо сложно ведь сделать пример строк на десять с выдуманными номерами карт - чтоб не казалось что реальные - начинайте не на 4, 5 и 6 (+ я не в курсе с чего там в России МИР начинает, тоже нужно учесть), можно взять те же реальные и поменять пару первых цифр и тройку в середине, ну и телефоны тоже в середине цифры изменить.
А чтоб получить тот же текстовый формат как было - можно всё это заготовить в блокноте, и затем копипастом поместить в эксель.
в отдельную строку данные из ячейки содержащей несколько данных, В ячейке содержится несколько данных - нужно выделить и перенести только номера телефона
 
Класс - номер карты с номером телефона, по которому вероятно не особо трудно пробить имя на карте. Осталось только узнать CVV код, и максимум с 48-й попытки угадать срок годности карты...
Вы вообще понимает что творите?
Обращение в макросе к закрытой книге
 
Точно так же как Вы прописываете формулу в ячейку А2, Вы берёте  и данные по последней заполненной ячейке столбца. И кстати количество строк тоже. Т.е. всё относительно либо активного листа, либо листа где прописан код.
VBA. Сцепить ячейки, если в соседнем столбце будут одинаковые данные
 
Код
=ЕСЛИ(B2=1;VLOOKUPCOUPLE($A$2:$C$16;1;A2;3;"");"")

а код UDF  в копилке:
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=2&TID=10&TITLE_SEO=10

Цитата
evgeniy2507 написал:
Можно и без него )
- тогда не применяйте ЕСЛИ():
Код
=VLOOKUPCOUPLE($A$2:$C$16;1;A2;3;"")
Изменено: Hugo - 3 Ноя 2019 13:35:16
Как выбрать созданную, но не сохраненную книгу excel
 
Как вариант - выполнить макрос в приложении этой книги, и при активной этой книге - и соответственно первым делом в коде запоминать в переменную активную книгу.
Найти строчки из массива
 
Цитата
eagl69 написал:
Перебор массива циклом и сравнение IF очень долго работает, т.к. при анализе каждой строчки надо перебирать 2 массива
- если делать макросом, то тут полезно использовать словарь (на Windows) - одним циклом по данным заполняете словарь, затем уже "сравнение IF" проводите по словарю, что очень быстро.
Файлы не смотрю, сейчас работа не позволяет...
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 727 След.
Наверх