Есептеу бағдарламалық коды
Қосымша VBA-ны жалпы экономикалық қарапайым есептерде қолдану
Бұл материалда VBA мүмкіндіктерін пайдаланып, Excel ішінде екі типтік экономикалық есепті автоматтандыру жолы қарастырылады. Негізгі мақсат — сценарийлер бойынша есептеуді түймешелер арқылы орындап, нәтижені кестеде бірден көрсету.
Негізгі идея
- Бір есеп — бірнеше сценарий: параметрлер өзгерген сайын нәтиже автоматты түрде қайта есептеледі.
- Есептеу логикасы VBA модулінде жазылады, ал пайдаланушыға — түймеше арқылы іске қосу жеткілікті.
- Нәтижелер кестеде көрнекі түрде беріледі (түстермен белгілеу, салыстыру, максималды мәнді ерекшелеу).
Мысал 1
Есептің қойылымы
Компания белгілі бір тауар шығарады делік. Өндіріске уақыт пен материал қажет. Материалдың өзіндік құны кестеде =СУММПРОИЗВ(B1:B3;B4:B6) формуласының көмегімен есептеледі.
Компания менеджеріне жалпы табысты (немесе жинақталған нәтижені) есептеп шығару қажет, бірақ бір сағатқа төленетін ақы туралы дайын мәлімет жоқ. Сол мәнді есептеу үшін төмендегі сценарийлік кесте қолданылады.
Жалпы сценарий кестесі (1–3)
Сценарийлік параметрлер| Көрсеткіш | 1 | 2 | 3 |
|---|---|---|---|
| Бір сағатта төленетін ақы | 23 | 29 | 31 |
| Материал бірлік бағасы (I) | 62 | 55 | 59 |
| Материал бірлік бағасы (II) | 32 | 24 | 27 |
| Материал көлемі (I) | 5 | 3 | 3 |
| Материал көлемі (II) | 3 | 6 | 4 |
Әрбір сценарийге сәйкес жеке түймеше беріледі. Түймеше басылғанда, қажетті процедура іске қосылып, кестелерде есептеу нәтижесі автоматты түрде шығарылады.
Бағдарламалық бөлік және нәтижелер
- Сурет 1: Модульдер терезесі және енгізілген кодтар.
- Сурет 2.1: Есептеудің 1-нұсқасы бойынша нәтиже.
- Сурет 2.2: Есептеудің 2-нұсқасы бойынша нәтиже шығатын терезе.
- Сурет 2.3: Есептеудің 3-нұсқасы бойынша нәтиже (терезе көрінісі).
Мысал 2
Есептің қойылымы
Кейбір дүкендерде сатушыларға комиссиялық сыйақы келесі ережелер бойынша есептеледі:
- Сатылым көлемі 100 000 теңге болса — комиссия p1 бойынша есептеледі.
- Сатылым көлемі 50 000–100 000 теңге аралығында болса — комиссия p2 бойынша есептеледі.
- Сатылым көлемі 50 000 теңге болса — комиссия p3 бойынша есептеледі.
Екі сценарий бойынша есептеу
Төменде көрсетілетін процедура комиссияны екі түрлі сценарий бойынша есептейді:
Сценарий A
Пайыздар- p14%
- p23%
- p32%
Сценарий B
Пайыздар- p16%
- p24%
- p32%
Берілген есепте комиссиялық сыйақы мәндері салыстырылады: максималды мән қызылмен, минималды мән қарамен, ал орташа мән көк түспен белгіленеді.
Автоматтандыру және көрнекі нәтиже
Комиссияны әр сценарий бойынша автоматты есептеу үшін VBA модулі пайдаланылады. Модульге қажетті код енгізіледі, нәтижелер кестеде және тиісті терезелерде көрсетіледі.
- Суреттерде комиссияның бірінші сценарий бойынша есептелуі және екінші сценарий бойынша алынған нәтижелер көрсетіледі (сурет 4(a) және кейінгі көріністер).
- Процедуралар түймешелерге байланыстырылып, пайдаланушы әрекеті минимумға дейін қысқартылады.
Жалғасы
Бұл бөлім әрі қарай жалғасады: модуль кодының құрылымы, процедуралардың сценарийлермен байланысы және нәтижелерді форматтау тәсілдері келесі бөлікте беріледі.