Как использовать Microsoft Excel для управления своей жизнью

использует для ExcelНе секрет, что я настоящий фанат Excel. Во многом это связано с тем, что мне нравится писать код VBA, а Excel в сочетании со сценариями VBA открывает целый мир возможностей.

В прошлом, здесь, в MUO, я рассказывал о нескольких вещах, которые я делал с Excel и VBA, таких как экспорт данных Excel в Word

или отправка писем прямо из Excel

, Конечно, если вы не большой программист, вы всегда можете получить приложения Excel, написанные кем-то другим, например, перечисленные Саймоном.

,

Однако, если вы серьезно относитесь к использованию Excel для управления большей частью своей жизни, вам следует потратить время на то, чтобы узнать, как работает кодирование VBA. Чтобы помочь с этим, я решил поделиться таблицей «Автоматизация», которую я создал, чтобы управлять различными областями моей жизни. Эта электронная таблица имеет 4 вкладки и охватывает все: от группировки ссылок URL-адресов, которые я хочу запустить сразу, до управления своим долгом и более быстрого его погашения.

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

Управление своей жизнью с помощью Excel

Microsoft Excel — это не просто электронная таблица данных. Это на самом деле платформа для разработки приложений. Если вы посмотрите на это таким образом, вы можете понять, насколько вы можете достичь с помощью приложения.

Посмотрите на лист как на панель дизайна, где вы можете разместить объекты форм Visual Basic, такие как кнопки команд, раскрывающиеся списки, текстовые поля и все остальное вообще. Вы можете не только разместить их где-либо на листе, но и использовать эти объекты для интерактивного (или автоматического) добавления, удаления или манипулирования информацией на листе.

Мониторинг ваших сайтов

Я пробовал множество различных инструментов для проверки связи с различными веб-сайтами, которыми я управляю, например, ICMP Ping Manager.

, Но недавно я обнаружил способ пинговать веб-сайты прямо из скрипта Excel VBA. Это означало, что я мог бы добавить лист к моей книге «Автоматизация», который будет пинговать все веб-сайты, которыми я управляю, и поместить результаты в ячейку рядом с именем веб-сайта.

Вот как я выложил лист.

использует для Excel

Число «4» в ячейке B1 используется для отображения количества сайтов, которые я установил на листе. Это позволит сценарию подсчитывать только количество ячеек, на которых есть сайты в списке, начиная с A3.

Код для этого выглядит следующим образом:

Dim intSiteCount As Integer
Dim intCount As Integer
Dim oPing As Object, oRetStatus As Object
Dim sHost As String
Dim sPing As String
Dim intCol As Integer
Dim intRow As Integer
intSiteCount = CInt (Sheet1.Cells (1, 2) .Value)
intRow = 3
Для intCount = 1 Для intSiteCount
sPing = ""
Sheet1.Cells (intRow, 2) = sPing
intRow = intRow + 1
следующий
intRow = 3
Для intCount = 1 Для intSiteCount
sHost = Sheet1.Cells (intRow, 1)
Установите oPing = GetObject ("winmgmts: {impersonationLevel = impersonate}"). ExecQuery _
(«выберите * из Win32_PingStatus, где address = '»  sHost  "'")
Для каждого oRetStatus в работе
Если IsNull (oRetStatus.StatusCode) или oRetStatus.StatusCode 0, то
sPing = "Ping Failed"
еще
sPing = sHost  "Пинг Успех на"  Сейчас()  Chr (10)
sPing = sPing  "Время (мс) ="  vbTab  oRetStatus.ResponseTime  Chr (10)
sPing = sPing  "TTL (s) ="  vbTab  vbTab  oRetStatus.ResponseTimeToLive
Конец, если
следующий
Sheet1.Cells (intRow, 2) = sPing
intRow = intRow + 1
следующий

[/ NOEDIT]

Первый взгляд «For» вверху просто просматривает ячейки с результатами и очищает результаты, полученные при последней проверке. Второй цикл FOR считает все строки, перечисляющие веб-сайты, начиная с третьей строки (intRow-3), выполняет команду Ping (строка Set oPing) и затем возвращает результаты в столбец B (Sheet1.Cells (intRow, 2). ) = sPing).

Вот как выглядят эти результаты после запуска скрипта.

