MS, Libreoffice & Google docs

При выгрузке из 1С, часто файлы содержат пустые столбцы (в т.ч. и скрытые), которые мешают дальнейшей обработке данных. Приходится удалять их руками, что совсем не продуктивно. Макрос решит задачу мгновенно.

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

Sub ColumnDel()
'Удаляем пустые столбцы
Dim i As Long
Dim rgMy1 As Range
Dim rgMy2 As Range
Set rgMy1 = Application.Range(ActiveSheet.Range("A1"), _
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell))
Application.ScreenUpdating = False
For i = 1 To rgMy1.Columns.Count
If WorksheetFunction.CountA(rgMy1.Columns(i).EntireColumn) = 0 Then
If rgMy2 Is Nothing Then
Set rgMy2 = rgMy1.Columns(i).EntireColumn
Else
Set rgMy2 = Application.Union(rgMy2, rgMy1.Columns(i).EntireColumn)
End If
End If
Next
If rgMy2 Is Nothing Then
MsgBox "Не найдено пустых столбцов", vbInformation, "Для информации"
Else:
rgMy2.[Delete]
End If
Application.ScreenUpdating = True
End Sub

Открыть редактор VBA Alt +F11:

Вызвать меню для выполнения или изменения макросов Alt + F8:

На выполнение макроса можно назначить "Горячие клавиши", нажав в окне Параметры:

В поле Сочетание клавиш введите прописные или строчные буквы, которые вы хотите использовать. Важен регистр и язык. Нельзя назначить макрос на функциональные клавиши Excel.

Для Windows сочетание клавиш для строчных букв — Ctrl + буква. Для прописных букв — Ctrl + Shift + БУКВА.

Для Mac сочетание клавиш для строчных букв — Option + Command + буква или Ctrl + буква. Для прописных букв — Ctrl + Shift + БУКВА.

Как-то раз я психанул и составил процедуру, удаляющую все подсветки символов, абзацев, ячеек таблицы и всего этого внутри ячеек таблицы. Особенно полезно это для текста и и таблиц, скопированных из интернета.

Итак, поместите код в стандартный модуль. Выделите скопированный из инета текст или таблицу, затем запустите процедуру defill

Sub defill()

'

' Удаляет подсветку букв, текста, абзаца, ячеек, таблиц

' А теперь ещё и ставит чёрный цвет текста

StartUndoRecord "Удаление фона"

On Error Resume Next

If Selection.Type = wdSelectionIP Then

If MsgBox("Эта функция убирает цветной фон выделенного фрагмента. Сейчас ничего не выделено. Обработать весь текст?", vbYesNo + vbQuestion, "Ничего не выделено") = vbYes Then

DefillRange ActiveDocument.Content

End If

Else

DefillRange Selection.Range

End If

On Error GoTo 0

StopUndoRecord

End Sub

Sub DefillRange(rng As Range)

Dim aTable As Table

rng.Font.Color = wdColorAutomatic

With rng.ParagraphFormat

With .Shading

.Texture = wdTextureNone

.ForegroundPatternColor = wdColorAutomatic

.BackgroundPatternColor = wdColorAutomatic

End With

End With

With rng.Font.Shading

.Texture = wdTextureNone

.ForegroundPatternColor = wdColorAutomatic

.BackgroundPatternColor = wdColorAutomatic

End With

rng.HighlightColorIndex = wdNoHighlight

For Each aTable In rng.Tables

With aTable.Shading

.Texture = wdTextureNone

.ForegroundPatternColor = wdColorAutomatic

.BackgroundPatternColor = wdColorAutomatic

End With

With aTable.Range.Cells.Shading

.Texture = wdTextureNone

.ForegroundPatternColor = wdColorAutomatic

.BackgroundPatternColor = wdColorAutomatic

End With

Next aTable

End Sub

Public Sub StartUndoRecord(Optional UR_name$ = "Какой-то макрос")

#If VBA7 Then

' для ВБА 7 (офис 2010) и выше

Application.UndoRecord.StartCustomRecord UR_name

#End If

End Sub

Public Sub StopUndoRecord()

#If VBA7 Then

Application.UndoRecord.EndCustomRecord

#End If

End Sub

Немножко спагетти-код, потому что главную процедуру я составил в 2011 году, для ворда 2003.

Назначьте на кнопку панели инструментов макрос defill.

Всем удачи в форматировании документов!

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

Сегодня расскажу про работу с изображениями в ГТ, а именно - о вставке изображений в ячейку и функции image.

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

Вставка в ячейку:

Можно загрузить с компа или по ссылке:

Выглядит это следующим образом:

К контенту в ячейках можно обращаться с помощью других функций (напр. ВПР или filter):

По поводму функции image. Делает она тоже самое, но только по ссылке.

Н.Б. Если нужно загрузить с компа - загружайте на гугл драйв и копируйте ссылку.

Для функции image можно указать точные размеры для вывода фото в таблицу и сделать это можно четырьмя способами.

В данном случай я не буду пытаться переписать документацию ибо для image она дофига понятная:

https://support.google.com/docs/answer/3093333?hl=RU

размер – [ НЕОБЯЗАТЕЛЬНО – 1 по умолчанию ] – режим отображения изображения:

1 – изменяет размер изображения таким образом, чтобы оно целиком помещалось в ячейке. Сохраняет соотношение сторон изображения.

2 – растягивает или сжимает изображение таким образом, чтобы оно целиком помещалось в ячейке. Не сохраняет соотношение сторон изображения.

3 – размещает изображение в оригинальном размере. Может приводить к кадрированию изображения.

4 – позволяет указать размеры изображения вручную.

Вот и всё. Пост получился лайтовым, но функция полезная и далеко не все о ней знают.

Традиционно, ссылка на таблицу: https://docs.google.com/spreadsheets/d/1vGtFrokmboWuK7w9nkBM...

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

Например, если вы покупаете 8 рекламных объявлений, то платите по 12 000 долл. за

первые 5 и по 11 000 долл. за каждое из трех следующих рекламных объявлений. Если

вы покупаете 14 рекламных объявлений, то платите по 12 000 долл. за первые 5 и по

11 000 долл. за следующие 5 объявлений и по 10 000 долл. за каждое из последних четырех рекламных объявлений.

Напишите формулу, которая подсчитывает общую стоимость любого числа рекламных объявлений. Подсказка: вероятно, вам понадобятся, по

меньшей мере, три столбца в вашей таблице поиска, и ваша формула может содержать

две функции просмотра.