Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Выделение цветом года превышающим более 3 лет от 2019 года - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Выделение цветом года превышающим более 3 лет от 2019 года (Функции/Function)
Выделение цветом года превышающим более 3 лет от 2019 года
DKeT Дата: Вторник, 14.05.2019, 15:10 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация: 3 ±
Замечаний: 20% ±

Excel 2007
Здравствуйте, скажите пожалуйста как в эксель сделать так, чтоб от сегодняшнего года выделялись все года , которые превышают 3 года,и если эти года выделены красным, когда мы изменяем год, то он снова становился белым.
К сообщению приложен файл: 3851228.xlsx(11.3 Kb)
 
Ответить
СообщениеЗдравствуйте, скажите пожалуйста как в эксель сделать так, чтоб от сегодняшнего года выделялись все года , которые превышают 3 года,и если эти года выделены красным, когда мы изменяем год, то он снова становился белым.

Автор - DKeT
Дата добавления - 14.05.2019 в 15:10
boa Дата: Вторник, 14.05.2019, 15:18 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 378
Репутация: 102 ±
Замечаний: 0% ±

2013, 365
DKeT,
Условным форматированием
Код
=RC>YEAR(R1C2)+2

или можно сразу год в УФ зашить
Код
=RC>YEAR(TODAY())+2
К сообщению приложен файл: 3851228-2.xlsx(12.6 Kb)




Сообщение отредактировал boa - Вторник, 14.05.2019, 15:22
 
Ответить
СообщениеDKeT,
Условным форматированием
Код
=RC>YEAR(R1C2)+2

или можно сразу год в УФ зашить
Код
=RC>YEAR(TODAY())+2

