VBA, aby sprawdzić i sprawdzić, czy informacje w jednym arkuszu pasują do informacji w innym

0

Potrzebuję makra VBA, aby wykonać następujące czynności:

Mam dwa arkusze, w arkuszu 1 znajduje się lista w kolumnie A, która ma numery części. W kolumnie A arkusza 2 mam kolumnę, w której można wprowadzić numery części. Wymagam, aby po wprowadzeniu liczby w kolumnie A arkusza 2 sprawdzana była kolumna A arkusza 1, aby upewnić się, że numer części wprowadzony na arkuszu 2 jest wymieniony gdzieś w kolumnie A arkusza A ?????

Aaron
źródło
Sprawdź sprawdzanie poprawności danych na karcie danych. Następnie użyj niestandardowej formuły z MATCH.
Scott Craner,

Odpowiedzi:

0

Chciałbym zasugerować, że następujący kod VBA porówna dwa arkusze robocze w ramach zdefiniowanego zakresu danych dla zduplikowanych wpisów.

Pozwól, że wyjaśnię sytuację dotyczącą danych.

Arkusz 1 zawiera dane w zakresie A5: A10, a arkusz 2 ma zakres A10: A15.

Jeśli Arkusz 2 Zakres A10: A15 jest RÓWNY do Arkusza 1 Zakres A5: A10, pojawi się Komunikat.

Private Sub CommandButton1_Click()

    Option Explicit

    Dim lngMyRow As Long
    Dim blnAllMatch As Boolean

    Application.ScreenUpdating = False


    For lngMyRow = 1 To 6
        If Sheets("Sheet1").Range("A" & lngMyRow + 4) = Sheets("Sheet2").Range("A" & lngMyRow + 9) Then
            MsgBox "Data is simillar.", vbExclamation
            blnAllMatch = False
            Exit For
        Else
            blnAllMatch = True
        End If
    Next lngMyRow

    If blnAllMatch = True Then
        MsgBox "Data is different !!", vbInformation
    End If

    Application.ScreenUpdating = True

End Sub

NB: Musisz zmienić wartości w wierszu 6 i 7 kodu VBA, zgodnie z zakresem danych. Ten kod może być również używany jako „Zdarzenie arkusza_Zmień”.

Uwaga: ten kod został przetestowany przeze mnie, zanim opublikowałem go tutaj.

Mam nadzieję, że ci to pomoże.

Rajesh S.
źródło