血型看星座星座血型算命

时间：2023-04-11 11:31:23 作者：动物园长的夫人

好的文章肯定人人都喜欢阅读，血型看星座给你解惑答疑，丰富的内容让你更加有只是星座血型算命和血型看星座让你人生无疑。关注我们，更多精彩正在路上！

血型看星座星座血型算命

怎样确定星座和血型，血型星座精准分析性格

怎样确定星座和血型

【白羊座】

A型血的白羊座–充满侠义之气的白羊座

对于爱情，A型白羊人常会有类似阴差阳错的感慨，不是他(她)爱的人不爱他(她)，就是爱他(她)的人他(她)不爱。皆因，无论是A型血还是白羊座人，都是较自我和本位的。年少时候的A白羊人人很难体察出爱情中种种必须领悟的细腻之处，于是总会发生“货不对板”的情况。A白羊人真正的爱情之花往往是要到了一定年纪之后才会盛开，其时他们的人验较为丰富，会容易抓住真正的缘分。

好友： A/B/AB/O型的白羊、狮子、射手、水瓶、双子。

最容易一见钟情的人： O/B/AB型天秤

女生适合的爱人： O/AB/B型白羊、狮子、射手、水瓶、双子。

男生适合的爱人： AB/B型白羊、狮子、射手、水瓶、双子。

最不的爱人： A型巨蟹、A型羯

B型血的白羊座–最简单活泼的白羊座

B型白羊座人对于爱情是感性和勇敢的，感情充沛的他们一生中可能会遇到多次的恋情。陷入爱河的B型白羊座人，是热情洋溢的，愿意付出和牺牲，但也会带有一定的盲目性。如果遭受拒绝或恋爱失败，倒不会对他们造成太大的阴影，属于越挫越勇型的人物。B型血的白羊座人真正需要的是，一个成熟可靠，品质优秀的伴侣，来引导和安定他(她)的生活。

好友：A/AB/O型的白羊、狮子、射手、水瓶、双子。

最容易一见钟情的人： O/A/AB型天秤

女生适合的爱人： AB/O型白羊、狮子、射手、水瓶、双子。

男生适合的爱人： O/A/AB型白羊、狮子、射手、水瓶、双子。

最不的爱人： B型巨蟹、B型羯

AB型血的白羊座–最矛盾犹豫的白羊座

AB型白羊座人的爱情，也许是所有血型白羊座人中最百转千回的一种了，大部分情况下，并没有白羊座招牌式的直接和主动，取而代之的则是较被动的。同所有的AB型血人一样，AB型白羊座人对于爱情充满了浪漫的憧憬，他们在爱中虽会表现出冷静的姿态，内心却充满了深刻的情感。

好友：A/AB/B型的白羊、狮子、射手、水瓶、双子。

最容易一见钟情的人： O/A/B型天秤。

女生适合的爱人： AB/B型白羊、狮子、射手、水瓶、双子。

男生适合的爱人： AB/A型白羊、狮子、射手、水瓶、双子。

最不的爱人： O型巨蟹、O型羯

O型血的白羊座–最富活力的白羊座

O型白羊座人对待爱情的态度是积极和自信的，但从另外一种角度来说，他们又是骄傲的，他们对于恋人的要求是近乎完美的，能够让他们觉得值得去喜欢去付出的人，不会很多。所以，一旦出现那个让他们心动的人，他们就会执着大胆的追求，如果最后没有得到那个人，那么爱有多深，恨就有多深。

好友：A/O/B型的白羊、狮子、射手、水瓶、双子。

最容易一见钟情的人： A或AB型天秤。

女生适合的爱人： B型白羊、O/B型狮子、O/B型射手、O/B型水瓶、O/B型双子。

男生适合的爱人： B型白羊、A/B型狮子、A/B型射手、A/B型水瓶、A/B型双子。

最不的爱人： AB型巨蟹、AB型羯

【金牛座】

A型血的金牛座–执着笃定的金牛座

对于爱情，A金牛人属于宁缺毋滥型，再没有遇到自己真正觉得喜欢的那个人之前，其他人怎么追求，他们都不会接受。而一旦遇到了喜欢人，A金牛人表现出的行动力之迅速和占有欲之强烈，是让旁人惊讶的。开始了一段感情发展的A金牛人，是忠诚和执着的，是让恋人可以放心的去爱的充满安全感的人。

好友： A/B/AB/O型的金牛、处女、羯、双鱼、巨蟹。

最容易一见钟情的人：O/B/AB型天蝎

女生适合的爱人：O/AB/B型金牛、处女、羯、双鱼、巨蟹。

男生适合的爱人：AB/B型金牛、处女、羯、双鱼、巨蟹。

最不的爱人：A型狮子、A型水瓶

B型血的金牛座–安详温和的金牛座

B型血的金牛座人对于感情是有点晚熟和笨拙的，对于爱情，他们并没有过多的浪漫幻想，即使到了该谈情说爱的年纪，也不会急着找个人来恋爱，似乎总是拖到不能再拖了，才通过相亲等途径来解决恋爱的问题。对爱做了承诺之后的B金牛人是安定和稳重的，他们喜欢稳定的家庭感，也希望有一个同样安定的单纯的伴侣来相伴过一生。

好友：A/AB/O型的金牛、处女、摩羯、双鱼、巨蟹。

最容易一见钟情的人：O/A/AB型天蝎

女生适合的爱人：AB/O型金牛、处女、摩羯、双鱼、巨蟹。

男生适合的爱人：O/A/AB型金牛、处女、摩羯、双鱼、巨蟹。

最不的爱人：B型狮子、B型水瓶

AB型血的金牛座–憨厚乐天的金牛座

因为AB型的金牛座人的个性中总是有着很孩子气的一面，也强烈的渴望安全感，所以对于恋人的选择，他们往往喜欢成熟可依赖的对象。进入了爱情状态的AB型金牛人，喜欢对方主动的热烈追求，自己被动的接受，他们会是忠实和不变心的爱人，也会因为有了爱，而充满了生气，焕发出与以前不一样的成熟光彩。

好友：A/AB/B型的金牛、处女、羯、双鱼、巨蟹。

最容易一见钟情的人：O/A/B型天蝎。

女生适合的爱人：AB/B型金牛、处女、羯、双鱼、巨蟹。

男生适合的爱人：AB/A型金牛、处女、羯、双鱼、巨蟹。

最不的爱人：O型狮子、O型水瓶

O型血的金牛座–现实物质的金牛座

一旦恋爱起来，O金牛是所有的金牛座人中最会说动听情话的。只是，的成分在O金牛人的爱情中的比重会比较大，他们很难容忍一个身材或者容貌走样的伴侣，或者，即使已经拥有了美丽的爱人，有时还是忍不住被更美丽的吸引。当然，不是说O金牛人的爱情中没有精神的成分，只是这些都是要建立在对眼的外表基础之上的。

好友：A/O/B型的金牛、处女、羯、双鱼、巨蟹。

最容易一见钟情的人：A或AB型天蝎。

女生适合的爱人：B型金牛、O/B型处女、O/B型羯、O/B型双鱼、O/B型巨蟹。

男生适合的爱人：B型金牛、A/B型处女、A/B型羯、A/B型双鱼、A/B型巨蟹。

最不的爱人：AB型狮子、AB型水瓶

【双子座】

A型血的双子座–型的双子座

A型血的双子座人对于爱情的表达不是过于害羞就是过于大胆，一旦喜欢上一个容易想的很多，造成神经紧张。仿***是内心另一个活泼的自己的投射，有时候他们会被特立独行的甚至有点张扬的人所吸引，让人们大跌眼镜。A双子的天性中有点喜欢悲剧式的爱情，来点曲折离奇的情节，才够味道。

好友： A/B/AB/O型的双子、天秤、水瓶、白羊、A/B/AB/O型狮子。

最容易一见钟情的人：O/B/AB型射手

女生适合的爱人：O/AB/B型双子、天秤、水瓶、白羊、狮子。

男生适合的爱人：AB/B型双子、天秤、AB/B型水瓶、AB/B型白羊、AB/B型狮子。

最不的爱人：A型处女、A型双鱼

B型血的双子座–灵巧多变的双子座

B型血的双子座人爱自由，因为个性善变好动，害怕平淡，即使有了伴侣，也并不妨碍他们欣赏其他出色的异性，搞搞暧昧，是有点小花心的情人。但他们也仅限于暧昧暧昧，并不会越出一定的界限，只是作为生活的调味料而已，不用搞的很隆重。

好友：A/AB/O型的双子、天秤、A/AB/O型水瓶、A/AB/O型白羊、A/AB/O型狮子。

最容易一见钟情的人：O/A/AB型射手

女生适合的爱人：AB/O型双子、天秤、水瓶、白羊、狮子。

男生适合的爱人：O/A/AB型双子、天秤、水瓶、O/A/AB型白羊、O/A/AB型狮子。

最不的爱人：B型处女、B型双鱼

AB型血的双子座–低调平和的双子座

AB型的双子座人，因为具有强烈的冷静理性的特质，所以陷入一段恋爱关系的速度是比较慢的，他们会不动声色的观察徘徊许久，才做出是否开始的决定。不过一旦开始一段恋爱，AB型的双子座人还是非常忠诚和全心全意付出的。

好友：A/AB/B型的双子、天秤、A/AB/B型水瓶、A/AB/B型白羊、A/AB/B型狮子。

最容易一见钟情的人：O/A/B型射手。

女生适合的爱人：AB/B型双子、天秤、AB/B型水瓶、AB/B型白羊、AB/B型狮子。

男生适合的爱人：AB/A型双子、天秤、AB/A型水瓶、AB/A型白羊、AB/A型狮子。

最不的爱人：O型处女、O型双鱼

O型血的双子座–乐观外向的双子座

