Выборочное суммирование в excel

Вместо Enter при написании формул в Excel нужно вводить Ctrl + Shift + Enter.

Установка 2GIS в Linux

echo 'deb http://deb.2gis.ru/ trusty non-free' | sudo tee /etc/apt/sources.list.d/2gis.list 
gpg --keyserver hkp://keyserver.ubuntu.com --recv-keys 69ECCC891636CC92 
gpg --armor --export 69ECCC891636CC92 | sudo apt-key add - 
sudo apt-get update 
sudo apt-get install 2gis

Что говорит о вашем характере поза, в которой вы спите

Все просто. Посмотрите на картинку ниже и выберите основную позу, в которой в спите ночью.

1. Если вы не можете заснуть, не упершись во что-нибудь или в кого-нибудь коленкой, значит вы — спокойный и надежный человек. Вас нелегко обидеть, и вы не боитесь будущего. Такие люди способны улыбаться даже в самое суровое утро и легко привыкают к любым изменениям в вашей жизни.
2. Если в основном вы спите в позе эмбриона, то это значит, что вы часто нуждаетесь в защите, понимании и сочувствии. Свернувшись калачиком во сне, вы будто отгораживаетесь от проблем окружающего мира. Попробуйте найти применение своим талантам и способностям — рисуйте пейзажи, учитесь танцевать, заведите блог. Если так спит ваш мужчина, прекратите его терроризировать. Если так спит ваш кот — он нормальный кот.
3. На животе, раскинув руки и ноги во все стороны, спят лидеры. Такие люди импульсивны и инициативны, они чутко следят за порядком в семье и на работе, предпочитают всё заранее планировать и не любят неожиданностей. Из-за своей настойчивости и ответственности такие люди быстро достигают успеха и благополучия.
4. На спине спят праведники и короли. Похоже, что вы среди них. Вы позитивны и жизнерадостны, привыкли быть в центре внимания и любите веселые компании. В работе вы упорны, упрямы, но рациональны, предпочитаете говорить правду в глаза. Чаще всего так спят мужчины, но встречаются и «железные» леди.
5. Если вы спите, как солдат в карауле, то вы уравновешенная персона, которая имеет цель в жизни и стремится к ней. Вы бываете строги, педантичны и требовательны, но больше всего требований вы предъявляете к себе.
6. Спите как цапля? Вы непредсказуемая личность, которую тянет на всякие приключения, а смена настроения порой повергает окружающих в лёгкий шок. За считанные минуты неземная нежность может превратиться в зубодробительный скандал и обратно. Зачастую вам сложно сделать выбор. Но в жизни и работе вы предпочитаете стабильность, покой и аккуратность.

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

Источник: http://www.adme.ru/svoboda-psihologiya/vot-chto-poza-v-kotoroj-vy-spite-govorit-o-vashem-haraktere-911010/ © AdMe.ru

Как считать в 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