contingut
Formulació del problema
Disposem d'una base de dades (llista, taula - dieu-la com vulgueu) amb informació sobre els pagaments en un full dades:
Tasca: imprimiu ràpidament un rebut d'efectiu (pagament, factura...) per a qualsevol entrada desitjada seleccionada d'aquesta llista. Va!
Pas 1. Creeu un formulari
En un altre full del llibre (anomenarem aquest full Formulari) crear un formulari buit. Podeu fer-ho vosaltres mateixos, podeu utilitzar formularis ja fets, extrets, per exemple, dels llocs web de la revista Chief Accountant o del lloc web de Microsoft. Tinc una cosa així:
En cel·les buides (Compte, import, rebut de etc.) obtindrà dades de la taula de pagament d'un altre full; una mica més endavant tractarem d'això.
Pas 2: Preparació de la taula de pagament
Abans d'agafar dades de la taula per al nostre formulari, la taula s'ha de modernitzar lleugerament. És a dir, inseriu una columna buida a l'esquerra de la taula. Utilitzarem per introduir una etiqueta (sigui la lletra anglesa “x”) davant de la línia des de la qual volem afegir dades al formulari:
Pas 3. Enllaçar la taula i el formulari
Per a la comunicació, fem servir la funció VPR(VISUALITZACIÓ) - Podeu llegir-ne més informació aquí. En el nostre cas, per inserir el número del pagament marcat amb "x" del Full de dades a la cel·la F9 del formulari, heu d'introduir la fórmula següent a la cel·la F9:
=BUSCARV(“x”, Dades!A2:G16)
=CERCAV(“x”;Dades!B2:G16;2;0)
Aquells. traduïda a “comprensible”, la funció hauria de trobar a l'interval A2: G16 a la fitxa tècnica una línia que comenci amb el caràcter “x” i donar-nos el contingut de la segona columna d'aquesta línia, és a dir, el número de pagament.
Totes les altres cel·les del formulari s'omplen de la mateixa manera: només el número de columna canvia a la fórmula.
Per mostrar la quantitat en paraules, he utilitzat la funció Propi des del complement PLEX.
El resultat hauria de ser el següent:
Pas 4. Perquè no hi hagi dues "x"...
Si l'usuari introdueix "x" contra diverses línies, la funció BUSCARV només prendrà el primer valor que trobi. Per evitar aquesta ambigüitat, feu clic amb el botó dret a la pestanya del full dades i després Text font (Codi font). A la finestra de l'editor de Visual Basic que apareix, copieu el codi següent:
Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Long Dim str As String Si Target.Count > 1 Aleshores Surt Sub If Target.Column = 1 Then str = Target.Value Application.EnableEvents = False r = Cells(Rows.Count , 2).End(xlUp).Row Range("A2:A" i r).ClearContents Target.Value = str End If Application.EnableEvents = True End Sub Aquesta macro evita que l'usuari introdueixi més d'una "x" a la primera columna.
Bé, això és tot! Gaudeix!
- Utilitzant la funció BUSCARV per substituir valors
- Una versió millorada de la funció BUSCARV
- Import en paraules (funció Propis) del complement PLEX