DataNumen Debt Manager – Et gratis gjeldsstyringssystem i Excel

Hvis du betaler mange lån og regninger, er denne artikkelen veldig viktig for deg, siden du vil lære hvordan du enkelt kan spore alle fakturabetalingene dine i Excel. Du kan stille inn påminnelser, kommende betalinger uten problemer.

Last ned nå

Hvis du ønsker å starFor å bruke programvaren så snart som mulig, kan du:

Last ned programvaren nå

Ellers, hvis du vil gjøre DIY, kan du lese innholdet nedenfor.

La oss forberede GUI

Som vist på bildet, klargjør oppførings- og databasearket med nødvendige felter, overskrifter og knapper.

La oss gjøre det funksjonelt

Kopier skriptet til en ny modul og fest makro til knapper som vist i denne tabellen

Navn	Festes til knappen
Legg til_gjeld	Legg
Slett_Gjeld	fjerne

Hvordan virker det?

Makroen "Add_Debt" identifiserer den sist brukte raden i arket "Database". Den identifiserer deretter den månedlige forfallsdatoen for gjelden og legger den til arket "Database". Makroen "Debt_dropDown" identifiserer unike navn på gjeld og legger den til som rullegardin på arkoppføringen. Før du kjører makroen "Delete_Debt", må brukeren velge et gjeldsnavn fra rullegardinmenyen. Denne makroen identifiserer deretter alle samsvarende rader fra arket "Database" og sletter dem.

Sub Add_Debt() Dim v_name As String Dim v_amount As Variant Dim v_end As Date Dim v_start As Dato Dim lr As Long v_start = CDate(entry.Range("B8").Verdi & "/" & Format(Nå, "mm/åååå")) Debug.Print v_start v_end = CDate(entry.Range("B8").Value & "/" & Format(entry.Range("B14").Value, "mm/yyyy")) Do While v_start < v_end lr = db.Range("A" & Rows.Count).End(xlUp).Row + 1 db.Range("A" & lr).Value = entry.Range("B5").Value db .Range("B" & lr).Verdi = DateAdd("m", 1, v_start) db.Range("C" & lr).Value = entry.Range("B11").Value db.Range("D" & lr).Value = "Ubetalt" Debug.Print DateAdd("m", 1, v_start) v_start = DateAdd("m", 1, v_start) Loop Debug.Print v_end End Sub Sub Debt_dropDown() Application.DisplayAlerts = False On Error Resume Next Sheets("Temp").Delete Sheets.Add.Name = "Temp" Ved Error GoTo 0 Sheets("Database"). Velg Columns("A:A").Select Selection.Copy Sheets("Temp").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveSheet.Range("$A$1:$A$1000").RemoveDuplicates Colums:=1 , Header:=xlYes Range("A2").Velg Dim lr As Long Dim r As Long lr = Sheets("Temp").Range("A" & Rows.Count).End(xlUp).Row Dim prodlist As String For r = 2 Til lr If prodlist = "" Da prodlist = Sheets("Temp").Range("A" & r).Verdi Else prodlist = prodlist & "," & Sheets("Temp").Range( "A" & r).Value End If Next r With entry.Range("G5:J5").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=prodlist . IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With With entry.Range("L5:P5"). .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=prodlist .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "ErrorTitle = "Mes.Mes. "" .ShowInput = True .ShowError = True End With On Error Resume Next Sheets("Temp").Delete Sheets.Add.Name = "Temp" On Error GoTo 0 End Sub Sub Delete_Debt() Dim lr As Long lr = db .Range("A" & Rows.Count).End(xlUp).Row For r = 2 To lr If db.Range("A" & r).Value = entry.Range("G5").Value Then db .Range("A" & r).EntireRow.ClearContents End If Next r db.Columns("A:D").Velg ActiveWorkbook.Worksheets("Database").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Database" ).Sort.SortFields.Add Key:=Range("A2:A1000" _ ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Database").Sort .Set("Rang) A1:D1000") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub

Juster makroen

Du kan justere makroen for å oppdatere statusen til hver gjeld, vise kommende gjeld eller vise lukkede gjeld. Hvis denne makroaktiverte arbeidsboken er ødelagt, skal du gjenopprette Excel xlsm-fil kan du prøve å kopiere koden til en ny arbeidsbok. Lag deretter ark på nytt og lagre den nye arbeidsboken som makroaktivert arbeidsbok.

Forfatterintroduksjon:

Nick Vipond er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert ødelagt ord og Outlook-programvareprodukter. For mer informasjon besøk www.datanumen. Med.