Frage : Excel Macro/VB zum Suchen mehrfache Arbeitsblätter

Hallo ist jeder,

I Notwendigkeit etwas Hilfe auf Excel Macro/VB script

Following mein Anforderung

I haben ein übertreffenarbeitsbuch mit 7 Arbeitsblättern, hat Arbeitsblätter 1-6 zum Haben irgendein numbers.

Worksheet 7 Liste der Zahlen, die Mai oder Mai, nicht in den Arbeitsblättern 1-6.

I zu sein einen VB/macro Code schreiben wünschen, der in ihm, nimmt auf, nummeriert eine bestimmte Spalte in Blatt 7 als Eingang zum Suchen und Suchen nach dem im Blatt 1-6

If, welches, das Suchresultat aktualisieren dann das Blatt 7 mit Position des Suchresultats und wenn nicht dann gefunden hervorheben die Zelle in Blatt 7 mit irgendein colour.

Any Hilfe auf diesem appreciated. zutreffend ist-

Antwort : Excel Macro/VB zum Suchen mehrfache Arbeitsblätter

Hallo versuchen, dieses Makro.

Dieses annimmt, dass „Blatt 7“ das letzte Blatt in Ihrem Arbeitsbuch ist, und Sie möchten alle weiteren Arbeitsblätter suchen n.

strColumn zum colum in Blatt 7 ändern, das die Zahlen zum Suchen für hat.
intStartRow zur Reihenzahl auf Blatt 7 ändern, wo die Zahlen beginnen.
Sie sicherstellen, eine Leerspalte für die Auswirkungen auf die rechte Seite der Spalte mit den Zahlen zu haben.

Respekt,

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

VorFindNumbers ()
    strColumn = „A“
    intStartRow = 1
    objLastSheet = Blätter (Sheets.Count) einstellen
    Für intRow = intStartRow zu objLastSheet.Cells (65536, strColumn). Ende (xlUp). Reihe
        strValue = objLastSheet.Cells (intRow, strColumn). Wert
        strFoundSheet = ""
        Für intSheet = 1 zu Sheets.Count - 1
            Blätter (intSheet). Aktivieren
            objCell = Cells.Find (was einstellen: =strValue, nachher: =Sheets (intSheet). Zellen (1, 1), LookIn: =xlValues, LookAt: =xlWhole, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: =False, SearchFormat: =False)
            Wenn nicht objCell nichts dann ist
                strFoundSheet = Blätter (intSheet). Name
                Für herausnehmen
            Beenden wenn
        Zunächst
        Wenn strFoundSheet <> "" dann
            objLastSheet.Cells (intRow, strColumn). Versatz (0, 1).Value = strFoundSheet
        Sonst
            objLastSheet.Cells (intRow, strColumn). Versatz (0, 1).Interior.Color = 255
        Beenden wenn
    Zunächst
    objLastSheet.Activate
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us