標題: 請問各位大大..為什麼有時可以.有時不可以??謝謝 [打印本頁]

---

作者: leungko    時間: 2015-8-14 09:12     標題: 請問各位大大..為什麼有時可以.有時不可以??謝謝

請問各位大大..為什麼有時可以.[attach]21713[/attach][attach]21713[/attach]有時不可以??謝謝

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)