Công thức tìm năm 2009 = Kỷ Sửu... Phong Thủy với Excel! (1 người xem)

[BNTT]

Buồn buồn chiều cuối năm, mày mò làm cái này bằng công thức:

Cũng bằng công thức và hàm (không chơi VBA), có công thức nào ngắn hơn không?

 

[vucuong51]

Cái buồn của bạn BNTT lại làm cho nhiều người vui đó. Xin cảm ơn. Hiện nhiều người còn muốn biết từng năm là mạng (mệnh) gì, bạn có thể lấp công thức để tìm mệnh của các năm, ví dụ:
2009 - Kỷ Sửu - Hoả (mạng Hoả)
2010 - Canh Dần - Mộc
2011 - Tân Mẹo - Mộc
2012 - Nhâm Thìn - Thuỷ
..................................

Nhân đây minh muốn hỏi copy các box (1 phần hoặc toàn bộ, để đưa vào bài viết) bằng cách nào? Xin cảm ơn.

 

[Tancoi_GPE]

Nhân đây minh muốn hỏi copy các box (1 phần hoặc toàn bộ, để đưa vào bài viết) bằng cách nào? Xin cảm ơn.

Có cái nút trích dẫn ở dưới góc phải màn hình của bài viết đấy.
Đọc thêm chữ ký của Bác BNTT nữa nhé

 

[phamduylong]

Do phải kết hợp 2 bảng can, chi. Nên công thức của BNTT là tối ưu rồi ! (không biết có ai tìm ra công thức ngắn hơn không ?)
Muốn công thức giảm đi phân nữa, phải gom 2 bảng can - chi thành 1 bảng

|

A​

​

|

B​

​

|

C​

​

|

D​

​

|

E​

​

|

F​

​

|

1​

​

|

STT​

​

|

Can - Chi​

​

|

​

​

|

Dương lịch​

​

|

Âm lịch​

​

|

Công thức​

​

|

2​

​

|

1​

|Canh Thân| |

2.009​

|Kỷ Sửu| =INDEX($B$2:$B$61;MOD(D2;60)+1)|

3​

​

|

2​

|Tân Dậu| |

2.010​

|Canh Dần| |

4​

​

|

3​

|Nhâm Tuất| |

2.011​

|Tân Mão| |

5​

​

|

4​

|Quý Hợi| |

2.012​

|Nhâm Thìn| |

6​

​

|

5​

|Giáp Tý| |

2.013​

|Quý Tỵ| |

7​

​

|

6​

|Ất Sửu| |

2.014​

|Giáp Ngọ| |

8​

​

|

7​

|Bính Dần| |

2.015​

|Ất Mùi| |

9​

​

|

8​

|Đinh Mão| |

2.016​

|Bính Thân| |

10​

​

|

9​

|Mậu Thìn| |

2.017​

|Đinh Dậu| |

11​

​

|

10​

|Kỷ Tỵ| |

2.018​

|Mậu Tuất| |

12​

​

|

11​

|Canh Ngọ| |

2.019​

|Kỷ Hợi| |

13​

​

|

12​

|Tân Mùi| |

2.020​

|Canh Tý| |

14​

​

|

13​

|Nhâm Thân| |

2.021​

|Tân Sửu| |

15​

​

|

14​

|Quý Dậu| |

2.022​

|Nhâm Dần| |

16​

​

|

15​

|Giáp Tuất| |

2.023​

|Quý Mão| |

17​

​

|

16​

|Ất Hợi| |

2.024​

|Giáp Thìn| |

18​

​

|

17​

|Bính Tý| |

2.025​

|Ất Tỵ| |

19​

​

|

18​

|Đinh Sửu| |

2.026​

|Bính Ngọ| |

20​

​

|

19​

|Mậu Dần| |

2.027​

|Đinh Mùi| |

21​

​

|

20​

|Kỷ Mão| |

2.028​

|Mậu Thân| |

22​

​

|

21​

|Canh Thìn| |

2.029​

|Kỷ Dậu| |

23​

​

|

22​

|Tân Tỵ| |

2.030​

|Canh Tuất| |

24​

​

|

23​

|Nhâm Ngọ| |

2.031​

|Tân Hợi| |

25​

​

|

24​

|Quý Mùi| | | | |

26​

​

|

25​

|Giáp Thân| | | | |

27​

​

|

26​

|Ất Dậu| | | | |

28​

​

|

27​

|Bính Tuất| | | | |

29​

​

|

28​

|Đinh Hợi| | | | |

30​

​

|

29​

|Mậu Tý| | | | |

31​

​

|

30​

|Kỷ Sửu| | | | |

32​

​

|

31​

|Canh Dần| | | | |

33​

​

|

32​

|Tân Mão| | | | |

34​

​

|

33​

|Nhâm Thìn| | | | |