как использовать Excel для управления деньгами

Столбец результатов показывает, был ли эхо-запрос успешным, и сведения о времени / TTL.

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

как использовать Excel для управления деньгами

Введите название макроса для этой кнопки и нажмите «Новый».

как использовать Excel для управления деньгами

Это откроет экран кода, где вы можете вставить код сверху.

Ведение библиотеки групп ссылок

На другой вкладке я также начал организовывать группу ссылок, которые я использую для выполнения определенных задач. Например, когда я пишу для MUO, мне нравится открывать редактор тем WordPress, Google и нашу страницу Документов Google. Когда я исследую темы Top Secret Writers, мне нравится открывать несколько стандартных медиа-страниц.

использовать Excel для управления проектами

Когда я нажимаю кнопку «Launch Group», он запускает веб-браузер по умолчанию и открывает все страницы в этой группе. Вот как выглядит скрипт для каждой кнопки:

Dim intSiteCount As Integer
Dim intCount As Integer
Dim intCol As Integer
Dim intRow As Integer
intSiteCount = CInt (Sheet2.Cells (4, 3). Значение)
intRow = 5
Для intCount = 1 Для intSiteCount
ActiveWorkbook.FollowHyperlink (Sheet2.Cells (intRow, 2))
intRow = intRow + 1
следующий

[/ NOEDIT]

Этот скрипт прост, но эффективен. Секрет этого — функция FollowHyperlink. Этот код будет проверять количество ссылок, определенных в ячейке справа от заголовка группы, и знает, как пройти через такое количество ссылок перед заголовком. Для каждой кнопки местоположение счетчика ссылок и используемый столбец необходимо вручную ввести в код, но остальная часть кода идентична для каждой кнопки.

Предварительный просмотр вашей картинной галереи

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

Вот как это выглядит после нажатия кнопки «Просмотр фото».

использовать Excel для управления проектами

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

Кнопка запускает следующий скрипт:

Dim myPict As StdPicture
Dim strFilePath As String
Dim intRow As Integer
Dim myPictName As Variant
Dim myCell As Range
Dim sPicture As String
Dim strTest As String
Dim myRng As Range
Dim intSkip As Integer
intRow = 2
strFilePath = Sheet3.Cells (1, 3). Значение
Установите myObject = New Scripting.FileSystemObject
Установите mySource = myObject.GetFolder (strFilePath)
При ошибке возобновить следующее
С листа3
Установите myRng = Sheet3.Range ("B2", .Cells (.Rows.Count, "B"). End (xlUp))
Конец с
Для каждого myfile в mySource.Files
«Если изображение является файлом
If Right (myfile, 4) = ".gif" или Right (myfile, 4) = ".jpg" или Right (myfile, 4) = ".bmp" или Right (myfile, 4) = ".tif" или Right (myfile, 4) = ".png" Тогда
Sheet3.Cells (intRow, 1) .Value = ""
Sheet3.Cells (intRow, 1) .Value = myfile.Name
intSkip = 0
Для каждого myCell в myRng.Cells
Если intSkip = 1, то
С myCell.Offset ((intRow - 3) + 1, 0)
Sheet3.Shapes.AddPicture myfile.Path, msoCTrue, msoCTrue, .Left, .Top, 125, 125
Конец с
Конец, если
intSkip = intSkip + 1
Next myCell
Конец, если
intRow = intRow + 1
следующий

[/ NOEDIT]

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

Управление своим долгом

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

,

Самая важная концепция, о которой я писал в этой статье и которая относится к любой статье об использовании Excel для управления вашей жизнью, — это использование Excel для расчета того, как «эффект снежного кома» может помочь вам погасить свой долг.

Концепция довольно проста. Перечислите все свои долги по кредитной карте бок о бок в листе, с двумя колонками на долг — общий баланс и оплата. Расчет для каждой последующей платежной ячейки: «PrevBalance + (PrevBalance * 0.10 / 12) — последний платеж»

использовать Excel для управления проектами

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

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

использует для Excel

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

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

Есть ли у вас какие-либо уникальные возможности использования Excel для управления собственной жизнью? Поделитесь своими советами и советами в разделе комментариев ниже.

Имиджевый кредит: увеличительное стекло через Shutterstock

Ссылка на основную публикацию
Adblock
detector