O型血的双子座人是主动热情的情人，在与恋人相处的时候，他们同样喜欢以及表达自己内心的想法，也总是能灵敏的感知到对方需要的是什么。他们也希望对方能够给予相应的回应，如果一腔热情得不到期待中的回报(也许只是口头上的小小表扬)，他们会非常失落。对于O双子来说，最理想的爱情，莫过于在精神上能够彼此理解和支持的爱情。

好友：A/O/B型的双子、天秤、A/O/B型水瓶、A/O/B型白羊、A/O/B型狮子。

最容易一见钟情的人：A或AB型射手。

女生适合的爱人：B型双子、O/B型天秤、O/B型水瓶、O/B型白羊、O/B型狮子。

男生适合的爱人：B型双子、A/B型天秤、A/B型水瓶、A/B型白羊、A/B型狮子。

最不的爱人：AB型处女、AB型双鱼

【巨蟹座】

A型血的巨蟹座–谨慎上进的巨蟹座

对于A型血巨蟹人来说，爱情是珍贵和洁的，他们渴望着温暖人心的长长久久的爱情。他们最不欣赏举止或言语轻浮的异性，而风头太足太优秀的异性也会令他们没有安全感。有点弱势的、貌似需要他们保护和照顾的、易于亲近和人品端正的异性，更能令他们找到放心的付出爱的动力。A型巨蟹人不喜欢用引人注目的方式来表达情感，也很害怕被拒，因此表现爱的方式通常极为含蓄、迂回。他们也常喜欢暗恋，却不一定要结果。

好友： A/B/AB/O型的巨蟹、天蝎、双鱼、金牛、处女。

最容易一见钟情的人：O/B/AB型羯

女生适合的爱人：O/AB/B型巨蟹、天蝎、双鱼、金牛、处女。

男生适合的爱人：AB/B型巨蟹、天蝎、双鱼、金牛、处女。

最不的爱人：A型天秤、A型白羊

B型血的巨蟹座–纯朴又温暖的巨蟹座

B型巨蟹人是非常感性的，也决定了他们的爱情是跟着感觉走的。只要看对眼，穷光蛋他们也爱；看不对眼的话，王子公主都不会要。刚开始一段恋爱的B型巨蟹人，会表现的非常热情、健谈。但一段时间以后他们又会表现出有点漫不经心的样子，甚至会有点忽冷忽热、若即若离的情绪化表现。这往往是他们开始希望对方也能够更热情的对待自己，当B型巨蟹人感到安全之后，就又会恢复成那个热情贴心的样子了，甚至会更加黏人哦！

好友：A/AB/O型的巨蟹、天蝎、双鱼、金牛、处女。

最容易一见钟情的人：O/A/AB型羯

女生适合的爱人：AB/O型巨蟹、天蝎、双鱼、金牛、处女。

男生适合的爱人：O/A/AB型巨蟹、天蝎、双鱼、金牛、处女。

最不的爱人：B型天秤、B型白羊

AB型血的巨蟹座–纯朴又温暖的巨蟹座

AB型的巨蟹座人是为爱而生的，对他们来说，爱情应该像或故事情节一样轰轰烈烈、浪漫美好，甚至为此放弃名或利都是无所谓的。但往往只有很少的AB型巨蟹座人能够幸运的找到那份理想中的无暇爱情。大部分的AB型巨蟹座人会在一段又一段的恋情失败之后感到受伤。不过，成熟之后的AB型巨蟹座人会开始慢慢懂得真正珍贵的感情存在于朴实和平淡之中，于是就会成为非常平和踏实的伴侣。

好友：A/AB/B型的巨蟹、A/AB/B型的天蝎、A/AB/B型双鱼、A/AB/B型金牛、A/AB/B型处女。

最容易一见钟情的人：O/A/B型羯。

女生适合的爱人：AB/B型巨蟹、AB/B型天蝎、AB/B型双鱼、AB/B型金牛、AB/B型处女。

男生适合的爱人：AB/A型巨蟹、AB/A型天蝎、AB/A型双鱼、AB/A型金牛、AB/A型处女。

最不的爱人：O型天秤、O型白羊

O型血的巨蟹座–亲切又可信赖的巨蟹座

O型血巨蟹座人的爱情是理性与浪漫的结合，他们不喜欢太疯狂的恋情，恋爱是一定要建立在走向婚姻的基础上的。因此，他们挑选恋爱的对象是谨慎又仔细的。对于恋家的O型巨蟹来说，没有比建立一个兴旺的家庭更重要的了，他们是怎么都不会成为不婚者的。一旦确定了喜欢的人，他们就会积极大方的追求，不会犹豫暧昧。婚后的O型巨蟹人，是一个充满了包容力的负责任的伴侣，如果另一半想偷懒爱依赖，他们也会喜欢被对方需要的感觉，并乐在其中！

好友：A/O/B型的巨蟹、天蝎、双鱼、金牛、处女。

最容易一见钟情的人：A或AB型羯。

女生适合的爱人：B型巨蟹、O/B型天蝎、O/B型双鱼、O/B型金牛、O/B型处女。

男生适合的爱人：B型巨蟹、A/B型天蝎、A/B型双鱼、A/B型金牛、A/B型处女。

最不的爱人：AB型天秤、AB型白羊

【狮子座】

A型血的狮子座–含蓄高雅的狮子座

A型血的狮子座人对待爱情的态度是非常认真的，不喜欢轻浮的表达感情，面对喜欢的人会甚至显的有点严肃。A型血的狮子男在遇到心仪女性的时候，会不再内向，大方直接的表达自己的爱意。而A型血的狮子女面对他人的追求，则会有一个较长时的矜持表现期，以了解和考验对方。无论是A型的狮子男还是狮子女，一旦确立了恋爱关系，都会是忠诚和负责任的伴侣。

好友： A/B/AB/O型的狮子、射手、白羊、A/B/AB/O型双子、A/B/AB/O型天秤。

最容易一见钟情的人：O/B/AB型水瓶

女生适合的爱人：O/AB/B型狮子、射手、白羊、O/AB/B型双子、O/AB/B型天秤。

男生适合的爱人：AB/B型狮子、射手、AB/B型白羊、AB/B型双子、AB/B型天秤。

最不的爱人：A型天蝎、A型金牛

B型血的狮子座：豪爽义气的狮子座

B型血的狮子座人是比较容易动情的，他们在爱情中的致命伤是遇到擅长甜言蜜语的异性，令他们感觉自己终于被、被欣赏。B型血的狮子男有点小花心，期望能拥有丰富多彩的恋爱经历，以证明自己的魅力。B型血的狮子女则需要被浓烈的如胶似漆的爱所包围，只有这样的爱情才能令她感到满足，并充满了自信、容光焕发。

好友：A/AB/O型的狮子、射手、A/AB/O型白羊、A/AB/O型双子、A/AB/O型天秤。

最容易一见钟情的人：O/A/AB型水瓶

女生适合的爱人：AB/O型狮子、射手、AB/O型白羊、AB/O型双子、AB/O型天秤。

男生适合的爱人：O/A/AB型狮子、射手、白羊、O/A/AB型双子、O/A/AB型天秤。

最不的爱人：B型天蝎、B型金牛

AB型血的狮子座：浪漫温柔的狮子座

AB型血的狮子座人在爱情中是羞涩的浪漫派人物，王子或者乞丐，都有可能去爱。他们容易因为外表的吸引而发生一见钟情的事情。AB型的狮子男一旦陷入爱河能想出许多浪漫的招数来逗女孩子开心。AB型的狮子女遇到喜欢的人来追求则会表现的羞涩、被动、不置可否，但心中也许已幻想无数遍各种未来可能的情节。AB型狮子座人是具有包容力的伴侣，并渴望着他们在爱中付出的热情可以得到同样的回报。

好友：A/AB/B型的狮子、射手、A/AB/B型白羊、A/AB/B型双子、A/AB/B型天秤。

最容易一见钟情的人：O/A/B型水瓶。

女生适合的爱人：AB/B型狮子、射手、AB/B型白羊、AB/B型双子、AB/B型天秤。

男生适合的爱人：AB/A型狮子、射手、AB/A型白羊、AB/A型双子、AB/A型天秤。

最不的爱人：O型天蝎、O型金牛

O型血的狮子座：自信明朗的狮子座

O型血狮子座人对待爱情和婚姻是比较实际和谨慎的，也有着自己独特的标准。O型血狮子座的男性喜欢小鸟依人型的对象，是会崇拜他们并需要他们保护的温柔女性。有了爱情之后的他们，会为心爱的人生活更好而努力的在事业上拼搏。O型血狮子座的女性则喜欢体面、条件出众的对象，她们深深明白良好的客观物质环境才会是培养浪漫爱情的温床。

好友：A/O/B型的狮子、射手、A/O/B型白羊、A/O/B型双子、A/O/B型天秤。

最容易一见钟情的人：A或AB型水瓶。

女生适合的爱人：B型狮子、O/B型射手、O/B型白羊、O/B型双子、O/B型天秤。

男生适合的爱人：B型狮子、A/B型射手、A/B型白羊、A/B型双子、A/B型天秤。

最不的爱人：AB型天秤、AB型白羊

【处女座】

O型血的处女座–力争上游的处女座

工作上常是能手的O型处女座人面对爱情会感到有点小笨拙。他们的恋爱经历不会太多。但时常会滋生孤独感的O型处女座人其实非常渴望爱情。对自己要求很高的O型处女座人，希望拥有可以强强联合的伴侣。O型血的处女座男生喜欢独立自主、会在背后支持他们的女生，不会因谈恋爱而给他们的生活或工作增加负担。O型血的处女座女生欣赏出色和强势的男生，也希望可以提升彼此的恋爱关系。

好友：A/O/B型的处女、A/O/B型的羯、A/O/B型金牛、A/O/B型巨蟹、A/O/B型天蝎。

最容易一见钟情的人：A或AB型双鱼。