35​

​

|

34​

|Quý Tỵ| | | | |

36​

​

|

35​

|Giáp Ngọ| | | | |

37​

​

|

36​

|Ất Mùi| | | | |

38​

​

|

37​

|Bính Thân| | | | |

39​

​

|

38​

|Đinh Dậu| | | | |

40​

​

|

39​

|Mậu Tuất| | | | |

41​

​

|

40​

|Kỷ Hợi| | | | |

42​

​

|

41​

|Canh Tý| | | | |

43​

​

|

42​

|Tân Sửu| | | | |

44​

​

|

43​

|Nhâm Dần| | | | |

45​

​

|

44​

|Quý Mão| | | | |

46​

​

|

45​

|Giáp Thìn| | | | |

47​

​

|

46​

|Ất Tỵ| | | | |

48​

​

|

47​

|Bính Ngọ| | | | |

49​

​

|

48​

|Đinh Mùi| | | | |

50​

​

|

49​

|Mậu Thân| | | | |

51​

​

|

50​

|Kỷ Dậu| | | | |

52​

​

|

51​

|Canh Tuất| | | | |

53​

​

|

52​

|Tân Hợi| | | | |

54​

​

|

53​

|Nhâm Tý| | | | |

55​

​

|

54​

|Quý Sửu| | | | |

56​

​

|

55​

|Giáp Dần| | | | |

57​

​

|

56​

|Ất Mão| | | | |

58​

​

|

57​

|Bính Thìn| | | | |

59​

​

|

58​

|Đinh Tỵ| | | | |

60​

​

|

59​

|Mậu Ngọ| | | | |

61​

​

|

60​

|Kỷ Mùi| | | | |

 

[BNTT]

Cái buồn của bạn BNTT lại làm cho nhiều người vui đó. Xin cảm ơn. Hiện nhiều người còn muốn biết từng năm là mạng (mệnh) gì, bạn có thể lấp công thức để tìm mệnh của các năm, ví dụ:
2009 - Kỷ Sửu - Hoả (mạng Hoả)
2010 - Canh Dần - Mộc
2011 - Tân Mẹo - Mộc
2012 - Nhâm Thìn - Thuỷ
..................................

Nhân đây minh muốn hỏi copy các box (1 phần hoặc toàn bộ, để đưa vào bài viết) bằng cách nào? Xin cảm ơn.

Dễ thôi, phải cái này hông:

 

[vucuong51]

Dễ thôi, phải cái này hông:

​

Hay quá! Đây là cái tôi cần đó. Cảm ơn nhiều

 

[BNTT]

Hì hì, xem bài bác Long xong, nảy ra một cái ý tưởng... Ai buồn giống tui thì nhào vô nha:
Từ 2 cái bảng này (cột A và cột B):

Dùng công thức gì, để có thể kéo xuống 60 ô, nó ra cái bảng giống của bác Long (Canh Thân, Tân Dậu...)?
Nghĩa là lần lượt lấy một ô ở cột A nối với 1 ô của cột B? Nhớ rằng ở đây, A chỉ có 10 ô, còn B có 12 ô?

 

[vucuong51]

Bạn BNTT ơi, tôi đã thử file đính kèm của bạn và tra theo lịch thì thấy có luc kết quả sai, vd: năm 2008 --> Mậu Tý, Mạng Hỏa thì kết quả lại thành Mạng Thủy, năm 2009 --> Kỷ Sửu, Mạng Hỏa thì kết quả lại thành Mạng Thủy. Tôi cho rằng công thwcj rất đúng nhưng bị nhầm ở số liệu ban đầu (về mệnh)

 

[BNTT]

Tui làm được một cái rồi, nhưng thấy dài quá hà:

=INDIRECT("A" & IF(MOD(ROW(),10)=0, 10, MOD(ROW(),10))) & " " & INDIRECT("B" & IF(MOD(ROW(),12)=0, 12, MOD(ROW(),12)))

 

[BNTT]

Bạn BNTT ơi, tôi đã thử file đính kèm của bạn và tra theo lịch thì thấy có luc kết quả sai, vd: năm 2008 --> Mậu Tý, Mạng Hỏa thì kết quả lại thành Mạng Thủy, năm 2009 --> Kỷ Sửu, Mạng Hỏa thì kết quả lại thành Mạng Thủy. Tôi cho rằng công thwcj rất đúng nhưng bị nhầm ở số liệu ban đầu (về mệnh)

Tui hổng biết. Tui xem ở đây: http://truongton.net/forum/showthread.php?t=425424

1./ Ngũ hành
Bây giời bạn chỉ cần xem bạn tuổi con gì thì bạn thuộc hành đó:
Hành Kim: Thân, Dậu.
Hành Mộc: Dần, Mẹo.
Hành Thuỷ: Tý, Hợi.
Hành Hoả: Tỵ, Ngọ.
Hành Thổ: Sửu, Thìn, Mùi, Tuất.

Theo như họ nói, thì tuổi Tý thuộc mạng Thủy, bạn à...

Riêng cái Sửu thì tui lộn... Cảm ơn bạn đã chỉ. Sửu (theo người ta nói) thuộc mạng Thổ.
Tui đã sửa lại hình và file đính kèm ở bài số #5...

 

[vucuong51]

Tui hổng biết. Tui xem ở đây: http://truongton.net/forum/showthread.php?t=425424

Theo như họ nói, thì tuổi Tý thuộc mạng Thủy, bạn à...

Mình xem ở cuốn lịch vạn sự mà. Cháu của mình mới sinh năm 2008, là tuổi Mậu Tý, mạng Hỏa. Mình sẽ xem ở trang mà bạn vừa nêu nhé

 

[tedaynui]

Tui hổng biết. Tui xem ở đây: http://truongton.net/forum/showthread.php?t=425424

Theo như họ nói, thì tuổi Tý thuộc mạng Thủy, bạn à...

Riêng cái Sửu thì tui lộn... Cảm ơn bạn đã chỉ. Sửu (theo người ta nói) thuộc mạng Thổ.
Tui đã sửa lại hình và file đính kèm ở bài số #5...

Trang Web này chắc chưa chính xác quá anh ơi. Mấy cái này em mù tịt nhưng tuổi em là Hợi và xưa nay ai cũng nói là mạng Kim mà ??? Không lẽ bị ngộ nhận mấy chục năm sao, trời !!! hic hic

TDN

 

[lypt]

Mạng theo năm

Mạng nói theo vucuong và nói theo BNTT là khác nhau (cả hai đều đúng).
Có lẽ vucuong muốn nói đến cái này?

 

[boyxin]

Buồn buồn chiều cuối năm, mày mò làm cái này bằng công thức:

Cũng bằng công thức và hàm (không chơi VBA), có công thức nào ngắn hơn không?

Do phải kết hợp 2 bảng can, chi. Nên công thức của BNTT là tối ưu rồi ! (không biết có ai tìm ra công thức ngắn hơn không ?)

Thế này có ngắn hơn không?

=OFFSET(B$1,MOD(D3,10),)&" "&OFFSET(A$1,MOD(D3,12),)

------------------------------------------

Hì hì, xem bài bác Long xong, nảy ra một cái ý tưởng... Ai buồn giống tui thì nhào vô nha:
Từ 2 cái bảng này (cột A và cột B):

Dùng công thức gì, để có thể kéo xuống 60 ô, nó ra cái bảng giống của bác Long (Canh Thân, Tân Dậu...)?
Nghĩa là lần lượt lấy một ô ở cột A nối với 1 ô của cột B? Nhớ rằng ở đây, A chỉ có 10 ô, còn B có 12 ô?

Các bác kiểm tra giúp xem công thức này được không?

Tại D1 nhập công thức:

=OFFSET(A$1,MOD(ROW()-1,10),)&" "&OFFSET(B$1,MOD(ROW()-1,12),)

Rồi copy (kéo fill) xuống

 

[trungnt]

Góp vui cùng các Pác bằng 2 file sau:

 

[ngtrungkien_bkpt]

Dễ thôi, phải cái này hông:

​

Bác xem lại công thức đi, thế ra như em sinh năm 79 cầm tinh con dê cụ lại là mệnh Kim à, sai bét, em mệnh Hoả, thiên thượng hỏa nhé

 

[Baton1123]

Hành và Mệnh khác nhau.

Tui hổng biết. Tui xem ở đây: http://truongton.net/forum/showthread.php?t=425424

Theo như họ nói, thì tuổi Tý thuộc mạng Thủy, bạn à...

Riêng cái Sửu thì tui lộn... Cảm ơn bạn đã chỉ. Sửu (theo người ta nói) thuộc mạng Thổ.
Tui đã sửa lại hình và file đính kèm ở bài số #5...

Bạn BNTT à.
Kiến thức Excel của bạn rất tốt nhưng kiến thức về ngũ hành thì bạn còn phải bổ sung một chút đấy.
Bạn lypt nói đúng là mệnh trong Thập lục hoa giáp.
Tôi bổ sung cho bạn một chút theo hiểu biết của tôi nhé.
Mệnh trong ngũ hành gồm 5 mệnh:Kim, Mộc, Thuỷ, Hoả, Thổ.
2 năm chung nhau một mệnh, năm trước là mệnh thuộc Dương, năm sau là mệnh thuộc âm.
VD: Năm 1982 là mệnh thủy (+), thì năm 1983 cũng là mệnh thủy(-). Những năm tiếp theo cũng tương tự như vậy.
Bạn lấy bảng của Bạn Lypt bổ sung vào bảng của bạn sẽ có một bản hoàn chỉnh vận dụng Exl vào tính ngũ Hành rất hay.
Rất cảm ơn bạn đã làm cho diễn đàn của chúng ta đích thực là :"Diễn đàn Giải pháp Exl" _ Vận dụng kiến thức Exl cho tất cả các lĩnh vực của cuộc sống.

 

