Chào các Thầy và các ACE
Em hiện tại đang sử dụng file excel có sử dụng code để TÌM KIẾM VỊ TRÍ CỦA KIỂU CÔNG THỨC.
Em mong muốn sửa đổi dòng code theo mục đích sử dụng của em một chút.
Đây là file mẫu, nếu em diễn tả chưa thực sự tường minh thì cũng xin mọi người góp ý.
https://drive.google.com/open?id=0B7RFgrbUdYzzN0ozSHV2d3Z0Tlk
Rất chân thành cảm ơn.
Em hiện tại đang sử dụng file excel có sử dụng code để TÌM KIẾM VỊ TRÍ CỦA KIỂU CÔNG THỨC.
Mã:
'By Luu Trung Kien'Date 4/2010
'HAM TIM KIEM VI TRI CUA KIEU THEP BEN SHEET THU VIEN
'****************************************************************************************************
Function FIND_INDEX_Kieu(ByVal FindKT As String) As Long
Const Start_Index_Data = 7
Dim Rng As Range
If Trim(FindKT) <> "" Then
With Sheet1.Range("A" & Start_Index_Data & ":A" & Sheet1.UsedRange.Rows.Count)
Set Rng = .Find(what:=FindKT, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
lookat:=xlWhole, _
searchorder:=xlByRows, _
searchdirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
FIND_INDEX_Kieu = Rng.Row
Else
FIND_INDEX_Kieu = 0
End If
End With
End If
End Function
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Row_Data As Long
If Not Sh Is Sheet1 And Not Intersect(Target, Sh.Range("A:A")) Is Nothing And Target.Count = 1 Then
If Target.Value <> "" Then
Row_Data = FIND_INDEX_Kieu(Target.Value)
If Row_Data > 0 Then
Application.EnableEvents = False
Target.RowHeight = Sheet1.Range("B" & Row_Data).RowHeight
Sheet1.Range("B" & Row_Data).Resize(, 25).Copy Target.Offset(, 1)
Application.EnableEvents = True
End If
End If
End If
End SubĐây là file mẫu, nếu em diễn tả chưa thực sự tường minh thì cũng xin mọi người góp ý.
https://drive.google.com/open?id=0B7RFgrbUdYzzN0ozSHV2d3Z0Tlk
Rất chân thành cảm ơn.
