Как да програмирам с MS Excel

Отворете електронна таблица. Можете да използвате електронна таблица, която в момента имате на вашия компютър, или можете да създадете електронната таблица, показана тук. Ако използвате предварително направена, уверете се, че има колона за общи стойности.

Направете раздела „Разработчик“ да се появи в лентата. Най-вероятно няма да видите раздела Разработчик, когато отворите Excel. Ще трябва да щракнете върху бутона "Microsoft Office" в горната част на екрана и след това да кликнете върху "Опции на Excel". От екрана Популярни изберете „Покажи раздела за програмисти в лентата“ и щракнете върху „OK“, за да затворите този формуляр. Щракнете върху раздела „Разработчик“, след като се вижда от екрана на Excel.

Кликнете върху „Visual Basic“. Ще се появи редакторът на Visual Basic. От дясната страна щракнете двукратно върху Лист 1, тъй като това е листът, с който ще работим. В дясната страна на екрана се добавя нов празен лист.

Въведете "Option Explicit" в горната част на екрана. Трябва да направите това с всяка програма, която създавате във VBA. Това гарантира, че наименувате своите променливи, преди да им присвоите данни. Мислете за променливите като за малки контейнери, които ще съхраняват информация. Те са полезни, когато информацията, която използвате, непрекъснато се променя. Например, трябва да работите с сумите за януари. Тъй като тази сума ще се променя от време на време, вие я присвоявате на променлива. Винаги можете да извикате тази променлива, дори ако не знаете точното количество данни, които тя съдържа.

Въведете следната функция: Функция TalkIt (txtTotal) Приложение. Реч. Говорете (txtTotal) TalkIt=txtTotal Крайна функция Това е функцията, която ще контролира говоренето на електронната таблица. Това, което направихме, беше да използваме вградения генератор на текст в говор, който идва с Excel. Първият ред на функцията декларира функцията ("Function"), дава й име ("TalkIt") и след това посочва какви данни ще й предадем ("txtTotal"). Сега, когато функцията е дефинирана, трябва да я препратите и да изпратите данните, за да работи.

Върнете се към електронната таблица и добавете бутон. От раздела „Разработчик“ щракнете върху „Вмъкване“ и след това натиснете бутона (първата икона в горната част. Начертайте бутона в електронната таблица където искате. Появява се нов прозорец; наименувайте бутона "cmd_Total" и щракнете върху "OK". Можете да промените текста на бутона, като щракнете с десния бутон върху бутона и след това щракнете върху „Редактиране на текст“. Написах „Разговор“ в текста си.

Върнете се към редактора на Visual Basic, за да добавите последното парче код. Private Sub cmdTotal_Click() Dim intTotal As Integer 'декларира нова променлива за задържане на текст Dim txtTotal като низ intTotal = WorksheetFunction. Сума (клетки. Range("B3", "B14")) 'използвайте оператора If...else, за да контролирате стойността на променливата txtTotal If intTotal < 2500 Тогава txtTotal = "Целта не е постигната" Else txtTotal = "Целта е достигната" Край, ако TalkIt (txtTotal) Край под

Това, което кодът по-горе означава, че когато се щракне върху бутона, кодът ще види дали общата сума на колоната „Шапки“ в работния лист е по-малка от $2500. Ако е така, тогава синтезираният глас на Excel ще каже „Целта не е постигната“. Ако общата сума е $2500 или повече, тогава гласът ще каже „Целта е постигната“. Това е. Току-що създадохте първата си програма в Microsoft Excel.

Бакшиш