Dacă plătiți o mulțime de împrumuturi și facturi, acest articol este foarte important pentru dvs., deoarece veți învăța cum să urmăriți cu ușurință toate plățile facturilor în Excel. Puteți seta mementouri, plăți viitoare fără dificultate.
Descarcă acum
Dacă vrei să starPentru a utiliza software-ul cât mai curând posibil, atunci puteți:
În rest, dacă vrei să faci DIY, poți citi conținutul de mai jos.
Să pregătim GUI
După cum se arată în imagine, pregătiți foaia de intrare și bază de date cu câmpurile, anteturile și butoanele necesare.
Să-l facem funcțional
Copiați scriptul într-un modul nou și atașați macrocomandă la butoane, așa cum se arată în acest tabel
| Nume si Prenume | Atașați la buton |
| Adaugă_datoria | Adăuga |
| Șterge_datoria | Elimină |
Cum functioneaza?
Macro-ul „Add_Debt” identifică ultimul rând folosit din foaia „Database”. Apoi identifică data scadentă lunară a datoriei și o adaugă la foaia „Bază de date”. Macro-ul „Debt_dropDown” identifică nume unice ale datoriilor și le adaugă ca meniu vertical pe foaia Intrare. Înainte de a rula macro-ul „Delete_Debt”, utilizatorul trebuie să selecteze un nume de datorie din meniul drop-down. Această macrocomandă identifică apoi toate rândurile care se potrivesc din foaia „Bază de date” și le șterge.
Sub Add_Debt() Dim v_name As String Dim v_amount As Variant Dim v_end As Data Dim v_start As Date Dim lr As Long v_start = CDate(entry.Range("B8").Value & "/" & Format(Acum, "ll/aaaa")) 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 = intrare.Range("B5").Value db .Range(„B” și lr).Valoare = DataAdd(„m”, 1, v_start) db.Range("C" & lr).Value = intrare.Range("B11").Value db.Range("D" & lr).Value = "Neplătit" Depanare.Print DateAdd("m", 1, v_start) v_start = DataAdd("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" On Error GoTo 0 Sheets("Database"). Selectați coloanele(„A:A”).Selectați selecția.Copiați foile(„Temp”).Selectați ActiveSheet.Paste Application.CutCopyMode = False ActiveSheet.Range(„$A$1:$A$1000”).RemoveDuplicates Columns:=1 , Antet:=xlDa Interval("A2").Selectați 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 To lr If prodlist = "" Then prodlist = Sheets("Temp").Range("A" & r).Value Else prodlist = prodlist & "," & Sheets("Temp").Range( „A” și r).Value End If Next r Cu intrare.Range(„G5:J5”).Validare .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=prodlist . IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With entry.Range("L5:P5"). .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=prodlist .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "ErrorTitle = "Message ."Message . "" .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” și r).EntireRow.ClearContents End If Next r db.Columns(„A:D”).Selectați 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 Range("Set A1:D1000") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub
Modificați macro-ul
Puteți modifica macro-ul pentru a actualiza starea fiecărei datorii, pentru a afișa datorii viitoare sau pentru a afișa datorii închise. Dacă acest registru de lucru activat cu macrocomandă este corupt, să recupera Excel xlsm, puteți încerca să copiați codul într-un nou registru de lucru. Apoi recreați foile și salvați noul registru de lucru ca registru de lucru activat pentru macro.
Introducerea autorului:
Nick Vipond este un expert în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv cuvânt corupt și produse software de recuperare Outlook. Pentru mai multe informații vizitați www.datanumen.com.
Lasă un comentariu