Chưa hiện "textbook" lấy gì đọc hướng dẫn?
cái TextBOOK này nghe lạ tai quá
(1) Mỗi trang tính thường có 1 đến 2 chức năng; Như (a) lưu trữ dữ liệu, chức năng (b) fụ trợ như danh mục hàng hóa, danh mực các bộ fận trong 1 cơ quan. . . hay chức năng để hiễn thị (c)các báo cáo cần thiết,. . . . (d). . .
Các huynh ơi ý em là tạo maro tìm kiếm một cụm từ ở tất cả các sheet, nếu tìm thấy sẽ thông báo không có hiện báo ko có, như hình nè, nhung code này chỉ tìm được trên 1 sheet, ý em muốn tìm tất cả các sheet
Em có code này mà chỉ tìm kiếm được trên 1 sheet các pro xem giúp muốn tìm kiếm trên tất cả các sheet thì thêm cái gì, giúp mình với, mình gửi file ảnh code nè.
Option Explicit
Sub DuyetLanLuotTatCaCacTrangTinh()
Dim Sh As Worksheet, Rng As Range, sRng As Range
Dim MyStr As String, MyAdd As String
MyStr = InputBox("Nhâp Mênh Dê Cân Tìm", "GPE.COM Xin Chào!", "GPE.COM")
For Each Sh In ThisWorkbook.Worksheets
Set Rng = Sh.UsedRange
Set sRng = Rng.Find(MyStr, , xlFormulas, xlPart)
If Not sRng Is Nothing Then
MyAdd = sRng.Address
Do
MsgBox sRng.Address, , Sh.Name
Set sRng = Rng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
Else
MsgBox "Nothing!", , Sh.Name
End If
Next Sh
End Subbạn có file ko gửi cho mình xin được ko, sợ copy vè nó ko chạy, thank!
Vậy nếu dùng công cụ có sẵn Find and Replace thì có vấn đề gì với bạn? Là Ctrl + F đó, nó cũng tìm đươc trên nhiều sheet vậy
