Код |
---|
Sub CommandButton1_Click() Dim Application_Calculation As XlCalculation: Application_Calculation = Application.Calculation: Application.Calculation = xlCalculationManual Dim col As Variant For Each col In Array(4, 6, 8, 9, 10) ColumnJob Columns(col) Next Application.Calculation = Application_Calculation End Sub Private Sub ColumnJob(col As Range) Set col = Intersect(col, col.Parent.UsedRange) If col.Cells.CountLarge = 1 Then Exit Sub Dim arr As Variant arr = col.Value Dim hasDate As Boolean Dim hasDecimal As Boolean Dim ya As Long For ya = 1 To UBound(arr, 1) If Not IsError(arr(ya, 1)) Then If arr(ya, 1) <> "" Then If IsDate(arr(ya, 1)) Then arr(ya, 1) = CDate(arr(ya, 1)) hasDate = True If arr(ya, 1) - CLng(arr(ya, 1)) <> 0 Then hasDecimal = True End If End If End If Next With col.Cells(2, 1).Resize(col.Rows.Count - 1) If hasDecimal Then .NumberFormat = "dd.mm.yyyy hh:mm" ElseIf hasDate Then .NumberFormat = "dd.mm.yyyy" End If End With If hasDate Then col.Value = arr col.EntireColumn.AutoFit End If End Sub |
VBA преобразовать строки в числа и выполнить в 1с, Хочу преобразовать по нужным Мне колонкам строки в дату
Подсчет уникальных значений с условием, Функция ЕПУТО+СЧЕТЕСЛИМН
VBA преобразовать строки в числа и выполнить в 1с, Хочу преобразовать по нужным Мне колонкам строки в дату
Подбор количества производимой продукции при ограничении материалов и времени с максимизацией выручки, Задание из вебинара по оптимизации (как я понимаю)
Предложение по послаблению правил при создании первых 3 тем
Подбор количества производимой продукции при ограничении материалов и времени с максимизацией выручки, Задание из вебинара по оптимизации (как я понимаю)
18.04.2024 15:47:42
Изменено: |
|||||||
|
Цвет ячейки по условиям двух других, условие для ячейки
Счет с двумя условиями
Цвет ячейки по условиям двух других, условие для ячейки
Убрать вывод единицы на основе пользовательской функции, Поправить код пользовательской функции
17.04.2024 16:43:22
|
|||
|
Изменение работы макроса относительно значения в определённой ячейке
17.04.2024 12:04:37
|
|||
|
"Сортировка от А до Я" не "работает", Точнее работает только по какому-то определенному количеству первых символов в ячейке
"Сортировка от А до Я" не "работает", Точнее работает только по какому-то определенному количеству первых символов в ячейке
17.04.2024 11:04:24
|
|||||
|
Планета Excel превращается в помойку
Excel VBA. Групповое переименование файлов, на листе Excel
16.04.2024 11:36:29
|
|||
|
"Сортировка от А до Я" не "работает", Точнее работает только по какому-то определенному количеству первых символов в ячейке
16.04.2024 11:18:28
Выделите диапазон, запустите макрос.
|
|||
|
"Сортировка от А до Я" не "работает", Точнее работает только по какому-то определенному количеству первых символов в ячейке
"Сортировка от А до Я" не "работает", Точнее работает только по какому-то определенному количеству первых символов в ячейке
Отбор по диапазону дат и количественных параметров, Перебор параметров по дате и количеству с помощью формул Excel
Отбор по диапазону дат и количественных параметров, Перебор параметров по дате и количеству с помощью формул Excel
Отбор по диапазону дат и количественных параметров, Перебор параметров по дате и количеству с помощью формул Excel
15.04.2024 09:40:02
- срок годности каждой партии должен быть не меньше чем 30 дней от текущий даты, если хотя бы одна партия в поставке не проходит по сроку, то не берется вся поствка
|
|||
|
Отбор по диапазону дат и количественных параметров, Перебор параметров по дате и количеству с помощью формул Excel
Отбор по диапазону дат и количественных параметров, Перебор параметров по дате и количеству с помощью формул Excel
Ввод числа с прибавлением
15.04.2024 09:26:09
|
|||
|
Поиск нескольких категорий в одном столбце с использованием функций EXCEL, Поиск в столбце нескольких значений
[ Закрыто] ChatGPT сделал мне макрос. Делюсь, может кому то пригодится ), Повторяет значения с заданным мне шагом.
Взаимодействие между двумя таблицами по средствам ВПР
Поиск значения в одном столбце по данным с другого столбца с копированием адреса ячейки
12.04.2024 12:36:45
|
|||||
|
Макрос на заполнения ячеек после определенного символа в предыдущей ячейке.
12.04.2024 12:19:50
|
|||
|
Перенос данных из одного столбца в строки при изменении данных, Разбивка данных из одного столбца на строки с учетом изменения данных в столбце