Questione : Macro per controllare uno strato della base di dati e da ritornare con valore

Giorno di Gd,

I necessitante una MACRO in Excel che possono inserire automaticamente i dati in una cellula ottenendo questi dati da un altro strato; il

Example dovrebbe essere come quello; il

database eccelle lo strato per essere come segue; il
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 del

A B
di che cosa ho bisogno è; il

I userà un altro strato e su questo strato quando scrivo in un
LIVERPOOL delle cellule (realmente al numero C3 delle cellule), voglio la MACRO controllare il coloumn A dello strato della base di dati/ritrovamento LIVERPOOL/convertito esso a 21000 quando premo entro sul numero C3

HOpe delle cellule qui sopra sono esplicativo ed osservante gentilmente in avanti a sentire il vostro asssitance gentile che è male needed class= del

Risposta : Macro per controllare uno strato della base di dati e da ritornare con valore

Ciao,
Il codice è eseguito ogni volta che selezionate un'altra cellula. Per quel motivo il relativo nome deve essere sopra dei nomi riconosciuti vicino eccelle poichè l'innesco di evento e “Worksheet_SelectionChange2„ non è uno di loro.
In ogni modo qui è il codice estendibile che per il cliente potete adattare per essere adatti ai vostri bisogni. Aggiungere appena/linee di cancellazione nel codice con le cellule che avete bisogno di.
Naturalmente, mentre etech0 ha detto sopra, potreste usare la formula di VLOOKUP ma avete chiesto una macro. Vedere la lima allegata per un esempio su quella anche. Ritenere libero di scegliere tutto il metodo che gradite!

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:

Worksheet_SelectionChange secondario riservato (obiettivo di ByVal come gamma)
    LastRowText fioco come lungamente
    intRow fioco come lungamente
    strCol fioco come stringa
    strTemp fioco () come stringa
    Oscurare la i come lungamente
    '
    'appena per sicurezza
    Se strPrevCell = "" allora
        strPrevCell = ActiveCell.Address
        Uscire il sommergibile
    Concluder se
    '
    ':: aggiungere sotto più linest con tutte le cellule che avete bisogno di (per esempio “10„, “$D$12„, ecc)
    '
    Se strPrevCell = “3„ o _
       strPrevCell = “4„ o _
       strPrevCell = “5„ allora
            lo strTemp = ha spaccato (strPrevCell, “$")
            intRow = CLng (strTemp (2))
            strCol = strTemp (1)
        '
        ':: trovare l'ultima fila in colonna A
        '
        LastRowText = strati (1).Cells (ActiveSheet.Rows.Count, “A„). Estremità (xlUp). Fila
        '
        ':: collegare con i valori nella colonna A
        '
        Per i = 1 a LastRowText
            '
            'se il valore in colonna A è lo stesso con il valore in nostra cellula quindi messo in nostra cellula il valore in colonna B
            Se UCase (strati (1).Cells (i, “A„)) = UCase (cellule (intRow, strCol)) Allora
                Le cellule (intRow, strCol) = riveste (1).Cells (i, “B„)
                Uscire per
            Concluder se
        Dopo
    Concluder se
    strPrevCell = ActiveCell.Address
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us