Bài viết: Bạn đang ở quý mấy trong năm?

[kyo]

Bạn đang ở quý mấy trong năm?


Trước tiên cần phải nói là, hiện tại chưa có hàm nào trong Excel có khả năng giúp bạn đổi tháng ra quý cách trực tiếp (ít nhất là trong tầm hiểu biết của kyo). Dĩ nhiên, sẽ có rất nhiều hàm trung gian giúp đỡ bạn trong vấn đề này, tuy nhiên, những hàm đó sẽ đòi hỏi bạn hoặc viết một hàm rất dài, hoặc sử dụng một hàm với phép tính toán phức tạp (và chắc hẳn bạn sẽ lười khi nghĩ đến những công thức quy đổi thế này). Vậy có cách nào giúp bạn dễ dàng làm điều này?

Cách dễ nhất là dùng hàm CHOOSE. Bạn có thể xem cú pháp đơn giản của hàm này tại đây.

Nói nôm na rằng, hàm CHOOSE sẽ trả về giá trị mà bạn chỉ định tại tham số đầu tiên. Giả sử nếu bạn có =CHOOSE(3,"GPE","giaiphapexcel.com","Giai Phap Excel","Cong cu tuyet voi cua ban") thì bạn sẽ nhận được giá trị Giai Phap Excel. Rất dễ hiểu phải không?

Cũng như vậy, áp dụng đúng nguyên tắc trên, bạn có thể thiết kế một công thức giúp bạn lấy giá trị quý. Và công thức thần kỳ đó chính là: =CHOOSE(MONTH(TODAY()),1,1,1,2,2,2,3,3,3,4,4,4)

Giá trị thứ nhất, chỉ đơn giản là lấy tháng hiện tại như một giá trị lựa chọn thứ tự tham số sau đó, và giả sử, tháng hiện tại là tháng 5, vậy thì hàm CHOOSE sẽ chọn tham số thứ 5, cũng là số 2, vậy tức là quý 2. Bằng cách lợi dụng 12 tham số tương ứng 12 tháng và 4 quý, bạn sẽ ra được kết quả mong muốn mà không gặp khó khăn gì.

Chúc bạn thành công.

Một số bài viết có liên quan:
1/ 23 điều bổ ích về VLOOKUP có thể bạn muốn biết (phần 1)
2/ 6 thói quen cá nhân khi làm việc với dữ liệu và Excel
3/ Chiêu số 23: Bật, tắt chức năng Conditional Formatting bằng 1 checkbox
4/ 29 cách tiết kiệm thời gian với các công thức Excel (phần 1)
5/ Sử dụng hàm Subtotal
6/ Cách viết hàm hiệu quả
7/ 5 phương pháp học Excel cơ bản hiệu quả nhất
8/ Ebook: Dữ liệu & Báo cáo trong Excel 2013
9/ Ebook: Công thức và hàm Excel 97-2013
10/ Ebook: "Một số chuyên đề Excel mừng sinh nhật GPE lần 7"

 

[patygate591]

Hoặc có thể dùng hàm INT như sau

=int((month(Today())+2)/3)

 

[Phuocam]

Góp thêm vài cách:
=MATCH(MONTH(TODAY()),{1,4,7,10},1)
=ROUNDUP(MONTH(TODAY())/3,0)
=CEILING(MONTH(TODAY())/3,1)

 

[Lê Duy Thương]

Thêm 1 cách khác cho sum tụ

=LOOKUP(MONTH(TODAY()),{1,4,7,10},{1,2,3,4})

 

[malang]

....
Cũng như vậy, áp dụng đúng nguyên tắc trên, bạn có thể thiết kế một công thức giúp bạn lấy giá trị quý. Và công thức thần kỳ đó chính là: =CHOOSE(MONTH(TODAY()),1,1,1,2,2,2,3,3,3,4,4,4)
....

Bài viết này quá sơ lược nghèo nàn, thiếu ý tưởng
hay ý của người viết là khác?

 

