Viết code như thế nào khi muốn đổi nội dung list data valition thì cột tham chiếu cũng tự động thay đổi

Liên hệ QC

Nam168

Thành viên chính thức
Tham gia
11/4/22
Bài viết
78
Được thích
5
Giới tính
Nữ
Dạ AC cho e hỏi khi e muốn thay đổi phần data valition thì bên cột tham chiếu cũng tự động thay đổi theo list data, ví dụ e muốn đổi “1” bên data valition ở sheet1 thành “ thùng 01 ” thì bên cột C sheet2 tham chiếu cũng sẽ tự đổi theo. Vậy phải viết code như nào ạ
Mong nhận được giải đáp từ các AC
EM CẢM ƠN Ạ
 

File đính kèm

  • NAM168.xlsx
    9.5 KB · Đọc: 12
Dạ AC cho e hỏi khi e muốn thay đổi phần data valition thì bên cột tham chiếu cũng tự động thay đổi theo list data, ví dụ e muốn đổi “1” bên data valition ở sheet1 thành “ thùng 01 ” thì bên cột C sheet2 tham chiếu cũng sẽ tự đổi theo. Vậy phải viết code như nào ạ
Mong nhận được giải đáp từ các AC
EM CẢM ƠN Ạ
Bạn đừng nên viết tắt.
Bạn làm thế với mục đích gì vậy. Tại như mình thấy. Dữ liệu sheet1 không có liên kết gì với sheet2. khi thay đổi sheet 2 thì sao nó biết dữ liệu trước đó để mà thay đổi sheet1
 
khi thay đổi sheet 2 thì sao nó biết dữ liệu trước đó để mà thay đổi sheet1
Bạn có hiểu nhầm ý chủ thớt không nhỉ, theo mình hiểu, ý chủ thớt là dữ liệu gốc ở bên sheet1. Lấy ví dụ với số 1 đi, bây giờ muốn đổi cái nguồn (source) đó thành "Thùng 01". Nhưng bên sheet2 đã gán xuống sheet từ trước là số 1 rồi. Giờ làm sao để thay đổi cái nguồn đó thì bên sheet2 cũng thay đổi theo. Chứ không phải sửa ở sheet2 mà thay đổi ở sheet1
 
Bạn có hiểu nhầm ý chủ thớt không nhỉ, theo mình hiểu, ý chủ thớt là dữ liệu gốc ở bên sheet1. Lấy ví dụ với số 1 đi, bây giờ muốn đổi cái nguồn (source) đó thành "Thùng 01". Nhưng bên sheet2 đã gán xuống sheet từ trước là số 1 rồi. Giờ làm sao để thay đổi cái nguồn đó thì bên sheet2 cũng thay đổi theo. Chứ không phải sửa ở sheet2 mà thay đổi ở sheet1
Em nghi là em hiểu sai rồi. Hihi
 
Bạn có hiểu nhầm ý chủ thớt không nhỉ, theo mình hiểu, ý chủ thớt là dữ liệu gốc ở bên sheet1. Lấy ví dụ với số 1 đi, bây giờ muốn đổi cái nguồn (source) đó thành "Thùng 01". Nhưng bên sheet2 đã gán xuống sheet từ trước là số 1 rồi. Giờ làm sao để thay đổi cái nguồn đó thì bên sheet2 cũng thay đổi theo. Chứ không phải sửa ở sheet2 mà thay đổi ở sheet1
Dạ đúng ý em rồi ạ, có anh chị nào biết chỉ em với ạ
 
Dạ AC cho e hỏi khi e muốn thay đổi phần data valition thì bên cột tham chiếu cũng tự động thay đổi theo list data, ví dụ e muốn đổi “1” bên data valition ở sheet1 thành “ thùng 01 ” thì bên cột C sheet2 tham chiếu cũng sẽ tự đổi theo. Vậy phải viết code như nào ạ
Mong nhận được giải đáp từ các AC
EM CẢM ƠN Ạ
Validation gán thẳng dữ liệu trong list xuống trang tính chứ không gán tham chiếu hoặc lưu lại lịch sử gán. Do đó theo tôi biết là không thể thực hiện được yêu cầu của bạn.
 
Validation gán thẳng dữ liệu trong list xuống trang tính chứ không gán tham chiếu hoặc lưu lại lịch sử gán. Do đó theo tôi biết là không thể thực hiện được yêu cầu của bạn.
Thực hiện được chứ; Chỉ là sau thực hiện, trang tính dễ thành bãi rác
 
Thực hiện được chứ; Chỉ là sau thực hiện, trang tính dễ thành bãi rác
Theo như e tìm đọc trên diễn đàn thì có 1 trường hợp giống e đang muốn làm nhưng là trên 1 sheet, có 1 a đã viết code để thực hiện lệnh trên nhưng e là ở 2 sheet khác nhau nên e nhờ mọi người chỉ e viết code ở trường hợp này ạ
 
