MS, Libreoffice & Google docs

Встречались в работе с ситуацией, когда исходные данные содержат пустые строки, мешающие дальнейшей, обработке информации, до их удаления?

Например, не строится Сводная таблица по всем данным или правильно не работает стандартный фильтр .

Исключая "ручной привод", максимально просто решает проблему, такой макрос:

Копируйте код и сохраните его в Личной книге макросов или создайте свою надстройку:

Sub DelEmptyRows() 'Удаление пустых строк на активном листе

Dim i As Long

Dim rMay1 As Range

Dim rMay2 As Range

Set rMay1 = Application.Range(ActiveSheet.Range("A1"), _

ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell))

Application.ScreenUpdating = False

'удаляем пустые строки

For i = 1 To rMay1.Rows.Count

If WorksheetFunction.CountA(rMay1.Rows(i).EntireRow) = 0 Then

If rMay2 Is Nothing Then

Set rMay2 = rMay1.Rows(i).EntireRow

Else

Set rMay2 = Application.Union(rMay2, rMay1.Rows(i).EntireRow)

End If

End If

Next

If rMay2 Is Nothing Then

MsgBox "Пустых строк не найдено.", vbInformation, "Информация"

Else:

rMay2.[Delete]

End If

Application.ScreenUpdating = True

End Sub

В продолжение к посту  Макрос для удаления пустых столбцов в книгах Excel.

Допустим, Вы планируете выступление на областной конференции.

Чтобы слушатели Вас точно запомнили, Вы приготовили раздаточный материал в виде листочка, на котором с одной стороны указаны основные тезисы Вашего доклада, а с другой — схема сборки самолётика.

Теперь Вы готовите слайды в PowerPoint. Текст, произносимый при показе каждого слайда, Вы указываете в специальной области «Заметки к слайду» («Заметки докладчика») в нижней части окна powerpoint.

Слайды готовы, теперь надо выгрузить все заметки докладчика в аккуратный документ «Речь», чтобы подглядывать по ходу доклада.

В таком документе указаны номера слайдов и сама речь.

Но как это сделать? Сайт MS рекомендует нам некоторые неудобные способы, например по одному слайду на страницу с текстом внизу.

Но нам надо распечатать аккуратную таблицу с номерами слайдов и речью, как на картинке.

Тут-то и поможет нам надстройка SpeakerNotes.ppam. Она добавляет в PowerPoint кнопочку ↓

↑ по нажатию на которую у Вас сформируется документ с речью в ворде.

Ясное дело, что запускать всякие непонятные вещи, взятые из интернета небезопасно! Поэтому антивирус — Ваш друг.

А для самых проницательных имеется исходный код этой утилиты в VBA, а также скрипт на языке AutoHotKey 2.0 (там же).

Скрипт легче редактировать и адаптировать под свои нужды (поменять шрифт, границы, отступы), но зато надстройка аккуратно интегрируется в интерфейс PowerPoint. Функционал такой же.

Желаю всем блистательных выступлений!

Привет, дорогие чатлане!

Продолжаем цикл мануалов по гугл таблицам.

Сегодня поговорим о функциях ****еслимн. Для чего нужны эти функции?

Для того чтобы из массива данных просуммировать, посчитать, найти среднее, максимальное, минимальное значения по определенным условиям. Функции имеют особенности синтаксиса, о них расскажу ниже.

Первый аргумент - столбец который суммируем, второй - столбец для первого условия, третий - первое условие. Все следующие аргументы идут парами.

Для счетеслимн - только столбцы с условиями и сами условия.

Как добавить более сложные условия в суммеслимн:

Во второй аргумент мы добавляем формулу массива, которая возвращает нам новый массив, состоящий из набора {TRUE, TRUE, FALSE, TRUE...} и сравниваем его со значением ИСТИНА/TRUE.

Как использовать сравнения в суммеслимн:

Если мы хотим сравнить что-то с датой - дату нужно брать в кавычки:

Отдельно еще расскажу, что лучше всегда использовать именно суммеслимн, а не суммесли, т.к. суммесли имеет непонятным образом отличающийся синтаксис и, используя в работе эти функции и filter() - нужно будет всегда держать в голове какой синтаксис нужно использовать в какой функции, так что лучше одну из них исключить вообще.