女生适合的爱人：B型处女、O/B型羯、O/B型金牛、O/B型巨蟹、O/B型天蝎。

男生适合的爱人：B型处女、A/B型羯、A/B型金牛、A/B型巨蟹、A/B型天蝎。

最不的爱人：AB型射手、AB型双子

A型血的处女座–纯静低调的处女座

看似害羞腼腆的A型血处女座男生，在爱情中却往往出人意料的直接。一旦遇到自己喜欢的人，他们就会发扬钻研精神，多方面了解对方，然后迅速研究、制造一些貌似自然的机会，让自己和她接近。也因为其外表的腼腆老实，常令女生有所好感，他们的深情表白也往往成功。

而A型血的处女座女生，在感情方面则非常害羞、被动，属于比较矜持的一类女生。她们即使面对心仪的男生表白，也常常不知该怎么回应。好在这也正是A型处女座女生的独特魅力所在，越矜持越不乏热情的追求者。

好友： A/B/AB/O型的处女、羯、金牛、A/B/AB/O型巨蟹、A/B/AB/O型天蝎。

最容易一见钟情的人：O/B/AB型双鱼

女生适合的爱人：O/AB/B型处女、羯、金牛、O/AB/B型巨蟹、O/AB/B型天蝎。

男生适合的爱人：AB/B型处女、羯、金牛、巨蟹、AB/B型天蝎。

最不的爱人：A型射手、A型双子

B型血的处女座—简单厚道的处女座

感情丰富的B型血处女座人面对爱情的到来，会显的比较害羞。因为细腻有点胆小，他们会容易犹豫。B型血的处女座男生喜欢一个女生时候，会找机会在对方周围转来转去，和她唱唱反调，引起对方的注意，却又迟迟不敢表白。B型血的处女座女生表达爱情的方式是被动型的，但若有喜欢的人示爱，并不会表现的过于矜持，而会明确的表明心意。无论是B型血的处女座男生还是女生，都希望拥有简单和专一的爱情。

好友：A/AB/O型的处女、羯、A/AB/O型金牛、A/AB/O型巨蟹、A/AB/O型天蝎。

最容易一见钟情的人：O/A/AB型双鱼

女生适合的爱人：AB/O型处女、羯、AB/O型金牛、AB/O型巨蟹、AB/O型天蝎。

男生适合的爱人：O/A/AB型处女、羯、金牛、O/A/AB型巨蟹、O/A/AB型天蝎。

最不的爱人：B型射手、B型双子

AB型血的处女座–冷静敏锐的处女座

AB型处女座人对于风度优雅、仪表出众的异性容易心生好感。但无论是AB型的处女座男生还是女生，决定去爱对方之前，先会观察评估很久，看对方是否表里如一。他们在爱情中足够挑剔，所以，恋人必须拥有出众的内在美和纯净的灵，以经得起他们近距离的审视。虽然AB型处女座人一开始会在爱中有所保留，但他们一旦得到了安全感，就会给予对方以坦诚、体贴、细腻又毫无保留的爱。

好友：A/AB/B型的处女、羯、A/AB/B型金牛、A/AB/B型巨蟹、A/AB/B型天蝎。

最容易一见钟情的人：O/A/B型双鱼。

女生适合的爱人：AB/B型处女、羯、AB/B型金牛、AB/B型巨蟹、AB/B型天蝎。

男生适合的爱人：AB/A型处女、羯、AB/A型金牛、AB/A型巨蟹、AB/A型天蝎。

最不的爱人：O型射手、O型双子

【天秤座】

A型血的天秤座

A型天秤座颇能吸引异性的注意，所以恋爱运气不错，即使不去主动追求，喜欢你的人仍会找机会接近，到了二十岁左右，无论男女，身旁都会有一群异性围绕着你。对于异性，你有充分的自信，但是你不会把此自信表现出来，只是快乐而优雅地享受着恋爱，接受异性对你的倾慕。你对你的情人表现得也不够积极，甚至显得有些冷淡，但却让对方迷恋不已，A型的力，天秤座的优越感所致。尽管如此，只要一进入情况，你仍会流你的感情，并明了如何让情人满足，快快乐乐地谈恋爱。

好友：A/B/AB/O型的天秤、A/B/AB/O型的水瓶、A/B/AB/O型双子、A/B/AB/O型狮子、A/B/AB/O型射手。

最容易一见钟情的人：O/B/AB型白羊

女生适合的爱人：O/AB/B型天秤、水瓶、双子、O/AB/B型狮子、O/AB/B型射手。

男生适合的爱人：AB/B型天秤、水瓶、AB/B型双子、AB/B型狮子、AB/B型射手。

最不的爱人：A型羯、A型巨蟹

B型血的天秤座

不会盲目地陷入爱的漩涡，而B型天秤的恋爱观便是谈恋爱只是人生的点缀，应使它快快乐乐，可说是游戏人间的类型。你的爱情观很，会同时跟两位以上的异往，自己的恋人如果跟其他的异性朋友交往，也不会在意，不过，圆滑的你会小心处理这类的事，不会让任何一方受到伤害。决定分手时，并会采取潇洒毫不留恋的的态度和对方说再见，总觉得自己在任何时候都必须表现出一流的风采及胸襟。

好友：A/AB/O型的天秤、A/AB/O型的水瓶、A/AB/O型双子、A/AB/O型狮子、A/AB/O型射手。

最容易一见钟情的人：O/A/AB型白羊

女生适合的爱人：AB/O型天秤、水瓶、AB/O型双子、AB/O型狮子、AB/O型射手。

男生适合的爱人：O/A/AB型天秤、水瓶、双子、O/A/AB型狮子、O/A/AB型射手。

最不的爱人：B型羯、B型巨蟹

AB型血的天秤座

AB型天秤座的感情世界是以、优雅为原则，在AB型天秤的世界里只有美丽的恋情，没有所谓的苦命鸳鸯。你一向以追求浪漫、美丽的爱情而感到快乐及满足。他是重视华丽炫耀目的，外表甚于一切的人。AB型天秤会不断追求新的恋情，毕竟美丽是短暂的，也可能只是假象。一旦深入了解后发现了对方内在的缺点，便一刻也不能忍受，决意离去。

好友：A/AB/B型的天秤、水瓶、A/AB/B型双子、A/AB/B型狮子、A/AB/B型射手。

最容易一见钟情的人：O/A/B型白羊。

女生适合的爱人：AB/B型天秤、水瓶、AB/B型双子、AB/B型狮子、AB/B型射手。

男生适合的爱人：AB/A型天秤、水瓶、AB/A型双子、AB/A型狮子、AB/A型射手。

最不的爱人：O型羯、O型巨蟹

O型血的天秤座

O型天秤的爱情是”等待燃烧的爱情”，总是安静地等待把感情的火苗点燃。O型天秤座无论男女，对自己都有十足的信心。恋爱起来仿***中世纪那些上流的贵，充满了浪漫且华丽的色彩。即使以第三者的身份介入恋爱中，也会把恋情点缀得令人响往。在做内心感情的表达时，也可分为两种类型，当O型是非分明的气质较强时，就会单刀直入地进攻，若是犹豫不决，缺乏果断的天秤座气质较强，就会表现出若即若离的态度，使对方焦躁起来。

好友：A/O/B型的天秤、A/O/B型的水瓶、A/O/B型双子、A/O/B型狮子、A/O/B型射手。

最容易一见钟情的人：A或AB型白羊。

女生适合的爱人：O/B型天秤、O/B型水瓶、O/B型双子、O/B型狮子、O/B型射手。

男生适合的爱人：A/B型天秤、A/B型水瓶、A/B型双子、A/B型狮子、A/B型射手。

最不的爱人：AB型羯、AB型巨蟹

【天蝎座】

A型天蝎座

爱上一个人的话，因为害羞腼腆而不容易表白，但是会默默的用行动让对方感知到，如果单恋最后没有成功，会一生都惦念着这个人。 A型天蝎最有魅力的地方是除了天蝎的性感加A型人淡淡的忧郁，从他们深邃的眼神里流来，常让异性会有触电的感觉。A型天蝎女气质高雅，虽不喜欢交际，却总有若心塌地的追求者围绕身旁，A型天蝎男话语不多，带点酷酷的气质，但因其丰富深刻的内涵，常许多女性的青睐。

好友：A/B/AB/O型的天蝎、双鱼、巨蟹、A/B/AB/O型处女、A/B/AB/O型羯。

最容易一见钟情的人：O/B/AB型金牛

女生适合的爱人：O/AB/B型天蝎、双鱼、巨蟹、O/AB/B型处女、O/AB/B型羯。

男生适合的爱人：AB/B型天蝎、双鱼、AB/B型巨蟹、AB/B型处女、AB/B型羯。

最不的爱人：A型水瓶、A型狮子

云淡风轻的B型天蝎

B型天蝎一旦喜欢上一个人，追求的热度是很高的，而且百折不挠，因其乐观豁达的天性，不会因为暂时的失败而气馁，所以，被B型天蝎看上的人一般很难逃脱他们的温情之。B型天蝎女富于女性的阴柔之美却个性独立，不喜欢依赖男性，往往是让追其的男生不知道何从下手的一群。B型天蝎男个性温和，很讨女孩子喜欢。

好友：A/AB/O型的天蝎、双鱼、A/AB/O型巨蟹、A/AB/O型处女、A/AB/O型羯。

最容易一见钟情的人：O/A/AB型金牛

女生适合的爱人：AB/O型天蝎、双鱼、AB/O型巨蟹、AB/O型处女、AB/O型摩羯。

男生适合的爱人：O/A/AB型天蝎、双鱼、巨蟹、O/A/AB型处女、O/A/AB型羯。

最不的爱人：B型水瓶、B型狮子

AB型血天蝎座

