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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 75 След.
Объединение всех листов из файла на один
 
Цитата
ide написал:
а) Всплывающее окно выбора файла (тип эксель)
"Слона-то я и не приметил..."(©),  а лишь второй вопрос заметил :)  Но все равно не понятно почему макрос у ТС-а не сработал... Тайна...
Изменено: _Igor_61 - 29 Май 2020 20:24:49
Автоматическое заполнение ячейки статической датой
 
Цитата
Дмитрий Синчук написал:
Есть решение?
Есть. Макросом. Условно: Cells(2, 2).Value = Cells(2, 2).Value  - формулу меняем на значение.  ( Cells(2, 2) - это Range("B2"))
Вернуть корень слова и подставить к нему новое окончание
 
Здравствуйте, s.nastya,
Скорее всего только составлением таблицы - чтобы в одном столбце был полный список корней, в другом суффиксы, в третьем окончания и кроме этого программе нужно объяснить с какими окончаниями что делать .
Цитата
s.nastya написал:
Там где О, Ы, КА надо заменить на СКАЯ, а если ОЕ на АЯ
Есть на БАМе станция Тында. Как правильно - Тындская или Тындинская? Карачи, Ключи... И таких названий очень много. Значит и это нужно как-то учесть. Другой вопрос - насколько большой Ваш список :)
при сохранении - скрыть кнопки управления в новом файле
 
Цитата
Лена11 написала:
как все-таки сохранить без лишних вопросов
В начале макроса:  Application.DisplayAlerts=False
В конце:  Application.DisplayAlerts=True
Изменено: _Igor_61 - 28 Май 2020 18:34:21
Объединение всех листов из файла на один
 
В том примере:
Код
'копируем на итоговый лист шапку таблицы из первого листа
    wbCurrent.Worksheets(1).Range("A1:D1").Copy Destination:=wbReport.Worksheets(1).Range("A1")
В Вашем примере нет в шапке столбца "Месяц", но на листе "Декабрь" месяц записан в столбце "Комментарий". Можете там и записывать месяцы для фильтра, или добавьте на всех листах еще столбец "J" (Месяц) и в этот столбец при заполнении вписывайте название листа во все ячейки, тогда в макросе будет
Код
wbCurrent.Worksheets(1).Range("A1:J1").Copy Destination:=wbReport.Worksheets(1).Range("A1") 'шапка из "Исходный файл1.xlsx"
И по этому столбцу будете фильтровать.
Можно добавить в макрос чтобы название месяца автоматически записывалось  в таблицу по названию листа в исходном файле, но это уже другой вопрос, для него нужно будет создать отдельную тему.
Ошибка 1004 у Вас возникает вероятно потому что запускаете макрос при открытом файле "Исходный файл1".
Попробуйте запускать макрос либо при закрытом исходном файле либо добавьте в начало макроса
Код
Application.DisplayAlerts = False
и в конце
Код
Application.DisplayAlerts = True
Изменено: _Igor_61 - 27 Май 2020 07:19:06
Объединение всех листов из файла на один
 
Не знаю, у меня все работает
Объединение всех листов из файла на один
 
Не знаю как насчет эстетики... Если имеете ввиду форматирование ячеек и текста - то это отдельная тема. Файлы должны быть в одной папке.
Объединение всех листов из файла на один
 
Цитата
ide написал:
Все листы из выбранного файла схлопываются в один
Цитата
ide написал:
все листы будут сливаться на первый лист
Ну вот, наконец-то стало ясно для чего был создан Excel - для подтверждения теории создания Вселенной (от сингулярности до бесконечности - периодические расширения и схлопывания  :)
Цитата
ide написал:
Именно этот макрос я использовал
К сожалению, после изначального расширения (или схлопывания)  в #1  в xlsx человечеству суждено об этом макросе только догадываться...
ide, не сердитесь и не обижайтесь, иногда здесь любят пошутить, но гораздо чаще помогают. Обратие внимание на Правила форума и #3 в этой теме
P.S. Не видел приложенные файлы - не все сообщения было видно. И еще три темы сегодня сначала появились, потом исчезли, потом снова появились - наверное с сайтом какие-то неполадки..
Изменено: _Igor_61 - 26 Май 2020 20:17:42
Макросом не удаляются именованные диапазоны
 
Здесь было такое. И там же #13 дополнительно
Изменено: _Igor_61 - 26 Май 2020 12:04:10
Текстовый формат через текст по столбцам не ВПРится с текстовым форматом через формат ячейки
 
