½Ð°Ý¦U¦ì¤j¤j..¬°¤°»ò¦³®É¥i¥H.¦³®É¤£¥i¥H??ÁÂÁÂ

leungko

½Ð°Ý¦U¦ì¤j¤j..¬°¤°»ò¦³®É¥i¥H.

¤U¸ü (20.7 KB)

2015-8-14 09:10

¦³®É¤£¥i¥H??ÁÂÁÂ

Sub RunSearch()

    Sheets("Search").Select
   
    ClearForm
   
    Dim iSRow, iSDRow, iDRow As Long
    Dim iSheet As Integer
    Dim CheckFlag As Boolean
    Dim NoofSheet As Integer
    Dim CheckValue As String
    Dim TCheckValue As String
    iSDRow = 2
         Sheets("search").Range("A2:A1000").Font.ColorIndex = xlAutomatic
    NoofSheet = Sheets.Count
    For iSRow = 2 To 1048000
        CheckFlag = False
        If Sheets("Search").Cells(iSRow, 1) = "" Then
            Exit For
        Else
            For iSheet = 2 To NoofSheet
                iDRow = 2
               
                Sheets(iSheet).Select
                Do While Sheets(iSheet).Cells(iDRow, 1) <> ""
                  CheckValue = UCase(Trim(Sheets(iSheet).Cells(iDRow, 14)))
                  TCheckValue = UCase(Trim(Sheets("Search").Cells(iSRow, 1)))
                      If TCheckValue = CheckValue Then
                            Sheets(iSheet).Select
                            Range("A" & iDRow & ":U" & iDRow).Select
                            Selection.Copy
                            Sheets("Search").Select
                            Range("B" & iSDRow).Select
                            ActiveSheet.Paste
                           
                            iSDRow = iSDRow + 1
                            CheckFlag = True
                      End If

                      iDRow = iDRow + 1


                Loop
            Next
        End If
        If CheckFlag = False Then
            Sheets("Search").Cells(iSRow, 1).Font.Color = -16776961
        End If
    Next
    Sheets("Search").Select
End Sub