AB型天蝎女往往非常具有女性魅力，容貌娇美，矛盾又善变，外表浪漫内心冷静，不会轻易的投入到一段感情，是让喜欢的男性非常捉摸不定的一型。AB型天蝎男对爱情是有着完美倾向的，非常理想化，注重心灵的沟通，对外貌则不一定有很高的标准。

好友：A/AB/B型的天蝎、双鱼、A/AB/B型巨蟹、A/AB/B型处女、A/AB/B型羯。

最容易一见钟情的人：O/A/B型金牛。

女生适合的爱人：AB/B型天蝎、双鱼、AB/B型巨蟹、AB/B型处女、AB/B型羯。

男生适合的爱人：AB/A型天蝎、双鱼、AB/A型巨蟹、AB/A型处女、AB/A型羯。

最不的爱人：O型水瓶、O型狮子

O型血的天蝎座

O型血天蝎情感的流露是最强烈的，一旦喜欢上一个人，就会积极的表白，毫无保留的对对方好；即使对方并不一定接受他们的好意，他们仍会乐此不疲。对于不喜欢的人或事会毫不顾忌的流露在脸上。O型的天蝎女往往是非常性感的，活泼明朗的气质加上天蝎的性感，使她们像个磁场，拥有极多的桃花。O型天蝎男的魅力也是惊人的，因起热情明朗的特质，能够把天蝎与生俱来的性感更大限度的散发出来。

好友：A/O/B型的天蝎、A/O/B型的双鱼、A/O/B型巨蟹、A/O/B型处女、A/O/B型羯。

最容易一见钟情的人：A或AB型金牛。

女生适合的爱人：B型天蝎、O/B型双鱼、O/B型巨蟹、O/B型处女、O/B型羯。

男生适合的爱人：B型天蝎、A/B型双鱼、A/B型巨蟹、A/B型处女、A/B型羯。

最不的爱人：AB型水瓶、AB型狮子

【射手座】

A型血的射手座：

无论何时，A型射手的内心总是乐观和坚定的。你喜欢有智慧的人，一旦碰到喜欢的人，你会用自己最真诚的心去与他(她)相爱，并用内心的乐观和坚强去感染他(她)，专一又忠诚。

好友： A/B/AB/O型的射手、白羊、狮子、A/B/AB/O型天秤、水瓶。

最容易一见钟情的人：O/B/AB型双子

女生适合的爱人：O/AB/B型射手、白羊、狮子、O/AB/B型天秤、O/AB/B型水瓶。

男生适合的爱人：AB/B型射手、白羊、AB/B型狮子、AB/B型天秤、AB/B型水瓶。

最不的爱人：A型双鱼、A型处女

B型血的射手座：

有天赋交际能力的象个开心果一样的B型射手非常容易讨人喜欢，也容易招来很多的桃花。可是喜欢的B型射手总不愿意被束缚在一段感情之中，往往在一段段的感情中穿梭而乐此不疲。

好友：A/AB/O型的射手、A/AB/O型的白羊、A/AB/O型狮子、A/AB/O型天秤、A/AB/O型水瓶。

最容易一见钟情的人：O/A/AB型双子

女生适合的爱人：AB/O型射手、白羊、AB/O型狮子、AB/O型天秤、AB/O型水瓶。

男生适合的爱人：O/A/AB型射手、白羊、O/A/AB型狮子、O/A/AB型天秤、水瓶。

最不的爱人：B型双鱼、B型处女

AB型血的射手座

无论是多大年龄的AB型射手，都总保留了纯真的孩子气的一面，也是你们吸引异性的魅力所在。如果说O型射手座人是思想浪漫、行为理智；那么AB型射手座人则是思想理智、行为浪漫。在恋爱的过程中，你的行为会表现的很，但头脑中始终会着一份冷静和理智。

好友：A/AB/B射手、A/AB/B白羊、A/AB/B型狮子、A/AB/B型天秤、A/AB/B水瓶。

最容易一见钟情的人：O/A/B型双子。

女生适合的爱人：AB/B型射手、白羊、AB/B型狮子、AB/B型天秤、AB/B型水瓶。

男生适合的爱人：AB/A型射手、AB/A型白羊、AB/A型狮子、AB/A型天秤、AB/A水瓶。

最不的爱人：O型双鱼、O型处女

O型血的射手座

爱上一个人的O型射手朋友是直接和坦率的，不会遮遮掩掩自己的感情。也因为他们这种可爱的自信，在爱情上的成功概率总是很高！即便遭到拒绝，乐观的他们也会表现的很洒脱，决不会纠缠不休。恋爱的时候，O型射手是不喜欢整天粘在一起的，爱一份自由的空间，但是对爱人的心是全心全意的。

好友：A/O/B型的射手、A/O/B型的白羊、A/O/B型狮子、A/O/B型天秤、A/O/B型水瓶。

最容易一见钟情的人：A或AB型双子。

女生适合的爱人：B型射手、O/B型白羊、O/B型狮子、O/B型天秤、O/B型水瓶。

男生适合的爱人：B型射手、A/B型白羊、A/B型狮子、A/B型天秤、A/B型水瓶。

最不的爱人：AB型双鱼、AB型处女

【摩羯座】

A型血的羯座：

A羯人往往不会有很多桃花或逸事，他们在爱情方面是保守、腼腆的、不轻易投入的，但一旦投入，是专一又忠贞的爱人，也许他(她)自己不喜享受，但会倾其所有给你更好的生活。

好友：羯、金牛、处女、天蝎、双鱼。（A/B/AB/O型）

最容易一见钟情的人：O/B/AB型巨蟹

女生适合的爱人：（O/AB/B）型羯、金牛、处女、天蝎、双鱼。

男生适合的爱人：（AB/B）型羯、金牛、处女、天蝎、双鱼。

最不的爱人：A型白羊、A型天秤

B型血的羯座:

B型血羯人在感情方面是比较晚熟和简单的，也会比较被动，他们不会很挑剔，也容易因为被爱而感动，如果可以遇到一个真诚相待的爱人，B羯会很心满意足的安于平淡的家常生活，而不是喜新厌旧。

好友：A/AB/O型的羯、金牛、处女、天蝎、双鱼。

最容易一见钟情的人：O/A/AB型巨蟹

女生适合的爱人：AB/O型羯、金牛、处女、天蝎、双鱼。

男生适合的爱人：O/A/AB型羯、金牛、处女、天蝎、双鱼。

最不的爱人：B型白羊、B型天秤

AB型血的羯座：

AB型羯人对待爱情的态度是羯人里唯一一个可能有着浪漫幻想的族群，在没有恋爱之前，他们的脑海里已经预演和构想过很多遍恋爱的场景，虽然最后往往还是会晚恋。找到相爱的人后，AB型羯会是很忠贞和纯洁的爱人，愿意热情的为对方付出，不会计较在爱中的得失。

好友：（A/AB/B）型的羯、金牛、处女、天蝎、双鱼。

最容易一见钟情的人：O/A/B型巨蟹。

女生适合的爱人：（AB/B）型羯、金牛、处女、天蝎、双鱼。

男生适合的爱人：（AB/A）型羯、金牛、处女、天蝎、双鱼。

最不的爱人：O型白羊、O型天秤

O型血的羯座：

O型羯人的桃花会比其他的羯人多一些，但往往只是表面上的热闹，很多O型羯人看似有着众多异性朋友，但真正要他们迈出恋爱的那一步，还是会考虑再三、冷静又理性的。对于O型羯人来说，爱情也是可以很实际的，而且，无论爱情有多美好多吸引人，都不能与工作的重要性相提并论。一个事业成功的O型血羯人，谈起恋爱来才会是和迷人的，而一个事业处于低谷的O型血羯人，根本不会有兴趣谈什么恋爱或者会是个非常糟糕的爱人。

好友：A/O/B型的羯、金牛、处女、天蝎、双鱼。

最容易一见钟情的人：A或AB型巨蟹。

女生适合的爱人：B型羯、O/B型金牛、O/B型处女、O/B型天蝎、O/B型双鱼。

男生适合的爱人：B型羯、A/B型金牛、A/B型处女、A/B型天蝎、A/B型双鱼。

最不的爱人：AB型白羊、AB型天秤

【水瓶座】

A型血的水瓶座：

是追寻永恒爱情的专一者，将男女关看得既神又是纯洁，对于爱情，是天生的冷静派，由于慧眼独具，能潜爱情之中的利己及独占欲，所以你绝不轻言爱情。渴望尊重个人行为的爱情,一旦找到发自内心相爱的对象，会付以人间最深厚的感情及体贴去关怀所爱的人，成为一个包容对方的理想伴侣。希望自由自在地彼此相爱双方一起成长，但并非彼此束缚。

好友： A/B/AB/O型的水瓶、双子、天秤、射手、白羊。

最容易一见钟情的人：O/B/AB型狮子

女生适合的爱人：O/AB/B型水瓶、双子、天秤、射手、白羊。

男生适合的爱人：AB/B型水瓶、双子、天秤、射手、白羊。

最不的爱人：A型金牛、A型天蝎

B型血的水瓶座：最热闹活泼的水瓶座

活泼的B型血水瓶座人对于爱情，却有着保守的一面，他们喜欢的，是聪明但个性稳定牢靠的异性。B型血型的水瓶座拥有淡如水的爱情，不会有疯狂的热恋期，也不会出现决裂式的大争吵，对感情却恰巧相反，态度十分淡然。由于并不想占有一个特定的对象，所以，与其说由直接追求的方式找到伴侣，倒不如说是由细水长流的友谊，逐渐演变成爱情。

好友：A/AB/O型的水瓶、双子、天秤、射手、白羊。

最容易一见钟情的人：O/A/AB型狮子

女生适合的爱人：AB/O型水瓶、双子、天秤、射手、白羊。

男生适合的爱人：O/A/AB型水瓶、双子、天秤、射手、白羊。

最不的爱人：B型金牛、B型天蝎

AB型血的水瓶座：最冷静理性的水瓶座

