Lấy Giá Trị Ngày Tháng Trong Sheet để Thực Hiện Trên VBA?

Menu Menu Đăng nhập Đăng ký Tắt quảng cáo Menu Install the app Cài đặt

• Trang chủ
• Diễn đàn Bài viết mới
• Có gì mới Bài viết mới New resources Hoạt động mới nhất
• Resources Latest reviews

• Kế toán Căn bản thực chiến về Logistic/Forwarder
• Kế toán Căn Bản F&B " 2 buổi online - tự tin bước vào nghề!

Lấy giá trị ngày tháng trong Sheet để thực hiện trên VBA?

• Thread starter undefinite
• Ngày gửi 18/7/07

• Diễn đàn
• THÔNG TIN CẦN BIẾT VÀ HỎI ĐÁP NGHIỆP VỤ
• Tech Hub: AI - An toàn thông tin - Tin học quản lý

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. U

undefinite

Guest

14/3/07 6 0 1 Hanoi Mọi người ơi, cho mình hỏi một chút nhé. Mình có một file bao gồm dữ liệu, trong đó có một cột định dạng là dd/mm/yyyy. Khi mình tiến hành lọc bằng AutoFilter để lọc các dữ liệu từ ngày A đến ngày B thì thực hiện được. Để đơn giản hơn trong việc chọn ngày tháng, mình để hai ô, ví dụ là ô B1 có giá trị là ngày bắt đầu (01/01/2007) và ô B2 có giá trị là ngày kết thúc (10/01/2007). Khi nhập xong giá trị tại ô B2, thì Excel sẽ tự động thực hiện lọc theo điều kiện đã đưa ra tại ô B1 và B2 (01/01/2007<=điều kiện<=10/01/2007) thông qua một Macro. Tuy nhiên, khi mình sửa lại macro để lấy giá trị từ ô B1 và B2, thì mặc dù đã kiểm tra đã lấy dữ liệu từ ô B1; B2 nhưng kết quả lại là không có row nào đáp ứng được điều kiện đã đưa ra Đây là code của mình Sub Macro1() Range("B1").Select NgayBD=ActiveCell.Value Range("B2").Select NgayKT=ActiveCell.Value Range("A3").Select Selection.AutoFilter Selection.AutoFilter Field:=3, Criteria1:=">=NgayBD", Operator:=xlAnd _ , Criteria2:="<=NgayKT" End Sub Cho mình hỏi là đoạn code này bị sai ở đâu mà khi thực hiện lại không có Row nào đáp ứng được yêu cầu của mình vậy. Hãy giúp mình với! Sửa lần cuối: 18/7/07 S

SA_DQ

Thành viên Cố vấn - Webketoan Mentors

29/6/05 589 103 43 67 HCM city Hình như nó lầ vầy:

Option Explicit Sub Auto_Filter() Dim NgayBD, NgayKT NgayBD = Range("D1").Value NgayKT = Range("D1").Offset(1).Value ' "D2" Range("A1:B12").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:=">=" & NgayBD, Operator:=xlAnd _ , Criteria2:="<=" & NgayKT End Sub Nhấn để mở rộng...

Ngày tháng này phải theo định dạng cũa bọn mẽo chứ không thể theo hệ Pháp được! (đáng tiếc!) Theo mình bạn nên khai báo biến một cách mà người ta hay gọi là: 'tường minh' Toggle signature bColor http://vn.myblog.yahoo.com/sa_D_Q​ U

undefinite

Guest

14/3/07 6 0 1 Hanoi

SA_DQ nói: Ngày tháng này phải theo định dạng cũa bọn mẽo chứ không thể theo hệ Pháp được! (đáng tiếc!) Theo mình bạn nên khai báo biến một cách mà người ta hay gọi là: 'tường minh' Nhấn để mở rộng...

Cám ơn bạn rất nhiều. Mình đã thực hiện được rồi. Nhưng định dạng ngày vẫn bị sai. Trong ví dụ trên, thực hiện theo code của bạn, thì nó lọc một lèo từ ngày 01/01/07 đến tận ngày 01/10/07. Dù sao cũng cám ơn bạn rất nhiều Sửa lần cuối: 18/7/07 S

SA_DQ

Thành viên Cố vấn - Webketoan Mentors

29/6/05 589 103 43 67 HCM city Đưa bạn ví dụ mình đã làm Bạn hãy xem VD như thế này, & phát biểu sau đó: :dance2:

Option Explicit Sub Auto_Filter() Dim NgayBD, NgayKT NgayBD = Range("D1").Value NgayKT = Range("D1").Offset(1).Value ' "D2" Range("A1:B12").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:=">=" & NgayBD, Operator:=xlAnd _ , Criteria2:="<=" & NgayKT End Sub Nhấn để mở rộng...

/)/hờ Mod /Smod nào ngang qua đây xóa dùm bài trên của mình!

Đính kèm

• Auto_Filter.rar 5.3 KB · Lượt xem: 376

Toggle signature bColor http://vn.myblog.yahoo.com/sa_D_Q​

darkmoon

Tiền và tiền $$$

12/9/03 402 11 0 42 HCM Lâu quá mới thấy pác SA_DQ ghé diễn đàn:bigok:. Tưởng pác quên chúng em roài chứ:freddy:

undefinite nói: Cám ơn bạn rất nhiều. Mình đã thực hiện được rồi. Nhưng định dạng ngày vẫn bị sai. Trong ví dụ trên, thực hiện theo code của bạn, thì nó lọc một lèo từ ngày 01/01/07 đến tận ngày 01/10/07. Dù sao cũng cám ơn bạn rất nhiều Nhấn để mở rộng...

