Viết Code Trừ Ngày Tháng Năm | Giải Pháp Excel

• Trang chủ Có gì mới Hoạt động gần nhất Tác giả
• Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
• Video Video về Excel Video về tin học khác Tin tức về tin học chung
• Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
• Tài nguyên Đánh giá mới nhất Tìm tài nguyên
• Facebook
• Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

• Tìm bài viết mới
• Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Viết code trừ ngày tháng năm (1 người xem)

• Thread starter Thread starter huy vu
• Ngày gửi Ngày gửi 9/8/14

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) H

huy vu

Thành viên hoạt động

Tham gia 29/2/12 Bài viết 164 Được thích 1 Viết code lùi ngày tháng năm Em chào các anh/chị trên GPE! Em có bảng số liệu có 1 trường Ngay (cột B) đang định dang Text và nội dung là mm/yy Em muốn trừ đi 5 năm tại trường Ngay1 (Cột C) và đang phải dùng công thức là: =DATE(20&RIGHT($B2,2)-5,LEFT($B2,2),1) và định dạng là dd/yyyy Em muốn hỏi đoạn code để thay thế cho hàm này và tự động cập nhật mỗi khi trường ngày thêm dữ liệu mới Em xin cảm ơn!

File đính kèm

• NgayThangNam.xlsm NgayThangNam.xlsm 11.7 KB · Đọc: 38

Chỉnh sửa lần cuối bởi điều hành viên: 4/9/14 Sắp xếp theo thời gian sắp xếp theo bầu chọn

Ba Tê

Cạo Rồi Khỏi Gội

Tham gia 5/5/09 Bài viết 12,123 Được thích 17,590 Giới tính Nam

Huy Vũ đã viết: Em chào các anh/chị trên GPE! Em có bảng số liệu có 1 trường Ngay (cột B) đang định dang Text và nội dung là mm/yy Em muốn trừ đi 5 năm tại trường Ngay1 (Cột C) và đang phải dùng công thức là: =DATE(20&RIGHT($B2,2)-5,LEFT($B2,2),1) và định dạng là dd/yyyy Em muốn hỏi đoạn code để thay thế cho hàm này và tự động cập nhật mỗi khi trường ngày thêm dữ liệu mới Em xin cảm ơn! Nhấp chuột vào đây để mở rộng...

Chép Sub này vào cửa sổ soạn thảo VBA của Sheet1 thử xem. [GPECODE=vb] Private Sub Worksheet_Change(ByVal Target As Range) Dim Cll As Range If Target.Column = 2 Then If Target.Columns.Count = 1 Then For Each Cll In Target Cll.Offset(, 1).Value = DateSerial(Right(Cll, 2) - 5, Left(Cll, 2), 1) Next Cll End If End If End Sub[/GPECODE] Upvote 0 H

huy vu

Thành viên hoạt động

Tham gia 29/2/12 Bài viết 164 Được thích 1

Ba Tê đã viết: .... Cll.Offset(, 1).Value = DateSerial(Right(Cll, 2) - 5, Left(Cll, 2), 1) Next Cll End If End If End Sub[/GPECODE] Nhấp chuột vào đây để mở rộng...

Quá nhanh và mạnh ạ, em cảm ơn anh Cho em hỏi thêm chút Như vậy trong VBA thì DateSerial tương đương với hàm Date ngoài bảng tính ạ? Upvote 0

Ba Tê

Cạo Rồi Khỏi Gội

Tham gia 5/5/09 Bài viết 12,123 Được thích 17,590 Giới tính Nam

Huy Vũ đã viết: Quá nhanh và mạnh ạ, em cảm ơn anh Cho em hỏi thêm chút Như vậy trong VBA thì DateSerial tương đương với hàm Date ngoài bảng tính ạ? Nhấp chuột vào đây để mở rộng...

Thấy cái gì lạ lạ cứ vào cửa sổ soạn thảo VBA, gõ F1 mà xem. Ví dụ: gõ DateSerial, tô chọn chữ đó, ấn F1. Ngâm cứu thoải mái, chỉ khi nào không hiểu hãy hỏi trên GPE. Upvote 0

Cá ngừ F1

( ͡° ͜ʖ ͡°)

