Ak platíte veľa pôžičiek a účtov, tento článok je pre vás veľmi dôležitý, pretože sa dozviete, ako ľahko sledovať všetky platby za účty v Exceli. Môžete nastaviť pripomienky, nadchádzajúce platby bez problémov.
stiahnuť
Ak chcete start softvér používať čo najskôr, potom môžete:
V opačnom prípade si môžete prečítať obsah uvedený nižšie.
Poďme pripraviť GUI
Ako je znázornené na obrázku, pripravte si hárok Entry and Database s potrebnými poliami, hlavičkami a tlačidlami.
Nech je to funkčné
Skopírujte skript do nového modulu a pripojte makro k tlačidlám, ako je to znázornené v tejto tabuľke
| Meno | Pripojiť k tlačidlu |
| Add_debt | pridať |
| Delete_Debt | odstrániť |
Ako to funguje?
Makro „Add_Debt“ označuje posledný použitý riadok v hárku „Databáza“. Potom identifikuje mesačný dátum splatnosti dlhu a pridá ho do hárku „Databáza“. Makro „Debt_dropDown“ identifikuje jedinečné názvy dlhov a pridáva ich ako rozbaľovaciu ponuku na hárku Entry. Pred spustením makra „Delete_Debt“ musí používateľ z rozbaľovacej ponuky zvoliť názov dlhu. Toto makro potom identifikuje všetky zodpovedajúce riadky z hárku „Databáza“ a vymaže ich.
Sub Add_Debt () Dim v_name ako reťazec Dim v_amount ako varianta Dim v_end ako dátum Dim v_start As Date Dim lr As Long v_start = CDate (entry.Range ("B8"). Value & "/" & Format (Now, "mm / yyyy")) Debug.Print v_start v_end = CDate (entry.Range ("B8"). Value & "/" & Format (entry.Range ("B14"). Value, "mm / rrrr")) Urobte While v_start <v_end lr = db.Range ("A" & Rows.Count) .End (xlUp) .Row + 1 db.Range ("A" & lr) .Value = entry.Range ("B5"). Hodnota db .Range ("B" & lr) .Value = DateAdd ("m", 1, v_start) db.Range ("C" & lr) .Value = entry.Range ("B11"). Hodnota db.Range ("D" & lr) .Value = "Neplatené" 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 pri chybe Obnoviť ďalšie listy ("Temp"). Odstrániť Sheets.Add.Name = "Temp" pri chybe GoTo 0 listov ("databáza"). Vyberte stĺpce ("A: A"). Vyberte listy Selection.Copy ("Teplota"). Vyberte ActiveSheet.Paste Application.CutCopyMode = False ActiveSheet.Range ("$ A $ 1: $ A $ 1000"). RemoveDuplicates Columns: = 1 , Header: = xlYes Range ("A2"). Vyberte Dim lr As Long Dim r As Long lr = Sheets ("Temp"). Range ("A" & Rows.Count) .End (xlUp) .Row Dim prodlist As Reťazec pre r = 2 až lr Ak prodlist = "" Potom prodlist = Tabuľky ("Teplota"). Rozsah ("A" & r). Hodnota Else prodlist = prodlist & "," & Tabuľky ("Teplota"). Rozsah ( „A“ & r) .Hodnota Koniec Ak Ďalej r S entry.Range ("G5: J5"). Validácia. Zmazať. Pridať typ: = xlValidateList, AlertStyle: = xlValidAlertStop, Prevádzkovateľ: = _ xlB Between, Formula1: = prodlist. IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True Koniec s entry.Range ("L5: P5"). Validácia. Odstrániť. Typ pridania: = xlValidateList, AlertStyle: = xlValidAlertStop, operátor: = _ xlB Between, Formula1: = prodlist .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .Error ".ShowInput = True .ShowError = True End With On Error Obnoviť ďalšie hárky (" Temp "). Odstrániť Sheets.Add.Name =" Temp "pri chybe 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"). Hodnota Potom db. Range („A“ & r) .EntireRo w.ClearContents Koniec, ak bude nasledovať r db.Columns ("A: D"). Vyberte ActiveWorkbook.Worksheets ("Databáza"). Sort.SortFields.Clear ActiveWorkbook.Worksheets ("Databáza"). Sort.SortFields.Add Kľúč: = Range ("A2: A1000" _), SortOn: = xlSortOnValues, Order: = xlAscending, DataOption: = xlSortNormal With ActiveWorkbook.Worksheets ("Database"). Sort .SetRange Range ("A1: D1000"). Header = xlYes. MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin. Použiť Koniec Koncom Sub
Vylaďte makro
Makro môžete vylepšiť, aby ste aktualizovali stav každého dlhu, zobrazili nadchádzajúce dlhy alebo zatvorené dlhy. Ak je tento zošit s povoleným makrom poškodený, obnoviť Excel Súbor xlsm môžete skúsiť skopírovať kód do nového zošita. Potom znova vytvorte hárky a uložte nový zošit ako zošit s povolenými makrami.
Úvod autora:
Nick Vipond je expert na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane poškodené slovo a výhľadové softvérové produkty na obnovenie. Pre viac informácií navštívte www.datanumen. S.
Nechaj odpoveď