Contents
Formula quaestionis
Habemus database (album, mensam - id quod vis vocant) cum informationes de solutionibus in scheda Data:
negotium: cito imprime acceptilatio nummorum (solucionis, cautionis ...) pro quolibet introitu desiderato ex hoc indice delecto. Perge!
Gradus 1. forma crea
In alia scheda libri (vocemus hanc schedam Form) Inani forma creare. Hoc ipsum facere potes, formas paratas factas uti potes, exempli gratia e websites emporium capitalis commentarii vel in Microsoft website. Possedi aliquid simile hoc;
In cellulis vacua (Ratio, quantum, accepistis etc.) notitia ex tabula solutionis ex altera scheda dabimus - paulo post de hac re agemus.
Gradus II: Praeparans mensam solucionis
Mensa, antequam de tabula ad formam nostram accipiatur, necesse est ut aliquantulum modernizata sit. Videlicet columna vacua ad sinistram tabulae inserta. Utemur ad pittacium ingrediendum (sit littera Anglica "x") contrariam lineam e qua notitias formae addere volumus:
Gradus 3. Vinculum in mensa et forma
Ad communicationem, munus utimur VPR(VLOOKUP) – Plura de hoc hic legere potes. In casu nostro, ut numerus solutionis "x" ex Data forma in cellam F9 notata inseratur, hanc formulam in cellam F9 ingredi debetis;
=VLOOKUP("x",Data!A2:G16)
=VLOOKUP("x";Data!B2:G16;2;0)
Illae. translatum in "intelligibilem", munus in range A2: G16 in Data scheda linea incipientem a charactere "x" inveniat et nobis contenta secundae columnae huius lineae, id est numerus solutionis, praebeat.
Omnes aliae cellulae forma eodem modo implentur - tantum columnae numerorum mutationes in formula.
Quantum verbis ostendere, usus sum munere suum ex PLEX add-on.
Eventus ut sit.
Gradus 4. Ita ut non sint duo "x" ...
Si usor intrat "x" contra plures lineas, munus VLOOKUP tantum primum valorem quod invenit. Ad evitandam huiusmodi ambiguitatem, recte-click in scheda tab Data tum Source text (Source Code). In fenestra Basic editor Visual ut apparet, sequenti codice effingo:
Privata Sub Worksheet_Change (ByVal Target ut dolor) Dim r sicut Long Dim str sicut Missa Si Target.Count> I Tunc Exit Sub Si Target.Column = I Deinde str = Target.Value Application.EnableEvents = Falsa r = Cellulae (Rows.Count , 1).End(xlUp).Range Range("A1:A"&r).ClearContents Target.Value = str finem Si Application.EnableEvents = Verum finis Sub Haec tortor impedit utentem plus quam unum "x" in columna prima.
Bene omnia sunt! Gaude!
- Utens VLOOKUP munus substituere valores
- Melior versio functionis VLOOKUP
- Moles verbis (munus Propis) ex plexu addendi