½Ð°Ý¦U¦ì¤j¤j..¬°¤°»ò¦³®É¥i¥H.¦³®É¤£¥i¥H??ÁÂÁÂ
- ©«¤l
- 12
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 53
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- off 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-7-4
- ³Ì«áµn¿ý
- 2023-5-12
|
½Ð°Ý¦U¦ì¤j¤j..¬°¤°»ò¦³®É¥i¥H.¦³®É¤£¥i¥H??ÁÂÁÂ
½Ð°Ý¦U¦ì¤j¤j..¬°¤°»ò¦³®É¥i¥H.
¦³®É¤£¥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 |
|
|
|
|
|
|