Ярлыки

(16) 1С 8.3 (1) 2GIS (1) автоактивация (3) Активация (3) Андроид (113) Антивирус (2) Аудио (2) биоритмы (1) Блок питания (22) боль в спине (1) браузер (2) бросить курить (1) буквы соответствие (1) бумажник (1) бюджетирование (1) ВАЗ 2110 (1) вацап (1) видеонаблюдение (8) Видеосвязь (1) гаджет (1) Галстук (1) геокоординаты (1) дача (1) для дома (1) дом (2) драйвера (6) Дубликаты (1) еда (1) запись (1) Зарядка акб (1) Зарядное устройство (1) звук (4) здоровье (8) знаки зодиака (1) зрение (1) игнтернет (1) иероглифы (1) Изделия из дерева (1) Интернет (10) Интернет-магазины (3) Кино (1) ключница (1) Книги Журналы (1) кожаная обувь (4) командная строка (1) конвертор (1) кошелек (1) кресло-качалка (1) кухня (2) Лекарства (1) логика (1) макрос (1) медицина (1) мозги (1) морщины (2) мтс (1) музыка (9) мультики (1) Мыльные_пузыри (1) Натуральная кожа (56) Облако (1) омск (1) Он Лаин библиотеки (1) органайзер (1) оригами (1) Отбеливание (1) отслеживание посылок (1) Папка (1) Пароли (2) пароль (3) партмоне (1) парфюм (1) переименование файлов (1) питание (1) Планшет (5) поза сна (1) поздравление (1) поиск (1) поиск дублей (1) поисковик (1) Полезные сайты (1) портабле (2) принтер (4) Программы (58) простуда (1) расширения (1) редактор музыкальных файлов (1) Русский язык (1) рут (2) сеть (8) Скрыть информацию (1) Стиль (1) стихи (2) сумка (1) суставы (3) теги (1) трек-номер (1) тренинг (1) тренинг памяти (1) удаленный доступ (2) узлы (1) УНЧ (3) Управление компьютером (2) Управленческий учет (2) Успокоительные средства (1) фильмы (2) Флешка (53) фото (2) цвета в одежде (1) цена (1) экран не гаснет (1) эл почта (2) Ютуб (1) Access (10) Acronis True Image WD Edition (1) AliExpress (1) ALT-коды (1) audi (1) Avira Antivirus (1) bat (2) BIOS (4) chrom (15) Chrome (2) Cube iPlay 10 U83 (1) Dism++ (2) epson 1260 (1) ERD Commander (1) Excel (42) Faceter (1) Firefox (1) GHOST32 (4) gif анимация (1) Google (1) Google Hrome (1) Google Play (1) Grub4Dos (7) HDD (1) Honor (1) HP USB Disk Storage Tool (1) IPTV (1) KPI (1) Linux (16) NirCmd (1) office (4) PDF (1) Pinterest (1) portable (2) Prestigio3502 (1) Rufus (2) SSD (1) torrent (1) UEFI (1) VBA (42) WEB ресурсы (2) WiFi (2) Windows (77) Windows 10 (5) Windows 11 (2) Windows 7 (24) YouTube (15)

воскресенье, 19 июня 2016 г.

Подключение сетевого принтера в ОС Windows 7

Подключение сетевого принтера в ОС Windows 7.
Проверьте подключение вашего принтера с помощью веб-интерфейса, открыв любой браузер и ввести адресную строку http://192.168.1.1. В появившемся окне ввести логин и пароль (admin и admin, соответственно).
Далее заходим в меню Пуск — Панель управления — Устройства и принтеры — Добавить принтер (кнопка вверху). В появившемся окне выбираем «Добавить локальный принтер»: В следующем окне необходимо выбрать порт принтера (см. рис. 4). Перейдите в пункт «Создать новый порт» и выберите в выпадающем списке пункт Standart TCP/IP Port.
После нажатия кнопки «Далее» мастер установки принтера попросит IP адрес принтера в сети, IP адрес принтера соответствует IP-адресу роутера — 192.168.1.1. Укажите его в поле Имя или IP-адрес и снимите галку с пункта «Опросить принтер и выбрать драйвер автоматически». Нажимаем «Далее». Откроется окно «Поиск порта TCP/IP». Подождите пока не появится окно с требованием ввести дополнительные сведения о порте. Выберите тип устройства Обычное (Generic Network Card) и нажмите Далее: Теперь надо установить драйвер для принтера. Выберите из списка вашу модель или Нажмите на кнопку «Установить с диска…» и в проводнике укажите путь до файла с драйвером. Потом нажмите Далее. Введите любое имя принтера и снова жмите кнопку Далее. Появится окно с процессом установки принтера по завершении которого мастер установки предложит настроить общий доступ к принтеру через локальную сеть. Выберите вариант «Нет общего доступа к этому принтеру» и нажмите Далее. Мастер сообщит об успешной установке драйвера и предложит использовать принтер по умолчанию. Теперь осталось нажать кнопку «Готово» и настроить свойства порта. Откройте меню Пуск — Устройства и принтеры. Найдите ваш принтер, нажмите правой кнопкой мыши и выберите пункт «Свойства принтера». Перейдите к вкладке «Порты», поставьте галочку на порте, который создали ранее и нажмите на кнопку «Настроить порт…» В настройках TCP порта выберите протокол LPR и задайте Имя. Теперь нажмите «ОК» для сохранения настроек.

Производитель смартфона

четверг, 16 июня 2016 г.

Оглавление папки VBA

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 = "Дата изменения"
     ActiveSheet.Name = Format(Now(), "dd") & Format(Now(), "mmm") & Format(Now(), "hh_mm_ss")

    'вызываем процедуру вывода списка файлов
    'измените 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

понедельник, 13 июня 2016 г.

Клавишы 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 Открыть диалоговое окно «Макрос» Разработчик – Макросы

пятница, 3 июня 2016 г.

Гиперссылка в 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")

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