返回列表下一主題上一主題發帖

請問各位大大..為什麼有時可以.有時不可以??謝謝

leungko

中學生 Rank: 2

帖子: 12
主題: 3
精華: 0
積分: 53
點名: 0
作業系統: xp
軟體版本: off 2003
閱讀權限: 20
註冊時間: 2012-7-4
最後登錄: 2023-5-12

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2015-8-14 09:12 | 只看該作者

請問各位大大..為什麼有時可以.有時不可以??謝謝

請問各位大大..為什麼有時可以.

有時不可以??謝謝

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

樓主熱帖

靜思自在 : 得理要饒人，理直要氣和。

返回列表下一主題上一主題