Bạn thêm đoạn code màu đỏ xem thế nào.

SA_DQ nói: Option Explicit Sub Auto_Filter() Dim NgayBD, NgayKT Range("D12").NumberFormat = "General" NgayBD = Range("D1").Value NgayKT = Range("D1").Offset(1).Value ' "D2" Range("A1:B12").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:=">=" & NgayBD, Operator:=xlAnd _ , Criteria2:="<=" & NgayKT End Sub Nhấn để mở rộng...

U

undefinite

Guest

14/3/07 6 0 1 Hanoi

SA_DQ nói: Bạn hãy xem VD như thế này, & phát biểu sau đó: :dance2: /)/hờ Mod /Smod nào ngang qua đây xóa dùm bài trên của mình! Nhấn để mở rộng...

Hi hi, tớ đã tải về VD của bạn, và sau đó thực hiện Macro mà bạn viết => Kết quả là không có Row nào phù hợp với điều kiện đưa ra. Tại vì NgayKT nhận giá trị là 03/17/2007 U

undefinite

Guest

14/3/07 6 0 1 Hanoi

darkmoon nói: Lâu quá mới thấy pác SA_DQ ghé diễn đàn:bigok:. Tưởng pác quên chúng em roài chứ:freddy: Bạn thêm đoạn code màu đỏ xem thế nào. Nhấn để mở rộng...

Option Explicit Sub Auto_Filter() Dim NgayBD, NgayKT Range("D12").NumberFormat = "General" NgayBD = Range("D1").Value NgayKT = Range("D1").Offset(1).Value ' "D2" Range("A1:B12").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:=">=" & NgayBD, Operator:=xlAnd _ , Criteria2:="<=" & NgayKT Range("D12").NumberFormat = "dd/mm/yyyy" End Sub Tớ xin phép bổ sung thêm dòng lệnh màu đỏ trả lại định dạng như ban đầu để người sử dụng biết được là lọc từ ngày nào đến ngày nào. Rất cám ơn bạn Darkmoon. T

tranxuanthien

Guest

27/3/05 99 0 0 Tam Ky Các bác chú ý: với kiểu dữ liệu ngày, khi khai báo phải rõ ràng Dim XXX as Date và tại Regional and Language của Control Panel phải khai báo định dạng giống như sử dụng trong bảng tính thì VBA mới hiểu được Toggle signature Doi la van ngay sau! :lol: Bạn phải đăng nhập hoặc đăng ký để bình luận.

Similar threads

S Copilot & VBA

• SA_DQ
• 1/9/24
• Tech Hub: AI - An toàn thông tin - Tin học quản lý

Trả lời 1 Lượt xem 3K Tech Hub: AI - An toàn thông tin - Tin học quản lý 15/11/24 SA_DQ S Top 5 công cụ bảo mật doanh nghiệp nào cũng nên trang bị

• Webketoan.vn
• 11/11/24
• Tech Hub: AI - An toàn thông tin - Tin học quản lý

Trả lời 0 Lượt xem 807 Tech Hub: AI - An toàn thông tin - Tin học quản lý 11/11/24 Webketoan.vn 10 hàm excel mà kế toán hay dùng

• HaiTam
• 21/10/22
• Tech Hub: AI - An toàn thông tin - Tin học quản lý

Trả lời 4 Lượt xem 35K Tech Hub: AI - An toàn thông tin - Tin học quản lý 19/7/24 duyentrieuan99 D Hacker Triều Tiên đánh cắp 10 triệu đô qua các cuộc lừa đảo bằng AI và phần mềm độc hại trên LinkedIn

• Webketoan.vn
• 27/11/24
• Tech Hub: AI - An toàn thông tin - Tin học quản lý

Trả lời 0 Lượt xem 1K Tech Hub: AI - An toàn thông tin - Tin học quản lý 27/11/24 Webketoan.vn S Lập trình từ trí tuệ nhân tạo microsoft Bing: Mã hóa số liệu 1 ngày-tháng-năm cụ thể sang chuỗi 3 kí tự

• SA_DQ
• 8/10/23
• Tech Hub: AI - An toàn thông tin - Tin học quản lý

Trả lời 3 Lượt xem 24K Tech Hub: AI - An toàn thông tin - Tin học quản lý 12/10/23 SA_DQ S Chia sẻ: Facebook Email Chia sẻ Link

Xem nhiều

• M Thi tuyển công chức thuế năm 2012!
  • Started by MINA
  • 5/5/12
  • Lượt xem: 8,755,627
  Phát triển bản thân
• M Thi công chức hải quan!
  • Started by meomalem
  • 2/5/10
  • Lượt xem: 3,407,930
  Phát triển bản thân
• T Lập nhóm ôn thi công chức bhxh 2013
  • Started by truongvucanh
  • 29/3/13
  • Lượt xem: 2,991,552
  Phát triển bản thân
• M Tổng hợp các nội dung liên quan đến việc thi tuyển vào ngân hàng!
  • Started by mechipchip
  • 18/7/06
  • Lượt xem: 2,909,675
  Chế độ kế toán khác
• J Thi tuyển công chức thuế 2014
  • Started by jinna
  • 23/12/13
  • Lượt xem: 2,557,446
  Thi công chức thuế

Liên kết

Tâm An kế toán quản trị

Chia sẻ trang

Share this page Chia sẻ Facebook Email Chia sẻ Link Top Bottom