Đang viết thì đã có các bác cao nhân giả nhời mất rồi. Thôi cũng xin thưa thớt vài câu cho thêm phần rôm rả...
====================================================================
Bạn Hoàng có một cái sai căn bản, bác
VietMini cũng đã chỉ ra rồi đấy!
Hãy nhìn nhé:
[GPECODE=vb]Dim ValueSearch As Single[/GPECODE]
Điều ấy có nghĩa là kiểu của biến này là Single. Câu
[GPECODE=vb]ValueSearch = CStr(ValueSearch)[/GPECODE]
của bạn vô nghĩa vì bạn chuyển sang ký tự xong, trình dịch lại chuyển về kiểu Single theo kiểu biến đã khai báo.
Điểm nữa, với phương thức Find, hãy chú ý này:
[What] bắt buộc phải có, kiểu số liệu là Variant, là số liệu cần tìm, có thể là ký tự hoặc bất kỳ kiểu số liệu nào của Excel.
Xem trang:::
http://msdn.microsoft.com/en-us/library/office/ff839746(v=office.15).aspx
Ở đây, Excel đặc tả số liệu dạng
General thì
What sẽ ứng với kiểu
String,
[Đoạn này không hoàn toàn chính xác - tuy nhiên khi tôi dùng biện pháp ghi Macro thì dường như Excel coi tham số truyền vào qua hộp thoại Find là String]. Tôi sẽ thử tìm hiểu kỹ về vụ này sau!
[GPECODE=vb]Sub Macro4()'
' Macro4 Macro
'
'
Selection.Copy
Range("E7").Select
Application.CutCopyMode = False
Selection.Copy
Cells.Find(What:="23.08683298", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Range("E7").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("E4").Select
End Sub
[/GPECODE]
Nếu bạn dùng định dạng số thì bạn phải đưa tham số thì kiểu biến phải là
Double và bạn phải có đúng kiểu định dạng như nó hiện lên trên Excel.
Ví dụ tôi định dạng 2 chữ số thập phân thì khi tìm kiếm tôi cũng phải truyền tham số tìm là như vậy bằng cách dùng
[GPECODE=vb]ValueSearch = Format(Application.Max(Rng), "#.##")[/GPECODE]
Khi bạn dùng định dạng 2 chữ số thập phân, nếu bạn dùng Hộp thoại Find với số liệu như cũ
(có nhiều số sau dấu thập phân) cũng không ra kết quả đâu nhé. Từ đó, bạn hãy xem đoạn code sau có chạy không nhé (lưu ý là phải định dạng vùng tìm kiếm bằng dạng 2 số sau dấu phẩy qua hộp thoại
Format Cells nhé).
[GPECODE=vb]Sub Find_Single() Dim Rng As Range, RngKQ As Range
Dim FirstAddress, NextAddress As String
Dim ValueSearch As Double
Range("G2:J12").Clear
'Set Rng la 1 vung "B2:B12"
Set Rng = Range("E2:E12")
'To mau cho de nhin
Rng.Interior.ColorIndex = 40
'Gia tri can tim la gia tri lon nhat
ValueSearch = Format(Application.Max(Rng), "#.##")
'Su dung lenh nay la chinh xac
Set RngKQ = Rng.Find(ValueSearch, LookIn:=xlValues)
If RngKQ Is Nothing Then
MsgBox "Khong tim thay cell co ket qua lon nhat"
Else
'Lay dia chi Cell cua RngKQ vua tim thay
FirstAddress = RngKQ.Address
RngKQ.Offset(0, 1).Value = FirstAddress
'Tim Cell tiep theo
'Vi FindNext tim den het Range roi lai quay tro len tren tim tiep cho nen se gap truong hop NextAddress = FirstAddress
Do Until NextAddress = FirstAddress
Set RngKQ = Rng.FindNext(RngKQ)
NextAddress = RngKQ.Address
RngKQ.Offset(0, 1).Value = NextAddress
Loop
End If
End Sub
[/GPECODE]
