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

Страницы: 1 2 3 4 5 След.
Счет значений в поле с объединенными и отдельными ячейками по условиям в поле с отдельными ячейками
 
StatuS, спасибо. Немного усовершенствовал Ваш метод. Например, выделить А1:А4, в строке формул набрать =ЕСЛИ(ИСТИНА;2), нажать ctrl+Enter, выделить другие четыре ячейки по вертикали, объединить их, скопировать формат полученной объединенной ячейки в А1:А4, СУММ(A1:A4)=8.
Счет значений в поле с объединенными и отдельными ячейками по условиям в поле с отдельными ячейками
 
Код
=СУММ((Значение=E3)*ЕОШИБКА(ПОИСКПОЗ(СТРОКА(Значение);ПРОСМОТР(СТРОКА(Отметка);ЕСЛИ(Значение=E3;СТРОКА(Значение)))/((Отметка="")*(ПРОСМОТР(СТРОКА(Отметка);ЕСЛИ(Значение=E3;СТРОКА(Значение)))=ПРОСМОТР(СТРОКА(Отметка);ЕСЛИ(Значение<>"";СТРОКА(Значение)))));)))
Спасибо, БМВ, формула просто замечательная - все расчеты в пределах именованных диапазонов.
Изменено: Павел Запивахин - 23.08.2019 13:46:34
Счет значений в поле с объединенными и отдельными ячейками по условиям в поле с отдельными ячейками
 
Спасибо, Светлый. Сложно, но попытаюсь разобраться.
Счет значений в поле с объединенными и отдельными ячейками по условиям в поле с отдельными ячейками
 
Светлый, если Вам не трудно, поясните, пожалуйста, как это работает:
Код
=СУММ(Ч(МУМНОЖ(Ч(ТРАНСП(ЕСЛИ(СЧЁТЕСЛИ(СМЕЩ(B$1;;;НАИБОЛЬШИЙ(ЕСЛИ(E3=B$1:B999;СТРОКА($1:999);1);СТОЛБЕЦ(A:I)));"*")=СЧЁТЕСЛИ(СМЕЩ(B$1;;;СТРОКА($1:999));"*");C$1:C999))=0);СТРОКА($1:999))=0))
Счет значений в поле с объединенными и отдельными ячейками по условиям в поле с отдельными ячейками
 
StatuS, поделитесь, пожалуйста, секретом добавления значений во все ячейки объединенной ячейки.
Счет значений в поле с объединенными и отдельными ячейками по условиям в поле с отдельными ячейками
 
Спасибо за ответы. Я сам категорически против объединенных ячеек и допускаю их присутствие только в непоследних строках заголовков таблицы, но в данном случае без объединенных ячеек будет некрасиво. С дополнительным столбцом, макросом или с UDF я сосчитать могу, а хочется сосчитать формулой без дополнительных столбцов.
Счет значений в поле с объединенными и отдельными ячейками по условиям в поле с отдельными ячейками
 
Здравствуйте! Помогите, пожалуйста. Нужно формулой сосчитать количество значений в поле "Значение" (диапазон "Значение") с объединенными и отдельными ячейками, если в поле "Отметка" (диапазон "Отметка") с отдельными ячейками заполнены все ячейки в пределах диапазона строк считаемой ячейки.
Условное форматирование в сводной таблице через формулу (с условием по двум столбцам)
 
Здравствуйте, ikariya, простая таблица Вас не устроит? Выглядит она гораздо лучше сводной.
Счет ячеек с датами по количеству оставшихся рабочих дней
 
БМВ, спасибо!
Изменено: Павел Запивахин - 20.08.2019 12:21:16
Счет ячеек с датами по количеству оставшихся рабочих дней
 
кнопка цитирования не для ответа [МОДЕРАТОР]

Спасибо. Вторая быстрая формула в субботу считает 2, в воскресенье 1, а должен быть 0.
Счет ячеек с датами по количеству оставшихся рабочих дней
 
