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

Страницы: 1
Подсветка строки при выборе ячейки, Макрос
 
#
30.05.2020 23:56:17
Добрый день, коллеги.
Почему-то строка не подсвечивается при выборе ячейки (Макрос не отрабатывает пересчет?). Пример файла прилагаю.
Код
Private Sub Workscheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    ActiveCell.Calculate
End Sub
 
Перейти    
Настройка кастомного контекстного меню
 
#
29.05.2020 23:03:38
Добрый день.

Два вопроса, помогите, пожалуйста, с ответом:
1. С помощью какой программы можно прописать этот код (см. на рисунке) в файл Exel? Попробовал через Ribbon XML Editor, но там не нашел такую функциональность под этот код.
2. Можно ли обойтись без программы: просто разархивировать exel файл, создать папку customUI и туда воткнуть xml-файл с этим кодом?
 
Перейти    
Книга Exel на сетевом диске, содержащая умные таблицы
 
#
28.05.2020 01:39:09
Добрый день.
Кто может внятно объяснить логику ограничений?

Книга Exel лежит на сетевом диске, содержит умные таблицы. Одновременное редактирование файла несколькими пользователями НЕ требуется.
Почему НЕ автор этой книги не может редактировать файл из-за умных таблиц, которые в нем содержатся. Что за бред?
 
Перейти    
Полное очищение ячейки в vba
 
#
26.05.2020 00:03:11
Добрый вечер.
Подскажите, пожалуйста, как дописать условие, что если ячейка O5 очищается (вручную пользователем), то ячейка O4 должна стать девственно пустой. (чтобы потом на листе при проверке формулой ЕПУСТО возвращало = истина).
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("O5")) Is Nothing Then
If Range("O5").Value = "Да" Then Range("O4").Value = Range("M10").Value
End If
End Sub
 
Перейти    
Копировать значения из новой строки в умной таблице в новую строку другой таблицы
 
#
22.05.2020 22:43:19
Добрый день. Помогите, пожалуйста, написать макрос.

Задача:
Если на листе "Зибель" в умной таблице "Таблица13" появляется новая строка (путем стандартного добавления или путем записи в строку снизу новых данных), то необходимо копировать значения конкретных ячеек (после ввода значения в ячейку, находящейся в этой новой добавленной строке) на лист "Лист1" в умную таблицу "Таблица1", предварительно добавив новую строку внизу таблицы.

Ожидаемый результат: в умной таблице на Листе1 добавилась снизу новая строка, значения подставились в эту строку по маппингу, а в ячейку D6 подставилась константа "Зибель".

Файл прилагаю.

бюджет - 300 р.
Изменено: bagdasarov86 - 23.05.2020 21:00:43
 
Перейти    
Макрос для записи значения в целевую ячейку, в случае если значение текущей ячейки совпало с условием
 
#
21.05.2020 22:53:53
Похожая тема уже была тут, но итогового решения не нашел.

Задача:
Допустим в столбце А - изначально указана плановая дата завершения чего-либо. Если я в любой ячейке диапазона C1:C20 указываю значение "Внедрено", то хочу, чтобы текущая дата подставилась в соответствующую ячейку столбца А. Пример: в ячейке С5 указываю "Внедрено", то в ячейке А5 должна подставиться текущая дата.

Подскажите, пожалуйста, как поправить макрос? В VBA ничего не понимаю, макрос склеил с разных форумов (возможно, макрос можно упростить под эту задачу)
(Альтернативные варианты с формулами внутри ячейки не интересуют)
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Target = "" Then Exit Sub
    If Not Intersect(Target, Range("C1:C20")) Is Nothing Then
        Application.EnableEvents = False
        If Target = "Внедрено" Then
            [A1] = DateValue(Now)
        End If
    End If
    Application.EnableEvents = True
End Sub
Изменено: bagdasarov86 - 21.05.2020 23:17:09
 
Перейти    
Страницы: 1
Наверх