Как считать в Excel

Если нам нужно вычислить пять процентов из двадцати, то формула будет выглядеть следующим образом: =20*5%

Excel макрос

Макрос замены точки на запятую в выделенных ячейках

Sub Макрос_замены_точки_на_запятую()
Selection.Replace What:=".", Replacement:=","
End Sub


Макрос замены запятой на точку в выделенных ячейках

Sub Макрос_замены_запятых_на_точки()
Selection.Replace What:=",", Replacement:="."
End Sub

ТАЙНЫ ЗНАКОВ ЗОДИАКА

ТАЙНЫ ЗНАКОВ ЗОДИАКА

Овен
Думает — много.
Говорит — мало.
Делает — правильно.

Телец
Думает — о многом.
Говорит — убедительно.
Делает — как получится.

Близнецы
Думает — о себе.
Говорит — что думает.
Делает — думает, что очень хорошо.

Рак
Думает — постоянно.
Говорит — заманчиво.
Делает — что укажут.

Лев
 Думает — точно.
 Говорит — лишнее.
 Делает — то, от чего не удалось отвертеться.

Дева
 Думает — одно.
 Говорит — другое.
 Делает — третье, но хорошо.

Весы
 Думает — лишнее.
 Говорит — честно.
 Делает — ответственно.

Скорпион
 Думает — сосредоточенно.
 Говорит — точно.
 Делает — что нравится.

Стрелец
 Думает — что только он…
 Говорит — что все, кроме него..
 Делает — чужими руками.

Козерог
 Думает — что в голову придёт.
 Говорит — то, до чего додумался.
 Делает — что умеет.

Водолей
 Думает — “а что надо?”
 Говорит — “ну если надо”
 Делает — лучше всех.

Рыбы
 Думает — что никто не знает.
 Говорит — умничает.
 Делает — в зависимости от того, будут ли проверять работу

Макрос VBA Excel выводит содержание папки

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 = "=HYPERLINK(""" & FileItem.Path & """)"
        '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

Внесение информации с нулями в начале

Если вы введете в Excel число 000356, то программа автоматически превратит его в 356. Если вы хотите оставить нули в начале, поставьте перед числом апостроф «’».