Клавишы excel

таблица. Горячие клавиши, незаменимые при работе в Excel Клавиша или комбинация клавиш Действие Аналогичная команда меню Вычисления SHIFT + F3 Вызвать мастер Функций Формулы - Вставить функцию F4 Задать тип сылки на ячейку при вводе формулы – относительная или абсолютная – CTRL + ~ Отображать в ячейках формулы или их результаты Формулы – Показать формулы ALT+ «Равно» Ввести в ячейку функцию СУММ Формулы – Автосумма F9 Пересчитать формулы во всей книге Формулы – Пересчет SHIFT + F9 Пересчитать формулы на текущем листе Формулы – Произвести вычисления Редактирование F2 Редактировать активную ячейку – SHIFT + F2 Редактировать примечание к ячейке – CTRL + Delete Удалить текст от курсора до конца строки (при редактировании содержимого ячейки) – CTRL+ALT+V Специальная вставка (после копирования) – CTRL + «Плюс» Добавить выделенное количество строк или столбцов Главная – Вставить – Строки (Столбцы) CTRL + «Минус» Удалить выделенные строки или столбцы Главная – Удалить – Строки (Столбцы) CTRL + D Заполнить выделенный диапазон значениями или формулами из первой выделенной ячейки Главная – Заполнить – Вниз CTRL + H Вызвать диалоговое окно «Найти и заменить» Главная – Найти и выделить – Заменить SHIFT + F11 Вставить пустой лист Главная – Вставить – Вставить лист ALT + SHIFT + «Стрелка вправо» Сгруппировать выделенные строки (столбцы) Данные – Группировать ALT + SHIFT + «Стрелка влево» Разгруппировать выделенные строки/столбцы Данные – Разгруппировать Ввод данных CTRL + Enter Ввод сразу во все выделенные ячейки – ALT + Enter Перенос строки внутри ячейки (при вводе) – CTRL + SHIFT + «4» Вставить текущую дату – ALT + «Стрелка вниз» Открыть выпадающий список (в пустой ячейке под столбцом с данными) – Навигация и выделение CTRL + Back space Вернуться к активной ячейке (прокрутка) – CTRL + PgUp (PgDown) Переключение между листами – CTRL+Tab Переключение между открытыми книгами Вид – Перейти в другое окно CTRL + пробел Выделить весь столбец – SHIFT + пробел Выделить всю строку – CTRL + A Выделить текущую область (до ближайших пустых строк и столбцов) – CTRL + End Перейти к последней ячейке листа – CTRL + SHIFT + End Выделить все до последней ячейки листа – CTRL + «Стрелка вправо / влево / вверх / вниз» Перейти до конца или начала строки (столбца) – CTRL + SHIFT + «Стрелка вправо / влево или вверх /вниз» Выделить до конца или начала строку или /столбец – Работа с файлами CTRL + N Создать новую пустую книгу – CTRL + S Сохранить текущую книгу – CTRL + O Открыть файл – Прочее CTRL + L Создание «умной» таблицы (с фильтрами, автоподстройкой размеров, дизайном, закреплением шапки и т. д.) Данные – Форматировать как таблицу CTRL + F2 Предварительный просмотр Кнопка Офис (Файл) – Печать – Предварительный просмотр F4 Повторить последнее действие (любое, если вообще возможно) – CTRL + K Вставить гиперссылку Вставка – Гиперссылка CTRL + F3 Открыть диалоговое окно «Диспетчер имен» Формулы – Диспетчер имен ALT+F8 Открыть диалоговое окно «Макрос» Разработчик – Макросы

Кожаные изделия

Боль в суставах

Браслет

Check this out: https://issuu.com/asartis/docs/libro_pelle_-_leather_braiding_-_trenzado_de_cuero/c/smc2og2

Гиперссылка в EXCEL

Так же можно создать гиперссылку, переходящую на определенную ячейку на листе:

=ГИПЕРССЫЛКА("#Лист2!D4";"Перейти в ячейку D4 Лист2")

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

Ссылку на ячейку можно указывать динамически, ссылаясь на определенную ячейку, не вписывая её адрес(на примере D2):

=ГИПЕРССЫЛКА("#Лист2!"&ЯЧЕЙКА("адрес";D4);"Перейти в ячейку "&ЯЧЕЙКА("адрес";D4)&" Лист2")

Можно указать ссылку на ячейку листа в другой книге:

=ГИПЕРССЫЛКА("#'[Другая книга.xls]Лист2'!"&ЯЧЕЙКА("адрес";D4);"Перейти в ячейку "&ЯЧЕЙКА("адрес";D4)&" Лист2 Другая книга.xls")

