Cú pháp chuẩn của hàm Find:Cám ơn bạn nha.Cái vụ mà gõ số 25 ,26 gì đó là do mình lúc đầu thì mình để nhưng sau đó thấy không cần dài vậy nên xóa đi .Thành ra bạn không nhìn thấy ,mình mở ra xem lại mới thấy thế mới chết chứ lỵ(xóa đi xong save lại ,không để ý ghi chú ở trên text box)
Function Find(What, [After], [LookIn], [LookAt], [SearchOrder], [SearchDirection As XlSearchDirection = xlNext], [MatchCase], [MatchByte], [SearchFormat]) As RangeDo lược bỏ các thông số để tìm nhanh hơn nhưng với dữ liệu nhiều, trong đó lại có phần hao hao giống nhau thì hàm Find đã lược bỏ chỉ số sẽ không thể tìm chính xác
kiểm tra và cho biết kết quả nhé
.Cám ơn bạn rất rất nhiều nha..Code này hay đấy ,các bạn khác có thể lấy ứng dụng cho việc của mình.Nhớ bấm cám ơn bác boyxin một phát nha..Bye bác nha.
Híc, hơi tưng tưng "zồi", hổng hiểu sao Thầy Boy- Xỉn không dùng A, B, C mà lại 1, 2, 3..., góp vui với bạn tutientrung một cách:Cám ơn bạn nha.Cái vụ mà gõ số 25 ,26 gì đó là do mình lúc đầu thì mình để nhưng sau đó thấy không cần dài vậy nên xóa đi .Thành ra bạn không nhìn thấy ,mình mở ra xem lại mới thấy thế mới chết chứ lỵ(xóa đi xong save lại ,không để ý ghi chú ở trên text box)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, Vung, J As Long
On Error Resume Next
If Not Intersect(Target, Range("a4")) Is Nothing Then
i = Range([b7], [b50000].End(xlUp)).Rows.Count
Vung = Range([a5] & 7).Resize(i)
J = Application.WorksheetFunction.Match([a4], Vung, 0) + 6
Range([a5] & J).Select
End If
End Sub-------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Clls As Range
On Error Resume Next
If Not Intersect(Target, Range("a1:b1")) Is Nothing Then
Cells([b:b].Find([a1], , , 1, 2).Row, AscW([b1]) - IIf(AscW([b1]) > 96, 96, 64)).Select
End If
End Sub If Not Intersect(Target, Range("B4:B65535")) Is Nothing Then
If Target <> "" Then
Target.Offset(, -1) = Now()
Else
Target.Offset(, -1).Value = Empty
End If
End IfPrivate Sub Worksheet_Activate()
Dim Arr(), ArrKQ(1 To 65000, 1 To 6)
Dim i As Long, s As Long, j As Long, dk As Boolean
With Sheet1
Set data = .[a4].CurrentRegion
data.Sort Key1:=.[a4], Order1:=1, Key2:=.[b4], Order1:=1, Header:=1
Arr = data.Offset(1).Value
End With
s = 1
For i = 1 To UBound(Arr) - 1
dk = False
For j = 3 To 6
If Arr(i, j) > 0 Then dk = True: Exit For
Next
If dk = True Then
ArrKQ(s, 1) = Arr(i, 1): ArrKQ(s, 2) = Arr(i, 2)
For j = 3 To 6
ArrKQ(s, j) = ArrKQ(s, j) + Arr(i, j)
Next
If (Arr(i, 1) <> Arr(i + 1, 1)) + (Arr(i, 2) <> Arr(i + 1, 2)) Then s = s + 1
End If
Next i
Application.ScreenUpdating = False
With ActiveSheet
.[a2].CurrentRegion.Offset(1).ClearContents
.[a2].Resize(s, 6) = ArrKQ
End With: data = Temp
Application.ScreenUpdating = True
End SubCám ơn bác đã tham gia vào bài này .Ở bài http://www.giaiphapexcel.com/forum/...Tách-chuỗi-có-5-điều-kiện&p=260074#post260074
,"tửu lượng không cao ,nhưng cũng khiến vài người đi ngủ" đấy..Thưc ra thì hôm sinh nhật GPE em cũng muốn tham gia offline rồi .Nhưng hôm đấy công ty cho đi du lịch nên đành chịu.Dung nhan các bác thì e cũng đã được chiêm ngưỡng ,sự nhiệt tình thì còn hơn cả chữ nhiệt tình nữa.Dung nhan của em thì cũng có trong kỷ yếu GPE rồi .Vì thế e cũng mong có dịp để lai rai và đàm đạo cùng các bác.Nếu các bác không chê em thì nếu có việc gì ,Alo 1 phát là có mặt ngay .
