Cho mình hỏi cách tạo list (1 người xem)

Liên hệ QC

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

hoangvinh_tb

Thành viên mới
Tham gia
16/6/08
Bài viết
20
Được thích
4
Cho mình hỏi cách tạo list: VD (FILE ĐÍNH KÈM) Xin các bắc chỉ dùm nhé

From Sa_DQ:
Bài này sai BOX & sẽ được dòi nới khác trong thời gian gần đây.
 

File đính kèm

Chỉnh sửa lần cuối bởi điều hành viên:
Cho mình hỏi cách tạo list: VD (FILE ĐÍNH KÈM) Xin các bắc chỉ dùm nhé
Nếu các chi tiết củ một mã hàng luôn nằm một chỗ (liên tục, không rời rạc) thì dùng công thức này:
Mã:
=IF(ROW(A1)>COUNTIF($B$5:$B$17,$G$4),"",INDEX($C$5:$C$17,MATCH($G$4,$B$5:$B$17,)+ROW(A1)-1))
Không thì phải dùng công thức mảng.
Copy công thức vào ô H4 rồi kéo xuống.
 
Không phải vậy ! mình muón nó hiện toàn bộ chi tiết của mã hàng đó và mình chỉ cần click chuận chọn chi tiết là xong! mong bạn giúp đỡ! cám ơn nhiều
 
Gõ công thức xong, kéo fill xuống ông trời à!
------
Hình như ý tác giả là như thế này chú ơi:
Chọn G4 = Ghe 263 => H4 => xổ ra 1 lits: Chan truoc, chan sau....của sản phẩm ghế 263 => chọn chi tiết tương ứng.
Chọn G5 = Ghe 759 => H5 => xổ ra 1 lits: Chan truoc, chan sau....của sản phẩm ghế 759 => chọn chi tiết tương ứng.
 
------
Hình như ý tác giả là như thế này chú ơi:
Chọn G4 = Ghe 263 => H4 => xổ ra 1 lits: Chan truoc, chan sau....của sản phẩm ghế 263 => chọn chi tiết tương ứng.
Chọn G5 = Ghe 759 => H5 => xổ ra 1 lits: Chan truoc, chan sau....của sản phẩm ghế 759 => chọn chi tiết tương ứng.
Nếu đúng là vậy thì xem bài này:
http://www.giaiphapexcel.com/forum/showthread.php?t=3685
Một công nhiều việc luôn
 
Nếu vậy thì dùng name động.
 

File đính kèm

Nếu vậy thì dùng name động.
----
Tôi nghỉ chính xác theo yêu cầu của tác giả ( ngành gổ ), bạn huuthang_bd cho tôi hỏi chổ ghi công thức (Refers to) làm thế nào để phóng lớn ( để cho dể nhìn công thức ), code vba viết cho yêu cầu này có đơn giản không ?
 
----
Tôi nghỉ chính xác theo yêu cầu của tác giả ( ngành gổ ), bạn huuthang_bd cho tôi hỏi chổ ghi công thức (Refers to) làm thế nào để phóng lớn ( để cho dể nhìn công thức ), code vba viết cho yêu cầu này có đơn giản không ?
Tôi dùng Excel 2007. Di chuyển con chuột đến góc cửa sổ cho xuất hiện dấu mũi tên rồi kéo rộng ra. Không biết Excel 2003 có kéo ra được không. Mà muốn xem công thức trong name thì F3 | Paste list.
Code thì cũng làm như vậy thôi. Nhưng tội gì phải dùng code nhỉ.
 
Code thì cũng làm như vậy thôi. Nhưng tội gì phải dùng code nhỉ.
----------
Cám ơn bạn đã quan tâm, tôi cũng làm trong ngành gỗ nên nhìn vào yêu cầu của tác giả là tôi hiểu ngay. Công thức của bạn rất tốt, nhưng trong thực tế còn lắm vấn đề phức tạp lắm vì vậy tôi mới hỏi code là vậy.
Thân chào.
 
----------
Cám ơn bạn đã quan tâm, tôi cũng làm trong ngành gỗ nên nhìn vào yêu cầu của tác giả là tôi hiểu ngay. Công thức của bạn rất tốt, nhưng trong thực tế còn lắm vấn đề phức tạp lắm vì vậy tôi mới hỏi code là vậy.
Thân chào.
Nếu vậy thì còn phải tùy vào từng trường hợp nữa. Không có công thức hay code này áp dụng tốt trong tất cả các trường hợp cả. Mỗi trường hợp sẽ có một cách giải quyết tối ưu riêng.
 