Или указать путь к файлу, который необходимо открыть по нажатии ячейки:

=ГИПЕРССЫЛКА("C:\Users\Дмитрий\Desktop\Книга 1.xls";"Открыть книгу Книга 1.xls")

При использовании гиперссылки из функции для открытия книги нельзя применить так же переход на нужный лист и ячейку. Это связано с ограничением именно самой функции. Т.е. нельзя указать что-то вроде: "C:\Users\Дмитрий\Desktop\Книга1.xls#Лист2!D4".

Важно: Книга, на которую ссылается функция ГИПЕРРСЫЛКА должна быть открыта. Если в имени книги или листа содержатся пробелы(или иные знаки препинания, кроме точки и нижнего подчеркивания), то обязательно в начале имени книги (перед [ ) и после имени листа ставить апостроф('). Я специально в одной из последних функций привел пример именно с пробелом - для наглядности:

=ГИПЕРССЫЛКА("#'[Другая книга.xls]Лист2'!"&ЯЧЕЙКА("адрес";D4);"Перейти в ячейку "&ЯЧЕЙКА("адрес";D4)&" Лист2 Другая книга.xls")

Поэтому если не уверены в том, будет ли имя листа и книги содержать такие символы, лучше в формуле проставлять апострофы всегда. Ошибкой это не будет и гиперссылка будет работать, даже если таких символов в имени не окажется.

Удаление пустых строк VBA

Sub DeleteEmptyRows() 
LastRow = ActiveSheet.UsedRange.Row - 1_ + ActiveSheet.UsedRange.Rows.Count     

'определяем размеры таблицы 
 Application.ScreenUpdating = False 
 For r = LastRow To 1 Step -1 

 'проходим от последней строки до первой 
        If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete 

 'если в строке пусто - удаляем ее 
 Next r 
End Sub

Список файлов в папке

Sub FileList()
    Dim V As String
    Dim BrowseFolder As String
   
    'открываем диалоговое окно выбора папки
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Выберите папку или диск"
        .Show
        On Error Resume Next
        Err.Clear
        V = .SelectedItems(1)
        If Err.Number <> 0 Then
            MsgBox "Вы ничего не выбрали!"
            Exit Sub
        End If
    End With
    BrowseFolder = CStr(V)
   
    'добавляем лист и выводим на него шапку таблицы
    ActiveWorkbook.Sheets.Add
    With Range("A1:E1")
        .Font.Bold = True
        .Font.Size = 12
    End With
    Range("A1").Value = "Имя файла"
    Range("B1").Value = "Путь"
    Range("C1").Value = "Размер"
    Range("D1").Value = "Дата создания"
    Range("E1").Value = "Дата изменения"
   
    'вызываем процедуру вывода списка файлов
    'измените True на False, если не нужно выводить файлы из вложенных папок
    ListFilesInFolder BrowseFolder, True
End Sub


Private Sub ListFilesInFolder(ByVal SourceFolderName As String, ByVal IncludeSubfolders As Boolean)

    Dim FSO As Object
    Dim SourceFolder As Object
    Dim SubFolder As Object
    Dim FileItem As Object
    Dim r As Long

    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set SourceFolder = FSO.getfolder(SourceFolderName)

    r = Range("A65536").End(xlUp).Row + 1   'находим первую пустую строку
    'выводим данные по файлу
    For Each FileItem In SourceFolder.Files
        Cells(r, 1).Formula = FileItem.Name
        Cells(r, 2).Formula = FileItem.Path
        Cells(r, 3).Formula = FileItem.Size
        Cells(r, 4).Formula = FileItem.DateCreated
        Cells(r, 5).Formula = FileItem.DateLastModified
        r = r + 1
        X = SourceFolder.Path
    Next FileItem
   
    'вызываем процедуру повторно для каждой вложенной папки
    If IncludeSubfolders Then
        For Each SubFolder In SourceFolder.SubFolders
            ListFilesInFolder SubFolder.Path, True
        Next SubFolder
    End If

    Columns("A:E").AutoFit

    Set FileItem = Nothing
    Set SourceFolder = Nothing
    Set FSO = Nothing

End Sub

Если захотите, чтобы вместо пути к файлу в столбце B выводилась живая гиперссылка, то замените строку

Cells(r, 2).Formula = FileItem.Path

на

Cells(r, 2).Formula = "=HYPERLINK(""" & FileItem.Path & """)"