Бұл мақала сізге қарапайым және қарапайым шығындар менеджерін құруға көмектеседі. Енді сіз өзіңіздің барлық кірістеріңізді, шығыстарыңызды тіркеп, бақылай аласыз және қалдықтарыңызды қадағалай аласыз.
Енді жүктеп
Егер сіз қаласаңызtarбағдарламалық жасақтаманы мүмкіндігінше тезірек пайдалану үшін келесі әрекеттерді орындай аласыз:
Бағдарламалық жасақтаманы қазір жүктеп алыңыз
Әйтпесе, егер сіз өзіңіздің қолыңызбен жасағыңыз келсе, төмендегі мазмұнды оқи аласыз.
GUI-ді дайындайық
Жаңа жұмыс кітабын ашып, оны макросты Excel бағдарламасы ретінде сақтаңыз. Бізге жұмыс кітабына екі парақ керек. Сондықтан қосымша парақтарды жойыңыз. Sheet1-ді «Entry» деп өзгертіңіз және Sheet2-ді «Database» деп өзгертіңіз. «Entry» парағы біздің құралдың алдыңғы бөлігі болады. «Деректер базасы» парағы біздің құралдың дерекқоры ретінде жұмыс істейді.
«Кіру» парағында «Кіріс» және «Шығыстар» жазбалары үшін бөлек өрістер жасаңыз. Жалпы кірісті, жалпы шығыстарды және қалдық сомасын көрсету үшін «Жиынтық» бөлімін жасаңыз.
Бізге үш батырма керек. Бірі кірісті, екіншісі шығынды қосуға, екіншісі дерекқорды тазартуға арналған.
Формула қосыңыз
«Жиынтық» бөлімінің астына осы формуланы «Жалпы табыс» өрісіне қосыңыз
=SUMIF(Database!B2:B18,"Income",Database!C2:C18)
Төмендегі формуланы «Жалпы шығындар» өрісіне қосыңыз
=SUMIF(Database!B2:B18,"Expense",Database!C2:C18)
Сонымен, осы формуланы «Баланс» бөліміне қосып, қалдық сомасын көрсетіңіз
=N9-N13
Біздің дерекқор бос болғандықтан, барлық өрістер бос болады. Жақында сіз шығыстарды немесе кірістерді қосқанда, сіз олардың мәндерін көрсететін барлық өрістерді көре аласыз.
Деректер базасын дайындайық
Бұл құралдың мәліметтер базасында 4 баған болады. Бірінші баған - «Күн», екінші - «Түр», үшінші - «Сома» және соңғы баған - «Ескертулер».
Оны функционалды етейік
Сценарийді жаңа модульге көшіріңіз. «Кіріс» парағындағы «Деректер базасын өшіру» батырмасына «Clear_Database» қосымшасын қосыңыз. «Табыс қосу» батырмасына «Add_Income» қосымшасын қосыңыз, ал «Add_Expense» қосымшасы «Expense» шығынына қосылуы керек.
Сынап көрейік
Табысты енгізіп, «Табыс қосу» батырмасын басыңыз. Енді Қорытынды бөлімінде «Жалпы табыс» көрсетіледі. Шығындарды қосып көріңіз.
Көп ұзамай «Кіріс қосу» немесе «Шығындарды қосу» батырмасын басқан кезде сіз «Жазба» парағына енгізілген мәндер «Деректер базасы» парағында жаңа жол ретінде сақталатынын байқайсыз. «Жазба» парағындағы өрістер жаңа жазба үшін автоматты түрде жойылады.
Бұл қалай жұмыс істейді?
Кіріс немесе шығысты қосқан сайын сценарий «Деректер базасы» парағындағы соңғы бос жолды іздейді және оған жазбаны қосады. Біз енгізген формула барлық деректерді нақты уақытта оқиды және теңгерімді көрсетеді.
Оны өзгертіңіз
Сіз макросты «Ескертулер» өрісіндегі белгілі бір кілт сөздерді оқу үшін оңай өзгерте аласыз және оны тамақ немесе саяхат сияқты нақты тегтерге немесе санаттарға тағайындай аласыз.
сценарий
Sub Clear_Database()
Sheets("Database").Range("A2:D100").ClearContents
End Sub
Sub Add_Income()
Dim v_lr As Long
v_lr = Sheets("Database").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("Database").Range("A" & v_lr).Value = Sheets("Entry").Range("B13").Value
Sheets("Database").Range("B" & v_lr).Value = "Income"
Sheets("Database").Range("C" & v_lr).Value = Sheets("Entry").Range("B9").Value
Sheets("Database").Range("D" & v_lr).Value = Sheets("Entry").Range("B17").Value
Sheets("Entry").Range("B9").Value = ""
Sheets("Entry").Range("B13").Value = ""
Sheets("Entry").Range("B17").Value = ""
End Sub
Sub Add_Expense()
Dim v_lr As Long
v_lr = Sheets("Database").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("Database").Range("A" & v_lr).Value = Sheets("Entry").Range("H13").Value
Sheets("Database").Range("B" & v_lr).Value = "Expense"
Sheets("Database").Range("C" & v_lr).Value = Sheets("Entry").Range("H9").Value
Sheets("Database").Range("D" & v_lr).Value = Sheets("Entry").Range("H17").Value
Sheets("Entry").Range("H9").Value = ""
Sheets("Entry").Range("H13").Value = ""
Sheets("Entry").Range("H17").Value = ""
End Sub
Кейде сіз осы сценарийді пайдаланған кезде бүлінген Excel файлдарына тап болуыңыз мүмкін. Мұндай жағдайда сіз үшінші тарап құралдарын пайдалана аласыз бүлінген Excel файлдарын жөндеу. Әр түрлі қалпына келтіру құралдары бар. Қолдану DataNumen Excel Repair сіз өзіңіздің барлық ліңізді қайтаратындығыңызға көз жеткізедіost деректер.
Автордың кіріспесі:
Ник Випонд - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. құжат қатесін жөндеу және қалпына келтіру бағдарламалық жасақтамасының өнімдері. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com