Если правильно понял задачу:
Код
Worksheets("образец 1").[b2].Copy
Worksheets("образец 1").[b2].PasteSpecial Paste:=xlPasteValues
Worksheets("образец 1").[b2].NumberFormat = "@"
Worksheets("образец 1").[b2] = Application.WorksheetFunction.Text([b2], "@")
Вставить картинку на страницу при 2-х галочках в чекбоксах
 
Цитата
Soul_ku написал:
все картинки под следующие чекбоксы разные, при этом может быть так что из 1-го столбца 2-й чек бокс, а из второго столбца 4-й
Много вариантов возможных комбинаций будет. Таблицу соответствий нужно делать - какому сочетанию чекбоксов соответствует выбранная картинка. И не исключено, что всем картинкам придется присвоить уникальные имена в диспетчере имен.
Изменено: _Igor_61 - 24 Май 2020 13:54:23
Вставить картинку на страницу при 2-х галочках в чекбоксах
 
Цитата
Soul_ku написал:
Весь смысл в том, что под каждую пару чекбоксов будет вставляться своя картинка.
Ну почему об этом сразу нельзя было сказать?
Цитата
Soul_ku написал:
главное условие чтобы было активно 2 чекбокса из разных строк. Например 1-й столбец 2-й чекбокс выбран и 4-й столбец 1-й чекбокс
Цитата
Soul_ku написал:
берем первый столбец, если выбран 1-й и 2-й чекбокс то вставляется картинка "смайл", если выбран 1-й и 3-й чекбокс, то вставляется картинка "молния" со второго листа, и так далее, 2-й и 3-й другая картинка
Объясните, пожалуйста подробней, каким комбинациям (конкретно по номерам чекбоксов или по строкам и столбцам) какие картинки соответствуют.
Макрос для замены цвета ячеек с кодом цвета "4" например на "3"
 
cliff99, здравствуйте!
ColorIndex и Color несколько разные вещи, почитайте в инете чем они отличаются. Вы сами себе ограничили помощь этим;
Цитата
замены цвета ячеек с кодом цвета "4" например на "3"
Вы уже два года на форуме, знаете же правила форума и что проблемный файл нужно прикладывать. У azma работает, не поленился создать файл, закрасить ячейки и проверить. Так трудно было приложить файл-пример?
В #5 первая строчка лишняя (ИМХО)
Изменено: _Igor_61 - 22 Май 2020 16:47:24
Найти наименование по частичному или полному совпадению для копирования
 
merytoy, здравствуйте. Похожее вчера было
Предлагаю название: "Найти наименование по частичному или полному совпадению и скопировать найденную строку в другую таблицу"
Изменено: _Igor_61 - 22 Май 2020 12:50:40
Определение количества при частичном совпадении номенклатур.
 
Не только с этим чудеса :) Я так и не понял что именно ТС хотел:
Цитата
gmb написал:
чтобы при поиске функция совмещала две таблицы не с точностью до знаков, а при совпадении с любым словом из строки
или
Цитата
gmb написал:
есть и другие значения, кроме ключевого
(которое из них ключевое осталось загадкой) или
Цитата
gmb написал:
первый совпадающий
тогда не нужна общая сумма... Но больше всего понравилось:
Цитата
gmb написал:
чтобы не просто любое слово совпадало, а наиболее подходящие было значение
Определение количества при частичном совпадении номенклатур.
 
Цитата
gmb написал:
наиболее подходящие было значение
А как определить какое наиболее подходящее? "Антифриз красный" или "Антифриз зеленый"? Не зря же я про гайки говорил в #17 :)  Самый надежный способ - выпадающие списки и тогда просто ВПР достаточно будет.
Изменено: _Igor_61 - 21 Май 2020 16:27:26
Определение количества при частичном совпадении номенклатур.
 
Цитата
gmb написал:
первый совпадающий
Ну так формула из #18 подходит или нет? Это я про гайки и болты
Определение количества при частичном совпадении номенклатур.
 
Ага, особенно гайки хорошо посчитает. 14 строка: "Болт и гайка..."   :D  
Определение количества при частичном совпадении номенклатур.
 
Цитата
gmb написал:
в ячейке "Банер 2" данное решение не срабатывает, потому что есть и другие значения, кроме ключевого
Код
=ЕСЛИОШИБКА(ВПР("*"&ЛЕВСИМВ(СЖПРОБЕЛЫ(E2);НАЙТИ(" ";E2)-1)&"*";$A$1:$C$42;3;0);ВПР("*"&E2&"*";$A$1:$C$42;3;0))
gmb, а если ключевым окажется не "Банер" а "2"?
И какой антифриз должен подтянуться формулой - красный или зеленый? Брусок 50х50 или 100х100? Количества-то разные... Вы точно знаете, чего хотите добиться в столбце "Е"?
Может такое название темы  подойдет: "Применение строковых функций для формирования (задания) первого аргумента в ВПР" ?
Изменено: _Igor_61 - 20 Май 2020 19:43:54
Задать значение пользовательской функции при несоблюдении условия
 