一般AB型水瓶座人发展一段感情的速度绝不会是“闪电式”的，而是基于互相了解、深入接触以后，他们才会放心的去爱。如果在他们身上发生“闪电式”的恋爱，那么多半只是游戏的态度了。

好友：A/AB/B型的水瓶、双子、天秤、射手、白羊。

最容易一见钟情的人：O/A/B型狮子。

女生适合的爱人：AB/B型水瓶、双子、天秤、射手、白羊。

男生适合的爱人：AB/A型水瓶、双子、天秤、射手、白羊。

最不的爱人：O型金牛、O型天蝎

O型血的水瓶座：最圆滑实际的水瓶座

O型血水瓶座人的外表看似与B型水瓶人一样活泼热闹，但内心却冷静理智，也更自我，一切从实际的角度出发做考量。对于爱情，他们不会因为喜欢对方而冲昏了头脑，而是从各个方面认真的考虑清楚以后，才决定如何发展。

好友：A/O/B型的水瓶、双子、天秤、射手、白羊。

最容易一见钟情的人：A或AB型狮子。

女生适合的爱人：B型水瓶、O/B型双子、O/B型天秤、O/B型射手、O/B型白羊。

男生适合的爱人：B型水瓶、A/B型双子、A/B型天秤、A/B型射手、A/B型白羊。

最不的爱人：AB型金牛、AB型天蝎

【双鱼座】

A型血的双鱼座–外柔内刚的双鱼座

A型血的双鱼座人男女在爱情方面差异有点大， A型双鱼女一旦遇到喜欢的人，是大胆和热情的，而A型双鱼男则比较被动和害羞。A型血的双鱼座人对待爱情的态度相对其他双鱼座人来的现实许多，也冷静许多，发展一段恋情是以婚姻为前提的。他们可能暗地里喜欢一个人很久，却又因为觉得某方面不合适而理性的拒绝去发展这段感情。即使他们寂寞，即使一个人冷清，也要等待那个足够完美或者合适走入婚姻的人出现。

好友： A/B/AB/O型的双鱼、巨蟹、天蝎、羯、金牛。

最容易一见钟情的人：O/B/AB型处女

女生适合的爱人：O/AB/B型双鱼、巨蟹、天蝎、羯、金牛。

男生适合的爱人：AB/B型双鱼、巨蟹、天蝎、羯、金牛。

最不的爱人：A型双子、A型射手

B型血的双鱼座–随遇而安的双鱼座

B型血的双鱼座男生是温柔多情的，总是轻易就可以电到很多女生，却又总决定不了自己明确的感情走向。但B型血的双鱼座女生并不喜欢把双鱼的浪漫多情体现在外表上，有点害羞的她们把浪漫都隐***在心底，静静的等待那个会发现她内心的人出现。

好友：A/AB/O型的双鱼、巨蟹、天蝎、羯、金牛。

最容易一见钟情的人：O/A/AB型处女

女生适合的爱人：AB/O型双鱼、巨蟹、天蝎、羯、金牛。

男生适合的爱人：O/A/AB型双鱼、巨蟹、天蝎、羯、金牛。

最不的爱人：B型双子、B型射手

AB型血的双鱼座–浪漫多变的双鱼座

AB型血的双鱼座是个至情者，爱情至上，只愿奉献自己的高贵情操，只希望一心一意地爱人及被爱，不愿任何杂质或欲望掺入感情。爱情是AB型血的双鱼座生命中的转折点，为了爱，自己往往会发生盲目牺牲的错误，爱慕对方而不敢说出口，不接受别人却无法拒绝。对AB型血的双鱼座来说，玩弄感情或对爱情不忠，是不可饶恕的错误。一旦坠入爱河，你会整个人投入其中，用温文尔雅的方式表达自己浓烈的感情。

好友：A/AB/B型的双鱼、巨蟹、天蝎、羯、金牛。

最容易一见钟情的人：O/A/B型处女。

女生适合的爱人：AB/B型双鱼、巨蟹、天蝎、羯、金牛。

男生适合的爱人：AB/A型双鱼、巨蟹、天蝎、羯、金牛。

最不的爱人：O型双子、O型射手

O型血的双鱼座–温和安定的双鱼座

他们是易于感动的，一旦陷入爱情的O型双鱼座人是真诚的。对于爱情，他们是典型的双鱼，希望拥有深深的纯纯的爱，没有任何的物质或世俗因素掺杂在里面。有时候对他们来说，爱情可以只是新鲜的空气而已，而不用面包。

好友：A/O/B型的双鱼、巨蟹、天蝎、羯、金牛。

最容易一见钟情的人：A或AB型处女。

女生适合的爱人：B型双鱼、O/B型巨蟹、O/B型天蝎、O/B型羯、O/B型金牛。

男生适合的爱人：B型双鱼、A/B型巨蟹、A/B型天蝎、A/B型羯、A/B型金牛。

最不的爱人：AB型双子、AB型射手

下载万年历带农历，经典万年历老黄历

万年历带农历

各位好，在前面有一期作品中，我们曾经在Excel中实现了万年历的，当时也有很多友看过我的那期或，附带有评价和收***，在此向你们表示感谢。

另外，有个名叫“斑斓虎zcy”的粉丝评论说我做的万年历如果含有农历就完美了，对这位粉丝的提议我欣然接受，另外，虽然我没采用“斑斓虎zcy”粉丝提供的公历转农历的关键技术模版，但对“斑斓虎zcy”粉丝的热心表示深深的谢意！

本期，我们先来用之一种实现吧。

一、Excel前端带农历万年历界面设计

界面的设计，这里和上次那一期万年历的界面一样，这里不做过多描述，这里就只以截图直接呈现给各位吧。如下图所示

图1 带农历的万年历界面

二、用一实现带农历万年历的功能代码

模块1中代码如下：

‘强势自定义“公历”—-“农历”互转函数

‘ ：互联

‘修正：今日号 “跟我学Office高级办公应用” 2023 /10/12

‘—农历数据定义—

‘先以 Hexadecimal_To_Binary 函数还原成长度为 18 的字串，其定义如下：

‘前12个字节代表1-12月：1为大月，0为小月；压缩成十六进制(1-3位)

‘第13位为闰月的情况，1为大月30天，0为小月29天；(4位)

‘第14位为闰月的月份，如果不是闰月为0，否则给出月份(5位)

‘最后4位为当年农历新年的公历日期，如0131代表1月31日；当作数值转十六进制(6-7位)

