ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð±Ð¦p¦ó´M§ä»·ºÝºÏºÐ¤¤excelÀɮפu§@ªíµ²ªG

[µo°Ý] ½Ð±Ð¦p¦ó´M§ä»·ºÝºÏºÐ¤¤excelÀɮפu§@ªíµ²ªG

½Ð±Ð¦U¦ì¤j¤j:
§Ú¦b¤u§@¤W¦³¤@­Ó»·ºÝ¤½¥ÎºÏºÐ
­n¥Î¦óºØ¤è¦¡¥i¥HÅý¤j®a³£¥h¬d¸ß¤½¥ÎºÏºÐ¤W¬Y­ÓexcelÀÉ®×
¶i¦Ó±a¥X¦U¤u§@ªí¤¤©Ò»Ý­nªº´M§ä¥Ø¼Ð

A.rar (151.39 KB) ¦^´_ 1# chengtoo

TOP

RE: ½Ð±Ð¦p¦ó´M§ä»·ºÝºÏºÐ¤¤excelÀɮפu§@ªíµ²ªG

name.rar (15.44 KB) ¤U­±°ò¥»¤W¥i¥H¥N´À§Ú­nªºµ²ªG
¥u¬O·Q½Ð¦U¦ì¤j¤jÀ°¦£¬Ý¤@¤U
¦pªG§Ú­nªºµ²ªG¤£¬O­n¥H³sµ²ªºÅã¥Ü¦Ó¬O­nª½±µ¨q¥Xµ²ªG¸Ó«ç»ò­×§ï

¥t¥~°²³]¨S¦¬´M¥Xµ²ªG ·|¤@ª½¥X²{¿ù»~¦b ³Ì«á­±ªº End If ½ÐÀ°¦£¬Ý¬Ý



Sub QuickSearch()
  Dim wks As Excel.Worksheet
  Dim rCell As Excel.Range

  Dim szLookupVal As String
  szLookupVal = InputBox("key in", "key in msg", "")

  
  If szLookupVal = "" Then Exit Sub

   Application.ScreenUpdating = False
   Application.DisplayAlerts = False

  
    For Each wks In ActiveWorkbook.Worksheets
      If wks.Name = "Result" Then
        wks.Delete
      End If
    Next wks

    Sheets.Add ActiveSheet

    ActiveSheet.Name = "Result"

    With Cells(1, 1)
      .Value = "¤U­±¤]¦³©Ò»Ý­n¸ê°T" & szLookupVal
      .EntireColumn.AutoFit
      .HorizontalAlignment = xlCenter
    End With

    ActiveSheet.Next.Select


    i = 2

    For Each wks In ActiveWorkbook.Worksheets

      With wks.Cells
        Set rCell = .Find(szLookupVal, , , xlWhole, xlByColumns, xlNext, False)
        If Not rCell Is Nothing Then
          szFirst = rCell.Address
          Do
         
            rCell.Hyperlinks.Add Sheets("Result").Cells(i, 1), "", "'" & wks.Name & "'!" & rCell.Address
         
             Select Case bTag
                    Case True
                       rCell.Interior.ColorIndex = 19
             End Select
             Set rCell = .FindNext(rCell)
             i = i + 1
          Loop While Not rCell Is Nothing And rCell.Address <> szFirst
        End If
      End With
    Next wks


    Set rCell = Nothing


    If i = 2 Then
      MsgBox "©Ò­n¬d§äªº­È{" & szLookupVal & "}¦b¤u§@ªí¤¤¨S¦³", 64, "§ä¤£¨ì³á"
     
      
      End If
Application.ScreenUpdating = True
     Application.DisplayAlerts = True
   
End Sub

TOP

¦^´_ 4# GBKEE

GBKEE¤j¤j:
·PÁ±zªº¨ó§U
¥t¥~¦pªG¬O³Ì«á¦¬´Mªºµ²ªG¨S¦³®É§Ú­n§R°£result¤u§@ªí
¬O¤£¬O¥u­n¦b³Ì«á sheets("result").Delete  ??
¦]¬°¥Î³o¼Ëªº¸Ü³£·|¸õ¥X¤@­Óµøµ¡ ½T»{¬O§_§R°£
§Ú·Q­n¦Û°Ê§R°£ªº¸Ü ¤£ª¾¸Ó¦p¦ó§ï

TOP

RE: ½Ð±Ð¦p¦ó´M§ä»·ºÝºÏºÐ¤¤excelÀɮפu§@ªíµ²ªG(¤w¸Ñ¨M)

¦^´_ 6# GBKEE
ÁÂÁÂ GBKEE¤j¤j
§Ú·|§V¤O¾Ç²ßªº ·PÁ ¤w¸g¸Ñ¨M

TOP

        ÀR«ä¦Û¦b : ¦Y­W¤F­W¡B­WºÉ¤Ü¨Ó¡A¨ÉºÖ¤FºÖ¡BºÖºÉ´d¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD