Помощничек
Главная | Обратная связь


Археология
Архитектура
Астрономия
Аудит
Биология
Ботаника
Бухгалтерский учёт
Войное дело
Генетика
География
Геология
Дизайн
Искусство
История
Кино
Кулинария
Культура
Литература
Математика
Медицина
Металлургия
Мифология
Музыка
Психология
Религия
Спорт
Строительство
Техника
Транспорт
Туризм
Усадьба
Физика
Фотография
Химия
Экология
Электричество
Электроника
Энергетика

Приклад автоматизація кредитування засобами табличного процесору 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

Результат роботи програми

Екранна сторінка

КУПІВЛЯ ПРОДАЖ
T1   T1     T2
  T 3     T 4
  Код валюти
Отримано від клієнта Видати клієнту      
  Код валюти USD (1) EUR (2) UAH(3)  

Контрольні питання

Відповіді на контрольні питання мають бути розкриті у вступі розрахункової роботи у довільному порядку без нумерації питань.

1. Інформатизація суспільства.

2. Етапи розвитку інформаційних систем.

3. Особливості застосування ІС та ІТ в міжнародному бізнесі.

4. Моделювання організацій, бізнес-процесів та ризиків.

5. Особливості застосування табличного процесору для моделювання бізнес-процесів.

6. Особливості застосування СУБД для автоматизації бізнес-процесів.

7. Автоматизація управління підприємств, комерційних структур та мультинаціональних корпорацій.

8. Інформатизація світового бізнесу. Цифрова економіка.

9. Інформатизація міжнародного ринку.

10. Електронні ринки на основі мережі Інтернет.

11. Міжнародні системи електронного документообігу.

12. Платіжні та фінансові системи у мережі Інтернет.

13. Електронна комерція та віртуальні підприємства як сучасна форма організації.


 




Поиск по сайту:

©2015-2020 studopedya.ru Все права принадлежат авторам размещенных материалов.