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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 128 След.
Формула - Если сейчас позднее мая, то
 
arexcl, =ЕСЛИ(МЕСЯЦ(СЕГОДНЯ())>5;"позднее мая";"ОК")
P.S.: как я люблю наш форум — вопрос пустяковый, 3 ответа и все разные  :D

UPD: раз уж дополнили условие, то дальше по аналогии. Разберётесь
Изменено: Jack Famous - 15 Окт 2019 10:56:18
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Как с помощью VBA добавить в ячейку текст с сохранением существуещего форматирования текста внутри ячейки?
 
Дмитрий(The_Prist) Щербаков, благодарю  ;)
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Как с помощью VBA добавить в ячейку текст с сохранением существуещего форматирования текста внутри ячейки?
 
БМВ, это очень сильное колдунство)) что это, если вкратце?
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Проставить простой по названию группы
 
scp, пожалуйста  ;)
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Проставить простой по названию группы
 
Цитата
scp: только если выбрать ячейку столбца А и нажать ввод
в формуле стоит проверка, на столбец A - если там число, то выводится, если нет - не выводится. Отсюда следует, если этот критерий не надёжный, то измените на другой или вообще уберите эту проверку (символы после равно и до слова ИНДЕКС + убрать последнюю скобку)
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Случайное число с одним знаком после запятой
 
Цитата
APavlik: Наверняка же есть какое-то автоматизированное решение преобразования решения в значение
разумеется. Обычно для этого используются макросы. Прислушайтесь к модератору и создайте новую тему или поищите (даже в Приёмах есть), как преобразовать формулу в значение - обсуждалось кучу раз
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Случайное число с одним знаком после запятой
 
APavlik, здравствуйте!
Функция на то и функция, чтобы пересчитываться. Хотите зафиксировать - преобразуйте результат вычисления в значение
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Проставить простой по названию группы
 
vikttur, "Как подтянуть значение по условию"

scp, вроде простой ВПР (точнее ИНДЕКС+ПОИСКПОЗ в данном случае). Провеоьте, чтобы имя группы, по которой вы "тянете" значение простоя было в точности одинаковым в двух таблицах
Изменено: Jack Famous - 14 Окт 2019 16:20:56
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
формула в иксель, опять завсегдатаи резвятся )
 
Цитата
Hellmaster: зафиксирована формула иксель
зафиксируем и тут =ЕСЛИ(ТСу_нужно_решение_задачи;ТС_реагирует на замечания;решение_не_предоставляется)
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Как сделать отбор по нескольким критериям, Суммеслимн не подходит, так как надо сумму нескольких отборов
 
Цитата
Zasypich: понял, что мои задания не в тему
и отвечать совершенно незачем. Далеко пойдёте…
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
формула в иксель, опять завсегдатаи резвятся )
 
БМВ, картинка не отображается((
Hellmaster, а она кому-то была нужна разве?
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Извлечь текст из последних скобок и удалить непечатные символы
 
Настя_Nastya, ну вот вы и начинаете втягиваться  :D
Цитата
caspian1977: Извлечь текст из последних скобок и удалить непечатные символы
Цитата
caspian1977: Необходимо формулой извлечь текст в разные ячейки
задач нарезали нормально так - вот ответ на второй "комплект":
Делим слипшийся текст на части
Анализ текста регулярными выражениями (RegExp) в Excel
+ гуглите насчёт инструмента "Текст по столбцам"
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Проставить простой по названию группы
 
scp, здравствуйте. В файле нет листов из макроса, а то, что есть очень похоже, что решается ВПР или СУММЕСЛИ. Объясните лучше и сделайте пример "как есть" - "как надо"
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Непонятный серый квадрат на листе
 
fillnurka, здравствуйте! Проблема совсем не рядовая - без файла никак
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Изменения в дизайне основной ветки
 
Юрий М, vikttur, от вы, конечно, за словом в карман оба не полезете)))  :D
Safari iPhone + Crome Win7 x64 на ПК — полёт нормальный  ;)
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
формула в иксель, опять завсегдатаи резвятся )
 
БМВ, если вы думали, что мы забыли, что
Цитата
Юрий М: он — Виталий
, то нет))) а он рыбак?
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Изменения в дизайне основной ветки
 
