Cập nhật Data Validation

Liên hệ QC

anhtuan1066

Thành viên gạo cội
Tham gia
10/3/07
Bài viết
5,802
Được thích
6,911
Chắc hẳn ai cũng biết thủ thuật dùng Define Name kết hợp với OFFSET đễ cập nhật Data Validation... Ở đây tôi mới lượm dc 1 thủ thuật mới bằng VBA... hi... hi... Nói ra thì dài dòng, các bạn cứ mở file, vào cell D1, gõ 1 tên nào đó ko nằm trong danh sách thử xem..
Mến
ANH TUẤN
 

File đính kèm

Tuyệt quá, có rất nhiều ứng dụng đấy. Cảm ơn anh nhé.
 
Upvote 0
anhtuan1066 đã viết:
Chắc hẳn ai cũng biết thủ thuật dùng Define Name kết hợp với OFFSET đễ cập nhật Data Validation... Ở đây tôi mới lượm dc 1 thủ thuật mới bằng VBA... hi... hi... Nói ra thì dài dòng, các bạn cứ mở file, vào cell D1, gõ 1 tên nào đó ko nằm trong danh sách thử xem..
Mến
ANH TUẤN

Cái này hay đấy. Bác cho thêm code sort "DS" luôn, để khi update vào thì nó sẽ sắp xếp luôn cho dễ nhìn và đẹp hơn.

Thân!
 
Upvote 0
Uh... cũng dc... vậy thì thêm:

Range("DS").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Thêm cái này vào phía trên END SUB dc ko Bắp! Bạn có ý kiến gì ko?
ANH TUẤN
 
Upvote 0
anhtuan1066 đã viết:
Uh... cũng dc... vậy thì thêm:

Range("DS").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Thêm cái này vào phía trên END SUB dc ko Bắp! Bạn có ý kiến gì ko?
ANH TUẤN
Bác thử nhé :
PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Address = "$D$1" Then
        If IsEmpty(Target) Then Exit Sub
        If WorksheetFunction.CountIf(Range("DS"), Target) = 0 Then
            If MsgBox("Add " & Target & " to list", vbYesNo, "Mr Okebab") = vbYes Then
                    Application.ScreenUpdating = False
                    Cells(Range("DS").Rows.Count + 1, 1) = Target
                    Range("DS").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
                                OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
                                    DataOption1:=xlSortNormal
                    Application.ScreenUpdating = True
                End If
            End If
    End If
End Sub
Thân!
 

File đính kèm

Upvote 0
Chạy Chữ Trên Excel

File này tôi lấy trên diễn đàn mà tôi không còn nhớ tên tác giả nữa mong tác giả thứ lỗi. Vì tôi thấy hay hay và vui mắt nên tôi có nhào trộn lại 1 tí để chữ chạy chậm lại theo ý muốn mà không dùng spinButton_Spindown. Nhưng mò mẫm hoài mà chưa được đồng thời mở 2 file excel trở lên thì quay trở lại chọn file chaychutrenexcel lại không được tôi không biết lý do tại sao nữa, các Pác nào biết xin chỉ giúp nhé.........cảm ơn nhìu nhìu!!!!--=----=--)(&&@@)(&&@@--=0. Tôi có kèm file có bác xem giúp. Tôi lại nhầm chỗ qua anhtuan1066 mất rồi.
 

File đính kèm

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

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

Back
Top Bottom