Найдены дубликаты

Баяны

164K постов11.6K подписчика

Добавить пост

Правила сообщества

Сообщество для постов, которые ранее были на Пикабу.

Подробнее
+2

Это ещё на перфокартах печатали в середине 80-х

+1

@moderator, тут дичайший баян, его ещё ацтеки на золотых пластинах печатали

раскрыть ветку 1
-1
Не просто баян доисторических времен так его ещё в ексель перевели
+1

С подключением к интернету !

0

У Пушкина в 5 строке 126 138 20

Похожие посты
886

Тормозит Excel? Файлы из 1С. Есть решение

Тормозит Excel? Файлы из 1С. Есть решение Microsoft Excel, Microsoft office, Microsoft, Баг
100

MS Excel - Настройка печати / Страничный режим / Области печати / Колонтитулы

97

Используем смартфон в качестве сканера штрихкодов для компьютера

280

Перенос строк в Microsoft Excel

Перенос строк в Microsoft Excel Microsoft Excel, Microsoft, Полезное, Vba, Обучение, Видео, Длиннопост, Microsoft office
Перенос строк в Microsoft Excel Microsoft Excel, Microsoft, Полезное, Vba, Обучение, Видео, Длиннопост, Microsoft office
Перенос строк в Microsoft Excel Microsoft Excel, Microsoft, Полезное, Vba, Обучение, Видео, Длиннопост, Microsoft office
Перенос строк в Microsoft Excel Microsoft Excel, Microsoft, Полезное, Vba, Обучение, Видео, Длиннопост, Microsoft office
Перенос строк в Microsoft Excel Microsoft Excel, Microsoft, Полезное, Vba, Обучение, Видео, Длиннопост, Microsoft office
Перенос строк в Microsoft Excel Microsoft Excel, Microsoft, Полезное, Vba, Обучение, Видео, Длиннопост, Microsoft office
Sub RemoveCarriageReturnsSelection() 'Удаление переноса каретки в выделенном диапазоне
Selection.Replace What:=Chr(10), Replacement:=" " ' заменяем перенос на пробел
Selection.Replace What:=Chr(160), Replacement:="" ' удаляем символ "похожий" на пробел
Selection.Replace What:=" ", Replacement:=" " ' удаляем двойной пробел
End Sub

Sub RemoveCarriageReturnsSheet() 'Удаление переноса каретки на листе
Cells.Replace What:=Chr(10), Replacement:=" " ' заменяем перенос на пробел
Cells.Replace What:=Chr(160), Replacement:="" ' удаляем символ "похожий" на пробел
Cells.Replace What:=" ", Replacement:=" " ' удаляем двойной пробел
End Sub

Показать полностью 5
150

Как отключить изменение ширины столбцов Сводной таблицы в Excel

Как отключить изменение ширины столбцов Сводной таблицы в Excel Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Отчет, Длиннопост
Как отключить изменение ширины столбцов Сводной таблицы в Excel Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Отчет, Длиннопост
Sub PivotStaticColumn() 'Отключение автоматического изменения ширины столбцов при обновлении
Dim pvtTable As PivotTable
On Error Resume Next
Set pvtTable = ActiveSheet.PivotTables(ActiveCell.PivotTable.Name)
On Error GoTo 0
If Not pvtTable Is Nothing Then
ActiveSheet.PivotTables(ActiveCell.PivotTable.Name).HasAutoFormat = False
Else
MsgBox "Выделите ячейку Сводной таблицы!", vbExclamation, "Подсказка"
End If
End Sub

Показать полностью 1
331

Макрос для удаления пустых строк в Excel

Макрос для удаления пустых строк в Excel Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Офис, Длиннопост
Показать полностью
56

Создаём Личную книгу макросов VBA

Создаём Личную книгу макросов VBA Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Длиннопост
Создаём Личную книгу макросов VBA Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Длиннопост
Создаём Личную книгу макросов VBA Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Длиннопост
Создаём Личную книгу макросов VBA Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Длиннопост
Создаём Личную книгу макросов VBA Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Длиннопост
Создаём Личную книгу макросов VBA Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Длиннопост
Создаём Личную книгу макросов VBA Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Длиннопост
Sub ПутькФайлу()
ActiveCell.Value = ThisWorkbook.Path
End Sub

Создаём Личную книгу макросов VBA Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Длиннопост
Создаём Личную книгу макросов VBA Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Длиннопост
Создаём Личную книгу макросов VBA Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Длиннопост
Показать полностью 7
141

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

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
Макрос для удаления пустых столбцов в книгах Excel Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Длиннопост
Макрос для удаления пустых столбцов в книгах Excel Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Длиннопост
Макрос для удаления пустых столбцов в книгах Excel Microsoft Excel, Microsoft office, Обучение, Программирование, Полезное, Длиннопост
Показать полностью 2
Похожие посты закончились. Возможно, вас заинтересуют другие посты по тегам: