cho tôi xin lỗi vì cách xưng hô nhé.
Theo từ điển GPE thì "1 Tê"= 19 năm đó bạnHi,
-----
vậy, hình như người trong anh tuổi tác cũng cao cao thì phải.
Nếu đúng là bạn thì
Theo từ điển GPE thì "1 Tê"= 19 năm đó bạn
Híc
Theo từ điển GPE thì "1 Tê"= 19 năm đó bạn
Híc
.Câu hỏi và nội dung Oanh Thơ đã đặt trong file kèm.
Lại một bài toán nữa
Oanh Thơ xin gửi mẫu lên đây nhờ Bác Ba Tê cùng các bạn giúp đỡ cho ạ.
Xin cảm ơn rất nhiều.
Tham khảo macro này; Dù chậm nhưng vẫn đưa lên:
Option Explicit
Sub TimSoKhongCoTrongDanhSach()
Dim Rng As Range, sRng As Range, Arr()
Dim J As Long, W As Long, Thg As Byte
Dim MyAdd As String
Set Rng = Range([B3], [B65500].End(xlUp))
Arr() = Rng.Value
Set Rng = [d3].CurrentRegion
ReDim dArr(1 To 12, 1 To 2)
For J = 1 To UBound(Arr())
W = W + 1
If Arr(J, 1) = W Then
Else
Set sRng = Rng.Find(W, , xlFormulas, xlWhole)
If Not sRng Is Nothing Then
MyAdd = sRng.Address
Do
Thg = Month(Cells(sRng.Row, "D").Value)
If dArr(Thg, 2) = "" Or InStr(dArr(Thg, 2), CStr(W)) < 1 Then
dArr(Thg, 1) = dArr(Thg, 1) + 1
dArr(Thg, 2) = CStr(W) & "; " & dArr(Thg, 2)
End If
Set sRng = Rng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
End If
End If
Next J
Randomize
[n5].Resize(12, 2).Value = dArr()
[n4].Resize(, 2).Interior.ColorIndex = 34 + 9 * Rnd() \ 1
End Sub
Bạn có chắc là bố trí như vậy là file cuối cùng chưa? theo tôi thì tôi hơi nghi ngờ cách bố trí này bạn sẽ thay đổi trong tương lai gầnhuhu, Oanh Thơ rất xin lỗi 2 bạn Sa-DQ và khuongvietphong vì đã làm mất thời gian của 2 người.
mới đầu Oanh thơ cứ nghĩ vấn đề này có vẻ đơn giản chỉ dùng công thức thông thường thôi nên đã làm tạm cái mẫu đơn giản để gửi lên nhờ sự hỗ trợ ai ngờ xem công thức và code mà cũng thấy choáng quá.
Giờ Oanh Thơ xin gửi lại đúng mẫu chuẩn so với file thực làm phiền bạn và bác thêm 1 lần nữa ạ...
Đại loại bài #6 là tính toán chi tiết từng sheet và Oanh Thơ đã áp dụng vào file thực OK rồi,
Còn bài #27 là Tổng hợp theo điều kiện phức tạp hơn 1 chút ạ.
huhu, Oanh Thơ rất xin lỗi 2 bạn Sa-DQ và khuongvietphong vì đã làm mất thời gian của 2 người.
mới đầu Oanh thơ cứ nghĩ vấn đề này có vẻ đơn giản chỉ dùng công thức thông thường thôi nên đã làm tạm cái mẫu đơn giản để gửi lên nhờ sự hỗ trợ ai ngờ xem công thức và code mà cũng thấy choáng quá.
Giờ Oanh Thơ xin gửi lại đúng mẫu chuẩn so với file thực làm phiền bạn và bác thêm 1 lần nữa ạ...
Đại loại bài #6 là tính toán chi tiết từng sheet và Oanh Thơ đã áp dụng vào file thực OK rồi,
Còn bài #27 là Tổng hợp theo điều kiện phức tạp hơn 1 chút ạ.
Chắc chắn bạn ạ, làm phiền các bạn tôi cảm thấy ngại lắm chứ ạ vừa mất thời gian thậm chí khiến các bạn bực mình vì thay đổi ý này ý nọ...
Cảm ơn khuongvietphong đã quay trở lại
ok bạn
Thêm nhiều sheet đại lý nữa thì thua. Phong có thể kết hợp thêm hàm Indirect thử xem sao?
Tất cả các sheet đại lý là như nhau. tại sao mình không lợi dụng hàm indirect để gôm tất cả các đại lý đó vào 1 name. Bài này tôi thấy bạn dùng 3 name cho 3 đại lý, giả dụ nhiều đại lý hơn nữa là mình phải có nhiều vùng name hay sao
