Nhập mã hàng đến đâu tự động hiện ra đến đó

[tuanh1979]

Em có một bảng tổng hợp nhập xuất hàng bảo hành. có cột mã hàng, tên hàng, số lượng........ Em muốn khi nhập mã hàng thi tự động hiện ra má hàng và tên hàng nhưng khi đánh mã hàng thì chỉ cần đánh vài mã đầu thì tự động tìm ra mã gần đúng vd: 0242 Cpu C2.66
03321 Ram 512 bus 400,
0332 Ram 512 bus 333
khi em nhập đên 03 thì tự động nhảy đến 03.... chứ dùng combobox thì em phải kéo hết để tìm đúng mã hàng trong khi dữ liệu quá nhiều. Mà bảng tổng hợp của em mỗi ngày nhập rất nhiều dữ liệu mà dòng nảo em cũng phải tạo combobox thì vất vả quá. Có 500 dòng thì phải tạo 500 combobox thì chết mất. Giúp em nhé

 

[giaosy]

Các bạn thử nghiên cứu cái ví dụ này xem đáp ứng đúng yêu cầu đấy
Option Explicit
Private Sub CheckBox1_Click()
If CheckBox1 Then
ListBox1.Visible = True
Else
ListBox1.Visible = False
End If
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim Target As Range
Dim MySel As Range

Set Target = Range("VBA_Target")
Set MySel = Intersect(ActiveCell.EntireRow, Target)
MySel.Value = ListBox1.Value
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim L As Double
Dim T As Double
Dim MaxR As Double
Dim MaxB As Double
Dim n As Integer
Dim ListR As Double
Dim ListB As Double

ListBox1.Width = 250
ListBox1.Height = 200

MaxR = Cells(1, 256).Left + Cells(1, 256).Width
MaxB = Cells(65536, 1).Top + Cells(65536, 1).Height

If ActiveCell.Column >= 255 Then
n = 0
Else
n = 2
End If

L = ActiveCell.Offset(0, n).Left
T = ActiveCell.Top

ListR = L + ListBox1.Width
ListB = T + ListBox1.Height

If ListR >= MaxR Then
L = MaxR - ListBox1.Width - (MaxR - ActiveCell.Offset(0, -1).Left)
End If

If ListB >= MaxB Then
T = MaxB - ListBox1.Height
End If

ListBox1.Top = T
ListBox1.Left = L
End Sub

đoạn code nay kèm theo 1 đối tượng list box 1 và checkbox 1, khi chạy sẽ tạo ra một listbox hỗ trợ bên cạnh để người nhập dữ liệu chọn lựa dữ liệu cần thiết vào ô cần nhập.

 

[anhtuan1066]

Bạn ơi, tốt nhất là cho luôn file đính kèm... Vì code này muốn chạy dc phải còn thiết kế thêm nhiều món lắm... Tôi sợ bạn lại mất công trả lởi thêm những thắc mắc khi người ta ko làm dc đấy
Ah... cho hỏi: có ai làm dc món này mà ko cần thêm cell phụ hay checkbox gì cả... đại khá cứ gõ thẳng vào ComboBox hoặc listbox là nó hiện ra... Giống cách làm của tôi bằng Validation đấy!

 

[tuanh1979]

To bac ThuNghi
Trich: Về logic không ai nhập thẳng vào data một lúc 500 dòng. Bạn nên nghiên cứu lại tạo 1 form (sh) nhập sau khi ok -> data

Bác có thể chỉ giùm được không. Mình có xem bài của các bác đã làm nhưng không hiêu lắm, thank thank thank