Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » GRIM
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 След.
Добавление следующей строки с необходимыми данными (макрос с кнопкой)
 
#
01.05.2022 20:49:37
Как вариант:
 
Перейти    
Автоматическая простановка флажка элемента ActiveX по определенному условию
 
#
25.04.2022 10:29:41
Так?
Изменено: GRIM - 25.04.2022 10:30:05
 
Перейти    
Отображение элементов, которые соответствуют условию, Отображение элементов, которые соответствуют условию
 
#
12.04.2022 14:17:20
Как вариант с доп. столбцом по принципу как тут:
https://www.planetaexcel.ru/techniques/1/9645/
 
Перейти    
Обмен значениями между двумя диапазонами через ячейку посредник
 
#
12.04.2022 12:44:09
Попробуйте задавать значения в диапазон T11:T21 из ячейки I16 вот так:
Код
Range("T" & MyCell.Row) = Range("I16")
 
Перейти    
Добавление и удаление строк в сводной таблице
 
#
29.03.2022 13:30:11
Как вариант.
 
Перейти    
Проверить наличие текста в таблицах, которые находятся на разных листах
 
#
09.11.2020 09:23:38
Как вариант пользовательской функцией:
Код
Function Найти_в_диапазонах(Диапазон_адресов As Range, Искомое As Variant)
Application.Volatile
arr = Диапазон_адресов.Rows.Count * Диапазон_адресов.Columns.Count
For i = 1 To arr
     For Each cell In Range(Диапазон_адресов(i))
        If cell = Искомое Then
        x = x + 1
        End If
    Next
Next
Найти_в_диапазонах = x
End Function
 
Перейти    
Не использовать в расчетах скрытую колонку
 
#
29.10.2020 11:50:18
ПРАВИЛА ФОРУМА
Как минимум файла-примера нету.
 
Перейти    
VBA нахождение суммы чисел в столбце между разграниченными строками, пользовательская функция, нахождение суммы чисел между строками, имеющими выделенные границы
 
#
28.10.2020 17:13:57
Тогда возможно так:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
If IsDate(Target) = True Then
    Range("A" & Target.Row & ":J" & Target.Row).Borders(xlEdgeTop).LineStyle = xlContinuous
    Range("A" & Target.Row & ":J" & Target.Row).Borders(xlEdgeTop).Weight = xlMedium
    For i = 2 To 9
        n = Cells(Rows.Count, i).End(xlUp).Row
        r = Cells(Target.Row, 1).End(xlUp).Row
        For ii = r To n
                x = x + Cells(ii, i)
        Next
        If x <> 0 Then
            Cells(ii - 1, i + 1) = x
            Cells(ii - 1, i + 1).Font.Color = -16776961
            i = i + 1
            x = 0
        Else
            Cells(ii - 1, i + 1) = ""
        End If
    Next
End If
End Sub
 
Перейти    
VBA нахождение суммы чисел в столбце между разграниченными строками, пользовательская функция, нахождение суммы чисел между строками, имеющими выделенные границы
 
#
28.10.2020 14:59:17
Возможно так:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
If IsDate(Target) = True Then
    Range("A" & Target.Row & ":J" & Target.Row).Borders(xlEdgeTop).LineStyle = xlContinuous
    Range("A" & Target.Row & ":J" & Target.Row).Borders(xlEdgeTop).Weight = xlMedium
End If
For i = 2 To 9
    n = Cells(Rows.Count, i).End(xlUp).Row
    For ii = Target.Row To n
            x = x + Cells(ii, i)
    Next
    Cells(ii - 1, i + 1) = x
    Cells(ii - 1, i + 1).Font.Color = -16776961
    i = i + 1
    x = 0
Next
End Sub
 
Перейти    
При удалении строк не увеличивается скрытая область
 
#
27.10.2020 07:48:59
Попробуйте так:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Range("A1:A11")
    If cell = "" Then
        cell.EntireRow.Hidden = True
    End If
Next
End Sub
 
Перейти    
Подстановка текста по условию
 
#
19.10.2020 09:03:35
Тему думаю можно назвать:
"Подстановка текста по условию"
 
Перейти    
Подстановка текста по условию
 
#
19.10.2020 08:23:56
При условии что все фрагменты перед которыми нужно вставить дату начинаются на "У", то можно так:
Код
=ПОДСТАВИТЬ(H5;"У";ТЕКСТ(F5;"ДД.ММ.ГГГГ")&"У")
 
Перейти    
Помогите сравнить две ячейки с помощью формулы (Какую правильно выбрать)
 
#
19.10.2020 07:45:32
Можно вот так ещё:
Код
=ЕСЛИ(ЕОШИБКА(ВПР("*"&F6&"*";J:J;1;0));"Нету";"Есть")

Приклейка символа "*" позволяет функции делать поиск по части текста.
 
Перейти    
Сохранить файл с названием из ячейки, Нужно присвоить имя сохраняемому файлу из ячейки с текстом.
 
#
19.10.2020 07:32:27
Код
Sub t()
    ActiveWorkbook.SaveAs Filename:=Cells(2, 2) & ".xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub
 
Перейти    
Помогите сравнить две ячейки с помощью формулы (Какую правильно выбрать)
 
#
19.10.2020 07:24:05
Код
=ВПР("*"&F6&"*";J:J;1;0)
 
