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

[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