Thành viên BQT Moderator Tham gia 1/1/08 Bài viết 2,580 Được thích 3,723 Donate (Momo) Giới tính Nam Nghề nghiệp Quan hệ.. và quan hệ.. Nếu bạn muốn đưa vào Module thử code này [GPECODE=vb]Sub Ngay2() Dim NgayDH(), i As Long, Ngay() With Sheet1 NgayDH = Range(.[B2], .[B65536].End(3)) ReDim Ngay(1 To UBound(NgayDH), 1 To 1) End With For i = 1 To UBound(NgayDH) Ngay(i, 1) = DateSerial(Right(NgayDH(i, 1), 2) - 5, Left(NgayDH(i, 1), 2), 1) Next Sheet1.[D2].Resize(i - 1, 1) = Ngay End Sub[/GPECODE] Mỗi lần có dữ liệu mới thì chạy code Lần chỉnh sửa cuối: 10/8/14 Upvote 0 H

huy vu

Thành viên hoạt động

Tham gia 29/2/12 Bài viết 164 Được thích 1 Cả 2 cách đều chạy tốt. Em xin cảm ơn! Upvote 0

Cá ngừ F1

( ͡° ͜ʖ ͡°)

Thành viên BQT Moderator Tham gia 1/1/08 Bài viết 2,580 Được thích 3,723 Donate (Momo) Giới tính Nam Nghề nghiệp Quan hệ.. và quan hệ..

Cá ngừ F1 đã viết: Nếu bạn muốn đưa vào Module thử code này [GPECODE=vb]Sub Ngay2() Dim NgayDH(), i As Long, Ngay() With Sheet1 NgayDH = Range(.[B2], .[B65536].End(3)) ReDim Ngay(1 To UBound(NgayDH), 1 To 1) End With For i = 1 To UBound(NgayDH) Ngay(i, 1) = DateSerial(Right(NgayDH(i, 1), 2) - 5, Left(NgayDH(i, 1), 2), 1) Next Sheet1.[D2].Resize(i - 1, 1) = Ngay End Sub[/GPECODE] Mỗi lần có dữ liệu mới thì chạy code Nhấp chuột vào đây để mở rộng...

Để bẫy lỗi thêm câu lệnh Mã: Sao chép. On Error Resume Next ở đầu thủ tục, vì nếu ngày mà không có dữ liệu thì code báo lỗi ngay. Upvote 0 V

vinhytexp

Thành viên mới

Tham gia 16/6/16 Bài viết 13 Được thích 0

Ba Tê đã viết: Chép Sub này vào cửa sổ soạn thảo VBA của Sheet1 thử xem. [GPECODE=vb] Private Sub Worksheet_Change(ByVal Target As Range) Dim Cll As Range If Target.Column = 2 Then If Target.Columns.Count = 1 Then For Each Cll In Target Cll.Offset(, 1).Value = DateSerial(Right(Cll, 2) - 5, Left(Cll, 2), 1) Next Cll End If End If End Sub[/GPECODE] Nhấp chuột vào đây để mở rộng...

Em làm theo bác Ba tê, khi bấm F5 để chạy thì hiện lên macro Name nghĩa là sao vậy bác Upvote 0 Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

T Biểu đồ trong excel

• thanhduy08
• Hôm nay lúc 10:59
• Excel và Các Biểu Đồ

Trả lời 1 Đọc 37 Hôm nay lúc 12:57 ptm0412 Xây dựng RPC Server cho Excel / Access bằng Delphi – Tận dụng lại DLL và bảo mật mã nguồn

• • 

• phuongnam366377
• 28/2/26
• Excel và các ngôn ngữ lập trình khác

Trả lời 14 Đọc 489 Hôm nay lúc 10:09 phuongnam366377 N Lập báo cáo thống kê sản lượng theo ngày của từng nhân viên

• Nhyyyyyyyyy
• Thứ năm lúc 10:22
• Những vấn đề chung

Trả lời 7 Đọc 192 Hôm qua, lúc 20:01 le_vis H Copy sheets từ file này sang file kia theo danh sách

• hieuhus
• Hôm qua, lúc 18:08
• Excel và các ngôn ngữ lập trình khác

Trả lời 0 Đọc 67 Hôm qua, lúc 18:08 hieuhus H T Xin code tính trung bình theo nhiều điều kiện khi dữ liệu lớn

• • 

• tangoctuan
• Hôm qua, lúc 11:36
• Hàm và công thức Excel

Trả lời 3 Đọc 86 Hôm qua, lúc 15:31 HieuCD H

• Question Question

Co, Dãn dòng vừa trang in (1 người xem)

• vova2209
• 6/3/26
• Lập Trình với Excel

Trả lời 22 Đọc 498 Hôm qua, lúc 14:07 vova2209 File Excel kiểm phiếu bầu cử Quốc hội và HĐND các cấp (1 người xem)

• • 

• adua29
• 9/4/21
• Excel Ứng Dụng

