請問各位大大..為什麼有時可以.有時不可以??謝謝
- 帖子
- 12
- 主題
- 3
- 精華
- 0
- 積分
- 53
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- off 2003
- 閱讀權限
- 20
- 註冊時間
- 2012-7-4
- 最後登錄
- 2023-5-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 |
|
|
|
|
|
|