В ячейке С3 уже та формула, которая считает так, как я хотел.
Код
=СУММПРОИЗВ((РАБДЕНЬ(сего;0)=ЦЕЛОЕ(КС))*(ДЕНЬНЕД(сего;2)<6))+
СУММПРОИЗВ((ДЕНЬНЕД(сего;2)=5)*(ЦЕЛОЕ(КС)=сего+1))+
СУММПРОИЗВ((ДЕНЬНЕД(сего;2)=5)*(ЦЕЛОЕ(КС)=сего+2))

Первая часть (до первого плюса) считает рабочие дни, если на них приходится контрольный срок. Если СЕГОДНЯ()=пятница, то дополнительно к пятнице добавляются контрольные сроки, запланированные на субботу или воскресенье, если они есть, которые считаются во второй и третьей строках. Формулу СЕГОДНЯ() в примере я для тестирования заменил на именованный диапазон "сего", его значение выбирается из выпадающего списка в ячейке В3.
Счет ячеек с датами по количеству оставшихся рабочих дней
 
В ячейке, залитой желтым цветом.
Счет ячеек с датами по количеству оставшихся рабочих дней
 
Совсем даже не лениво.
Счет ячеек с датами по количеству оставшихся рабочих дней
 
Сформулировал так:
Код
=СУММПРОИЗВ((РАБДЕНЬ(СЕГОДНЯ();0)=ЦЕЛОЕ(КС))*(ДЕНЬНЕД(СЕГОДНЯ();2)<6))+
СУММПРОИЗВ((ДЕНЬНЕД(СЕГОДНЯ();2)=5)*(ЦЕЛОЕ(КС)=СЕГОДНЯ()+1))+
СУММПРОИЗВ((ДЕНЬНЕД(СЕГОДНЯ();2)=5)*(ЦЕЛОЕ(КС)=СЕГОДНЯ()+2))

Вместо файла-примера:
Именованный диапазон "КС" - контрольные сроки выполнения задач, могут содержать только дату или дату и время. В диапазоне "КС" нужно сосчитать количество заданий, которые должны быть выполнить сегодня. Если сегодня пятница, то дополнительно нужно прибавить задания, срок выполнения которых намечен на субботу или воскресенье. Формула ЦЕЛОЕ нужна для того, чтобы отсечь время при сравнении даты из "КС" с датой СЕГОДНЯ().
Перенос данных между двумя "умными" таблицами в VBA
 
Код
Sub copyTab3()
Dim LO1 As ListObject
Dim LO2 As ListObject

Set LO1 = Sheets("Export").ListObjects("Таблица3")
Set LO2 = Sheets("Import").ListObjects("Таблица4")
LO1.DataBodyRange.Copy
If LO2.DataBodyRange Is Nothing Then
    Sheets("Import").Cells(2, 1).PasteSpecial xlPasteValues
Else
    Sheets("Import").Cells(LO1.DataBodyRange.Rows.Count + 2, 1).PasteSpecial xlPasteValues
End If

End Sub

Изменено: Павел Запивахин - 19.08.2019 21:32:36
Счет ячеек с датами по количеству оставшихся рабочих дней
 
Здравствуйте.Помогите, пожалуйста, с формулой. В именованном диапазоне «КС» указаны даты. Нужно сосчитать в «КС» количество ячеек, в которых до указанных в них дат остался один рабочий день. Формула СУММПРОИЗВ(--(РАБДЕНЬ(СЕГОДНЯ();0)=КС)) считает только рабочие даты, даты суббот и воскресений из счета выпадают, а хотелось бы, чтобы в пятницу, если в КС указана дата субботы или воскресенья, формула считала бы, что остался один рабочий день.
Изменено: Павел Запивахин - 20.08.2019 08:35:48
Проверка ссылки на абзац в OneNote
 
