Hỏi thêm về Validalition data - list? (1 người xem)

KUMI · 19/11/13

Xin chào Thầy Cô và Anh Chị!
Em có một vướng mắc và đã trình bày trong file đính kèm rồi ạ?
Thầy Cô và anh Chị xem có cách nào thể thực hiện cho vấn đề này không giúp em với ạ!
Em xin cảm ơn!
(Em xin phép mượn tạm file từ chủ đề này của Thầy BaTê để làm ví dụ minh họa ạ: http://www.giaiphapexcel.com/forum/...ạo-Validalition-data-list&p=546368#post546368 )

Cá ngừ F1 · 19/11/13

Cái này dùng tham chiếu phụ thuộc..
Bạn tải ấn phẩm miễn phí validation in excel của thầy PTH về tham khảo xem đúng ý của bạn ko nhé

KUMI · 19/11/13

Anh chưa đọc tài liệu này. Khi nào có thời gian em sẽ đọc ạ!

Nếu anh đã biết cách thì xin minh họa cho em một ví dụ với ạ.
Nếu được ví dụ kèm theo cả mã số và họ tên như file trên thì càng tôt. Còn không thì chỉ cần trong list có phần mã số thuộc lớp cần chọn thôi như vậy cũng đủ rồi ạ!
Cảm ơn Anh!

Cá ngừ F1 · 19/11/13

Cá ngừ F1 đã viết:
E có tham khảo tài liệu data validation in Excel của Thày PhanTuHuong trên GPE.
Mục "Tạo danh sách tham chiếu phụ thuộc"
E xin gửi theo vi dụ của thày PTH đính kèm.
Giả sử sắp tới Hà Nội thêm quận mới là quận Mỹ Đình, e có nhập tiếp vào danh sách mà mở rộng tham chiếu ở source list Quận/Huyện thì công thức này phá sản, hjk
Chẳng nhẽ mỗi lần thêm quân mới lại phải insert vào đúng phần Tỉnh/thành phố..??
Có giải pháp nào hoàn hảo hơn không ạh? Mong giúp đỡ

hoặc bạn thử vào topic này tham khảo nhé

KUMI · 19/11/13

Cá ngừ F1 đã viết:
hoặc bạn thử vào topic này tham khảo nhé

Hi, Anh quên không đính kèm đườn dẫn kìa!

Cá ngừ F1 · 19/11/13

KUMI đã viết:
Hi, Anh quên không đính kèm đườn dẫn kìa!

Bạn kích vào cái biểu tượng nho nhỏ cạnh chữ cá ngừ ý..nó sẽ link đến đó..có cả file ở đấy nữa nhé

KUMI · 19/11/13

@@! Em đã kích mấy chỗ rồi...nhưng không thấy nơi mình cần đến. Anh gửi links đi ạ!

KUMI · 19/11/13

A! Em thấy rồi thì ra là ở đây, hôm nay em mới biết thêm tính năng này của GPE! :v

Let'GâuGâu · 19/11/13

KUMI đã viết:
Xin chào Thầy Cô và Anh Chị!
Em có một vướng mắc và đã trình bày trong file đính kèm rồi ạ?
Thầy Cô và anh Chị xem có cách nào thể thực hiện cho vấn đề này không giúp em với ạ!
Em xin cảm ơn!
(Em xin phép mượn tạm file từ chủ đề này của Thầy BaTê để làm ví dụ minh họa ạ: http://www.giaiphapexcel.com/forum/...ạo-Validalition-data-list&p=546368#post546368 )

thử đoạn code này xem

'
Dim rng, cll As Range
Dim str As String
Sheet1.[A2:c1000].AutoFilter Field:=3, Criteria1:=Sheet2.[e2]
Set rng = Sheet1.[a3].Resize(Sheet1.[a1000].End(3).Row).SpecialCells(xlCellTypeVisible)
MsgBox rng.Rows.Count
For Each cll In rng
str = Range("A" & cll.Row) & " " & Range("B" & cll.Row) & "," & str
Next
With Sheet2.[c3:c23].Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=str
End With
Set rng = Nothing
Sheet1.ShowAllData
End Sub

Cá ngừ F1 · 19/11/13

http://www.giaiphapexcel.com/forum/showthread.php?84205-Hỏi-về-Data-Validation
ở page 4..bài #36 hay sao ý bạn

KUMI · 19/11/13

Let'GâuGâu đã viết:
thử đoạn code này xem

'
Dim rng, cll As Range
Dim str As String
Sheet1.[A2:c1000].AutoFilter Field:=3, Criteria1:=Sheet2.[e2]
Set rng = Sheet1.[a3].Resize(Sheet1.[a1000].End(3).Row).SpecialCells(xlCellTypeVisible)
MsgBox rng.Rows.Count
For Each cll In rng
str = Range("A" & cll.Row) & " " & Range("B" & cll.Row) & "," & str
Next
With Sheet2.[c3:c23].Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=str
End With
Set rng = Nothing
Sheet1.ShowAllData
End Sub

Phiền Anh(Chị) có thể gửi thêm file kèm được không ạ? Em thấy code hoa cả mắt không biết nhét vào đâu nữa, hihi!

concogia · 19/11/13

KUMI đã viết:
Phiền Anh(Chị) có thể gửi thêm file kèm được không ạ? Em thấy code hoa cả mắt không biết nhét vào đâu nữa, hihi!

Nó ............. đây nè
Code thì nhét nó vào file của bạn chứ nhét vào đâu
Chọn giá trị trong [E2], xem kết quả
Thân

KUMI · 20/11/13

concogia đã viết:
Nó ............. đây nè
Code thì nhét nó vào file của bạn chứ nhét vào đâu
Chọn giá trị trong [E2], xem kết quả
Thân

Hì, Cảm Thầy,Thầy không những giỏi mà còn lại vui tính nữa thật hiếm thấy.

Về kết quả trong bài thì con xin lỗi Thầy vì con chưa giải thích rõ ràng.. Cột MNV trong sheet KETXUAT con chỉ muốn lấy mã số thôi ạ. Chứ không lấy phần họ tên nữa.
Phần họ tên chỉ thể hiện khi bấm vào mũi tên Sổ xuống thôi ạ. Còn kết quả chọn được thì chỉ là MNV. Nó cũng tương tự như file kèm con gửi bài 1 đó ạ.
Mong Thầy chỉ bảo thêm ạ!
Cảm ơn Thầy!

Let'GâuGâu · 20/11/13

KUMI đã viết:
Phiền Anh(Chị) có thể gửi thêm file kèm được không ạ? Em thấy code hoa cả mắt không biết nhét vào đâu nữa, hihi!

bạn xem thêm cho vui ,,,,,,,

,,,,,,

KUMI · 20/11/13

Let'GâuGâu đã viết:
bạn xem thêm cho vui,,,,,,

Hix.. Em chạy thử thấy lỗi như sau anh ạ!
Mà sao chỗ thì có Data List và chỗ Thì không vậy ạ?
Anh kiểm tra lại giúp em vơi ạ!

Let'GâuGâu · 20/11/13

KUMI đã viết:
Hix.. Em chạy thử thấy lỗi như sau anh ạ!
Mà sao chỗ thì có Data List và chỗ Thì không vậy ạ?
Anh kiểm tra lại giúp em vơi ạ!

ko hiểu nữa, sau khi tải về bạn chọn lại ở E2 thì cái validation chổ có chổ không sẻ hết,
còn báo lổi chổ hàm left thì không hiểu? tui xài máy 2003 không thấy nó báo lổi gì hết
phía trên dòng lệnh này có một dòng lệnh mà tôi đã khóa
' Target.Validation.Delete----> bạn thử bỏ dấu nhấy đi xem có được ko ,,,,,,,

không được thì tôi cũng ko biết vì sao, chắc bạn xài verson sau.

--------------
Ah, đã hiểu, phải thêm cái enablevent=false vào
Application.EnableEvents = False
Target = Left(Target, 4)
Application.EnableEvents = True
--->mà sao tôi test ở ex 2003 lai ko bị lổi ta???

dhn46 · 20/11/13

Bạn thêm đoạn code màu đỏ này vào sau đoạn code của Bác Cò

Mã:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Vung, I, Gom
    Vung = Sheets("MANV").Range(Sheets("MANV").[A3], Sheets("MANV").[A10000].End(xlUp)).Resize(, 3)
        If Target.Address = "$E$2" Then
            For I = 1 To UBound(Vung)
                If Vung(I, 3) = Target Then
                    Gom = Gom & Vung(I, 1) & " " & Vung(I, 2) & ","
                End If
            Next I
                With Range("C3:C22").Validation
                    .Delete
                    .Add xlValidateList, , , Gom
                End With
        End If
[COLOR=#ff0000]        If Not Intersect(Target, [C3:C22]) Is Nothing Then[/COLOR]
[COLOR=#ff0000]            Application.EnableEvents = False[/COLOR]
[COLOR=#ff0000]            Target = Left(Target, InStr(1, Target, " ") - 1)[/COLOR]
[COLOR=#ff0000]            Application.EnableEvents = True[/COLOR]
[COLOR=#ff0000]        End If[/COLOR]
End Sub

KUMI · 20/11/13

Let'GâuGâu đã viết:
ko hiểu nữa, sau khi tải về bạn chọn lại ở E2 thì cái validation chổ có chổ không sẻ hết,
còn báo lổi chổ hàm left thì không hiểu? tui xài máy 2003 không thấy nó báo lổi gì hết
phía trên dòng lệnh này có một dòng lệnh mà tôi đã khóa
' Target.Validation.Delete----> bạn thử bỏ dấu nhấy đi xem có được kokhông được thì tôi cũng ko biết vì sao, chắc bạn xài verson sau.

Em dùng Ex-2010! hiện tại em vẫn chưa xử lý được lỗi này ạ!
Rất mong nhận được thêm sự trợ giúp từ GPE!

KUMI · 20/11/13

dhn46 đã viết:

Bạn thêm đoạn code màu đỏ này vào sau đoạn code của Bác Cò

Mã:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Vung, I, Gom
    Vung = Sheets("MANV").Range(Sheets("MANV").[A3], Sheets("MANV").[A10000].End(xlUp)).Resize(, 3)
        If Target.Address = "$E$2" Then
            For I = 1 To UBound(Vung)
                If Vung(I, 3) = Target Then
                    Gom = Gom & Vung(I, 1) & " " & Vung(I, 2) & ","
                End If
            Next I
                With Range("C3:C22").Validation
                    .Delete
                    .Add xlValidateList, , , Gom
                End With
        End If
[COLOR=#ff0000]        If Not Intersect(Target, [C3:C22]) Is Nothing Then[/COLOR]
[COLOR=#ff0000]            Application.EnableEvents = False[/COLOR]
[COLOR=#ff0000]            Target = Left(Target, InStr(1, Target, " ") - 1)[/COLOR]
[COLOR=#ff0000]            Application.EnableEvents = True[/COLOR]
[COLOR=#ff0000]        End If[/COLOR]
End Sub

Hi,Cảm ơn Anh Ninh nhé! Mọi việc đã trở nên suôn sẻ!

KUMI · 20/11/13

Xin hỏi thêm có cách nào để thay đổi kích thước font chữ trong Data valition không?

Phiền mọi người giúp đỡ thêm vấn đề này với ạ.
Có cách nào để thay đổi kích thước hoặc font chữ trong Data valition không ạ?

dhn46 · 20/11/13

KUMI đã viết:
Phiền mọi người giúp đỡ thêm vấn đề này với ạ.
Có cách nào để thay đổi kích thước hoặc font chữ trong Data valition không ạ?

Câu trả lời là: Không nhé KUMI
KUMI có cách khác đó là sử dụng combobox, hình như cái Combobox này KUMI hỏi rồi

KUMI · 20/11/13

Nghĩa là em muốn đoạn này chữ nó to thêm, khi mà giảm %:

Ngày trước em cũng đã thấy bài này ở đâu đó trên GPE nhưng em không biết từ khóa của chủ đề đó là gì nữa. Em đã tim thử nhưng chưa thấy ạ!
Mọi người giúp em với ạ! Xin cảm ơn!

KUMI · 20/11/13

dhn46 đã viết:
Câu trả lời là: Không nhé KUMI
KUMI có cách khác đó là sử dụng combobox, hình như cái Combobox này KUMI hỏi rồi

Hình như có Anh Ninh à! thực hiện bằng VBA đó ạ!
Chủ đề đấy em thấy toàn anh tài tham gia. không phải trong combox mà trong Data valition cơ ạ!

KUMI · 20/11/13

KUMI đã viết:
Hình như có Anh Ninh à! thực hiện bằng VBA đó ạ!
Chủ đề đấy em thấy toàn anh tài tham gia. không phải trong combox mà trong Data valition cơ ạ!

A , nó đây rồi ạ!

http://www.giaiphapexcel.com/forum/...g-của-hộp-chọn-Validation&p=114243#post114243

KUMI · 20/11/13

KUMI đã viết:
A , nó đây rồi ạ!

http://www.giaiphapexcel.com/forum/...g-của-hộp-chọn-Validation&p=114243#post114243

Hix! Em nhớ nhầm. Bài này khác với bài em đang hỏi. +-+-+-+

Chắc là hết cách thật.

Hỏi thêm về Validalition data - list? (1 người xem)

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

Bụi phấn

File đính kèm

( ͡° ͜ʖ ͡°)

Bụi phấn

( ͡° ͜ʖ ͡°)

Bụi phấn

( ͡° ͜ʖ ͡°)

Bụi phấn

Bụi phấn

Thành viên mới

( ͡° ͜ʖ ͡°)

Bụi phấn

Gội rồi mới Cạo

File đính kèm

Bụi phấn

Thành viên mới

File đính kèm

Bụi phấn

File đính kèm

Thành viên mới

Hướng tới tương lai

Bụi phấn

Bụi phấn

Bụi phấn

Hướng tới tương lai

Bụi phấn

Bụi phấn

Bụi phấn

Bụi phấn

Thời gian đếm ngược.