Перейти    
Автоматическое заполнение текстом нескольких строк разной ширины.
 
#
15.10.2020 06:51:48
Не уверен что правильно понял, но возможно вот это Вам нужно при вставке текста в модуле листа:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Target.WrapText = True
Target.Rows.AutoFit
End Sub
т.е. изначально есть ячейка уже заданной ширины и при вставке в нее текста автоматом включится автоперенос и автоподгонка высоты строки.
 
Перейти    
Отсрочка оплаты через определенный срок
 
#
14.10.2020 08:25:04
Как вариант:
Код
=ЕСЛИОШИБКА(ЕСЛИ(И(ЕЧИСЛО(СМЕЩ(B4;0;-$A$8/30*3));ЕФОРМУЛА(СМЕЩ(B4;0;-$A$8/30*3))=ЛОЖЬ);СМЕЩ(B4;0;-$A$8/30*3);"");"")
 
Перейти    
Формирование ссылки на диапазон из значений других ячеек
 
#
13.10.2020 16:28:49
БМВ, ну я имел ввиду что вот здесь:
Цитата
Милана Ергалиева написал:
F2&!&C39
надо восклицательный знак в кавычки, чтобы как текст воспринимался:
...F2&"!"&C39...
А тему думаю можно назвать: "Формирование ссылки на диапазон из значений других ячеек"
 
Перейти    
Формирование ссылки на диапазон из значений других ячеек
 
#
13.10.2020 15:13:23
Цитата
Милана Ергалиева написал:
Я ввела  =ПОИСКПОЗ(B6;ДВССЫЛ(B2&F2&!&C39&":"&C39);0) но выдаёт ошибку
Есть подозрение что ошибка из-за того что вопросительный знак не в кавычках.
 
Перейти    
Выпадающий список combobox из списка по условию
 
#
29.09.2020 11:52:25
Nordheim, Классно) Гораздо лаконичнее.
 
Перейти    
Выпадающий список combobox из списка по условию
 
#
29.09.2020 08:54:46
Похоже?
 
Перейти    
Выставить столбцы друг под другом
 
#
28.09.2020 10:45:38
Ещё как вариант:
Код
Sub t()
x = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
x2 = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
y = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
For i = 2 To y
    ActiveSheet.Range("B1:B" & x).Copy
    Range("A" & x2).Select
    ActiveSheet.Paste
    ActiveSheet.Columns(2).Delete Shift:=xlToLeft
    x = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
    x2 = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Next
End Sub
 
Перейти    
Выпадающий список combobox из списка по условию
 
#
28.09.2020 06:04:07
Так?
 
Перейти    
Менять текст одной ячейки в зависимости от выбранного результата из списка
 
#
19.09.2020 09:11:18
Цитата
Macvaer написал:
не совсем то
Так Вы напишите конкретно что должно получится. На основании каких значений/таблиц должен вычисляться подставляемый результат и примером корректных значений.
Я ж не экстрасенс.
Просили замену текста, это происходит.
Тут думаю и тему можно скорректировать как-то так:"Подстановка вычисляемого значения в текст на основании выбранного значения из списка"
 
Перейти    
Менять текст одной ячейки в зависимости от выбранного результата из списка
 
#
17.09.2020 13:37:11
Как вариант:
Код
="до "&ЕСЛИ(G8="Вода";0;-ПСТР(G8;15;НАЙТИ("%";G8)-15))&" °С"
 
Перейти    
Как заменить слова местами во всех ячейках столбца?
 
#
25.03.2020 11:20:34
Если только индекс и Россию местами поменять, то можно вот так:
Код
=ЗАМЕНИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A2;",";"+";2);"+";", "&ЛЕВСИМВ(A2;7));1;8;"")
 
Перейти    
Сопоставление значений по нескольким символам с добавлением условий
 
#
25.03.2020 09:24:14
Может так:
Код
Sub t()
k = 1
x = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row
For i = 1 To x
    If Left(Cells(k, 1), 15) = Left(Cells(i, 5), 15) And Cells(i, 6) <> "" Then
        Cells(k, 2) = Cells(i, 5)
        Cells(k, 3) = Cells(i, 6)
        k = k + 1
    End If
Next
End Sub
 
Перейти    
Формула вставки текста в ячейку из другой ячейки при наличии условия
 
#
04.03.2020 18:04:05
Как по мне, то это чистой воды ВПР():
Код
=ВПР(C1;A:B;2;0)
Изменено: GRIM - 04.03.2020 18:05:49
 
Перейти    
Пользовательский формат ячейки, Пользовательский формат ячейки с текстом, числами, знаками и простой дробью
 
#
17.02.2020 06:35:57
Формат тут не поможет. Это всего лишь визуал в ячейке.
Физически у Вас в H2 число 1,5 и при сцепке это число становится текстом.
Вот этот текст и нужно преобразовывать.
Вот так к примеру:
Код
ТЕКСТ(H2;"# \ ??/??")
 
Перейти    
Вставить данные в последнюю ячейку в строке
 
#
17.02.2020 06:18:14
Вероятно так:
Код
Private Sub cb1_Click()
x = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(x, 3) = "готово"
ActiveSheet.Cells(x, 3).Interior.Color = 65535
End Sub
 
Перейти    
Страницы: 1 2 3 4 5 6 7 8 След.
Наверх