donkyhote1992
Thành viên mới

- Tham gia
- 21/2/19
- Bài viết
- 2
- Được thích
- 0
Trong module của sheet1 bạn thử đoạn code sau ạ:Chào mọi người!
Mình có file exel đính kèm ở bài đăng.
Mình muốn ở ô C3 nếu mình chọn DS_A thì ở ô C4 chỉ có list chọn số từ I3:I7. Còn nếu mình chọn là DS_B thì ở ô C4 chỉ có list chọn từ K3:K7
Cám ơn mọi người nhiều nhiều!
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, vaList As String
If Not Intersect(Range("C3"), Target) Is Nothing Then
If Range("C3").Value = "DS_A" Then
i = Sheet1.Cells(Sheet1.Rows.Count, "I").End(xlUp).Row
vaList = "=" & Sheet1.Range("I3").Resize(i).Address
ElseIf Range("C3").Value = "DS_B" Then
i = Sheet1.Cells(Sheet1.Rows.Count, "K").End(xlUp).Row
vaList = "=" & Sheet1.Range("K3").Resize(i).Address
End If
With Sheet1.Range("D3").Validation
.Delete
.Add Type:=xlValidateList, Formula1:=vaList
End With
End If
End Sub
Cám ơn bạn nhiều nhiều nhé!!!!!!!Bạn theo dõi video hướng dẫn này n
Trong File chỉ sử dụng Name với hàm, bạn xem thử.Chào mọi người!
Mình có file exel đính kèm ở bài đăng.
Mình muốn ở ô C3 nếu mình chọn DS_A thì ở ô C4 chỉ có list chọn số từ I3:I7. Còn nếu mình chọn là DS_B thì ở ô C4 chỉ có list chọn từ K3:K7
Cám ơn mọi người nhiều nhiều!
Minh dùng Win7. Sao mình không kéo được danh sách lên khung Name box để đặt tên (Giữ phím nào để kéo lên được chăng) - Xin được hướng dẫn chi tiết - Xin cảm ơnBạn theo dõi video hướng dẫn này n
Không phải kéo DS lên mà bạn tô đen DS, sau đó nhập Name nhé. Hoặc dùng Ctrl-F3 để tạo.Minh dùng Win7. Sao mình không kéo được danh sách lên khung Name box để đặt tên (Giữ phím nào để kéo lên được chăng) - Xin được hướng dẫn chi tiết - Xin cảm ơn