‘定义如下农历(阴历)日期常量(1899～2100，共202年，但是事实上我们只需要用到1900～2100这201年即可）

Private Const ylData = “AB500D2,4BD0883,” _

“4AE00DB,A5700D0,54D0581,D2600D8,D9500CC,655147D,56A00D5,9AD00CA,55D027A,4AE00D2,” _

“A5B0682,A4D00DA,D2500CE,D25157E,B5500D6,56A00CC,ADA027B,95B00D3,49717C9,49B00DC,” _

“D4A00D9,EA500CE,6A9157E,5AD00D6,2B600CC,86E137C,92E00D3,C8D1783,C9500DB,D4A00D0,” _

“D8A167F,B5500D7,56A00CD,A5B147D,25D00D5,92D00CA,D2B027A,A9500D2,B550781,6CA00D9,” _

“B5500CE,535157F,4DA00D6,A5B00CB,457037C,52B00D4,A9A0883,E9500DA,6AA00D0,AEA0680,” _

“AB500D7,4B600CD,AAE047D,A5700D5,52600CA,F260379,D9500D1,5B50782,56A00D9,96D00CE,” _

“49700D7,64B00CC,74A037B,EA500D2,6B50883,5AC00DB,AB600CF,96D0580,92E00D8,C9600CD,” _

“D95047C,D4A00D4,DA500C9,755027A,56A00D1,ABB0781,25D00DA,92D00CF,CAB057E,A9500D6,” _

“B4A00CB,BAA047B,B5500D2,55D0983,4BA00DB,A5B00D0,5171680,52B00D8,A9300CD,795047D,” _

“6AA00D4,AD500C9,5B5027A,4B600D2,96E0681,A4E00D9,D2600CE,EA6057E,D5300D5,5AA00CB,” _

“76A037B,96D00D3,4AB0B83,4AD00DB,A4D00D0,D0B1680,D2500D7,D5200CC,DD4057C,B5A00D4,” _

“56D00C9,55B027A,49B00D2,A570782,A4B00D9,AA500CE,B25157E,6D200D6,ADA00CA,4B6137B,” _

“93700D3,49F08C9,49700DB,64B00D0,68A1680,EA500D7,6AA00CC,A6C147C,AAE00D4,92E00CA,” _

“A9B0883,A9500DB,B4A00CF,B6A067F,AD500D7,55A00CD,ABA047C,A5A00D4,52B00CA,B27037A,” _

“69300D1,7330781,6AA00D9,AD500CE,4B5157E,4B600D6,A5700CB,54E047C,D1600D2,E960882,” _

“D5200DA,DAA00CF,6AA167F,56D00D7,4AE00CD,A9D047D,A2D00D4,D1500C9,F250279,D5200D1”

‘定义农历 (阴历)每月的汉字大写日期“天”

Private Const ylMd0 = “初一初二初三初四初五初六初七初八初九初十十一十二十三十四十五” _

“十六十七十八十九二十廿一廿二廿三廿四廿五廿六廿七廿八廿九三十 “

‘定义农历 (阴历)一年中的汉字大写日期“月”

Private Const ylMn0 = “正二三四五六七十冬腊”

‘定义农历 (阴历)年中的“天干”(如：甲乙丙丁……等)

Private Const ylTianGan0 = “甲乙丙丁戊已庚辛壬癸”

‘定义农历 (阴历)年中的“地支”(如：子丑寅卯辰……等)

Private Const ylDiZhi0 = “子丑寅卯辰巳午未申酉戌亥”

‘定义农历 (阴历)年中的“属相”(如：鼠牛虎兔龙……等)

Private Const ylShu0 = “鼠牛虎兔龙蛇马羊猴鸡狗猪”

Public shp_year_select As Shape, y ‘定义公有全局变量年份选择组合框shp_year_select和用于存储选择的年份变量y，以便所有的过程都可以调用和回传数据

Sub Run_Fill_Calender() ‘运行填充日历

[b4].Select

n = shp_year_select.ControlFormat.Value

y = shp_year_select.ControlFormat.List(n)

[O1] = y ” 年历” “[” Mid(GetYLDate(y “-6-1”), 4, 6) “]”

Fill_Calender_Datas ‘调用“填充日历数据”过程

[a65535] = y ‘将选择过的年份存储在单元格”A65535″中

End Sub

Sub Fill_Calender_Datas() ‘填充日历数据

Dim rg(1 To 12) As Range ‘定义12个元素的的范围区域对象数组

‘为区域对象数组的每个区域对象元素对象指派这12个区域对象具体的实体

Set rg(1) = [b5:h10]: Set rg(2) = [j5:p10]: Set rg(3) = [r5:x10]: Set rg(4) = [z5:af10]

Set rg(5) = [b15:h20]: Set rg(6) = [j15:p20]: Set rg(7) = [r15:x20]: Set rg(8) = [z15:af20]

Set rg(9) = [b25:h30]: Set rg(10) = [j25:p30]: Set rg(11) = [r25:x30]: Set rg(12) = [z25:af30]

For i = 1 To 12

Select Case i

Case 1, 3, 5, 7, 8, 10, 12: days_31 y, i, rg(i)

Case 4, 6, 9, 11: days_30 y, i, rg(i)

Case 2: days_29_Or_28 y, i, rg(i)

End Select

End Sub

Sub Erse_Calender_Datas() ‘清空日历数据

Dim rg As Range

Set rg = [5:10,15:20,25:30]

[b4].Select

rg.ClearContents

[O1] = “—- 年历[—–年]”

yr = Year(Date)

‘以下是当今日期的年份在表单组合框中显示

For i = 1 To shp_year_select.ControlFormat.ListCount

If yr = Val(shp_year_select.ControlFormat.List(i)) Then

n = i

Exit For

End If

shp_year_select.ControlFormat.ListIndex = n

End Sub

Sub days_31(y, m, r As Range) ‘月大–31天

Dim da As Date, d

r.ClearContents

week_str = “日一二三四五六”

d = 1

da = CDate(y “-” m “-” d) ‘将字串动态转换为真正的日期

ws = Mid(Format(da, “[$-804]aaaa”), 3) ‘从转换为星期XX的字串中提取大写星期几的汉字保存在ws中

First_Day_Pos_In_Week_Area = InStr(week_str, ws) ‘每月初始的1号在日历星期区域的位置

For d = 1 To 31

da = CDate(y “-” m “-” d) ‘将字串动态转换为真正的日期

ws = Mid(Format(da, “[$-804]aaaa”), 3) ‘从转换为星期XX的字串中提取大写星期几的汉字保存在ws中

Other_Day_Pos_In_Week_Area = InStr(week_str, ws)

‘实际的每月的号数应该加上每月初始的1号在日历星期区域的位置减去1“”d + (First_Day_Pos_In_Week_Area – 1)，为了在第7个位置仍然将该号 _

数放在该行，所以还得再减去1“d + (First_Day_Pos_In_Week_Area – 1) – 1”，然后再除7取整，同时乘以7后加上该号数在日历中星期区域的实际列数 _

位置，即可得到该号数在日历区域的设计位置

p = Int((d + (First_Day_Pos_In_Week_Area – 1) – 1) / 7) * 7 + Other_Day_Pos_In_Week_Area

yl_md = Right(GetYLDate(da), 4) ‘调用转农历(阴历)函数，取后四个汉字月日日期字

yl_m = Left(yl_md, 2) ‘拆解阴历月日中的月份

yl_d = Right(yl_md, 2) ‘拆解阴历月日中的日子

If yl_d = “初一” Then yl_d = yl_m ‘若拆解的日子是“初一”，则即刻用该月的月份替代该阴历月份的首个日子

r(p) = d Chr(10) yl_d ‘将公历日期和对应的农历日期合在一起填入到p处正确位置

If da = Date Then r(p).Select ‘若选择年份后不断瞬时生成的日期da和现在的日期匹配，则将当前填充的日期单元格选择成活动状态

End Sub

Sub days_30(y, m, r As Range) ‘月小–30天

Dim da As Date, d

r.ClearContents

week_str = “日一二三四五六”

d = 1

da = CDate(y “-” m “-” d) ‘将字串动态转换为真正的日期

ws = Mid(Format(da, “[$-804]aaaa”), 3) ‘从转换为星期XX的字串中提取大写星期几的汉字保存在ws中

First_Day_Pos_In_Week_Area = InStr(week_str, ws) ‘每月初始的1号在日历星期区域的位置

For d = 1 To 30

da = CDate(y “-” m “-” d) ‘将字串动态转换为真正的日期

ws = Mid(Format(da, “[$-804]aaaa”), 3) ‘从转换为星期XX的字串中提取大写星期几的汉字保存在ws中

Other_Day_Pos_In_Week_Area = InStr(week_str, ws)

‘实际的每月的号数应该加上每月初始的1号在日历星期区域的位置减去1“”d + (First_Day_Pos_In_Week_Area – 1)，为了在第7个位置仍然将该号 _

数放在该行，所以还得再减去1“d + (First_Day_Pos_In_Week_Area – 1) – 1”，然后再除7取整，同时乘以7后加上该号数在日历中星期区域的实际列数 _

位置，即可得到该号数在日历区域的设计位置

p = Int((d + (First_Day_Pos_In_Week_Area – 1) – 1) / 7) * 7 + Other_Day_Pos_In_Week_Area

yl_md = Right(GetYLDate(da), 4) ‘调用转农历(阴历)函数，取后四个汉字月日日期字

yl_m = Left(yl_md, 2) ‘拆解阴历月日中的月份

yl_d = Right(yl_md, 2) ‘拆解阴历月日中的日子

If yl_d = “初一” Then yl_d = yl_m ‘若拆解的日子是“初一”，则即刻用该月的月份替代该阴历月份的首个日子

r(p) = d Chr(10) yl_d ‘将公历日期和对应的农历日期合在一起填入到p处正确位置

If da = Date Then r(p).Select ‘若选择年份后不断瞬时生成的日期da和现在的日期匹配，则将当前填充的日期单元格选择成活动状态

End Sub

Sub days_29_Or_28(y, m, r As Range) ‘闰年2月份29天，平年2月份28天(例如2023 年就是闰年)

Dim da As Date, d

r.ClearContents

week_str = “日一二三四五六”

d = 1

da = CDate(y “-” m “-” d) ‘将字串动态转换为真正的日期

ws = Mid(Format(da, “[$-804]aaaa”), 3) ‘从转换为星期XX的字串中提取大写星期几的汉字保存在ws中

First_Day_Pos_In_Week_Area = InStr(week_str, ws) ‘每月初始的1号在日历星期区域的位置

If Is_LeepYear(y) Then ‘闰年2月份天数

For d = 1 To 29

da = CDate(y “-” m “-” d) ‘将字串动态转换为真正的日期

ws = Mid(Format(da, “[$-804]aaaa”), 3) ‘从转换为星期XX的字串中提取大写星期几的汉字保存在ws中

Other_Day_Pos_In_Week_Area = InStr(week_str, ws)

‘实际的每月的号数应该加上每月初始的1号在日历星期区域的位置减去1“”d + (First_Day_Pos_In_Week_Area – 1)，为了在第7个位置仍然将该 _

号数放在该行，所以还得再减去1“d + (First_Day_Pos_In_Week_Area – 1) – 1”，然后再除7取整，同时乘以7后加上该号数在日历中星期区域的实 _

际列数位置，即可得到该号数在日历区域的设计位置

p = Int((d + (First_Day_Pos_In_Week_Area – 1) – 1) / 7) * 7 + Other_Day_Pos_In_Week_Area

yl_md = Right(GetYLDate(da), 4) ‘调用转农历(阴历)函数，取后四个汉字月日日期字

yl_m = Left(yl_md, 2) ‘拆解阴历月日中的月份

yl_d = Right(yl_md, 2) ‘拆解阴历月日中的日子

If yl_d = “初一” Then yl_d = yl_m ‘若拆解的日子是“初一”，则即刻用该月的月份替代该阴历月份的首个日子

r(p) = d Chr(10) yl_d ‘将公历日期和对应的农历日期合在一起填入到p处正确位置

If da = Date Then r(p).Select ‘若选择年份后不断瞬时生成的日期da和现在的日期匹配，则将当前填充的日期单元格选择成活动状态

Else ‘平年2月份天数

For d = 1 To 28

da = CDate(y “-” m “-” d) ‘将字串动态转换为真正的日期

ws = Mid(Format(da, “[$-804]aaaa”), 3) ‘从转换为星期XX的字串中提取大写星期几的汉字保存在ws中

Other_Day_Pos_In_Week_Area = InStr(week_str, ws)

‘实际的每月的号数应该加上每月初始的1号在日历星期区域的位置减去1“”d + (First_Day_Pos_In_Week_Area – 1)，为了在第7个位置仍然将该 _

号数放在该行，所以还得再减去1“d + (First_Day_Pos_In_Week_Area – 1) – 1”，然后再除7取整，同时乘以7后加上该号数在日历中星期区域的实 _

际列数位置，即可得到该号数在日历区域的设计位置

p = Int((d + (First_Day_Pos_In_Week_Area – 1) – 1) / 7) * 7 + Other_Day_Pos_In_Week_Area

yl_md = Right(GetYLDate(da), 4) ‘调用转农历(阴历)函数，取后四个汉字月日日期字

yl_m = Left(yl_md, 2) ‘拆解阴历月日中的月份

yl_d = Right(yl_md, 2) ‘拆解阴历月日中的日子

If yl_d = “初一” Then yl_d = yl_m ‘若拆解的日子是“初一”，则即刻用该月的月份替代该阴历月份的首个日子

r(p) = d Chr(10) yl_d ‘将公历日期和对应的农历日期合在一起填入到p处正确位置

If da = Date Then r(p).Select ‘若选择年份后不断瞬时生成的日期da和现在的日期匹配，则将当前填充的日期单元格选择成活动状态

End If

End Sub

Function Is_LeepYear(y) As Boolean ‘给定的年份是否为闰年LeepYear的判断

Is_LeepYear = True

Else

Is_LeepYear = False

End If

End Function

‘自定义“公历转农历”日期函数

Function GetYLDate(ByVal strDate As String) As String

On Error GoTo ExitFunction_Label

If Not IsDate(strDate) Then Exit Function ‘如果参数strDate非日期的无效字串，则退出本函数工作

‘定义setDate–设置的未来日期，tYear–未来日期的本年份，tMonth–本月份，tDay–本日子

Dim setDate As Date, tYear As Integer, tMonth As Integer, tDay As Integer

setDate = CDate(strDate) ‘为该GetYLDate()函数参数的字串转换后的日期赋予设定的日期

tYear = Year(setDate): tMonth = Month(setDate): tDay = Day(setDate) ‘年、月、日分别取值

‘如果不是有效有日期，退出

If tYear 2100 Or tYear 1900 Then Exit Function

‘定义daList()–是元素为18位日期二进制字串数组，conDate–农历新年日期，thisMonths–本年的二进制 _

月份信息(可能闰月)

Dim daList() As String * 18, conDate As Date, thisMonths As String

‘定义AddYear–是相对1900年递增的年，AddMonth–月份增量，AddDay–天数增量，getDay–农历新年和设 _

之日期相差天数

Dim AddYear As Integer, AddMonth As Integer, AddDay As Integer, getDay As Integer

‘定义YLyear–农历(阴历)年的字串，YLShuXing–农历(阴历)年的属相

Dim YLyear As String, YLShuXing As String

‘定义dd0–农历(阴历)年的阴历日子，mm0–农历(阴历)年的阴历月，ganzhi()–每个元素为2个字的天干地 _

支数组

Dim dd0 As String, mm0 As String, ganzhi(0 To 59) As String * 2

‘定义RunYue–农历(阴历)年是否闰月的布尔型标志，RunYue1–农历(阴历)年闰月月份

Dim RunYue As Boolean, RunYue1 As Integer, mDays As Integer, i As Integer

‘加载2年内的农历数据

ReDim daList(tYear – 1 To tYear)

daList(tYear – 1) = Hexadecimal_To_Binary(Mid(ylData, (tYear – 1900) * 8 + 1, 7))

daList(tYear) = Hexadecimal_To_Binary(Mid(ylData, (tYear – 1900 + 1) * 8 + 1, 7))

AddYear = tYear

initYL:

AddMonth = CInt(Mid(daList(AddYear), 15, 2))

AddDay = CInt(Mid(daList(AddYear), 17, 2))

conDate = DateSerial(AddYear, AddMonth, AddDay) ‘农历新年日期

getDay = DateDiff(“d”, conDate, setDate) + 1 ‘相差天数

If getDay 1 Then AddYear = AddYear – 1: GoTo initYL

thisMonths = Left(daList(AddYear), 14) ‘前14位为本年的二进制月份信息(可能有闰月)存于thisMonths中

RunYue1 = Val(“H” Right(thisMonths, 1)) ‘闰月月份

If RunYue1 0 Then ‘如果有闰月，则立即修正本年的二进制月份信息thisMonths，形成真正有效的二进制序 _

列信息

thisMonths = Left(thisMonths, RunYue1) Mid(thisMonths, 13, 1) Mid(thisMonths, RunYue1 + 1)

End If

thisMonths = Left(thisMonths, 13) ‘最后一次修正本年的二进制月份信息thisMonths，直接取13个月的情况

For i = 1 To 13 ‘遍历1～13个月，找到并计算含闰月的有效天数，同时退出循环

mDays = 29 + CInt(Mid(thisMonths, i, 1))

If getDay mDays Then

getDay = getDay – mDays

Else

If RunYue1 0 Then ‘如果有闰月，则进一步根据i的值情况做如下处理

If i = RunYue1 + 1 Then RunYue = True ‘若i确系为闰月，则将闰月标志置为真

If i RunYue1 Then i = i – 1 ‘若i大于闰月月份，则将将i回退修正

End If

AddMonth = i ‘最终记录下i作为真正的增量月份存入AddMonth

AddDay = getDay ‘同时，将得到的天数差作为增量天数

Exit For

End If

dd0 = Mid(ylMd0, (AddDay – 1) * 2 + 1, 2) ‘用查找表的形式当前日期对应的农历(阴历)日子

mm0 = Mid(ylMn0, AddMonth, 1) + “月” ‘用查找表的形式当前日期对应的农历(阴历)月份

For i = 0 To 59 ‘0～59表示60年一个甲子，表示以60年一个的形式，通过查找表精准每年的天干地支

ganzhi(i) = Mid(ylTianGan0, (i Mod 10) + 1, 1) + Mid(ylDiZhi0, (i Mod 12) + 1, 1)

YLyear = ganzhi((AddYear – 4) Mod 60) ‘通过查找表形式得出阴历年的天干地支表示形式

YLShuXing = Mid(ylShu0, ((AddYear – 4) Mod 12) + 1, 1) ‘通过查找表形式得出阴历年的属相表示形式

If RunYue Then mm0 = “闰” mm0 ‘如果某阴历月份有闰月，特别加上“闰X月”的形式

GetYLDate = “农历：” YLyear “(” YLShuXing “)年” mm0 dd0 ‘拼接当前日期的完整农历信息

ExitFunction_Label:

End Function

‘将压缩的阴历字还原

Private Function Hexadecimal_To_Binary(ByVal strHex As String) As String ‘十六进制转二进制

Dim i As Integer, i1 As Integer, tmpV As String

Const hStr = “0123456789ABCDEF”

Const bStr = “0000000100100011010001010110022210001001101010222100110222102221”

tmpV = UCase(Left(strHex, 3))

‘以下是十六进制转二进制的具体操作

For i = 1 To Len(tmpV)

i1 = InStr(hStr, Mid(tmpV, i, 1))

Hexadecimal_To_Binary = Hexadecimal_To_Binary Mid(bStr, (i1 – 1) * 4 + 1, 4)

Hexadecimal_To_Binary = Hexadecimal_To_Binary Mid(strHex, 4, 2)

‘十六进制转十进制

Hexadecimal_To_Binary = Hexadecimal_To_Binary “0” CStr(Val(“H” Right(strHex, 2)))

End Function

ThisWorkbook中代码如下：

Private Sub Workbook_Open() ‘工作簿一打开即刻初始化表单组合框数据并且在组合框中显示之前选择过的年份

Set shp_year_select = Sheets(1).Shapes(“年份选择”)

shp_year_select.ControlFormat.RemoveAllItems

‘万年历的年份范围初步设定为“1900～2100”

For i = 1900 To 2100

shp_year_select.ControlFormat.AddItem i

‘以下是重新还原表单组合框控件之前选定过的年份显示

yr = [a65535]

For i = 1 To shp_year_select.ControlFormat.ListCount

If yr = Val(shp_year_select.ControlFormat.List(i)) Then

n = i ‘遍历整个表单组合框所有元素，查找与yr是否相匹配的元素，若找到即刻记下该编号并存于n中

Exit For

End If

shp_year_select.ControlFormat.ListIndex = n ‘让表单组合框显示找到的之前选择过的年份

End Sub

三、用一实现带农历万年历运行效果测试

(一)选择年份，呈待生成带农历万年历状态。如下图所示

图2 选择年份准备生成带农历万年历

(二) 选择的年份，生成实实在在的带农历的万年历。如下图所示

图3 生成带农历万年历效果

(三)压下清除日历数据按钮，准备进行带农历的万年历数据清除。如下图所示

图4 准备清除带农历万年历数据

(四)压下状态下的清除日历数据按钮情况下该按钮，完成带农历万年历数据的清除，并将年份组合框内的显示提示年份置为最新当前时间的年份。如下图所示

图5 清除带农历万年历数据结果

四、技术亮点小结

(一)充分利用寻找农历闰月和压缩的农历字还原完成公历转农历

(二)在Excel的万年历数据填充单元格时，用字串处理函数处理农历生成的数据

(三)存储记忆上次打开万年历的数据

最后，还是感谢大家的持续 (号：跟我学Office高级办公)、推广、点评哦！谢谢大家继续下期第二中实现带农历的万年历设计！

哪个软件星座运势最准，很准的每日运势app

哪个软件星座运势最准

本文原载于“每日运势”App，经去函询问，表示身份保密，近几年星译社跟进此家日运得到读者们的广泛好评。运势风格为指导。

请注明星译社及译者。

白羊座——译者：Evangeline恒立

十二月意味着，这个对你而言漫长乃至疲累的一年结束了。你总是在忍受，你总是把生活交给你的事情做到更好，但你准备就要因为努力生活而精疲力尽了。毕竟，一个人能吃的苦就是这么多了！但那都没事了，因为这个月肯定是你许多方面的一个转折点。在你的人际关系上，你可以看到沟通明显顺畅、一桩旧怨化解时的，以及一次争吵的和平解决。你应该也会在工作或金钱方面有所提升，因为你现在有许多机会去做得更好。虽然这个月不会让你立刻搞定所有的问题，但你会看到足够的好转给你带来希望和让你乐观地前进。你可能还没有一个合同或问题，但你就要解决了，十二月就可以有个交代了。积极向上的关键在于抓住希望，当你真的感到焦虑或忧郁的时候，要提醒自己，一切正在为你变好。

金牛座——译者：Evangeline恒立

在一个很多兄弟姐妹的家庭里，你会看到各种不同的性格。有的人安静，有的人内敛，有的胆而率真，等等。但在我们出生或我们的家庭之外，我们往往会被最像我们的朋友或群体，以及跟我们有共同理想和兴趣的人所吸引，仅仅是因为我们理解他们，这感觉我们很合群。但这个月，你会有机会认识各种人，跟他们互动，而他们许多人都跟你很不一样。试着把这看成拓宽你视野、给你的世界带来新的兴趣和活动之类的一件好事吧。你可能对即将到来的一年有一种强烈的希望感，在十二月，你会看到自己的可能性。可能会有工作或商业上的机会的对话。可能家庭里会有喜讯。而所有的这些都指向你可以认真思考的、即将发生的令人兴奋的事情，而那会让你的情绪上扬。

双子座——译者：刘小猫

虽然12月很多人是专注在假期和即将到来的新一年，但你可能更愿意向后看，专注于过去。这是个错误吗？当它妨碍到你满怀希望地向前看时，确实是。双子座，毕竟有很多事情是你可以充满希望的。而这个月，即使你可能陷于自我反省中，或许还有些遗憾，你依然会看到希望的迹象正在向你走来。这在金钱和梦想方面会尤其真实。虽然你现在可能连想都不敢想一些更为宏大更为重要的梦想，但宇宙会给你递个话儿，激励你要继续做梦，你必须得这样做。这也将是一个极好的时机来理顺那些困扰你或阻碍你的财务问题，因为在你的财务方面，可能会有办法挖掘出更好现金流。而当你拥有出头的机会时，不要自满得意。而是走出去，帮助宇宙更好地帮助你!

巨蟹座——译者：幻觉

即便在一个老破小的厨房，一个好厨师也可以做出丰盛的大餐，即便只有一个老旧的四眼炉，没有任何精致厨具或各种调料，环境不那么理想，一个真正有才华的厨师也可以做出一菜单令人垂涎的美食。在一定程度上，月亮的小孩，你们完全明白这一点，但在你的个人生活里，你可能感觉自己一直被不够理想、没有任何助力的环境拖累了太久，没办法去做一些你真正想做的事情，但不要因此赌气。就算现在的环境不够理想，你也有能力真正成就你想要的东西。这个月，你要深入自己的才能，开始让一切实现。你的作品大出风头或卖上好价的机会很快就要到了，你要做好准备。如果你一直渴望生活里有更多浪漫爱意，12月也可以在这方面得到飞速发展。如果你还单身，请心灵，去见见那些并不合你全部条件和要求的人。如果你已经有伴，也请接受对方提出的各种新体验，这些会让你们更亲密。

狮子座——译者：刘小猫

狮子座，如果你中了，它可以在一瞬间改变你的生活。但还有很多其他事情——看似更微小或不太重要的事情——也会对你的生活产生重大影响。这个月，你应该经历至少一到两个改变，这些变化有可能让你的生活在很多方面完全不同。不过要让这些事情发挥出更大的作用，关键在于认识到它们的重要性。对自己最真实的梦想、欲望、愿望、需求等的。什么东西让你心动？是什么让你快乐地活着。专注于对你最重要的东西，就会像索引一样，能把你引到你心目中那个美妙生活的地方。这么说来，在12月你有很多好事好生。即使你现在可能与亲朋好友有很多，但你可能还是会感到非常孤独。但在整个12月，你应该开始感觉到越来越多的。即使这并不意味着要在聚会或家庭活动中去很社交，但通过谈话或共享信息，会有更多的联结和舒适感。总体来说，你应该感到更，确信好的事情会到来，舒缓的氛围应该让你在整个本月都感到乐观。

处女座——译者：幻觉

世界很多地方都进入了节日季，也给12月增加了一些压力，你需要更生活中简单的小乐趣，不要被压力打垮，因为这一年你承受的已经够多了。12月，你需要注意身心脑灵之间的连接，需要在方方面面更注意关爱自己，真正专注于生活中对你最重要的事情。当然，到了一年的尾声，你可能产生各种各样的想法，思考自己现在生活的地方、将来要去哪里。但这个月其实是一个很好的启动点，开始很多你真心想为自己做的事，你应该专注地实现它们。在你和另一个你始终想更亲近的人之间，会发展出一种特殊的家人般的关系，这件事反过来又可能带来其他机会，是你之前想都想不到的，比如共同的兴趣爱好、认识特定圈子里的人，或其他你从来想不到自己会那么喜欢、那么享受的乐趣。

天秤座——译者：海浪泡沫Aph

对许多人而言，12月往往是反思的时候，因为这是一年里的最后一个月，而新的一年，新的开始，还有太多存量事物要安排处理。亲爱的天秤，你可能现在对此特别紧张，因为你给自己施加了很多压力来争取来年的成功。但现在还是2023 年的12月，如果你想要今年余下的日子里尽可能过得充实，就一定要活在当下。没错，我们现在所做的事情会对将来起到深远影响，但如果你能集中精力平衡自己，找到自己内心的，只有在那时再去往前看，你前进的道路上一切才会进行得更加顺利。但现在我们先回到当下！这个月或许可以见证你调整自己的优先事务，包括你的财务问题、你与亲朋好友的关系问题，或甚至是考虑搬家或搬到你想了很久的远方。本月你可能也会有旅行计划，可能是基于工作，但也可能是因为你一直想去看看某个地方。如果你选择注重当下并沉浸于每天的经历，那么这个月对你来说可以是非常棒、能量非常强劲的一个月。

天蝎座——译者：Pa

12月当然是一年里的最后一个月，但它也是你余生的之一个月！虽然用这种说法作为一个反转点有点傻，天蝎座，但并不妨碍它本身的重要性。这个月确实会给你提供很多机会，让你改善自己的生活。如果你留心有哪些选择，这些选择又是否与你未来的需求一致，你就能开始打造一条通往美好未来的道路了。12月初的一个相遇会带来一位新朋友或恋人，这段关系如此与众不同，可能让你很吃惊。与一位旧日恋人或旧日朋友有关的迷思可能会在这个月变得更清晰了，这个迷思迷了有段时间了，这也会让你更加理解某人曾作出的看似让人费解的决定。有些人需要思考的时候会去大自然里探索，远离一切只为找到和内在平和。如果你生活里有些方面被了，你正因此寻求平静，那最重要的就是花些时间想想，要去哪里，做些什么才能找到平静。虽然你的情绪并没有脱轨，但却有些走下坡路，无法振奋，所以现在找到平衡是最重要的。一旦你找到了，你会发现，你开始能留意到身边的好运和机遇了，之前你是无法留意到的。

射手座——译者：Pa

摩羯座——译者：夜游女孩安德烈

在火热的房地产市场，大家总是建议你找到自己想要的房源之后尽快出个好价钱，否则另一个对同一房源感情需的人会前先一步住进你理想的住房当中。虽然，你不是在专门找房源，但这个月你可能找到了一切你迫切想要的东西。或许你已经想了一段时间——这些东西现在炙手可热。尽管你认真严谨的天性会让你磨磨唧唧，尽可能避免所有风险，但是，在目前的情况下，浪费太多时间还会让你失去想要的东西。所以要尽可能高效地作出决定然后采取行动。有些人会在满是漂亮衣服的衣柜里翻箱倒柜，然后说自己没有衣服可穿。有时候我们沉浸在富足当中，甚至没有意识到自己很富足。在生活当中的某些方面，你可能没有意识到自己被赋予的富足。这些可能和人际关系有关。这个月会出现一件让你的事情，这件事情会帮助你从正确的角度看待事情，如果你能够给予，那么它最终会让你的生活大大丰富起来。

水瓶座——译者：王哇哇

亲爱的瓶子，在很多方面，这将是相当“轻佻”的一个月。这个词不仅适用于你的爱情生活，因为有很多爱慕者着你，它也意味着你会以一种玩似的态度得出一些想法、对待梦想、进行创作等等。本月，全心投入在自己真心热爱的地方、跟随梦想的脚步，会令你激动不已。小心不要给人留下与实际不的印象，或者因为此时萌生的一些奇怪想法而参与到对自己不利的事情中。本月，一段合作关系将成为的重点，事关你的工作、个人项目或个人业务。你也有机会跟现有的合作伙伴进一步加强关系，或者考虑跟你能力互补的人成为合作伙伴。总而言之，这些都会加强你成功的机会。对你而言，现在的主题就是“繁荣”与“富足”。这句话除了适用于财务状况之外，也适用于你生活的各个方面，所以好好享受这种繁荣与富足吧。

双鱼座——译者：爱哟薇PM

有很多体验世界的方式，坐飞机到异国他乡旅行，通过参观博物馆和艺术画廊了解他们的文化；亦或你可以以更密切的方式在本地旅行，住在当地人家里吃早饭，或与其合住，亲身了解主人。我们都有自己的探索方式，鱼鱼，本月你可能有机会体验看世界的新。无论这对你而言意味着什么，一定是非常开心的，所以胆子要大点哦！本周某位超级的朋友也许会让你感到有些防卫，因为他们对你所做或所说的反应过于戏剧化。但是否让这件事对你有负面影响则取决于你自己，你可以问问题，从正面的角度着手处理这件事的根本原因，亦或搁置这件事继续纠结。其实根本不是什么能够瓦解你的生活或起作用的大事情。工作上或在其他任何你极度重视拥有支配权的领域，也许有人想要取代你的位置，但这很可能只是你的感觉，除非对方是密友知己，在挑起话题之前你需要三思，没必要的话别煽动麻烦哦。

以上内容是小编关于血型看星座和星座血型算命的分析和解答，如果你对文章有什么意见或者建议请在下面留言，我们将整理和分享给大家阅读。