Theo như e tìm đọc trên diễn đàn thì có 1 trường hợp giống e đang muốn làm nhưng là trên 1 sheet, có 1 a đã viết code để thực hiện lệnh trên nhưng e là ở 2 sheet khác nhau nên e nhờ mọi người chỉ e viết code ở trường hợp này ạ
Bạn gửi cái link tìm được đó vào đây để tôi xem và sửa cho.
 
Dạ e tìm được ở đây ạ
://www.giaiphapexcel.com/diendan/threads/nhờ-giúp-đỡ-thay-đổi-nội-dung-list-của-data-validation.57914/#post-1066411
Bài đã được tự động gộp:

Bạn gửi cái link tìm được đó vào đây để tôi xem và sửa cho.
Dạ e tìm được ở đây ạ
://www.giaiphapexcel.com/diendan/threads/nhờ-giúp-đỡ-thay-đổi-nội-dung-list-của-data-validation.57914/#post-1066411
Bài đã được tự động gộp:

Bạn gửi cái link tìm được đó vào đây để tôi xem và sửa cho.
Dạ e tìm được ở đây ạ
://www.giaiphapexcel.com/diendan/threads/nhờ-giúp-đỡ-thay-đổi-nội-dung-list-của-data-validation.57914/#post-1066411
 
Hic. Tác giả code đó xuất hiện lù lù ở bài #7 kia bạn.

Thôi, bác Sa chịu khó giúp em nó vậy.
 
Dạ AC cho e hỏi khi e muốn thay đổi phần data valition thì bên cột tham chiếu cũng tự động thay đổi theo list data, ví dụ e muốn đổi “1” bên data valition ở sheet1 thành “ thùng 01 ” thì bên cột C sheet2 tham chiếu cũng sẽ tự đổi theo. Vậy phải viết code như nào ạ
Mong nhận được giải đáp từ các AC
EM CẢM ƠN Ạ

Bạn thử code này trong sheet 1

PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim newValue As Variant, oldValue As Variant
Application.ScreenUpdating = False
Application.EnableEvents = False
If Target.Column = 1 And Target.Count = 1 Then
    newValue = Target.Value
    Application.Undo
    oldValue = Target.Value
    Target.Value = newValue
    Worksheets("Sheet2").Columns("C").Replace What:=oldValue, Replacement:=newValue, _
       LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=True
End If
Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub
 

File đính kèm

  • NAM168.xlsm
    16.3 KB · Đọc: 27
Bạn thử code này trong sheet 1

PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim newValue As Variant, oldValue As Variant
Application.ScreenUpdating = False
Application.EnableEvents = False
If Target.Column = 1 And Target.Count = 1 Then
    newValue = Target.Value
    Application.Undo
    oldValue = Target.Value
    Target.Value = newValue
    Worksheets("Sheet2").Columns("C").Replace What:=oldValue, Replacement:=newValue, _
       LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=True
End If
Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub
Cảm ơn bạn đã giúp ạ :))
Mai mình xem có gì nhắn kết quả với bạn sau nhé
 
Cảm ơn bạn đã giúp ạ :))
Mai mình xem có gì nhắn kết quả với bạn sau nhé
Bạn thử code này trong sheet 1

PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim newValue As Variant, oldValue As Variant
Application.ScreenUpdating = False
Application.EnableEvents = False
If Target.Column = 1 And Target.Count = 1 Then
    newValue = Target.Value
    Application.Undo
    oldValue = Target.Value
    Target.Value = newValue
    Worksheets("Sheet2").Columns("C").Replace What:=oldValue, Replacement:=newValue, _
       LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=True
End If
Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub
Dạ a ơi e thử trên file này chạy được rồi ạ. Nhưng e ráp vào file chính của e thì lại hông được, mà e hông rành về cái này nên có thể nhờ Anh viết code lên file chính này giúp e được hông ạ, (data validation ở sheet "DSSP- SỐ THÙNG"- THAM CHIẾU LÀ CỘT H- ở sheet "Danh Sach"
Em cảm ơn Anh ạ!
 

File đính kèm

  • NAM168-FILE NHẬP TP.xlsm
    55.4 KB · Đọc: 7
Thầy bói mù:
1. Chép code vào không đúng sheet module
2. Chép vào đúng chỗ rồi nhưng cấu trúc, bố trí dữ liệu khác với file ví dụ
 
Cũng như anh ấy. Mất công giúp rồi. Cảm ơn không được cảm ơn. Lại còn buồn với rầu. Nếu là anh thì anh cảm như thế nào.
Xin nhắc anh thêm. Đừng viết tắt trong bài viết. Không tới lúc chẳng còn ai giúp anh nữa đâu.
 
Cũng như anh ấy. Mất công giúp rồi. Cảm ơn không được cảm ơn. Lại còn buồn với rầu. Nếu là anh thì anh cảm như thế nào.
Xin nhắc anh thêm. Đừng viết tắt trong bài viết. Không tới lúc chẳng còn ai giúp anh nữa đâu.
Dạ em là nữ ạ
Cảm ơn Anh đã nhắc
 
Web KT
Back
Top Bottom