请教大家一个问题

dcdzzz

	星期	四	五	六	日	一	二	三
	寅	角	亢	氐	房	心	尾	箕
	午
	戌
	巳	斗	牛	女	虚	危	室	壁
	酉
	丑
	申	奎	娄	胄	昂	毕	觜	参
	子
	辰
	亥	井	鬼	柳	星	张	翼	轸
	卯
	未
阳历				阴历			28宿
年	月	日	星期	年	月	日
2023	4	1	六	癸卯	乙卯	己丑	柳

上面是一个表:如果某天为星期四的地支为寅午戌时，星期四那天的28宿为角，星期五为亢，星期六为氐......
如果某天为星期四的地支为巳酉丑时，星期四那天的28宿为斗，星期五为牛，星期六为女......
如果某天为星期四的地支为申子辰时，星期四那天的28宿为奎，星期五为娄，星期六为胄......
如果某天为星期四的地支为亥卯未时，星期四那天的28宿为井，星期五为鬼，星期六为柳......

上面举了个例，今天2023年4月1日，星期六，农历：癸卯年，乙卯月，己丑日，因为前天星期四为 丁亥，亥卯未，前天为井，今天的28宿就为柳。我想在日历变化时，28宿在那单元格里自动随着变。

cutecpu

=Mid("房心尾箕斗牛女虛危室壁奎婁胃昂畢觜參井鬼柳星張翼軫角亢氏"),Mod(Date(2023,4,1),28)+1,1)
將紅色替換成單元格即可

dcdzzz

cutecpu 发表于 2023-4-2 11:04
=Mid("房心尾箕斗牛女虛危室壁奎婁胃昂畢觜參井鬼柳星張翼軫角亢氏"),Mod(Date(2023,4,1),28)+1,1)
將 ...

感谢！
我先试试

dcdzzz

不行，提示有错误。

哥儿-

dcdzzz 发表于 2023-4-2 18:06
不行，提示有错误。

删掉mod前的括号=Mid("房心尾箕斗牛女虛危室壁奎婁胃昂畢觜參井鬼柳星張翼軫角亢氏",Mod(Date(2023,4,1),28)+1,1)

cutecpu

dcdzzz 发表于 2023-4-2 18:06
不行，提示有错误。

我錯了，原來多了一個刮號
修正:
=Mid("房心尾箕斗牛女虛危室壁奎婁胃昂畢觜參井鬼柳星張翼軫角亢氏",Mod(A6,28)+1,1)

dcdzzz

cutecpu 发表于 2023-4-2 19:21
我錯了，原來多了一個刮號
修正:
=Mid("房心尾箕斗牛女虛危室壁奎婁胃昂畢觜參井鬼柳星張翼軫角亢氏 ...

再次感谢回复。现在公式对了，可是刚好多了一天，是不是不应该+1？

=Mid("房心尾箕斗牛女虛危室壁奎婁胃昂畢觜參井鬼柳星張翼軫角亢氏",Mod(A6,28),1)

dcdzzz

有的是正确的，有的又不正确，感觉没有判断星期四的地支是否为寅午戌，巳本丑，申子辰，亥卯未。

cutecpu

dcdzzz 发表于 2023-4-2 19:49
再次感谢回复。现在公式对了，可是刚好多了一天，是不是不应该+1？

=Mid("房心尾箕斗牛女虛危室壁奎婁 ...

=Mid("氏房心尾箕斗牛女虛危室壁奎婁胃昂畢觜參井鬼柳星張翼軫角亢",Mod(A6,28)+1,1)

dcdzzz

cutecpu 发表于 2023-4-2 21:24
=Mid("氏房心尾箕斗牛女虛危室壁奎婁胃昂畢觜參井鬼柳星張翼軫角亢",Mod(A6,28)+1,1)

感谢版主！

试了一下，现在可以了，不好意思还想请教一下，在这28个星宿里，有吉凶之分，我想在结果里吉星以红色显示，凶星以黑色显示，能否实现？
吉星：角房尾箕斗室壁娄胄毕参井张轸
凶星：亢氐心牛女虚危奎昂井鬼柳星翼


谢谢！