[kyo]

Bài này chỉ đơn giản là một thủ thuật nhỏ về cách ứng dụng hàm CHOOSE để tìm ra quý của một tháng nhất định, và trong rất nhiều cách làm từ việc dùng LOOKUP, ROUNDUP,... cùng những phép chia 3 hay mảng, CHOOSE khá đơn giản và trực quan.

 

[malang]

Bài này chỉ đơn giản là một thủ thuật nhỏ về cách ứng dụng hàm CHOOSE để tìm ra quý của một tháng nhất định, và trong rất nhiều cách làm từ việc dùng LOOKUP, ROUNDUP,... cùng những phép chia 3 hay mảng, CHOOSE khá đơn giản và trực quan.

ừ, quá đơn giản quá nghèo nàn, nên có bài viết có giá trị chút cho lần sau

 

[SA_DQ]

Đang là quí nào trong năm:

Option Explicit
Function Qui(Dat As Date) As Integer
 Dim Th As Byte
 
 Th = Month(Dat)
 Qui = Switch(Th < 4, 1, Th < 7, 2, Th < 10, 3, Th <= 12, 4)
End Function

 

[kyo]

ừ, quá đơn giản quá nghèo nàn, nên có bài viết có giá trị chút cho lần sau

Bài viết có bài ngắn bài dài, có bài hướng dẫn học thuật, lại có bài đơn giản chỉ là một thủ thuật nhỏ, và cái tôi hướng đến là những người chỉ mới biết về cơ bản, và nhiều khi họ cần một giải pháp cho vấn đề của họ. Có thể bài này không có giá trị gì đối với bạn, nên tôi sẽ chờ chính bạn giúp GPE có những bài viết hấp dẫn hơn.

kyo

 

[handung107]

Đôi khi bài viết chỉ có nội dung sơ lược, nhưng chính nó là đề tài để truyền cảm hứng cho mọi người đóng góp ý kiến. Nhờ vậy, mọi người đều có thể tham gia và học hỏi được nhiều hơn, bạn à

 

[Lequocvan]

Con bạn đang học lớp mấy nhé!

Em cũng góp thêm cái này, từ tuổi xem con mình học lớp mấy ah!?

Public Function Lop(ngay As Date) As String

Dim KQ, CodeNgay
CodeNgay = ngay

Select Case CodeNgay
Case 1
​

KQ = "MG"​

Case 2
​

KQ = "MG"​

Case 3
​

KQ = "MG"​

Case 4
​

KQ = "MG"​

Case 5
​

KQ = "MG"​

Case 6
​

KQ = "MG"​

Case 7
​

KQ = "L" & ChrW(7899) & "p 1"​

Case 8
​

KQ = "L" & ChrW(7899) & "p 2"​

Case 9
​

KQ = "L" & ChrW(7899) & "p 3"​

Case 10
​

KQ = "L" & ChrW(7899) & "p 4"​

Case 11
​

KQ = "L" & ChrW(7899) & "p 5"​

Case 12
​

KQ = "L" & ChrW(7899) & "p 6"​

Case 13
​

KQ = "L" & ChrW(7899) & "p 7"​

Case 14
​

KQ = "L" & ChrW(7899) & "p 8"​

Case 15
​

KQ = "L" & ChrW(7899) & "p 9"​

Case 16
​

KQ = "L" & ChrW(7899) & "p 10"​

Case 17
​

KQ = "L" & ChrW(7899) & "p 11"​

Case 18
​

KQ = "L" & ChrW(7899) & "p 12"​

Case Is > 18
​

KQ = ChrW(272) & ChrW(7841) & "i h" & ChrW(7885) & "c"​

Case Else
​

KQ = "M" & ChrW(7899) & "i sinh"​

End Select
Lop = KQ​

End Function

 

[Harry_Potter]

Thêm 1 cách khác cho sum tụ

Cám ơn bạn, mình thích cách này nhất