Em xin code VBA lấy dữ liệu ngày bắt đầu và ngày kết thúc
- Thread starter hoalv1985
- Ngày gửi
- Tham gia
- 8/6/06
- Bài viết
- 14,576
- Được thích
- 22,896
- Nghề nghiệp
- U80
Kết quả mong muốn của bạn trong 2 cột đó sẽ là số liệu nào???
| Mục Tiêu | Tiến Độ | Bắt Đầu | Kết Thúc | Ghi Chú | ||||||||
| Ổn định nhân sự | 100% |  | 6/12/2020 | 7/11/2020 | ||||||||
| Truyền thông nội bộ/ Xây dựng văn hóa doanh nghiệp | 0% | 6/15/2020 | 7/10/2020 | |||||||||
| Phát triển nguồn nhân lực | 0% | 7/13/2020 | 7/30/2020 | |||||||||
| Quản trị hệ thống hành chính nhân sự | 0% | 6/15/2020 | 7/30/2020 | |||||||||
Lần chỉnh sửa cuối:
Em muốn lấy ngày bắt đầu, và ngày kết thúc từ sheet chi tiết vào sheet tổng quan theo điều kiện mục tiêu ( cột B sheet tổng quan) ạ.
Bài đã được tự động gộp:
Chỉ lấy ngày bắt đầu ( ngày đầu tiên làm), ngày kết thúc ( ngày cuối cùng làm) ạ.
Phạm Doãn Tuyến
Cuộc sống không công bằng, hãy quen với nó.
- Tham gia
- 5/2/20
- Bài viết
- 56
- Được thích
- 42
- Giới tính
- Nam
| Nhiệm vụ chi tiết | Bắt đầu | Kết thúc | Đã thực hiện | Ghi chú | |
| Truyền thông nội bộ/ Xây dựng văn hóa doanh nghiệp | Gửi mail chúc mừng sinh nhật từng nhân sự hằng tháng , Thư chúc mừng các sự kiện cá nhân,… | 15-06-2020 | |||
| Truyền thông nội bộ/ Xây dựng văn hóa doanh nghiệp | Triển khai 5S tại trụ sở GW | 20-06-2020 | 18/6 hoàn thành Kế hoạch và quy trình, trình Ban Tổng | ||
| Truyền thông nội bộ/ Xây dựng văn hóa doanh nghiệp | Phát hành đồng phục và thẻ nhân viên GW | 01-07-2020 | Thiết kế, đặt may, cấp phát | ||
| Truyền thông nội bộ/ Xây dựng văn hóa doanh nghiệp | Hoàn thiện và triển khai văn hóa giao tiếp ứng xử GW | 01-07-2020 | 07-05-2020 | ||
| Truyền thông nội bộ/ Xây dựng văn hóa doanh nghiệp | Xây dựng "Chiến binh" - tấm gương điển hình GW | 05-07-2020 | 10-07-2020 | Hoàn thiện tiêu chí cho danh hiệu "Chiến binh GW 2020" | |
| Truyền thông nội bộ/ Xây dựng văn hóa doanh nghiệp | Tổ chức các hoạt động gắn kết khác như: Các hoạt động 8/3,20/10, ngày Men's day, giáng sinh, Hành trình ngày và đêm,… | 01-08-2020 | HCNS Lên KH, điều phối tổ chức |
Bạn cho mình hỏi chút trong trường hơp này bạn lấy ngày nào là ngày kết thúc vậy?
Em muốn lấy ngày lớn nhất trong cột ngày kết thúc anh ạ.
Bài đã được tự động gộp:
Đúng rồi anh ạ, chuẩn kết quả anh ạKết quả mong muốn của bạn trong 2 cột đó sẽ là số liệu nào???
Mục Tiêu Tiến Độ Bắt Đầu Kết Thúc Ghi Chú Ổn định nhân sự 6/12/2020 7/11/2020 Truyền thông nội bộ/ Xây dựng văn hóa doanh nghiệp 6/15/2020 7/10/2020 Phát triển nguồn nhân lực 7/13/2020 7/30/2020 Quản trị hệ thống hành chính nhân sự 6/15/2020 7/30/2020
Vì phân công công việc, thì có những việc sẽ kéo dài ngày, trong khi đó đến ngày gần sẽ thêm việc anh ạ. 1 người có nhiều việc và date line cũng sẽ khác mà anh.
- Tham gia
- 8/6/06
- Bài viết
- 14,576
- Được thích
- 22,896
- Nghề nghiệp
- U80
Ý mình ;là bạn nhập DD/MM/yyyy hay MM/dd/yyyy chỉ 1 loại mà thôi; Làm gì trong 1 cột mà nhập lẫn lộn 2 thứ làm vậy?
BS: À mà sẵn nói luôn: Muốn xài VBA thì tên trang tính chớ nên có dấu tiếng Việt.
BS: À mà sẵn nói luôn: Muốn xài VBA thì tên trang tính chớ nên có dấu tiếng Việt.
Vâng, chắc tại khi em chuyển từ máy tính công ty về máy tính em thì định dạng ngày bị lỗi a ạ. Em cũng chưa để ý đến cái đó anh ah. Em cảm ơn anh
- Tham gia
- 8/6/06
- Bài viết
- 14,576
- Được thích
- 22,896
- Nghề nghiệp
- U80
Macro bạn cần đây:
& kết quả là vầy:
PHP:
Sub NgayCongViec()
Dim Rng As Range, sRng As Range, Cls As Range, Arr()
Dim MyAdd As String
Dim Rws As Long, fDat As Date, lDat As Date, J As Long
1 With Sheet2
Rws = .[B3].CurrentRegion.Rows.Count
3 Set Rng = .[B3].Resize(Rws)
Arr() = .[B4].Resize(Rws, 4).Value
5 End With
Sheet1.Select
7 For Each Cls In Range([B3], [B3].End(xlDown))
fDat = DateSerial(2050, 7, 2): lDat = DateSerial(1990, 7, 2)
9 For J = 1 To UBound(Arr())
If Cls.Value = Arr(J, 1) Then
11 If Arr(J, 3) <> 0 And Arr(J, 3) < fDat Then fDat = Arr(J, 3)
If Arr(J, 4) <> 0 And Arr(J, 4) > lDat Then lDat = Arr(J, 4)
13 End If
Next J
15 Cls.Offset(, 3).Value = fDat: Cls.Offset(, 4).Value = lDat
Next Cls
End Sub| Mục Tiêu | Tiến Độ | Bắt Đầu | Kết Thúc | Ghi Chú | ||||||
| Ổn định nhân sự | 100% | TRUE | 6/12/2020 | 7/11/2020 | ||||||
| Truyền thông nội bộ/ Xây dựng văn hóa doanh nghiệp | 0% | 6/15/2020 | 7/10/2020 | |||||||
| Phát triển nguồn nhân lực | 0% | 7/13/2020 | 7/30/2020 | |||||||
| Quản trị hệ thống hành chính nhân sự | 0% | 6/15/2020 | 7/30/2020 |
Lần chỉnh sửa cuối:
Khâm phục anh quá. cảm ơn anh. Em không hiểu câu lệnh của anh lắm, vì em cũng chập chững học VBA. Anh có thể giải thích giúp em với các dòng code của anh cho em với được không anh. Em cảm ơn anh nhiều.
- Tham gia
- 8/6/06
- Bài viết
- 14,576
- Được thích
- 22,896
- Nghề nghiệp
- U80
3 dòng lệnh trước D1: Khai báo các tham biến cần dùng;
D1: Tuyên bố làm việc với trang tính Sheet2 (đó là trang 'chi tiết')
D2: Lấy số dòng của vùng (đã) sử dụng gán vô tham biến
D3: (Dòng lệnh dư do lịch sử để lại, bỏ qua)
D4: Lấy vùng từ ô trái trên nhất là [B4] mở rọng với số dòng bằng trị trong tham biến & số cột là 4 gán vô tham biến mảng
D5: Kết thúc tuyên bố
D6: Kích hoạt Sheet1
D7: Thiết lập vòng lặp duyệt các ô chứa dữ liệu của cột B (của trang hiện hành)
Vòng lặp này kết thúc tại D16
D8: Mệnh đề bên trái: Ấn định 1 số lớn không tưởng cho tham biến chứa dữ liệu kiểu ngày (fDat)
Mệnh đề bên phải tương ứng với tham biến lDat
D9: Tạo vòng lặp duyện các dòng trong mảng dữ liệu
Vòng lặp này kết thúc ở D14
D10: Điếu kện Nếu trị trong ô đang duyệt của vòng lặp ngoài bằng với trị đầu dòng đang duyệt trong mảng thì thực hiện các lệnh trước D13
D11: Điều kiện Nếu trị thứ 3 của dòng trong mảng đang duyệt khác 0 & nhỏ hơn trị trong tham biến fDat thì fDat lấy mới trị này
D12: Tương tự D11 với tham biến lDat
D15: Gán thời gian tìm được (trong quá trình duyệt mảng) vô 2 cột tương ứng
Chúc ngủ ngon!
D1: Tuyên bố làm việc với trang tính Sheet2 (đó là trang 'chi tiết')
D2: Lấy số dòng của vùng (đã) sử dụng gán vô tham biến
D3: (Dòng lệnh dư do lịch sử để lại, bỏ qua)
D4: Lấy vùng từ ô trái trên nhất là [B4] mở rọng với số dòng bằng trị trong tham biến & số cột là 4 gán vô tham biến mảng
D5: Kết thúc tuyên bố
D6: Kích hoạt Sheet1
D7: Thiết lập vòng lặp duyệt các ô chứa dữ liệu của cột B (của trang hiện hành)
Vòng lặp này kết thúc tại D16
D8: Mệnh đề bên trái: Ấn định 1 số lớn không tưởng cho tham biến chứa dữ liệu kiểu ngày (fDat)
Mệnh đề bên phải tương ứng với tham biến lDat
D9: Tạo vòng lặp duyện các dòng trong mảng dữ liệu
Vòng lặp này kết thúc ở D14
D10: Điếu kện Nếu trị trong ô đang duyệt của vòng lặp ngoài bằng với trị đầu dòng đang duyệt trong mảng thì thực hiện các lệnh trước D13
D11: Điều kiện Nếu trị thứ 3 của dòng trong mảng đang duyệt khác 0 & nhỏ hơn trị trong tham biến fDat thì fDat lấy mới trị này
D12: Tương tự D11 với tham biến lDat
D15: Gán thời gian tìm được (trong quá trình duyệt mảng) vô 2 cột tương ứng
Chúc ngủ ngon!
Lần chỉnh sửa cuối:
Em cảm ơn anh nhiều ạ. Anh thông cảm cho em vì em mới tập vba nên cũng đang mầy mò anh à. lần nữa cảm ơn anh nhiều ạ
Bài viết mới nhất
- Question
- Đã giải quyết
