Fråga : Makroen som kontrollerar en databas, täcker och återvänder med värderar

Den Gd dagen, förmiddag för

I i behov av en MAKRO i Excel, som kan automatiskt sätta in data i en cell, genom att erhålla, dessa data från another täcker;

Example bör vara lik det;

database överträffar täcker för att vara som följer;
LIVERPOOL 21.000, 00
NEW YORK 6.512, 00
LONDON 11.000, 00
ROTTERDAM 9.750, 00
MILAN 33.100, 00
BARCELONA 12.100, 00



So för

A B
vad jag behöver, är;

I ska använder another täcker och på denna täcker, när jag skriver in i en
LIVERPOOL för cell (till faktiskt cellen numrera C3), mig önskar att MAKROEN ska kontrollera coloumn A av databasen täcker/fyndet LIVERPOOL/omvänd det till 21000, när I-pressen skriver in på cellen numrerar ovannämnd C3

HOpe är förklarande och se vänligen framåtriktat till utfrågning din snälla asssitance som är dåligt needed " klar "

Svar : Makroen som kontrollerar en databas, täcker och återvänder med värderar

Hi,
Kodifiera utförs, everytime du väljer en annan cell. Därför dess känt måste vara på av namnger igenkänt by överträffar, som händelsen startar, och ”Worksheet_SelectionChange2” inte är ett av dem.
Är på något sätt här det extensible kodifierar att du kan skräddarsy för att passa dina behov. Precis tillfoga/borttagnings fodrar kodifierar in med cellerna som du behöver.
Naturligtvis som etech0 sade över, du kunde använda VLOOKUP-formeln, men du har frågat för en makro. Se som fästas för att spara för ett exempel på det för. Känselförnimmelsen frigör för att välja någon metod som du gillar!

Cristi
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

Privata underWorksheet_SelectionChange (ByVal uppsätta som mål som spänner),
    Dunkla LastRowText som Long
    Dunkel intRow som Long
    Dunkel strCol som stränger
    Dunkel strTemp () som stränger
    Dunkelt I som Long
    ',
    'precis för säkerhet
    Om strPrevCell = "" därefter
        strPrevCell = ActiveCell.Address
        Gå ut suben
    Avsluta om
    ',
    ':: tillfoga nedanför mest linest med alla celler som du behöver (e.g. ”10”, ”$D$12”, etc.)
    ',
    Om strPrevCell = ”3” eller _,
       strPrevCell = ”4” eller _,
       strPrevCell = ”5” därefter
            strTemp = splittring (strPrevCell, ”$”)
            intRow = CLng (strTemp (2))
            strCol = strTemp (1)
        ',
        ':: finna jumbon ror i kolonn A
        ',
        LastRowText = täcker (1). Celler (ActiveSheet.Rows.Count, ”A”). Avsluta (xlUp). Ro
        ',
        ':: kretsa till och med värderar i kolonnen A
        ',
        För I = 1 till LastRowText
            ',
            'om värdera i kolonn A är samma med värderar i vår cell då satt i vår cell värdera i kolonn B,
            Om UCase (täcker (1). Celler (I, ”A”)) = UCase (celler (intRow, strCol)) Därefter
                Celler (intRow, strCol) = täcker (1). Celler (I, ”B”)
                Gå ut för
            Avsluta om
        Därefter
    Avsluta om
    strPrevCell = ActiveCell.Address
Avsluta suben
Andra lösningar  
 
programming4us programming4us