Vùng N:U là kết quả mong đợi. Dữ liệu đầu vào là D:K
(*) Bạn cần tìm trên cột nào của CSDL; Đừng nói là tìm ở bất kỳ cột nào trong CSDL đó nha.
Đúng là e định tìm bất cứ cột nào ấy. Nhưng cũng có thể thu gọn lại với vài cột thôi cũng dc. Hi
vâng những phần nhập kia e làm cơ bản rồi. chỉ đang mắc ở chỗ tìm kiếm, sửa, cập nhật thôi ạ.
cám ơn bác, e sẽ nghiên cứu file gợi ý của bác. có gì nhờ bác giúp đỡ tiếp nhé
Chỉnh sửa dựa trên code có sẵn.
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Application.ScreenUpdating = False
If KeyCode = 13 Then
KeyCode = 0
If TextBox1.Value > "" Then
With ActiveCell
.Value = ActiveSheet.ListBox1.Column(0, 0)
.Offset(1, 0) = ActiveSheet.ListBox1.Column(1, 0)
Hide
.Offset(1).Select
End With
End If
End If
Application.ScreenUpdating = True
End SubChỉnh vài sub
Private Sub ListBox1_Click()
Dim i
i = ListBox1.ListIndex
Range("E6") = Sheet1.ListBox1.List(i, 0)
Range("E7") = Sheet1.ListBox1.List(i, 1)
Range("E7").Activate
Hide
End Sub
Private Sub thaydoi()
With Sheet1.TextBox1
.Visible = False
.Visible = True
.Left = ActiveCell.Left
.Top = ActiveCell.Top
.Width = ActiveCell.Width
.Height = ActiveCell.Height
.Value = ""
.Activate
End With
With Sheet1.ListBox1
.Visible = False
.Visible = True
.ColumnCount = 2
.Left = ActiveCell.Offset(, 1).Left
.Width = ActiveCell.Width * 1.5
.Height = 150
.Top = ActiveCell.Offset(, 1).Top
.Clear
End With
End Sub
Private Sub loc()
Dim sArr(), Arr(), Res(), i As Long, k As Long, tmp As String, maHang As String
With Sheet2
sArr = .Range("M6:N74").Value
End With
ReDim Arr(0 To UBound(sArr), 1 To 2)
Sheet1.ListBox1.Clear
tmp = UCase(TV(Sheet1.TextBox1.Value))
For i = 1 To UBound(sArr)
maHang = sArr(i, 1)
If maHang <> "" Then
If UCase(TV(maHang)) Like "*" & tmp & "*" Then
Arr(k, 1) = maHang
Arr(k, 2) = sArr(i, 2)
k = k + 1
End If
End If
Next
ReDim Res(0 To k, 1 To 2)
For i = 0 To k
Res(i, 1) = Arr(i, 1): Res(i, 2) = Arr(i, 2)
Next i
Sheet1.ListBox1.List = Res
End SubChưa kiểm tra kỹ, code Enter lấy giá trị trên cùng của Listbox bị lỗi khi Textbox có giá trị không nằm trong dữ liệu.
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Application.ScreenUpdating = False
If KeyCode = 13 Then
KeyCode = 0
If TextBox1.Value > "" Then
If ActiveSheet.ListBox1.ListCount > 0 Then
With ActiveCell
.Value = ActiveSheet.ListBox1.Column(0, 0)
.Offset(1, 0) = ActiveSheet.ListBox1.Column(1, 0)
Hide
.Offset(1).Select
End With
End If
End If
End If
Application.ScreenUpdating = True
End SubCó sửa mấy chỗ, bạn xem file đính kèm nhe.
Xin chào Anh leonguyenz,
Đã sửa cột số lượng, xem trong file đính kèm nhe.
Xin cảm ơn Anh leonguyenz rất nhiều.
