Chắc viết mấy năm nữa sẽ trở thành Thành Viên Vừa Cạo Vừa GộiHình như là 1100 hay 1200 lận ấy. Muốn làm gạo cội luôn rùi hỉ.
thế mới Vui
Uhm ha, sao mình lại không nhớ ra cái dụ preverse này ta(-.-)
Ý BẠN LÀ đưa ngày vào Validation phải ko nếu vậy thì code sau
Public Sub Dic_Validation()
Dim Arr(), i As Long
Arr = Range("A2", [A65536].End(3)).Value
With CreateObject("scripting.dictionary")
For i = 1 To UBound(Arr)
.Item(Arr(i, 1)) = ""
'.Item(Arr(i, 1)) = .Count
Next
Range("G2").Validation.Delete
Range("G2").Validation.Add 3, , , Join(.keys, ",")
End With
End Sub
Cách mọi người đang làm hình như sẽ thỉnh thoảng bị lỗi khi đóng file rồi mở file lên.
Public Sub Date_Validation()
Dim dl(), i As Long
dl = Range([A2], [A65536].End(3)).Value
With CreateObject("scripting.dictionary")
For i = 1 To UBound(dl)
If Not .Exists(dl(i, 1)) Then .Item(dl(i, 1)) = .Count
Next
[G2].Validation.Delete
[G2].Validation.Add 3, , , Join(.keys, ",")
End With
End SubTặng cho thớt này một kiểu nữa nè tha hồ mà lựa....Tui nhớ trước đây có thành viên dị ứng với Dic To Dic Thon keo tui ko biết Dic giờ tui viết các kiểu cho mà coi.. nha
PHP:Public Sub Date_Validation() Dim dl(), i As Long dl = Range([A2], [A65536].End(3)).Value With CreateObject("scripting.dictionary") For i = 1 To UBound(dl) If Not .Exists(dl(i, 1)) Then .Item(dl(i, 1)) = .Count Next [G2].Validation.Delete [G2].Validation.Add 3, , , Join(.keys, ",") End With End Sub
Em thấy chạy tốt mà có lỗi gì đâu
cái này em nhớ có bị vài lần "Data may have been lost" thì phải . nhưng hình như chỉ có file .xls mới bị . các file sau 2003 không bị nữa
Thì Em đang Check các kiểu xem nó ra cái gì thôi
bạn cho tôi trường hợp bạn gặp phải đi? vì tôi thấy không có sự khác biệt nào?Oh.
1. Trường hợp đầu khi Dim Dic As Object, rồi Set Dic = ..... : như vậy nó làm cho dữ liệu ngày thành Value
2. Trường hợp code ở Quote bên trên: With CreateObject("scripting.dictionary"). Mà không cần Dim hay Set thì định dạng ngày nó lại không thay đổi.
Lý do tại sao như vậy nhỉ? Mong bác giải thích giúp!
Không sử dụng DIC
Sub GPE()
Dim Rng As Range
Dim ArrD()
Dim ArrN()
Dim DongCuoi As Long
Dim i As Long, j As Long
Dim DongHienTai As Long
DongCuoi = Sheet1.Range("A60000").End(xlUp).Row
ArrN = Sheet1.Range("A2:A" & DongCuoi)
ReDim ArrD(1)
ArrD(1) = ArrN(1, 1)
DongHienTai = 1
flag = True
For i = 1 To UBound(ArrN, 1)
For j = 1 To DongHienTai
If (ArrN(i, 1) = ArrD(j)) Then
flag = False
Exit For
End If
Next j
If (flag = True) Then
DongHienTai = DongHienTai + 1
ReDim Preserve ArrD(DongHienTai)
ArrD(DongHienTai) = ArrN(i, 1)
End If
flag = True
Next
Range("G3").Validation.Delete
Range("G3").Validation.Add xlValidateList, , , Join(ArrD, ",")
End Sub
Quan trọng là cái chỗ mình đặt nó đang định dạng là kiểu gì thôi mà?
tuyệt vời.nhưng dữ liệu thêm vào được cập nhật tự động thì hay quá
