Приклади розрахунків
Розрахунки по оподаткуванню засобами табличного процесора Excel
Приклад автоматизація кредитування засобами табличного процесору Excel та VBA
Кнопки, що створені на робочому листі Excel, автоматично виконують формування визначених документів і виведення їх на екран, за допомогою макросів на мові VBA.
Приклад автоматизація грошових потоків компанії засобами табличного процесору Excel
Приклад побудови діаграм в табличному процесорі Excel
Приклад автоматизації розрахунків витрат засобами табличного процесору Excel
На екранній сторінці Excel створені перемикачі, що дозволяють автоматизувати процеси визначення витрат. Розрахунки проводяться з використанням умовного оператора ЕСЛИ.
Приклад автоматизації складання бюджету компанії засобами табличного процесору Excel
Приклад звітніої форми по результатам розрахунків
засобами табличного процесору Excel
Приклад автоматизації розрахунків за вкладами засобами редактора VBA
Результат виконання програми
Екранна сторінка
Приклади автоматизації засобами редактора VBA
Автоматизація роботи валютного кіоску засобами VBA
Текст програми
Private Sub Command1_Click()
Dim k1k, k1p, k2k, k2p, otrum, v As Currency
Dim kodval, kodvalp As Integer
Dim PIB, val As String
k1k = T1;курс купівлі USD
k1p = T2; курс продажу USD
k2k = T3; курс купівлі EUR
k2p = T4; курс купівлі EUR
otrum = T5; Отримано від клієнта
kodval = T9; Код валюти
If kodval = 1 Then T6 = "USD"
If kodval = 2 Then T6 = "EUR"
If kodval = 3 Then T6 = "грн."
If kodval = 1 Then v = k1k * otrum
T10 = "грн."
T11 = 3
If kodval = 2 Then v = k2k * otrum
T10 = "грн."
T11 = 3
T8 = v
If kodval <> 3 Then GoTo 1
If kodval = 3 Then kodvalp = InputBox ("Яку валюту необхідно купити USD=1;EUR=2", "Банк АВАЛЬ")
If kodvalp = 1 Then v = otrum / k1p
T10 = "USD"
T11 = kodvalp
T8 = v
If kodvalp <> 2 Then GoTo 1
If kodvalp = 2 Then v = otrum / k2p
T10 = "EUR"
T11 = kodvalp
T8 = v
End Sub