[BNTT]

Sau khi mày mò, tôi mới nghiệm ra rằng, chúng ta bị lẫn lộn giữa Ngũ Hành và mệnh. Một năm sinh, có Ngũ hành riêng, và nếu là Nam, thì có mệnh khác, Nữ mệnh khác. Ví dụ, sinh năm 2009, Kỷ Sửu, Ngũ hành là Thích Lịch Hỏa (lửa sấm sét), nếu là Nam thì mệnh Hỏa (Ly Hỏa), nhưng nếu là Nữ thì là mệnh Kim (Càn Kim).

Và đây là trường hợp của bạn ngtrungkien_bkpt:

Xin gửi lại bản này, nhờ các chiêm tinh gia, các nhà dịch học xem xét dùm.

 

[Po_Pikachu]

Bác xem lại phần Mệnh đi. Nó chưa đúng lắm.
1973 là Mệnh Mộc chứ không phải Hỏa.
1978 là Mệnh Hỏa chứ không phải Mộc.
Thân.

 

[BNTT]

Bác xem lại phần Mệnh đi. Nó chưa đúng lắm.
1973 là Mệnh Mộc chứ không phải Hỏa.
1978 là Mệnh Hỏa chứ không phải Mộc.
Thân.

Chịu. Đúng hay sai tôi không biết đâu, vì tôi căn cứ vào những gì mà tôi có được từ Internet thôi. Nhưng cũng có thể Po_Pikachu chưa phân biệt được Hành và Mệnh:

• Năm 1973: Ngũ hành là Tang Đố Mộc, nếu là Nam thì là Mệnh Hỏa (Ly Hỏa), Nữ là Mệnh Kim (Càn Kim). Ở đây, có thể Mộc mà Po_Pikachu nói là Hành chứ không phải Mệnh.
  
  
• Năm 1978: Ngũ hành là Thiên Thượng Hỏa, nếu là Nam thì là Mệnh Mộc (Tốn Mộc), Nữ là Mệnh Thổ (Khôn Thổ). Ở đây cũng vậy, có thể Hỏa mà Po_Pikachu nói là Hành chứ không phải Mệnh.

Mà thôi, để khỏi thắc mắc mệnh Nam mệnh Nữ làm gì, tôi thiết kế lại, đưa ra cả hai luôn, khỏi chọn:

Và đây là file đã sửa:

 

[Po_Pikachu]

Em không biết đâu? Em đọc nhiều sách hướng dẫn họ điều nói thế mà! Mệnh chứ không phải Hành

1970 – Canh Tuất: Mệnh Kim

1971 – Tân Hợi: Mệnh Kim

1972 – Nhâm Tý: Mệnh Mộc

1973 – Quý Sửu: Mệnh Mộc

1974 – Giáp Dần: Mệnh Thủy

1975 - Ất Mão: Mệnh Thủy

1976 – Bính Thìn: Mệnh Thổ

1977 – Đinh Tị: Mệnh Thổ

1978 - Mậu Ngọ: Mệnh Hỏa

1979 - Kỷ Mùi: Mệnh Hỏa

1980 – Canh Thân: Mệnh Mộc

1981 – Tân Dậu: Mệnh Mộc

1982 – Nhâm Tuất: Mệnh Thủy

1983 - Quỳ Hợi: Mệnh Thủy

1984 – Giáp Tý: Mệnh Kim

1985 - Ất Sửu: Mệnh Kim

1986 – Bính Dần: Mệnh Hỏa

1987 – Đinh Mão: Mệnh Hỏa

1988 - Mậu Thìn: Mệnh Mộc

1989 - Kỷ Tỵ : Mệnh Mộc

1990 – Canh Ngọ: Mệnh Thổ

1991 – Tân Mùi: Mệnh Thổ

Nguồn: http://ducvtt.4rumer.com/forum-f27/topic-t292.htm

Bác chỉnh lại xem!
Còn việc Nam - Nữ thì em chưa nghe!
Nhưng ở đây bảng chiếu thì giống bác! Vậy là sao ta? Em chẳng hiểu ai nói đúng nữa?
http://phongthuy.vietaa.com/default.asp?action=fengshui_table