Nếu vậy thì còn phải tùy vào từng trường hợp nữa. Không có công thức hay code này áp dụng tốt trong tất cả các trường hợp cả. Mỗi trường hợp sẽ có một cách giải quyết tối ưu riêng.
------
Bạn ơi ! Tôi chỉ cần cụ thể cho trường hợp này là được lắm rồi, chắc bạn nghĩ ai cũng ứng biến công thức nhanh như bạn => --=0
Thân chào.
 
------
Bạn ơi ! Tôi chỉ cần cụ thể cho trường hợp này là được lắm rồi, chắc bạn nghĩ ai cũng ứng biến công thức nhanh như bạn => --=0
Thân chào.
Vậy thì tôi thử dùng macro trong trường hợp này. Đương nhiên chỉ làm để tham khảo chứ trong trường hợp này dùng Name sẽ thuận tiện hơn nhiều.
 

File đính kèm

Vậy thì tôi thử dùng macro trong trường hợp này. Đương nhiên chỉ làm để tham khảo chứ trong trường hợp này dùng Name sẽ thuận tiện hơn nhiều.

Code của bạn bị lỗi khi chọn khối ô từ 2 ô trở lên tại cột H4:H17 (lỗi số 13) và lỗi khi chọn bất kỳ ô nào trong khối ô D4:D17 & I4:I17(Lỗi số 91) và Cột A:A (Lỗi số 1004)???
Kiểm tra lại nhé!

(tình cờ phát hiện lỗi thôi nhé, không phải vạch lá tìm sâu đâu à nha)
 
Lần chỉnh sửa cuối:
Vậy thì tôi thử dùng macro trong trường hợp này. Đương nhiên chỉ làm để tham khảo chứ trong trường hợp này dùng Name sẽ thuận tiện hơn nhiều.
------
Bạn tham gia là vui lắm rồi, nhưng theo quan điểm của tôi bao giờ cũng làm theo nhiều cách để chọn cách tốt nhất, đồng thời phải :
- Dể thao tác, dể xử dụng
- Phù hợp với trình độ người xử dụng ( sao bạn lại cứ nghĩ ai lập công thức cũng ào ào như bạn --=0 )
TRƯỜNG HỢP ĐẶC BIỆT : Còn đuối quá thì xin mời anh, chị nhập liệu vào đây ( việc này ai làm cũng được ) => nhấn dùm tôi nút này => Xong => Khỏe (làm 1 điếu).
------
Nguyên văn bởi minhthien321
(tình cờ phát hiện lỗi thôi nhé, không phải vạch lá tìm sâu đâu à nha)
Sao bạn lại nghĩ thế? tham gia là mừng lắm rồi )(&&@@ , Code bị lỗi => chuyện thường ngày ở huyện

Thân chào 2 bạn.
 
Code của bạn bị lỗi khi chọn khối ô từ 2 ô trở lên tại cột H4:H17 (lỗi số 13) và lỗi khi chọn bất kỳ ô nào trong khối ô D4:D17 & I4:I17(Lỗi số 91) và Cột A:A (Lỗi số 1004)???
Kiểm tra lại nhé!

(tình cờ phát hiện lỗi thôi nhé, không phải vạch lá tìm sâu đâu à nha)
Chỉ lỗi khi chọn ô ở cột A:A do dùng Offset(,-1) thôi. Các trường hợp khác tôi không thấy bị lỗi?!
Những lỗi này không ảnh hưởng đến kết quả, chỉ cần thêm một dòng bẫy lỗi là ok.
PHP:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Dim GPE As Range
Set GPE = [B:B].Find(what:=Target.Offset(, -1), Lookat:=xlWhole)
If GPE = "" Then Exit Sub
If Not GPE Is Nothing And Target.Column = 8 Then
Target.Validation.Delete
Target.Validation.Add Type:=xlValidateList, Formula1:="='" & Me.Name & "'!" & GPE.Offset(, 1).Resize(Application.WorksheetFunction.CountIf([B:B], Target.Offset(, -1))).Address
End If
End Sub
Cảm ơn bạn đã phát hiện.
 
To : huuthang_bd
Sao tôi chọn G4 => H4 không xuất hiện nút chọn nhỉ ?
 
Bài này tôi nghĩ nên dùng UserForm thì hay hơn ---> Mọi thứ sẽ hiển thị trong 1 ListBox ---> Như vậy ta dể dàng chọn lựa hơn!
 
Web KT

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

Back
Top Bottom