tìm kiếm dữ liệu giữa các sheet

[let it be]

Chào các bạn.
Cho mình hỏi, mình có 1 file excel, trong đó có nhiều sheet (mỗi ngày là 1 sheet). Mình muốn tạo 1 vùng mà khi nhập thông tin cần tìm thì sẽ trả về vị trí của thông tin đó. (Giống như lệnh Edit/Find... nhưng lệnh này chỉ cho xử lý trên cột hoặc dòng đã chọn). Dùng code excel đựơc không???.
Mình đang rất cần, cám ơn nhiều...

 

[Excel Công Cụ Tuyệt Vời Của Bạn]

Chào các bạn.
Cho mình hỏi, mình có 1 file excel, trong đó có nhiều sheet (mỗi ngày là 1 sheet). Mình muốn tạo 1 vùng mà khi nhập thông tin cần tìm thì sẽ trả về vị trí của thông tin đó. (Giống như lệnh Edit/Find... nhưng lệnh này chỉ cho xử lý trên cột hoặc dòng đã chọn). Dùng code excel đựơc không???.
Mình đang rất cần, cám ơn nhiều...

Tui thấy có thể tìm trên tất cả các sheet được mà bạn.
Bạn chọn Options, chọn mục Within là Workbook là được

 

[SA_DQ]

Vì là trong BOX lập trình, thì đây: Xin mời bạn tham khảo macro sự kiện

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [B4]) Is Nothing Then '<=|'
   Dim Sh As Worksheet, sRng As Range
   Dim MyColor As Byte, MyAdd As String
 
   MyColor = [b3].Interior.ColorIndex + 1
   If MyColor < 34 Then MyColor = 34
   Target.CurrentRegion.Offset(1, 1).ClearContents
   For Each Sh In Worksheets
      If Sh.Name <> Target.Parent.Name Then
         Set sRng = Sh.Cells.Find(Target.Value, , xlFormulas, xlWhole)
         If Not sRng Is Nothing Then
            MyAdd = sRng.Address
            Do
               With Cells(65500, Target.Column + 1).End(xlUp).Offset(1)
                  .Value = sRng.Address:        .Offset(, 1) = Sh.Name
               End With
               Set sRng = Sh.Cells.FindNext(sRng)
            Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
         End If
      End If
   Next Sh
   [b3].Resize(, 3).Interior.ColorIndex = IIf(MyColor <42, MyColor, 34)
 End If
End Sub

Macro tác động tại [B4] của trang tính chứa macro; Nó không tìm trên trang tính của nó
, mà tìm các trang khác