Попробовал, у меня работает. Без файла выдает "ffgg", с файлом сцепляет аргументы А и В.Никакого #ЗНАЧ не возникает. Win7 Excel 2007
При введении фамилии в книгу 1 подставлять данные из книги 2
 
Цитата
Tatyana2309 написал:
а если список фамилий будет вводиться не в первую колонку?  
Тогда в формуле вместо "А5" укажите ту, в которую будут вводиться фамилии - "B5" или "Е5", или какая еще она у Вас
Вывести одинаковые ФИО из двух таблиц
 
Еще вариант
На третьем листе получить список всех рабочих и суммарную зарплату
 
Цитата
KATKATZ написал:
получить общий список - пока не выходит
1.Копируете со всех листов фамилии и вставляете в столбик на лист "Итоги", одни ниже других
2.Выделяете весь заполненный фамилиями диапазон.
3.Вкладка "Данные" => "Удалить дубликаты.
Цитата
KATKATZ написал:
как сделать это формулой
В "В4" и протянуть вправо и вниз:
=ЕСЛИ(ЕОШИБКА(ВПР($A4;ДВССЫЛ(B$3&"!$A:$B");2;0));"";ВПР($A4;ДВССЫЛ(B$3&"!$A:$B");2;0)) - для Excel 2003
=ЕСЛИОШИБКА(ВПР($A4;ДВССЫЛ(B$3&"!$A:$B");2;0);"") - для 2007 и выше
По мере добавления листов вставляйте столбцы перед "ИТОГО" и протягивайте формулу.
Изменено: _Igor_61 - 19 Май 2020 08:43:04
Выборка значений из одного столбца по НЕ уникальному значению из второго
 
Цитата
memo написал:
Не знаю как добавить проверку, чтобы избавиться от тире в конце.
С помощью ЛЕВСИМВ и ДЛСТР
Изменено: _Igor_61 - 19 Май 2020 05:20:36
Помощь с написанием макроса
 
Написал в личку
Отправил файл с комментариями в коде
Оплачено
Изменено: _Igor_61 - 18 Май 2020 22:16:12
Макрос-счетчик одинаковых ссылок
 
Вариант:
Код
Sub Schetchik()
    Dim i&
For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row
 If Cells(i, 3).Value <> Cells(i - 1, 3).Value Then
    Cells(i, 4).Value = Cells(i - 1, 4).Value + 1
 End If
 If Cells(i, 3).Value = Cells(i - 1, 3).Value Then
    Cells(i, 4).Value = Cells(i - 1, 4).Value
 End If
 If Cells(i - 1, 4).Value = 4 And Cells(i, 3).Value <> Cells(i - 1, 3).Value Then
    Cells(i, 4).Value = 1
 End If
Next i
End Sub
Формула для подсчёта текущей серии в последовательности чисел
 
Здравствуйте! Покажите в файле как это все должно выглядеть (в каком виде и где находятся исходные данные и в каком виде и куда должен выводиться результат.
Заполнение одних ячеек в зависимости от суммы значений накопительным итогом в других (макрос), Макрос по заполнению ячеек
 
Цитата
bond_0790 написал:
есть ли возможность каким-то образом перебирать значения и определять их сумму
Есть. Но если
Цитата
bond_0790 написал:
массив у меня большой
перебор может занять от нескольких минут до нескольких лет :)
Поиск данных по части слова и подтягивание нескольких параметров данных
 
Формула:
=ЕСЛИОШИБКА(ВПР(J4;маты!A:D;2;0)&" "&ВПР(J4;маты!A:D;3;0)&"  ГОСТ "&ВПР(J4;маты!A:D;4;0);"")
Макрос для заполнения этой формулой  10 тысяч строк:
Код
Sub Формула()
    Range("C3:C10000").FormulaR1C1 = "=IFERROR(VLOOKUP(RC[7],маты!C[-2]:C[1],2,0)&"" ""&VLOOKUP(RC[7],маты!C[-2]:C[1],3,0)&""  ГОСТ ""&VLOOKUP(RC[7],маты!C[-2]:C[1],4,0),"""")"
End Sub
Копирование нужного количества строк в зависимости от количества заполненных ячеек в определенных столбцах
 
Тема: Копирование нужного количества строк в зависимости от количества заполненных ячеек в определенных столбцах
Проверяйте
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 75 След.
Наверх