cuntenutu
Formulazione di u prublema
Avemu una basa di dati (lista, tavula - chjamate ciò chì vulete) cù infurmazioni nantu à i pagamenti nantu à un fogliu Dati:
compitu: stampate rapidamente una ricevuta di cash (pagamentu, fattura ...) per ogni voce desiderata scelta da sta lista. Vai !
Step 1. Crea un Form
Nant'à un altru fogliu di u libru (chjamemu stu fogliu form) Crea una forma vacante. Pudete fà voi stessu, pudete aduprà forme pronti, pigliate, per esempiu, da i siti web di a rivista Chief Accountant o u situ Microsoft. Aghju qualcosa cusì:
In cellule viote (Cuntu, quantità, ricevutu da etc.) uttene dati da a tavola di pagamentu da un altru fogliu - un pocu dopu avemu da trattà cun questu.
Passu 2: Preparazione di a tavola di pagamentu
Prima di piglià dati da a tavula per a nostra forma, a tavula deve esse ligeramente mudernizata. Vale à dì, inserisci una colonna viota à a manca di a tavula. Adupremu per inserisce una etichetta (che sia a lettera inglese "x") opposta à a linea da quale vulemu aghjunghje dati à a forma:
Step 3. Linking a tavula è forma
Per a cumunicazione, usemu a funzione VPR(CERCA V) - pudete leghje più nantu à questu quì. In u nostru casu, per inserisce u numeru di pagamentu marcatu "x" da u fogliu di dati in a cell F9 nantu à u furmulariu, deve inserisce a seguente formula in a cell F9:
=VLOOKUP("x",Data!A2:G16)
=VLOOKUP(“x”;Dati!B2:G16;2;0)
Quelli. traduttu in "comprensibile", a funzione deve truvà in a gamma A2: G16 nantu à a Scheda di Dati una linea chì principia cù u caratteru "x" è ci dà u cuntenutu di a seconda colonna di sta linea, vale à dì u numeru di pagamentu.
Tutti l'altri celluli nantu à u furmulariu sò cumpleti in u listessu modu - solu u numeru di colonna cambia in a formula.
Per vede a quantità in parolle, aghju utilizatu a funzione Propiu da l'add-on PLEX.
U risultatu deve esse u seguente:
Passu 4. Allora chì ùn ci hè micca dui "x" ...
Se l'utilizatore inserisce "x" contru à parechje linee, a funzione VLOOKUP pigliarà solu u primu valore chì trova. Per evitari una tale ambiguità, fate un clic right in a tabulazione di u fogliu Dati è dopu Testu fonte (Codice surgente). In a finestra di l'editore Visual Basic chì appare, copia u codice seguente:
Private Sub Worksheet_Change(ByVal Target As Range) Dim r As Long Dim str As String If Target.Count > 1 Allora Exit Sub If Target.Column = 1 Allora str = Target.Value Application.EnableEvents = False r = Cells (Rows.Count) , 2).End(xlUp).Row Range("A2:A" & r).ClearContents Target.Value = str End If Application.EnableEvents = True End Sub Questa macro impedisce à l'utilizatore di entre in più di una "x" in a prima colonna.
Ebbè, hè tuttu ! Prufittate!
- Utilizà a funzione VLOOKUP per rimpiazzà i valori
- Una versione mejorata di a funzione VLOOKUP
- Quantità in parolle (funzione Propis) da l'add-on PLEX