Nữa nè!
http://209.85.175.132/search?q=cache:hlyURPiijRQJ:vn.answers.yahoo.com/question/index%3Fqid%3D20080327031106AAKBi3Q+%22Tang+%C4%90%E1%BB%91+M%E1%BB%99c%22+%22Qu%C3%BD+S%E1%BB%ADu%22+m%E1%BB%87nh+nam+-+n%E1%BB%AF+%22m%E1%BA%A1ng+m%E1%BB%99c%22&hl=vi&ct=clnk&cd=24&gl=vn
http://209.85.175.132/search?q=cach...+nam+-+nữ+"mạng+mộc"&hl=vi&ct=clnk&cd=3&gl=vn
Thân.

 

[BNTT]

Cái mà Po_Pikachu nói, là Hành, chứ không phải Mệnh đâu. Xem ở đây nè: http://truongton.net/forum/showthread.php?t=425424

Còn để biết mệnh Nam, mệnh Nữ, Po_Pikachu xem ở đây: http://www.blogphongthuy.com/?p=339#more-339

So sánh cái nội dung này với cái mà Po_Pikachu trích dẫn ở trên nhé:

Hai cái cột ở ngoài cùng bên phải, một cột là Mệnh Nam, một cột là mệnh Nữ.

Cái link http://phongthuy.vietaa.com/default....fengshui_table mà Po_Pikachu đưa, cũng y chang như cái trên đây, như vậy chắc là đúng. Nếu có gì sai, chắc chỉ có suy nghĩ của chúng ta về phong thủy chưa đúng mà thôi. Ngay cả tôi, qua loạt bài này, tôi mới biết thêm được nhiều thứ mà trước giờ mình cứ nghĩ là thế này, thế kia, hóa ra trật lất hết!

 

[sealand]

BNTT à: Trong lĩnh vực này nên phân biệt rõ.
Hành và Mệnh là 2 khái niệm khác nhau:
-Hành là tên gọi của từng Hành trong Ngũ hành.
-Mệnh là mệnh của mỗi người được xác định theo hành nào trong Ngũ hành.
Vì vâỵ, mà đều có tên chung là Kim-Mộc-Thủy-Hỏa-Thổ. Trong trường hợp của Po là Mệnh. Ví dụ người sinh năm 1970 người ta nói người này mệnh Kim chứ không nói là hành Kim.
Một khái niệm nữa là Cung và bát quái : Càn-Khảm-Cấn-Chấn-Tốn-Ly-Khôn-Đoài là 8 quẻ của bát quái. Cung là cung của mỗi người xác định theo 8 quẻ của bát quái. Người sinh năm 1970 là người Cung chấn chứ không nói là quẻ chấn

Lưu ý:
-Mỗi quẻ của bát quái lại có hành riêng và 2 cột ngoài theo ví dụ của bạn là hành của quẻ chứ không phải là Mệnh.
-Nam và Nữ sinh cùng năm thì cùng mệnh nhưng cung khác nhau.

 

[BNTT]

Cảm ơn bác Sealand. Nhưng ở trang web này này, người ta ghi như vầy:

Và cái file em làm là dựa vào đó hoàn toàn. Họ gọi sao, em gọi vậy. Vì có biết gì đâu mà dám sửa?

Phiền bác có thể cung cấp cho em tài liệu nào chính xác nhất về các tên gọi hay không?

 

[sealand]

Xin lỗi là tài liệu của mình chủ yếu là sách nên chỉ nêu tên thôi (Cũng có thể là tên không chính xác vì mình chỉ nhớ -Đang ở cơ quan):
Lịch vạn niên của Tân Việt
Chọn ngày tháng theo can chi Hoàng Tuấn
100 điều nên biết về phong tuc
Thông Thư
Tử vi
........

Trang Web bạn giới thiệu đặt cái tên cho bảng đó không chuẩn lắm. Phong thủy nó liên quan giữa con người với phương hướng và tương quan đồ vật. Bảng đó mới cung cấp cho biết cung và mệnh của mỗi người để làm căn cứ thôi chứ chưa có liên quan gì tới phong thủy cả và cấu trúc của bảng thì đúng là như mình đã nói. Bảng đó gọi là Bảng tra cung mệnh theo năm sinh thì phù hợp hơn.
Trên bảng đó nên sửa tiêu đè cột:
Ngũ hành thành Mệnh
Mệnh Nam thành Cung Nam
Mệnh Nữ thành Cung Nữ
Còn nội dung bảng là hợp lý (Mình chưa tra kiểm lại độ chính xác)

 

[sealand]

Trong bảng bạn giới thiệu Mệnh chính là chữ thứ 3 trên cột Ngũ hành, còn 2 chữ đầu xác định mức độ vượng suy, thịnh yếu của mệnh trong năm đó. Ví dụ:
năm 1974:Đại Khê Thủy (Nước trong khe lớn) sẽ không bằng năm 1982 Đại Hải Thủy (Nước trên biển lớn).

