Аптечка сисадмина

Autoruns
Unlocker
Process Explorer

 Если сначала запустить PE, а затем Autoruns, то в меню по-
следней появляются дополнительные пункты о просмотре свойств
каждого активного процесса из меню автозапуска

Обработка всех файлов в папке

Рассмотрим несколько полезных процедур, построенных на применении циклов.
Первая процедура использует объект VBA FileSearchдля нахождения всех JPG&
файлов в указанной папке и вывода их списка на рабочем листе Excel.
Внешний цикл, использующий переменную&счетчик I, обрабатывает список най&
денных файлов. На каждой итерации цикла полное имя файла помещается в пе&
ременную ThisEntry. Чтобы отделить путь к файлу от его имени, применяется
внутренний цикл, использующий переменную&счетчик J.
Для Excel 2003


Sub ListJpgFiles()
'Этот макрос находит всеJPG-файлы в заданной
'папке и  выводит их список на рабочем листеExcel.
'Очистить все ячейки рабочего листа.
Cells.Clear
'Создать заголовки столбцов.
Range("A1:D1").Value = Array("FileName", "Path", _
"FileName", "NewPath")
NextRow = 2
'Поиск файлов осуществляется с помощью объектаFileSearch.
With Application.FileSearch
.NewSearch
.LookIn = "C:\"
.SearchSubFolders = True
.Filename = "*.jpg"
.Execute
FilesToProcess = .FoundFiles.Count
'Обработать список найденных файлов.
For I = 1 To .FoundFiles.Count
ThisEntry = .FoundFiles(I)
Cells(NextRow, 1).Value = ThisEntry
'Отделить путь к файлу от его имени.
For j = Len(ThisEntry) To 1 Step -1
If Mid(ThisEntry, j, 1) = _
Application.PathSeparator Then
Cells(NextRow, 2) = Left(ThisEntry, j)
Cells(NextRow, 3) = Mid(ThisEntry, j + 1)
Exit For
End If
Next j
NextRow = NextRow + 1
Next I
End With
End Sub

Мед с лимоном - энергетический напиток

Мой рецепт

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

Сразу стоит сказать, что вкус у этого коктейля может день ото дня быть очень разным: все зависит и от лимона, и от меда, который вы добавляете. Иногда этот нектар получается кисловатым, иногда — приторно-сладким. Это ничего.

Как это работает? Я покопался на медицинских сайтах, чтобы разобраться, в чем тут дело. И понял несколько важных вещей.

1. Этот напиток защищает вас от инфекции мочевых путей

Лимон и мед стимулируют работу вашей пищеварительной системы, а также увлажняют толстую кишку. В результате получается отличное лекарство от запоров и цистита. Напиток мочегонный, и врачи говорят, что он вполне способен защитить вас от проблем и с мочевыводящими путями.

2. Улучшает пищеварение

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

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

2. Заставляет вас светиться здоровьем и красотой

Лимон дает много преимуществ для кожи. Он также помогает очистить кровь. Организм, если вы потчуете его лимоном, быстрее производит новые клетки крови. Вода стимулирует выработку коллагена, что очень полезно для кожи.

В общем, рекомендую. К тому же это вкусно. Просто попробуйте.

(Лучше проконсультироваться с вашим врачом, подходит ли это лично вам!)

Источник: http://www.adme.ru/svoboda-sdelaj-sam/ya-pil-vodu-s-medom-i-limonom-po-utram-celyj-god-i-vot-chto-iz-etogo-vyshlo-963710/ © AdMe.ru

Ключница из натуральной кожи

15 сайтов, где можно потренировать мозги

нашел 15 сайтов, где много разных тренажеров для мозга. При помощи задач, упражнений и игр сегодня потренируем память, завтра логику. А получим красивый и подтянутый ум.

Cognifit

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

Wikium

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

Mnemonica

Этот сайт встречает нас фразой: «Нет людей с плохой памятью. Есть люди, которые не умеют ею пользоваться». Выполняя несложные упражнения, можно развить память, получить навыки в запоминании чисел, слов и текстов, развить внимание и образное мышление. Также на сайте есть небольшие статьи с полезными советами.

Happymozg

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

Petruchek

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

Brainscale

