Về vấn đề tạo danh sách sổ xuống đính kèm với dữ liệu (2 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

takeshi_bkhn

Thành viên mới
Tham gia
20/3/12
Bài viết
2
Được thích
0
Chào diễn đàn.
Mình là thành viên mới, mong mọi người giúp đỡ.

Hiện đang có chút thắc mắc tìm mãi chưa ra.Mong mọi người giải đáp giùm.

*Tại sheet (1) mình đã tạo các cơ sở dữ liệu ví dụ như:
Loai .................... Kích thước 1.................... Kích thước 2
FB6x125 .................... 5.89 ......................... 42.4
FB6x130 .................... 6 ................................ 45

*Tại Sheet(2) mình muốn lập một list danh sách bằng cách chọn loại (dạng danh sách sổ xuống).Sau khi chọn xong thì vị trí hai ô định trước các giá trị kích thước 1, kích thước 2 sẽ tự động được nhập vào ( Như file đính kèm).

Loay hoay mãi vẫn chưa tìm ra cách nào cả. Đưa lên đây xin ý kiến đóng góp của mọi người.
Cảm ơn nhiều.

VI DU.JPG
 
Lần chỉnh sửa cuối:
Tốt nhất bạn nên gởi file đính kèm! để mọi người có thể thực hiện trên file giúp bạn.Mình nghĩ việc này cũng đơn giản thôi. nhưng phảo có file!
 
Để tạo list, dùng validation với list được gán name (cách gán, sử dụng Ctrl+F3 rồi chọn new, bạn có thể tham khảo cách tạo name động trên GPE). Mình làm cho bạn xem một ví dụ đơn giản với list ở sheet1.
Còn khi chọn list ở sheet2 và gán giá trị tương ứng thì có 2 cách, hoặc xài công thức (dùng VLOOKUP cũng được) hoặc xài VBA. Ở đây mình xài VBA, bạn xem kỹ hơn trong file nhé. Ở đây mình chỉ giới hạn list từ A1 đến A13 trong sheet2 thôi, bạn cũng có thể tùy biến lại với vùng mà bạn muốn chọn list.
PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim arr, i As Integer
If Intersect(Range("A1:A13"), Target) Is Nothing Then Exit Sub
arr = Sheet1.Range("A1:C6").Value
For i = LBound(arr, 1) To UBound(arr, 1)
    If Target.Value = arr(i, 1) Then
        Target.Offset(0, 1).Value = arr(i, 2)
        Target.Offset(0, 2).Value = arr(i, 3)
        Exit Sub
    End If
Next i
End Sub
 

File đính kèm

Lần chỉnh sửa cuối:
Lần chỉnh sửa cuối:
Web KT

Bài viết mới nhất

Back
Top Bottom