Thôi thì 1 chút tham luận với bạn thôi, thông cảm nhé.

 

[cadafi]

Thấy các bác bàn luận sôi nổi quá! Nhưng em thì lại ngu mấy khoản này! Xin phép có bác nào cao tay xem giúp mệnh của em, cung của em, xem năm nay em "làm ăn" có tốt không?

Em sinh lúc 05h am ngày 21/06/1980! Em xin cảm ơn tất cả mọi người!

 

[sealand]

Đây là lời đoán cho Ca_dafi. Xin lỗi thời buổi Internet mà!

 

[vankhang]

Gop vui

Gui cac ban file tinh toan can-chi. Tu nam nhap vao se cho ra can-chi View attachment Tinh Con giap khi nhap nam.xlsView attachment Tinh Con giap khi nhap nam.xls

 

[sealand]

File của bạn có Pass thì sao mở được?
Vấn đề này ta chỉ cần viết 1 hàm chuyển đổi là được, các bạn thấy vòng lặp của hàng Can là 10, vòng lặp của hàng chi là 12. Ta khai 2 mảng can và chi tương ứng rồi lấy số năm chia cho vòng lặp tương ứng lấy số dư (VD:Hàm Mod) sẽ tìm ra hàng can và chi của năm (VDùng hàm Choose).
Nhưng để có thể xác định được can chi, ngũ hành, cung của năm thì hàm phải lập theo Hoa giáp (60 năm).
Mình nói vậy chắc đa số các bạn đã hình dung rồi. Vấn đề là phải có kiến thức, hiểu biết về lịch và những thay đổi về cách tính thời gian trong qua khứ qua các giai đoạn lịch sử nhân loại cũng như các triều đại mỗi quốc gia. Chứ lập hẳn file chỉ để tính can chi thì e to tát cồng kềnh quá

 

[sealand]

Mình xin có hàm chuyển năm dương lịch thành năm can chi, các bạn tham khảo

Public Function canchi(nam As Integer)
Dim can, chi As String
Dim du As Integer
ar_can = Array("Canh", "Tan", "Nh©m", "Quý", "Gi¸p", "At", "BÝnh", "§inh", "MËu", "Kû")
ar_chi = Array("Th©n", "DËu", "TuÊt", "Hîi", "Tý", "Söu", "DÇn", "M·o", "Th×n", "TÞ", "Ngä", "Mui")
du = nam Mod 10
st_can = ar_can(du)
du = nam Mod 12
st_chi = ar_chi(du)
canchi = st_can & " " & st_chi
End Function

Ví dụ ô A1 gõ 2009
ô B1=canchi(A1) --->Kết quả "Kỷ Sửu"

 

[ndu96081631]

Mình xin có hàm chuyển năm dương lịch thành năm can chi, các bạn tham khảo

Public Function canchi(nam As Integer)
Dim can, chi As String
Dim du As Integer
ar_can = Array("Canh", "Tan", "Nh©m", "Quý", "Gi¸p", "At", "BÝnh", "§inh", "MËu", "Kû")
ar_chi = Array("Th©n", "DËu", "TuÊt", "Hîi", "Tý", "Söu", "DÇn", "M·o", "Th×n", "TÞ", "Ngä", "Mui")
du = nam Mod 10
st_can = ar_can(du)
du = nam Mod 12
st_chi = ar_chi(du)
canchi = st_can & " " & st_chi
End Function

Ví dụ ô A1 gõ 2009
ô B1=canchi(A1) --->Kết quả "Kỷ Sửu"

Nếu muốn hàm hổ trợ font Unicode e rằng anh sẽ hơi bị "cực" à nha!

 

[sealand]

To ndu96081631:
Đâu có vấn đề gì? Hàm chuyển Font trên diễn đàn thiếu chi?
Mình ví dụ đây là hàm chuyển đổi giữa Unicode va TCVN3