Юрий М, порядок подтверждаю (пока только на афоне)
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Выделение цветом дубликатов на всех листах
 
nikas123, ну будет у вас куча красных ячеек - дальше что? Какой анализ или вывод?
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
формула в иксель, опять завсегдатаи резвятся )
 
Цитата
Юрий М: JeyCi
ну она в курилке обычно, а так да - забыл)) Лена - редко, Мотя - опять же в Курилке)
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Транспонирование данных макросом
 
Sebastiaan90, пожалуйста  ;)
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Последовательное выполнение макросов по последовательным листам
 
maldini89,
Попробуйте вот так
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Транспонирование данных макросом
 
Sebastiaan90, ссылку смотрели?
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Транспонирование данных макросом
 
Цитата
Sebastiaan90: решение просто транспонирует в одну строчку
решение просто транспонирует, а вам нужен РЕДИЗАЙНЕР — вот что значит некорректное описание. Файл открыл только сейчас и такой ленивый не я один…
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Транспонирование данных макросом
 
Sebastiaan90, вам нужно было транспонирование макросом - я показал и код и пример. Нужно что-то ещё — создавайте другую тему
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Вставить таблицу Access в массив вертикально
 
Цитата
Hellmaster: Функция Transpose не работает
здравствуйте!
Попробуйте её усовершенствованную версию - тут показал
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Последовательное выполнение макросов по последовательным листам
 
Цитата
maldini89: Работает как часики
ваши "часики" сильно надо починить  :D

1. В макрос отtolstak'а добавьте 5 строк
Код
Sub iterateMacroOnGivenSheets()
Dim AC&

Application.ScreenUpdating=False
AC = Application.Calculation
Application.Calculation=xlCalculationManual

    sheetsToProcess = Array("Лист1", "Лист2", "Лист3")
     
    For Each aSheet In sheetsToProcess
        ThisWorkbook.Sheets(aSheet).Activate
        clean
        filter
        format
    Next aSheet

Application.Calculation=AC
Application.ScreenUpdating=True
End Sub
2. В своих макросах избавьтесь от Select'ов: так например вместо
Код
    Selection.Delete Shift:=xlToLeft
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    Columns("G:G").Select
    Selection.Delete Shift:=xlToLeft
    Rows("2:2").Select
    Selection.Delete Shift:=xlUp
гораздо лучше писать
Код
   For Each x in array(1,2,7) ' номера столбцов A, B и G
      Columns(x).Delete
   Next x
Rows(2).Delete
но тут надо понимать, что после удаления столбца/строк всё сдвигается. Именно поэтому обычно удаляют с конца, если циклом или собирают в группу и одним махом.

Мануал по оптимизации кода
Изменено: Jack Famous - 11 Окт 2019 12:18:36
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Как обращаться к создаваемому листу, имя которому присваивается сцеплением текста?
 
Цитата
Griver: Как затем обращаться к этим листам в коде
как и сказал уже Ігор Гончаренко: wbO.Worksheets("7" & "." & wbI.Sheets("Вх").Cells(277, 1).Text)
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
формула в иксель, опять завсегдатаи резвятся )
 
Цитата
БМВ: и лайки и не кот и не ребенок
и не сексизм))
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Транспонирование данных макросом
 
Sebastiaan90, здравствуйте. Вот макрос отсюда
Код
Function TransposeArray(ByVal arr2x) As Variant()
Dim arr(), r&, c&
 
ReDim arr(1 To UBound(arr2x, 2), 1 To UBound(arr2x, 1))
 
    For c = 1 To UBound(arr2x, 2)
        For r = 1 To UBound(arr2x, 1)
            arr(c, r) = arr2x(r, c)
        Next r
    Next c
TransposeArray = arr
End Function

' пример вызова ()
'arr=TransposeArray(Range("A1:C100").Value2)                    ' получаем транспонированный массив из диапазона
'Cells(1,1).Resize(UBound(arr,1),UBound(arr,2)).Value2=arr  ' вставляем массив на лист
Изменено: Jack Famous - 11 Окт 2019 11:25:36
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Выделение цветом дубликатов на всех листах
 
nikas123, макрос
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 128 След.
Наверх