Thay đổi giá trị nhiều cell sử dụng dropdownlist dùng vba (2 người xem)

[vic_it]

Kính gửi Anh/Chị,
Em đang có 1 yêu cầu, e có tìm kiếm trên diễn đàn nhưng không thấy có yêu cầu giống, và e nghĩ sẽ phải dùng đến vba.

E mô tả sau:
1-có 1 droplist các tuỳ chọn.
2-Khi chọn mục 2 trên droplist, sẽ thiết lập giá trị cell và tô màu ô theo chỉ định (màu trắng)
3-Sau khi đóng file (save hoặc không save) thì đều trả về giá trị mặc định ban đầu.

E có mô tả cả trong file excel. Nhờ Anh/Chị bớt chút thời gian hỗ trợ.
Em cám ơn

 

[HUONGHCKT]

Kính gửi Anh/Chị,
Em đang có 1 yêu cầu, e có tìm kiếm trên diễn đàn nhưng không thấy có yêu cầu giống, và e nghĩ sẽ phải dùng đến vba.

E mô tả sau:
1-có 1 droplist các tuỳ chọn.
2-Khi chọn mục 2 trên droplist, sẽ thiết lập giá trị cell và tô màu ô theo chỉ định (màu trắng)
3-Sau khi đóng file (save hoặc không save) thì đều trả về giá trị mặc định ban đầu.

E có mô tả cả trong file excel. Nhờ Anh/Chị bớt chút thời gian hỗ trợ.
Em cám ơn

Tham khảo code trong file.
Sau khi chọn 1 dòng trong droplisst ở ô A4 hoặc A5:
nếu A4 hoặc A5= 2-.... thì ô D4 và F10 cả màu nền và màu chữ đều là màu trắng
ngược lại nếu A4 hoặc A5 là "1- ..." thì trả lại như ban đầu
Sau khi bạn đóng file thì cũng trả lại như bạn đầu.

 

[vic_it]

Cám ơn Anh/Chị đã phản hồi.
Em chạy thử thì báo lỗi, e có đính kèm lỗi.

Máy e dùng Laptop windows 10 64bit / Office 365 Ent..
Nhờ a chị xem giúp lỗi đang do gì. E thử với file có save/không save đều bị vậy.

Em cám ơn.

 

[HUONGHCKT]

Cám ơn Anh/Chị đã phản hồi.
Em chạy thử thì báo lỗi, e có đính kèm lỗi.

Máy e dùng Laptop windows 10 64bit / Office 365 Ent..
Nhờ a chị xem giúp lỗi đang do gì. E thử với file có save/không save đều bị vậy.

Em cám ơn.

Thay file cũ bằng file này.
gửi file đã sửa không hiểu sao lại không thấy thay.

 

[vic_it]

Thay file cũ bằng file này.
gửi file đã sửa không hiểu sao lại không thấy thay.

Dạ, đúng cái em cần rồi ạ. E cám ơn Anh/Chị đã support nhiệt tình.

 

[vic_it]

Kính gửi Anh/Chị,
Em test hàm vba thì chạy chuẩn rồi. Tuy nhiên, nó bị 1 cái hơi khó chịu là sau khi chọn trên mục droplist thì ứng dụng lại nhảy đến cell có thay đổi. (khoảng cách lại xa nhau nên bất tiện)
Có cách nào để giữ vẫn giữ nguyên hiển thị ở phần droplist không ạ?
Em cám ơn Anh/Chị

 

[LienHuong6577]

Kính gửi Anh/Chị,
Em test hàm vba thì chạy chuẩn rồi. Tuy nhiên, nó bị 1 cái hơi khó chịu là sau khi chọn trên mục droplist thì ứng dụng lại nhảy đến cell có thay đổi. (khoảng cách lại xa nhau nên bất tiện)
Có cách nào để giữ vẫn giữ nguyên hiển thị ở phần droplist không ạ?
Em cám ơn Anh/Chị

Phải chăng là thế này:
Thay

........
ElseIf Target Like "1-M?c ??nh*" Then
        Call KhoiPhuc
    End If
End If
End Sub

thành

..........
ElseIf Target Like "1-M?c ??nh*" Then
        Call KhoiPhuc
    End If
End If
Target.Activate
End Sub

trong Private Sub Worksheet_Change(ByVal Target As Range) ở sheet1.
=>> chạy thử

 

[vic_it]

Cách này sẽ nhảy đến vị trí mới, và quay lại droplist, mất thời gian xíu nhưng vẫn ra kết quả.
Cám ơn Anh/Chi.