На этом сайте всего один тренажер для мозга — задачка N-назад. Это упражнение, которое улучшает оперативную («рабочую») память, совершенствует подвижный интеллект, оптимизирует скорость мышления. Суть игры: пользователь видит квадратики в ячейках матрицы и слышит буквы. При этом необходимо определить и указать, встречался ли предъявляемый образ на n-позиций (1, 2, 3...) назад.

Uplift

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

Fitnessbrain

Еще один сайт с логическими играми, головоломками, упражнениями для развития памяти и паззлами для развития внимательности. Девиз — «Прокачай свой мозг».

Zanimatika

На сайте «Занимательная педагогика» есть интересный тест, пройдя который, можно определить возраст своего мозга.

S-mind

Это сайт о возможностях человеческого мозга и развитии интеллекта. Здесь рассказывают о том, как устроена наша голова, как там все работает, и дают советы, как ускорить эту работу. Например, есть статья «Как улучшить кратковременную память», задачки на логику и многое другое.

Chisloboi

Онлайн-игра на развитие скорости счета. Есть несколько режимов: тренировочный, где не ведется подсчет времени; марафон — нужно как можно быстрее ответить на 20 вопросов; безошибочный, где игра длится аж две минуты, но при этом нельзя допустить ни одной ошибки, и другие.

Quantified-mind

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

Litlbetr

В разделе «Форма ума» сайт предлагает разные веселые упражнения и головоломки для тренировки памяти, внимания, воображения, скорости и гибкости ума. Можно и просто повеселиться — например, есть смешная головоломка «Семечко», где логику происходящего теряешь где-то на пятом-шестом шаге.

Mozgame

Онлайн-игры на развитие памяти, тренировку наблюдательности, на зрительную память.

Brainexer

На Brainexer есть самые разные упражнения: задачи на концентрацию, сортировку, переключение, группы и списки слов, арифметические операции, пропущенные числа, подсчет символов, нахождение пути и др. Одно из особенно интересных упражнений — «Эффект Струпа». Обязательно пощелкайте.

Источник: http://www.adme.ru/zhizn-nauka/15-sajtov-gde-mozhno-potrenirovat-mozgi-872060/ © AdMe.ru

Бумажник из натуральной кожи

Оригинальное партмоне из натуральной кожи

PrintOut VBA

Печатайте на принтер Excel

Application.ActivePrinter = "MyPrinter"

или

ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="MyPrinter"

При этом активный принтер компьютера менять не надо. =======================================================
ActiveSheet.PrintOut ActivePrinter:="HP LaserJet 5L" 

Range("A1:C10").PrintOut 

ActivePrinter:="HP LaserJet 5L (LPT1:)" 

ThisWorkbook.Worksheets(1).Range("B2:C10").PrintOut 

Предполагается, что распечатать нужно только ячейки и графические об'екты диапазона B2:C10 первого рабочего листа текущей рабочей книги.

If Worksheets("киоски").Range("F4").Value <> "" Then 

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=3, Copies:=1, Collate:=True

Else

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=4, Copies:=1, Collate:=True

If Worksheets("киоски").Range("F4").Value <> "" and 

Worksheets("киоски").Range("E4").Value <> "" Then 

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate:=True

Else

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=4, Copies:=1, Collate:=True

Синтаксис DoCmd

Условия отбора для строковых значений
DoCmd.OpenReport "Сотрудники", acViewNormal, , "[cust_Fam]=" & "'" & Me![sd_Fam] & "'"
то есть
DoCmd.OpenReport "Сотрудники", acViewNormal, , "[cust_Fam]='Иванов'"

Условия отбора для числовых значений
DoCmd.OpenReport "Продажи", acViewNormal, , "[cust_id]=" & Me![cust_ID]


Вот еще пример
Private Sub Кнопка10_Сlick()
'Открыть таблицу DoCmd.OpenTable «Учащиеся», acNormal, acEdit
'Выделить объект - таблицу Учащиеся 
DoCmd.SelectObject acTable, «Учащиеся», True 
'Открыть форму Форма1
'DoCmd.OpenForm «Форма1», acNormal, "", "",, acNormal
DoCmd.OpenForm «Форма_с_кнопкой», acNormal, "", "", ,acNormal
DoCmd.ApplyFilter "", «[Учащиеся]![Пол]=Тгие»
End Sub