Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 След.
Текст на кнопке динамически меняется в зависимости от положения активной ячейки
 
CommandButton1 - это имя кнопки (не то, что в ней написано, а имя объекта)
Нужно посмотреть это имя для кнопки "Прямоугольник 25" и подставить вместо CommandButton1.

Смотреть в режиме разработчика через свойства объекта.
Перенос из таблицы в таблицу, Перенос из таблицы в таблицу
 
Значения после "-" всегда имеют 4 символа?
Думаю, к названию темы у модераторов будут вопросы. Предлагаю "Уникальные значения из двух столбцов"
Текст на кнопке динамически меняется в зависимости от положения активной ячейки
 
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

CommandButton1.Caption = Target.Value
 
End Sub


Защиты от дурака (например выделение диапазона) самостоятельно нарисуйте
Количество определенных символов в ячейке.
 
Hyperion12, функция справляется со своей задачей

Код
=ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;"Y";""))
Удалить текст после последней цифры
 
Тимофеев, лучше тогда так. Не факт, что в числах только 2 разряда
Код
=ПСТР(A1;1;ПОИСК(ФИЛЬТР.XML("<j><i>"&ПОДСТАВИТЬ(A1;" ";"</i><i>")&"</i></j>";"//i[number()=.]");A1;1)+ДЛСТР(ФИЛЬТР.XML("<j><i>"&ПОДСТАВИТЬ(A1;" ";"</i><i>")&"</i></j>";"//i[number()=.]")))
Как отменить запрос на сохранение перед закрытием книги при выполнении макроса Workbook_BeforeClose
 
Семен Фадеев, можно явно присвоить книге свойство ThisWorkbook.Saved = True.
При этом файл не будет пересохраняться каждый раз (даже когда это не надо)
Автовстака знака равенства в формулах
 
, главное не писать ничего, кроме формул и чисел)
VBA. Вычисление факториала типа n!/m!(n-m)!
 
=Факториал(A2)/Факториал(A1)*Факториал(A2-A1)
Невозможно добавить/удалить строки в таблице, Ошибка при проведении действия
 
Создать новый файл, перенести туда значения из таблицы и пользоваться ей.
Или не вариант?
Как скрыть диаграмму вмести с группировкой строк, группировка строк вместе с диаграммой
 
Кирилл, что вы называете "стандартным способом"?
При группировке через Данные→Группировать диаграмма скрывается, если вы про сворачивание в сводной таблице, то там другой принцип.
Пароль, Пароль VBA
 
Chin_Chin, представьте, Вы приходите на форум по SQL с вопросом как указать поля в запросе. А там Over9000 тем с названиями Select, Проблема с Select, Ошибка в Select.
Как быстро Вы сможете найти нужную Вам информацию?

Облегчите поиск тем, кто зайдёт на форум после Вас. Предложите более конкретное название темы.
"После работы макроса устанавливается пароль на лист", например.

Да, пароль на листе INDEX
Изменено: Polkilo - 12.02.2020 09:13:06
Пароль, Пароль VBA
 
Chin_Chin, Пароль НЕ на листе listok, название темы предложите)
Найти и выделить в столобце Excel заданные повторяющиеся сочетания символов, Необходимо находить в ячейке заданные повторяющиеся комбинации, напримет -ЕТ- и т.п.
 
Aleksandr!,  =ЕСЛИ(ЕСЛИОШИБКА(ПОИСК("-ET-";A1);0);"ET";ЕСЛИ(ЕСЛИОШИБКА(ПОИСК("-N";A1);0);"N";"Нет"))
Пароль, Пароль VBA
 
Chin_Chin, думаю к названию темы возникнут вопросы
Изменено: Polkilo - 12.02.2020 08:41:44
Разделения (сплит) ячейки на столбцы с особыми условиями
 
Из +- адекватных вариантов могу предложить обрабатывать то, что есть автоматически, остальное разносить руками по справочнику, пока наполненность справочника не перекроет потребность.
Разделения (сплит) ячейки на столбцы с особыми условиями
 
YungSin, не могу посмотреть файлы. Автор обработки всегда один? В конце исполнителя всегда (PRS)?
Преобразование текста в дату
 