Trả lời 31 Đọc 8K Hôm qua, lúc 12:12 adua29

• Đã giải quyết

FitRowXL v1.5 - Giãn dòng tự động và bổ trợ in ấn Excel (*02/2026 mới)

• • 
  • 

• HeSanbi
• 18/4/21
• Lập Trình với Excel

Trả lời 85 Đọc 31K Hôm qua, lúc 09:04 chothadiem L Công thức tìm ngày giao dịch gần nhất thỏa mãn theo 2 điều kiện

• luckily1766
• Thứ sáu lúc 16:06
• Hàm và công thức Excel

Trả lời 3 Đọc 94 Hôm qua, lúc 08:17 87kilua Copilot bình luận các ván cờ vua từng ngày.

• • 

• SA_DQ
• 3/11/25
• Chia sẻ

Trả lời 94 Đọc 3K Hôm qua, lúc 04:56 SA_DQ Giúp kết nối từ Excel VBA đến Oracle database.

• MinhKhai
• 4/3/26
• Cơ sở dữ liệu

Trả lời 7 Đọc 348 Thứ sáu lúc 22:42 ongke0711 File kiểm đếm phiếu bầu cử 2026-2031 dễ hiểu có kết quả và biên bản (1 người xem)

• • 

• katanvn
• 4/3/26
• Excel Ứng Dụng

Trả lời 12 Đọc 7K Thứ sáu lúc 21:42 ongke0711

• Question Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (2 người xem)

• • 
  • 
  • 

• ongke0711
• 6/10/24
• Lập Trình với Excel

5 6 7 Trả lời 644 Đọc 96K Thứ sáu lúc 21:07 axa00000019

• Question Question

Trình điều khiển Web tải hóa đơn điện tử từ trang Misa (actapp.misa.vn/app)

• • 
  • 

• HeSanbi
• 26/2/26
• Lập Trình với Excel

Trả lời 4 Đọc 472 Thứ sáu lúc 13:46 vinhketoan2010 V N Lập file Nhập - Xuất - Tồn cho kho có 300 mã nguyên vật liệu

• nguyenlamthumua
• Thứ năm lúc 18:12
• Những vấn đề chung

Trả lời 3 Đọc 174 Thứ sáu lúc 13:41 SA_DQ Cùng xây dựng file Gia Phả

• • 

• huuthang_bd
• 30/12/13
• Xây dựng ứng dụng.

Trả lời 52 Đọc 22K Thứ sáu lúc 11:27 ck1k2.bg H Xin A/C Giúp Tách địa chỉ ra Tỉnh , Huyện, Xã, Ấp

• hoanghanh80
• 31/5/24
• Hàm và công thức Excel

Trả lời 12 Đọc 2K Thứ sáu lúc 09:47 Gà Con yêu VBA SodokuX nhờ Copilot trợ giúp

• • 

• SA_DQ
• 3/3/26
• Chơi Game với Excel

Trả lời 1 Đọc 151 Thứ sáu lúc 08:52 HieuCD H G Vẽ mặt cắt dầm từ excel

• • 
  • 
  • 

• gpe.vn
• 17/6/24
• Xây dựng ứng dụng.

Trả lời 21 Đọc 2K Thứ năm lúc 17:03 gpe.vn G E Xin giúp tách lấy tên Tỉnh thành, Quận huyện, Phường xã từ địa chỉ có sẵn

• estudyvn
• 22/4/19
• Học tập Online

Trả lời 9 Đọc 2K Thứ năm lúc 15:33 HUONGHCKT H Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

• vova2209 13
• phuongnam366377 12
• Maika8008 11
• SA_DQ 8
• HeSanbi 8
• HUONGHCKT 7
• ongke0711 6
• adua29 6
• levant0908 5
• katanvn 5
• chothadiem 4
• vanphong1980 3
• A-T 3
• pycckuu410 3
• PhanTuHuong 3
• chienminhanh 3
• gpe.vn 3
• MinhKhai 3
• le_vis 3
• ptm0412 3

Thành viên có điểm tương tác cao nhất tháng

• Maika8008 17
• HUONGHCKT 14
• SA_DQ 12
• katanvn 7
• GPE-Trợ Lý 6
• HieuCD 6
• PhanTuHuong 4
• le_vis 4
• HeSanbi 3
• phuongnam366377 3
• ptm0412 3
• yeudoi 2
• vietdang170 2
• vunl 2
• Gà Con yêu VBA 2
• adua29 2
• kHOA1973 1
• ThuyMay93 1
• mafiana 1
• huhumalu 1

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

• Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom