Tặng bạn file này, chỉ cần chọn số trong ô N2 là có DS tổLệnh xóa công thức chỗ nào a. chỉ e vs.
Nếu e ko dùng A-Tools để lọc và trích dữ liệu thì e có thể làm như thể nào mà vẫn ra kết quả như vậy mà không cần A-Tools ko a Nguyễn Duy Tuấn
Lệnh xóa công thức chỗ nào a. chỉ e vs.
Nếu e ko dùng A-Tools để lọc và trích dữ liệu thì e có thể làm như thể nào mà vẫn ra kết quả như vậy mà không cần A-Tools ko a Nguyễn Duy Tuấn
Bạn Ba Tê làm sao hay vậy. Bạn có thể hướng dẫn sơ qua cách thức làm như thế nào không. Do mình muốn làm thêm những sheet giống như vậy với những thông tin khác như Theo Nơi Thường Trú, Theo Giới Tính hoặc Theo Nơi sinh, ...Tặng bạn file này, chỉ cần chọn số trong ô N2 là có DS tổ
Nhớ Enable Macros khi mở file
Muốn xem sơ qua thì ấn Alt_F11, xem trong Module thấy cái Sub này:Bạn Ba Tê làm sao hay vậy. Bạn có thể hướng dẫn sơ qua cách thức làm như thế nào không. Do mình muốn làm thêm những sheet giống như vậy với những thông tin khác như Theo Nơi Thường Trú, Theo Giới Tính hoặc Theo Nơi sinh, ...
Mong bạn giúp đỡ mình. Chân thành cảm ơn ban.
Public Sub TheoTo()
Dim sArr(), dArr(), I As Long, K As Long, DK As Long
With Sheets("Danh sach")
sArr = .Range(.[B7], .[B65000].End(xlUp)).Resize(, 16).Value
End With
ReDim dArr(1 To UBound(sArr, 1), 1 To 12)
With Sheets("Theo To")
DK = .[N2].Value
For I = 1 To UBound(sArr, 1)
If sArr(I, 5) = DK Then
K = K + 1
dArr(K, 1) = K: dArr(K, 2) = sArr(I, 1)
dArr(K, 3) = sArr(I, 2): dArr(K, 4) = sArr(I, 3)
dArr(K, 5) = sArr(I, 6): dArr(K, 6) = sArr(I, 7)
dArr(K, 7) = sArr(I, 10): dArr(K, 8) = sArr(I, 12)
dArr(K, 9) = sArr(I, 13): dArr(K, 10) = sArr(I, 14)
dArr(K, 11) = sArr(I, 15): dArr(K, 12) = sArr(I, 16)
End If
Next I
.[A7:L18].ClearContents
If K Then .[A7].Resize(K, 12).Value = dArr
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$N$2" Then TheoTo
End Sub
Tặng bạn file này, chỉ cần chọn số trong ô N2 là có DS tổ
Nhớ Enable Macros khi mở file
Nếu mà tác giả chịu khó chỉnh lại dữ liệu ở sheet DANHSACH, cụ thể là sửa lại tiêu đề cho đúng chuẩn CSDL (TIÊU ĐỀ không có merge cell) thì bài này giải quyết cực dễ: Advanced Filter... Thậm chỉ code của chưa quá 5 dòng