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

Страницы: 1
Условное форматирование по нескольким условиям, использование одновременно условия И и ИЛИ ?
 
Добрый день!

Использую условное форматирование формулой такого вида, по трем условиям:

=И($L1<СЕГОДНЯ()+3;$L1<>"";$K1<>"Предоставлена копия")

Соответственно, происходит заливка строки, если текущая дата больше на 3 дня, чем указанная в ячейке, если вообще ячейка с датой не пустая и, если в другой ячейке стоит любой другой статус, кроме "предоставлена копия".

Как добавить в формулу, чтобы можно было указать 3 статуса?

Ответ не требуется
Предоставлена копия
Обращение закрыто

Чтобы выполнялось условие по дате в ячейке, а во второй ячейке любой другой статус, кроме трех вышеуказанных.
Изменено: Crowner - 06.07.2023 09:05:48
Обработка писем Outlook из Excel посредством VBA, Совместимость между различными версиями MS Office
 
Подскажите чайнику, пожалуйста.
Вот есть у меня макрос следующего вида
Код
Dim objFolder As Outlook.Folder
Dim objNS As Outlook.Namespace
Dim objMail As Outlook.MailItem
Dim lCounter As Long
Set objNS = Outlook.GetNamespace("MAPI")
Set objFolder = objNS.GetDefaultFolder(olFolderInbox).Folders("Важная папка")
For lCounter = 1 To objFolder.Items.Count
Set objMail = objFolder.Items.Item(lCounter)
{Здесь я получаю информацию различную из objMail такие как дата, время, тема, отправитель, вложения и т.д. и произвожу с ними манипуляции.}
Next
Все это прекрасно работает у меня в Excel 2016 с подключенной библиотекой (т.е.галочку поставил в Tools->References) Microsoft Outlook 16.0 Object Library.
Но, требуется запускать тоже самое и на Excel 2013. Там соответственно библиотека уже не 16.0, а 15.0 и, неизвестно, может и на других версиях офиса придется. Файл могут открыть на разных ПК с разными версиями MS Office. И там, соответственно, все вываливается с ошибкой, что не найдена библиотека 16.0.
Догадываюсь, что можно библиотеку не подключать галочкой, а в макросе что-то переделать. Но, пока, не научился (самоучка).
Подскажите, как все-таки сделать, чтобы работало и на 2016м и на 2013м.
Желательно, прям поправить код, чтобы понятнее было, как работает.
Изменено: Crowner - 27.06.2023 15:21:42
Автофильтр по дате, на VBA
 
Добрый день!
Помогите чайнику с VBA, пожалуйста.
Есть данные в таблице в с датами. Как посредством VBA установить фильтр на колонку с датами и отфильтровать по конкретному месяцу и году? И подсчитать получившееся количество строк? Например, установить фильтр на май 2023 и подсчитать количество получившихся строк.
Прикрепил файл с колонкой дат.
Copy-Paste из другой книги на VBA
 
Добрый день!
Помогите новичку, пожалуйста.
Есть 2 файла:
1.CopyPasteTest.xlsm
2.123.xlsx

В первом файле кнопка, при нажатии на которую должны скопироваться ячейки из второго файла в первый.
Код:

Sub Button()
Set objExcel = New Excel.Application
Set wb = objExcel.Workbooks.Open("123.xlsx")
Set ws = wb.Sheets(1)
Set sh = ThisWorkbook.Sheets(1)
sh.Range("A1") = ws.Range("A1") - ВОТ ТАК РАБОТАЕТ
ws.Range("A1:E1").Copy Destination:=sh.Range("A1:E1") - А ВОТ ТАК ВЫДАЕТ ОШИБКУ
wb.Close
End Sub

Ошибка:
1004 Метод Copy из класса Range завершен неверно.

Справку курил, из нее и взято как копировать. Все равно, не работает.
Изменено: Crowner - 12.05.2022 09:06:58
Страницы: 1
Наверх