Questione : Excel Macro/VB per cercare i manuali multipli

Ciao ognuno, bisogno del

I un certo aiuto sullo script

Following di Excel Macro/VB è il mio

I di requisito ha un libro di esercizi di supremazia con 7 manuali, i manuali 1-6 per avere qualche numbers.

Worksheet 7 ha lista dei numeri che i maggio o maggio non essere in manuali 1-6.

I vogliono per scrivere un codice di VB/macro, dove in esso prende una colonna particolare in strato 7 come input da cercare e cercare quello numera in strato 1-6

If che il risultato di ricerca è allineare allora aggiorna lo strato 7 con posizione del risultato di ricerca e se non allora trovato evidenziare la cellula in strato 7 con aiuto di qualche colour.

Any su questo appreciated. class= del

Risposta : Excel Macro/VB per cercare i manuali multipli

Ciao, prova questa macro.

Ciò suppone che “lo strato 7„ è l'ultimo strato in vostro libro di esercizi e voi vuole cercare tutti i altri manuali.

Cambiare lo strColumn al colum in strato 7 che ha i numeri da cercare per.
Cambiare il intStartRow al numero di fila sullo strato 7 dove i numeri cominciano.
Assicurarselo per avere una colonna in bianco per i risultati dal lato destro della colonna con i numeri.

Riguardi,

Rob.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

FindNumbers secondario ()
    strColumn = “A„
    intStartRow = 1
    Regolare il objLastSheet = gli strati (Sheets.Count)
    Per intRow = intStartRow a objLastSheet.Cells (65536, strColumn). Estremità (xlUp). Fila
        strValue = objLastSheet.Cells (intRow, strColumn). Valore
        strFoundSheet = ""
        Per intSheet = 1 a Sheets.Count - 1
            Strati (intSheet). Attivare
            Regolare il objCell = Cells.Find (che cosa: =strValue, dopo: =Sheets (intSheet). Cellule (1, 1), LookIn: =xlValues, LookAt: =xlWhole, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: =False, SearchFormat: =False)
            Se non il objCell allora è niente
                strFoundSheet = strati (intSheet). Nome
                Uscire per
            Concluder se
        Dopo
        Se "" <> dello strFoundSheet allora
            objLastSheet.Cells (intRow, strColumn). Contrappeso (0, 1).Value = strFoundSheet
        Altrimenti
            objLastSheet.Cells (intRow, strColumn). Contrappeso (0, 1).Interior.Color = 255
        Concluder se
    Dopo
    objLastSheet.Activate
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us