Автор - boa
Дата добавления - 14.05.2019 в 15:18
Pelena Дата: Вторник, 14.05.2019, 15:20 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 14022
Репутация: 3069 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Я немного иначе поняла
Код
=И($E4<ГОД(СЕГОДНЯ())-3;$E4<>"")
К сообщению приложен файл: 4323148.xlsx(12.6 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЯ немного иначе поняла
Код
=И($E4<ГОД(СЕГОДНЯ())-3;$E4<>"")

Автор - Pelena
Дата добавления - 14.05.2019 в 15:20
DKeT Дата: Вторник, 14.05.2019, 15:23 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация: 3 ±
Замечаний: 20% ±

Excel 2007
Pelena, а как сделать так чтоб, если в дальнейшем добавлялись даты, он так же выделял?
 
Ответить
СообщениеPelena, а как сделать так чтоб, если в дальнейшем добавлялись даты, он так же выделял?

Автор - DKeT
Дата добавления - 14.05.2019 в 15:23
Pelena Дата: Вторник, 14.05.2019, 15:42 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 14022
Репутация: 3069 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
В диспетчере правил условного форматирования (Главная -- Условное форматирование -- Управление правилами) увеличьте диапазон, к которому применяется правило


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеВ диспетчере правил условного форматирования (Главная -- Условное форматирование -- Управление правилами) увеличьте диапазон, к которому применяется правило

Автор - Pelena
Дата добавления - 14.05.2019 в 15:42
DKeT Дата: Вторник, 14.05.2019, 16:01 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация: 3 ±
Замечаний: 20% ±

Excel 2007
Pelena, Поняла, а чтоб эту формулу вводить нужно нажимать на "ИСПОЛЬЗОВАТЬ ФОРМУЛЫ ДЛЯ ОПРЕДЕЛЕНИЯ ФОРМАТИРУЕМЫХ ЯЧЕЕК? "
 
Ответить
СообщениеPelena, Поняла, а чтоб эту формулу вводить нужно нажимать на "ИСПОЛЬЗОВАТЬ ФОРМУЛЫ ДЛЯ ОПРЕДЕЛЕНИЯ ФОРМАТИРУЕМЫХ ЯЧЕЕК? "

Автор - DKeT
Дата добавления - 14.05.2019 в 16:01
Pelena Дата: Вторник, 14.05.2019, 16:13 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 14022
Репутация: 3069 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
да


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщениеда

Автор - Pelena
Дата добавления - 14.05.2019 в 16:13
DKeT Дата: Пятница, 17.05.2019, 07:43 | Сообщение № 8
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация: 3 ±
Замечаний: 20% ±

Excel 2007
Pelena, скажите пожалуйста, а как сделать так чтоб условное форматирование работала еще и в созданной форме? У меня есть форма, и нужно было чтоб когда мы вводим год он выделялся, а сейчас попробовала, и он не работает, а работает только когда просто в ручную ввожу год в таблице.
Сам код для заполнения формы
[vba]
Код
Dim Mz As Integer

Private Sub TextBox1_Change()
TextBox1.Enabled = False
TextBox2.SetFocus
End Sub
Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim B As String
If Mz = vbNo Then Mz = vbYes: Exit Sub
N = LastN
B = Me.Controls("TextBox2")
If B = "" Then
  MsgBox "Введите № программы!"
  Cancel = True: TextBox2.SetFocus: Exit Sub
End If
  For I = 4 To N
    If UCase(B) = UCase(Cells(I, 2)) Then
      Mz = MsgBox("Такая запись уже существует! Продолжить?" & vbCrLf & _
      "Да - игнорировать совпадения" & vbCrLf & _
      "Нет - закрыть форму" & vbCrLf & _
      "Отмена - остаемся на вводе кода", vbYesNoCancel)
      Select Case Mz
      Case vbCancel 'возврат на ввод категории
        Cancel = True: TextBox2.SetFocus
      Case vbNo 'закрыть форму
        Unload Me
      Case vbYes 'игнорировать совпадение тут именно TextBox9
        Mz = vbNo: TextBox7.SetFocus: Mz = vbYes: Exit Sub
      End Select
      Exit For
    End If
  Next
End Sub

[/vba]

[vba]
Код
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Mz = vbNo
End Sub
[/vba]

[vba]
Код
Private Sub CommandButton1_Click()
Dim Ar, I As Integer, N As Integer
Ar = Array(1, 2, 7, 4, 6, 5, 8) 'продолжить массив номерами по порядку следования текстбоксов
N = LastN:
If N = 3 Then  'пустая таблица
Mz = MsgBox("Таблица пустая! Будете заполнять?" & vbCrLf & _
"Да - идём на добавление данных" & vbCrLf & _
"Нет - закрыть форму" & vbCrLf, vbYesNo)
If Mz = vbNo Then Unload Me: Exit Sub
End If
For I = 1 To UBound(Ar) + 1
  Cells(N + 1, I) = Me.Controls("TextBox" & Ar(I - 1))
  Me.Controls("TextBox" & Ar(I - 1)) = ""
Next
TextBox1.Enabled = True
Me.TextBox1 = Cells(N + 1, 1) + 1
TextBox1.Enabled = False
End Sub
[/vba]
 
Ответить
СообщениеPelena, скажите пожалуйста, а как сделать так чтоб условное форматирование работала еще и в созданной форме? У меня есть форма, и нужно было чтоб когда мы вводим год он выделялся, а сейчас попробовала, и он не работает, а работает только когда просто в ручную ввожу год в таблице.
Сам код для заполнения формы
[vba]
Код
Dim Mz As Integer

Private Sub TextBox1_Change()
TextBox1.Enabled = False
TextBox2.SetFocus
End Sub
Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim B As String
If Mz = vbNo Then Mz = vbYes: Exit Sub
N = LastN
B = Me.Controls("TextBox2")
If B = "" Then
  MsgBox "Введите № программы!"
  Cancel = True: TextBox2.SetFocus: Exit Sub
End If
  For I = 4 To N
    If UCase(B) = UCase(Cells(I, 2)) Then
      Mz = MsgBox("Такая запись уже существует! Продолжить?" & vbCrLf & _
      "Да - игнорировать совпадения" & vbCrLf & _
      "Нет - закрыть форму" & vbCrLf & _
      "Отмена - остаемся на вводе кода", vbYesNoCancel)
      Select Case Mz
      Case vbCancel 'возврат на ввод категории
        Cancel = True: TextBox2.SetFocus
      Case vbNo 'закрыть форму
        Unload Me
      Case vbYes 'игнорировать совпадение тут именно TextBox9
        Mz = vbNo: TextBox7.SetFocus: Mz = vbYes: Exit Sub
      End Select
      Exit For
    End If
  Next
End Sub

[/vba]

[vba]
Код
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Mz = vbNo
End Sub
[/vba]

[vba]
Код
Private Sub CommandButton1_Click()
Dim Ar, I As Integer, N As Integer
Ar = Array(1, 2, 7, 4, 6, 5, 8) 'продолжить массив номерами по порядку следования текстбоксов
N = LastN:
If N = 3 Then  'пустая таблица
Mz = MsgBox("Таблица пустая! Будете заполнять?" & vbCrLf & _
"Да - идём на добавление данных" & vbCrLf & _
"Нет - закрыть форму" & vbCrLf, vbYesNo)
If Mz = vbNo Then Unload Me: Exit Sub
End If
For I = 1 To UBound(Ar) + 1
  Cells(N + 1, I) = Me.Controls("TextBox" & Ar(I - 1))
  Me.Controls("TextBox" & Ar(I - 1)) = ""
Next
TextBox1.Enabled = True
Me.TextBox1 = Cells(N + 1, 1) + 1
TextBox1.Enabled = False
End Sub
[/vba]

Автор - DKeT
Дата добавления - 17.05.2019 в 07:43
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Выделение цветом года превышающим более 3 лет от 2019 года (Функции/Function)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!