allex_121, Оберните формулу Насти в КОНМЕСЯЦА
КОНМЕСЯЦА не считает последний день
 
swordsmaster, 0,99 это 23:59:59, 1 это 24 часа
КОНМЕСЯЦА не считает последний день
 
Сергей, проще
Код
=СЧЁТЕСЛИМН($C$10:$C$2009;$D3;$B$10:$B$2009;">="&F$2;$B$10:$B$2009;"<"&КОНМЕСЯЦА(F$2;0)+1)
КОНМЕСЯЦА не считает последний день
 
swordsmaster, Что больше? 29.02.2020 00:00:00 или 29.02.2020 09:08:32?
Преобразование текста в дату
 
allex_121, Что вернёт формула =--AG23?
Преобразование текста в дату
 
Сергей, Благодарю.
Формулу поправил.

P.S. 2016/2019 открылся с датами
Изменено: Polkilo - 11.02.2020 08:20:58
Преобразование текста в дату
 
allex_121,
Код
=ДАТА(ГОД(--AG23);МЕСЯЦ(--AG23);1)
Изменено: Polkilo - 11.02.2020 11:58:35
Преобразование текста в дату
 
allex_121, Формат ячейки и тип данных это разные вещи.
"Откройте" ячейку для ввода и нажмите Enter.

Цитата
allex_121 написал:
ячейка автоматически становится текстом
Брюки превращаются...
Изменено: Polkilo - 11.02.2020 07:55:46
В формуле отметить пересход, если Факт больше Плана, применить функцию ВЫБОР
 
Код
=ВЫБОР((A4<=B4)+1;"Перерасход";"Ок")
Суммирование значений в ячейках с условным форматированием, Суммирование значений в ячейках с условным форматированием
 
Lelya7, тоже далёк от программирования, но в файле нет функции "ActiveCondition". На что Вам и указывает ошибка.
Создать таблицу с автоматическим заполнением столбца и привязкой к выпадающиму списку
 
Kok89, заполните руками как должно быть.

1. Какой инвентарь нужен для программы РБ6?
2. Нужно вывести весь столбец по программам?
Изменено: Polkilo - 07.02.2020 12:54:15
Преобразование семизначных чисел в текстовые маски
 
Цитата
Не слишком ли сурово? А если формат входа
Не спорю, но без примера пытаться угадать формат "семизначных "чисел"" лениво.
Было сказано про число. А тема про приведение номера к единому формату на форуме уже есть)

Последнее решение Вами и было предложено
Изменено: Polkilo - 07.02.2020 08:29:48
Преобразование семизначных чисел в текстовые маски
 
iQuote,
Код
Function NumToChar(MyRange As Range)
Dim i As Long, Iter As Long
Dim ya As Variant
Dim NewNum As String

Const MyDict As String = "ABCDEFG" 'Справочник символов

If MyRange.Count > 1 Then NumToChar = CVErr(xlErrRef): Exit Function
If Len(MyRange) = 0 Or Len(MyRange) > Len(MyDict) Or Not IsNumeric(MyRange) Then NumToChar = CVErr(xlErrValue): Exit Function

ReDim MyArray(1 To Len(MyRange))
Iter = 1
For i = 1 To Len(MyRange)
    ya = Application.Match(CInt(Mid(MyRange, i, 1)), MyArray, 0)
    If Not IsError(ya) Then
            NewNum = NewNum & Mid(MyDict, ya, 1)
        Else
            MyArray(Iter) = CInt(Mid(MyRange, i, 1))
            NewNum = NewNum & Mid(MyDict, Iter, 1)
            Iter = Iter + 1
    End If
Next

NumToChar = NewNum

End Function
Изменено: Polkilo - 06.02.2020 18:18:15 (Добавил проверку на число и диапазон)
Непонятные ошибки: меняется диапазон ссылки при вставке
 
arenatf,на первом скрине формула вставляется в столбец AJ, на втором в AL. Относительная ссылка корректно меняет адреса.
Если этого не требуется, то копируйте текст из окна формулы, а не ячейку целиком.
Страницы: 1 2 3 След.
Наверх