Здравствуйте, уважаемые форумчане. Подскажите, пожалуйста, как vba-кодом проверить работоспособность  ссылки на абзац страницы OneNote.
Код
Sub Гиперссылка()

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"onenote:///C:\Users\Павел_А\Documents\Записные%20книжки%20OneNote\Записная%20книжка%202019\Задачи\Задачи%202.one" _
, SubAddress:= _
"МояЗадача§ion-id={3A354F2D-F136-473D-8B62-1C1AD390B89D}&page-id={1CF9327F-4D7A-48CF-9E0C-7A323BB268EB}&object-id={5B5B808E-1" _
, TextToDisplay:="МояЗадача"

End Sub
Проверка наличия защиты общей книги
 
Спасибо, но нужна проверка наличия защиты книги с общим доступом - защиты отслеживания изменений с помощью пароля в книге с общим доступом.
Проверка наличия защиты общей книги
 
Здравствуйте. Подскажите, пожалуйста, как перед снятием защиты с общей книги (ActiveWorkbook.UnprotectSharing "123") проверить наличие защиты?
Вставка макросом условного форматирования на изменение значения в ячейке
 
Спасибо.
Вставка макросом условного форматирования на изменение значения в ячейке
 
Здравствуйте! Задумка такая: перед отправкой файла для актуализации данных вставить в выделенные ячейки УФ, которое будет закрашивать ячейки, если в них будут внесены изменения, затем сохранить книгу без поддержки макросов и отправить файл почтой. Записал макрорекодером макрос, немного его подправил:
Код
Sub УФ() ' если выделенные ячейки будут изменены, то они зальются красным
Dim iCell As Range