Const CodUni = "225  224  7843 227  7841 259  7855 7857 7859 7861 7863 226  7845 7847 7849 7851 7853 233  232  7867 7869 7865 234  7871 7873 7875 7877 7879 237  236  7881 297  7883 243  242  7887 245  7885 244  7889 7891 7893 7895 7897 417  7899 7901 7903 7905 7907 250  249  7911 361  7909 432  7913 7915 7917 7919 7921 253  7923 7927 7929 7925 273  193  193  192  192  7842 7842 195  195  7840 7840 258  258  7854 7854 7856 7856 7858 7858 7860 7860 7862 7862 194  194  7844 7844 7846 7846 7848 7848 7850 7850 7852 7852 201  201  200  200  7866 7866 7868 7868 7864 7864 202  202  7870 7870 7872 7872 7874 7874 7876 7876 7878 7878 205  204  7880 296  7882 211  211  210  210  7886 7886 213  213  7884 7884 212  212  7888 7888 7890 7890 7892 7892 7894 7894 7896 7896 416  7898 7898 7900 7900 7902 7902 7904 7904 7906 7906 218  218  217  217  7910 7910 360  360  7908 7908 431  7912 7912 7914 7914 7916 7916 7918 7918 7920 7920 221  221  7922 7922 7926 7926 7928 7928 7924 272  "
Const StrVn3 = "¸µ¶·¹¨¾»¼½Æ©ÊÇÈÉËÐÌÎÏѪÕÒÓÔÖÝ×ØÜÞãßáâä«èåæçé¬íêëìîóïñòô­øõö÷ùýúûüþ®¸¸µµ¶¶··¹¹¡¡¾¾»»¼¼½½ÆÆ¢¢ÊÊÇÇÈÈÉÉËËÐÐÌÌÎÎÏÏÑÑ££ÕÕÒÒÓÓÔÔÖÖÝ×ØÜÞããßßááââä䤤èèååææççéé¥ííêêëëììîîóóïïññòòôô¦øøõõöö÷÷ùùýýúúûûüüþ§"
'[U][COLOR=Red]Ham doi TCVN3 sang Unicode[/COLOR][/U]
Function doi_font(text As String) As String
Dim i, kytu, vitri, newtext
For i = 1 To Len(text)
  kytu = Mid(text, i, 1)
  vitri = InStr(1, StrVn3, kytu, 0)
  If vitri > 0 Then
    newtext = newtext & ChrW(Mid(CodUni, vitri * 5 - 4, 5))
  Else
    newtext = newtext & kytu
  End If
Next
doi_font = newtext
End Function

'[U][COLOR=Red]Ham doi Unicode sang TCVN3[/COLOR][/U]
Function UniVn3(text As String) As String
For i = 1 To Len(text)
  kytu = Mid(text, i, 1)
  codkytu = AscW(kytu) & String(5 - Len(CStr(AscW(kytu))), " ")
  vitri = (InStr(1, CodUni, codkytu, 0) + 4) / 5
  If vitri >= 1 Then
    newtext = newtext & Mid(StrVn3, vitri, 1)
  Else
    newtext = newtext & kytu
  End If
Next
UniVn3 = newtext
End Function

Thành thực xin lỗi mình không nhớ đoạn code trên của ai nên không Re. được.
Ta có thể ghép luôn trong hàm nhưng không linh động, nên để các Hàm riêng rẽ thì hơn.
Va bây giờ bạn gõ =doi_font(canchi(A1))

 

[BNTT]

Em hông rành User Define Function, thành thử em thích cái này của sư nương em hơn:
Tạo 2 Name Can, Chi, và đứng tại ô B1, rồi tạo tiếp Name CanChi như hình sau:

Xong, bi giờ gõ con số năm vào một ô, và ở ô bên cạnh bên phải của nó gõ =CanChi, là biết ngay năm Âm lịch.
Ví dụ, A1=2009, B1=CanChi

 

[sealand]

Cách dùng Name của BNTT cũng là phát kiến hay và gọn. Nhưng vào trường hợp cụ thể sẽ bị rắc rối. Ví dụ ta có danh sách:
-Cột 1: Họ và tên
-Cột 2: Năm sinh (DL)
-Cột 3: Năm sinh (AL)
Việc chuyển giá trị cột 2 cho cột 3 là khó khăn.

 

[BNTT]

Cách dùng Name của BNTT cũng là phát kiến hay và gọn. Nhưng vào trường hợp cụ thể sẽ bị rắc rối. Ví dụ ta có danh sách:
-Cột 1: Họ và tên
-Cột 2: Năm sinh (DL)
-Cột 3: Năm sinh (AL)
Việc chuyển giá trị cột 2 cho cột 3 là khó khăn.

Thì anh làm vầy nè:

|

A​

​

|

B​

​

|

C​

​

|

1​

​

|

Họ và tên​

​

|

Năm sinh dương lịch​

​

|

Năm sinh âm lịch​

​

|

2​

​

|A|

2000​

|

Canh-Thìn​

|

3​

​

|C|

2001​

|

Tân-Tỵ​

|

4​

​

|D|

2002​

|

Nhâm-Ngọ​

|

5​

​

|E|

2003​

|

Quý-Mùi​

|

6​

​

|F|

2004​

|

Giáp-Thân​

|

7​

​

|G|

2005​

|

Ất-Dậu​

|

8​

​

|H|

2006​

|

Bính-Tuất​

|

9​

​

|I|

2007​

|

Đinh-Hợi​

|

10​

​

|J|

2008​

|

Mậu-Tý​

|

11​

​

|K|

2009​

|

Kỷ-Sửu​

|

12​

​

|L|

2010​

|

Canh-Dần​

|

13​

