Ideja par šīs nedēļas padomu radās, sarunājoties ar Dr. M, lieliskā nedēļas Quicken tips biļetena autoru.
Es mīlu Quicken, bet tam noteikti ir savi kaitinošie elementi. Man Quicken ir noteikts iegaumēts ziņojums ar kategorijām sānos un mēnešiem pāri augšai. Quicken piedāvā iespēju izdrukāt šo ziņojumu, bet, protams, es vienmēr vienkārši izmantoju komandu Kopēt, lai pārkopētu ziņojumu starpliktuvē un pēc tam izmantotu Rediģēt> Ielīmēt programmā Excel, lai pārkopētu ziņojumu starpliktuvē. Šī funkcija ir daudz ātrāka nekā vecāka (un joprojām pieejama) druka uz .prn faila opciju.
Šeit parādās nepatīkamās sajūtas. Pirmkārt, Kvikens neuztraucās kopēt sleju virsrakstus ar ziņojumu. Tātad, man manuāli jāievada mēnešu nosaukumi programmā Excel. Pietiekami vienkārši. Otrkārt, kategorijas, kuras tiek kopētas starpliktuvē, ietver kaitinošu kategoriju un apakškategoriju formāta formātu.
Quicken ļauj izmantot kategorijas un apakškategorijas, lai klasificētu savus izdevumus. Kreisajā pusē esošajā pārskatā automobiļu izdevumi tiek sadalīti pēc apdrošināšanas, benzīna, remonta un numura zīmēm. Varbūt es slikti strādāju, izveidojot savas kategorijas, bet es uzskatu, ka man ir dažas kategorijas, kurās es gribu redzēt apakškategorijas detaļas, un citas kategorijas, kurās es vēlētos redzēt tikai kategoriju kopsummu.
Es arī vēlētos, lai šo ziņojumu varētu kārtot programmā Excel. Būtu lietderīgi to kārtot pēc kopējiem izdevumiem, pēc tam kārtot pēc kategorijas. Protams, es varētu izmantot atsaukšanu, bet es gribētu kategorijas, kas pēc būtības ir alfabētiskas. Īsāk sakot, man ir vienalga Quicken izmantotais kontūras formāts.
Ilgu laiku lasītāji atcerēsies manu nicinājumu pret rakstu formātu, ko rakurstabulas izmanto sadaļā Aizpildiet rakurstabulas tukšās šūnas, izmantojot padomu Pāriet uz īpašo. Mums šeit ir tāda pati situācija. Ja Quicken ziņojums ir tikai starpposms un jūs vēlaties, lai jūs varētu kārtot pēc kategorijas, kontūras formāts ir briesmīgs. Pēc šķirošanas pēc kopsummas un pēc kategorijas pēc kategorijas Auto: Insurance kategorija tiks nepareizi sakārtota pārskata sadaļā "I". Kategorijām, kurās es turu tikai kopējo summu, tās tiks nepareizi sakārtotas pārskata sadaļā “T”.
Bija divi komunālie pakalpojumi, kas, manuprāt, atvieglotu šo situāciju. Pirmo lietderību sauc par sabrukumu. Pēc izsaukšanas šī makro sabruks apakškategoriju vienā rindā ar pareizu kategorijas nosaukumu. Iepriekš sniegtajā piemērā, palaižot makro, kamēr šūnu rādītājs atrodas jebkurā vietā no 34. līdz 38. rindai, A38 kategorija tiks aizstāta ar "Dators" un izdzēsta 34. līdz 37. rinda.
Otrā lietderība ir paredzēta kategorijām, kurās es vēlētos redzēt sīkāku informāciju par apakškategoriju, bet nav nepieciešama ne virsraksts, ne pārtraukta starpsummas rinda, ne kategorija kopā. Šo lietderību sauc par Aizpildīt. Tas atradīs pareizo kategorijas nosaukumu un pievienos katrai apakškategorijai katateogrāfiju. Iepriekš sniegtajā piemērā, palaižot makro, kamēr šūnu rādītājs atrodas jebkurā vietā no 24. līdz 30. rindai, šūnas A25: A28 tiks mainītas uz tādu formātu kā "Auto: Insurance". 24., 29. un 30. rinda tiks dzēsta.
Labajā pusē ir mana uzlabotā ziņojuma versija. Piešķirot karstajiem taustiņiem Sakļaut un Aizpildīt, es varēju veikt šīs izmaiņas, veicot tikai dažus taustiņsitienus. Tagad ir viegli kārtot pārskatu, zinot, ka, kārtojot kategoriju, ziņojums var atgriezties sākotnējā secībā.
Ja makro jums ir jauns, skatiet sadaļu Iepazīšanās ar Excel VBA redaktoru.
Kad esat nokopējis makro, varat piešķirt karsto taustiņu, rīkojoties šādi:
- Rīku izvēlnē izvēlieties Makro un pēc tam Makro
- Iezīmējiet aizpildīšanas makro. Noklikšķiniet uz Opcijas. Laukā Īsceļš ievadiet jebkuru burtu. Aizpildīšanai izmantoju f. Noklikšķiniet uz Labi
- Iezīmējiet sakļauto makro. Noklikšķiniet uz Opcijas. Izvēlieties burtu saīsnei, taču turieties tālāk no c, jo Ctrl + c ir parastais saīsne
- rediģēšanai> Kopēt. Noklikšķiniet uz Labi
- Aizveriet makro dialogu ar Atcelt.
Vasaras prakses ietvaros Anhtuan Do, veicot ikdienas papildinājuma dizainu, izveidoja šādus makro.
Option Explicit Dim Flag, Flag2 As Boolean 'Flags to keep the Find Procedures running Dim HeaderRow, TotalRow As Integer 'Number of the Header and Total Rows Dim Counter As Integer 'Counter to ensure searches are relative to activecell Dim TempString, TempTest As String 'Strings that are used as temporary holders to compare Dim CategoryName As String 'Name of the category currently in Sub Collapse() 'To collapse the rows, run this macro Flag = False Flag2 = False Counter = -1 'Continue looping until HeaderRow is found Do Until Flag = True Counter = Counter + 1 Call FindHeader Loop 'Create CategoryName CategoryName = Left(CategoryName, Len(CategoryName) - 1) CategoryName = Trim(CategoryName) 'Assign HeaderRow HeaderRow = ActiveCell.Row - Counter Counter = 0 'Continue looping until TotalRow is found Do Until Flag2 = True Counter = Counter + 1 Call FindTotal Loop 'Assign TotalRow TotalRow = ActiveCell.Row + Counter 'Replace "TOTAL Category" with "Category" Cells(TotalRow, 1).Value = " " & CategoryName 'Deleting sub-category rows Rows(HeaderRow & ":" & TotalRow - 1).Delete Shift:=xlUp End Sub Sub Fill() 'To add the CategoryName to each of the types, run this macro Dim i As Integer Flag = False Flag2 = False Counter = -1 'Continue looping until HeaderRow is found Do Until Flag = True Counter = Counter + 1 Call FindHeader Loop 'Create CategoryName CategoryName = Left(CategoryName, Len(CategoryName) - 1) CategoryName = Trim(CategoryName) 'Assign HeaderRow HeaderRow = ActiveCell.Row - Counter Counter = 0 'Continue looping until TotalRow is found Do Until Flag2 = True Counter = Counter + 1 Call FindTotal Loop 'Assign TotalRow TotalRow = ActiveCell.Row + Counter 'Adding CategoryName and colon to the start of each sub category For i = HeaderRow + 1 To TotalRow - 2 TempString = Trim(Cells(i, 1).Value) Cells(i, 1).Value = " " & CategoryName & ": " & TempString Next i 'Deleting Header and Total Row Rows(TotalRow & ":" & TotalRow - 1).Delete Shift:=xlUp Rows(HeaderRow).Delete Shift:=xlUp End Sub Sub FindHeader() Dim i As Integer TempString = Cells(ActiveCell.Row - Counter, 1).Value 'Checking to see if in first row If (ActiveCell.Row - Counter) = 1 Then MsgBox "You are not in a collapsable row" End If 'Checking to see if in a valid row 'If it reaches a TOTAL before reaching a colon, then error If Left(Trim(TempString), 5) = "TOTAL" Then MsgBox "You are not in a collapsable row" End If 'Checking the String for a colon For i = 1 To Len(TempString) TempTest = Mid(TempString, i, 1) If TempTest = ":" Then CategoryName = TempString Flag = True Exit For End If Next i End Sub Sub FindTotal() Dim i As Integer 'Finding the TOTAL Row TempString = Cells(ActiveCell.Row + Counter, 1).Value TempString = Trim(TempString) If TempString = "TOTAL " & CategoryName Then Flag2 = True End If End Sub