Cells.FormatConditions.Delete
For Each iCell In Selection
    If Not IsEmpty(iCell) Then
        If IsNumeric(iCell.Value) Then
            iCell.FormatConditions.Add Type:=xlExpression, Formula1:="=" & iCell.Address & "<>" & iCell.Value
        Else
            iCell.FormatConditions.Add Type:=xlExpression, Formula1:="=" & iCell.Address & "<>""" & iCell.Text & """"
        End If
    Else
        iCell.FormatConditions.Add Type:=xlExpression, Formula1:="=НЕ(ЕПУСТО(" & iCell.Address & "))"
    End If
    iCell.FormatConditions(iCell.FormatConditions.Count).SetFirstPriority
    With iCell.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
    End With
    iCell.FormatConditions(1).StopIfTrue = False
Next
End Sub
Макрос работает, но запинается на ячейках, в которых текст содержит кавычки. Подскажите, пожалуйста, как быть с кавычками в тексте без их удаления?
И второй вопрос: как в ячейке определить событие срабатывания УФ (не наличие УФ в ячейке, а то что ячейка закрасилась)?
Загрузка файлов с сайта в Windows7 + Office2013
 
Здравствуйте. На компьютере (ХР, Office2007, пользователь)  скачивал файлы с сайта макросом:
Код
Sub loadFile()
    Dim fPath As String
    Dim oXMLHTTP As Object
    Dim oADOStream As Object
    
    fPath = ActiveWorkbook.Path
    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    'подключение
'    .Open "POST", sURL, False, "login", "password" ' не требуется, аутентификация по IP
    oXMLHTTP.Open "GET", "http://IP-адрес_сервера/index.php?option=com_docman&task=doc_download&gid=35&Itemid", 0 ' URL адрес для загрузки
    'получение файла
    oXMLHTTP.Send
    Set oADOStream = CreateObject("ADODB.Stream")
    oADOStream.Mode = 3 'разрешение на чтение и запись
    oADOStream.Type = 1 'тип данных - Binary
    oADOStream.Open
    oADOStream.Write oXMLHTTP.responseBody
    'сохранение (с перезаписью файла при необходимости)
    oADOStream.SaveToFile fPath & "\FilesForProcessing\имя_файла.xlsm", 2 ' путь для сохранения файла, 2 - перезапись файла
End Sub
После замены компьютера (Windows7, Office2013, пользователь) файлы перестали скачиваться, вместо файлов скачивается страница сайта. Как восстановить загрузку файлов?
Счет значений за неделю по трем условиям
 
Спасибо всем за ответы! Изначально я пытался использовать формулу подобную формуле, предложенной V, но использовал СУММПРОИЗВ - не получилось, а нужно было формулу массива СУММПРОИЗВ ввести как формулу массива, тогда все считается правильно.
По поводу использования ДВССЫЛ. Если в формуле есть ссылка на несуществующий лист, то Excel при открытии файла начинает ругаться. Если в формуле есть ссылка на форматированную таблицу на несуществующем листе или просто отсутствующую, например, СУММ(Таблица1[ИмяПоля]), то формула заменяется на СУММ(#ССЫЛКА!). Для ухода от этого я применяю ДВССЫЛ. В первом случае Excel не ругается, а просто в ячейке выдает значение #ССЫЛКА!. Во втором случае ссылка не пропадает, т.к. она находится в ДВССЫЛ.
Счет значений за неделю по трем условиям
 
Данные берутся с листа "Квартал", который находится в этой книге. Лист отсутствует в используемой мной форме отчета, и по этой причине я использовал двойную ссылку, чтобы избежать "#ССЫЛКА!".
Изменено: Павел Запивахин - 28.01.2015 17:21:56
Счет значений за неделю по трем условиям
 
Здравствуйте! Можно ли упростить формулу подсчета значений за неделю с тремя условиями? Формула и пояснения во вложенном файле.
Ошибка "Метод или элемент данных не определен"
 
Здравствуйте! Уже давно (ОС ХР, Excel2007) скачиваю файл xlsm с корпоративного сайта и макросом беру из него нужные данные. Вчера этот файл начал открываться с ошибкой и останавливать мой макрос. Ошибка появляется в Private Sub Workbook_Open() на строке Лист1.TextBox1.Visible = False. Прошел поиском по всему проекту - имена Лист1 и TextBox1 переменным не назначены. Такого обращения к листу и фигуре я еще не видел и до сегодняшнего дня считал , что нужно обращаться: Sheets("Лист1".Shapes("TextBox1"). Открыл этот файл в Windows7 Excel2010 - открывается без ошибок. Позвонил автору этого файла, он говорит, что в ОС ХР, в Excel2007 у него ошибок при открытии нет. Помогите, пожалуйста, устранить эту ошибку.
Адреса записаны по разному, как их привести к одному формату, подготовить содержимое таблицы для ВПР
 
Цитата
Dimov пишет: есть ли у вас пример именно разбиения адреса этими формулами?
Пример во вложенном файле.
Адреса записаны по разному, как их привести к одному формату, подготовить содержимое таблицы для ВПР
 
Цитата
Dimov пишет: есть ли у вас пример именно разбиения адреса этими формулами?
Формулы я не сохраняю, потому что они зависят от формата написания адреса.
Цитата
Dimov пишет: есть ли способ отсеять индекс и другую информацию
чтобы остались только город, улица, номер дома?
Есть формула ЗАМЕНИТЬ.
Адреса записаны по разному, как их привести к одному формату, подготовить содержимое таблицы для ВПР
 
Часто приходится работать с адресами. Пришел к выводу, что адресам нужно присваивать ID или самому заново формировать адреса. Мне удобнее сначала разбить адреса на части, используя СЖПРОБЕЛЫ, ПСТР, ПРАВСИМВ, ЛЕВСИМВ, ПОИСК, а потом собрать их формулой, как во вложенном примере. Разбивать адреса приходится разными способами в зависимости от формата написания адреса, но начинаю всегда с СЖПРОБЕЛЫ.
После копирования макросом листа в новую книгу и сохранения в списке допустимых значений запятая заменяется точкой с запятой
 
Спасибо. Я так и сделал - список допустимых значений поместил на лист и сослался на этот диапазон ячеек. Хотелось бы знать: можно ли через Validation.Formula1 Property указать, что запятая в тексте не является разделителем?
Страницы: 1 2 3 4 5 След.
Наверх