​

|M|

2011​

|

Tân-Mẹo​

|

14​

​

|N|

2012​

|

Nhâm-Thìn​

|

Công thức ở cột C vẫn chỉ là =CanChi

Lỡ như cột B có đủ cả ngày tháng năm sinh, thì vào Define Name sửa lại công thức cho Name CanChi là:

=INDEX(Can,MOD(YEAR(Sheet1!A1),10)+1) &"-"& INDEX(Chi,MOD(YEAR(Sheet1!A1),12)+1)​

Chỉ có một điều cần nhớ, là trước khi vào Define Name để sửa, thì phải chọn ô B1.

 

[sealand]

Thực ra, mình dùng Name hơi kém. Mình thấy cái tên canchi của bạn nó gắn với ô a1 rồi mà.

 

[BNTT]

Thực ra, mình dùng Name hơi kém. Mình thấy cái tên canchi của bạn nó gắn với ô a1 rồi mà.

Đúng là nó gắn với A1. Nhưng như em đã nói, là trước khi tạo Name CanChi, thì đứng ở B1, và cái A1 trong Name là Reference address (địa chỉ tương đối), chứ không dùng địa chỉ tuyệt đối (Absolute address). Và ở bài sau, em cũng có nhắc lại là trước khi sửa Name phải chọn ô B1.

Chính vì điều này, mà khi anh gõ công thức =Canchi ở một ô nào đó, thì nó liên kết với ô cùng hàng ở ngay bên trái.

Ví dụ, anh gõ ở B1, thì nó liên kết với A1. Nhưng nếu anh gõ ở H7 thì nó liên kết với G7, v.v...

 

[ndu96081631]

Theo tôi nếu dùng name thì chỉ nên đưa 2 name CAN và CHI vào thôi... Còn công thức INDEX gì đó ta chịu khó gõ ---> Nó dùng địa chỉ hổn hợp, rất dể bị nhầm lẩn, nhất là khi người này hướng dẩn cho người kia ---> Thế nào cũng sai bét (mà không hiểu tại sao, dù gõ đúng) ---> Chỉ vì vị trí của ActiveCell khác nhau trên 2 máy tính

 

[anhtuan1066]

Tôi gửi cho các bạn tham khảo 1 giãi pháp dung hòa giữa UDF và công thức
Cách của tôi là dùng công thức, nhưng sử dụng như 1 User Define Function... Có thể tùy biến cell tham chiếu (hổ trợ bởi các hàm XL4)
Xem file:
- Tham chiếu nằm ở đâu tùy ý
- Công thức nằm ở đâu cũng tùy ý luôn

 

[aduc]

Xem tuổi xây nhà, hướng tốt và cấm kị trong phong thủy!

Mình gửi file phong thủy tổng hợp này hi vọng có ích cho những người quan tâm.

 

[Trần Văn Bình]

Bạn ơi kiểm tra lại xem tuổi đinh hợi sinh năm 1977 năm nay là tam tai sao phần mềm chạy là ko tâm tai

 

[thetrungkien]

Tui hổng biết. Tui xem ở đây: http://truongton.net/forum/showthread.php?t=425424

Theo như họ nói, thì tuổi Tý thuộc mạng Thủy, bạn à...

Riêng cái Sửu thì tui lộn... Cảm ơn bạn đã chỉ. Sửu (theo người ta nói) thuộc mạng Thổ.
Tui đã sửa lại hình và file đính kèm ở bài số #5...

cái này hồi xưa đã thử rùi, nhưng rất phê, nhưng nếu giải quyết bằng VBA thì chỉ cần 1 vòng lặp với 2 mảng là xong ngay đó

 

[148btx]

Thấy các bạn bàn nhiều về chủ đề lịch âm và lý học đông phương, tôi xin góp vui 2 File này:
Dùng để so tuổi vợ chồng (Excel):
http://mitglied.lycos.de/vdmq/SoTuoiVoChong.xls
http://mitglied.lycos.de/vdmq/Xem.tuoi.gia.dinh.xls

Lập lá số tử vi trên nền Excel:
http://mitglied.lycos.de/vdmq/La.so.tu.vi.rar

Hy vọng chúng ta học hỏi được nhiều điều về lập trình, đặc biệt qua File lập lá số.

 

[adam_tran_vn]

Bản cuối là bản perfect, kô thể hoàn hảo hơn được nữa, cám ơn bạn BNTT

 

[adam_tran_vn]

Bạn BNTT có thể lập hồ mình công thức để đổi ngày dương lịch ra ngày can chi ko? sau đây là thông tin về ngày dương lịch ra ngay can chi :http://www.nomna.org/Huu-ich/Van-ho.../110-Cach_doi_ngay_duong_lich_ra_ngay_can_chi
Cám ơn bạn rất nhiều