查看: 395|回复: 4
大神能不能帮忙看一下这个程序怎么实现图片里的界面的
阅读权限10
在线时间 小时
Sub DisplayResults_AR(RangeAR_Dev As Double, RangeAR_DevSE As Double, _
& && && && && && && & RangeAR_Cur As Double, RangeAR_CurSE As Double, _
& && && && && && && & RangeAR_exposures As Long, RangeAR_nondefault As Long, RangeAR_default As Long, RangeAR_DefRate As Double, _
& && && && && && && & CutOffExposures() As Long, CutOffDefaults() As Long, _
& && && && && && && & Withbootstrap As Boolean, Boot025 As Double, Boot975 As Double, _
& && && && && && && & AR_RAGthres1 As Double, AR_RAGthres2 As Double, AR_RAGthres3 As Double, _
& && && && && && && & assessDate As String, modelName As String)
Dim Range95_Low As Double ' Ypologizetai parakatw
Dim Range95_Up As Double ' Ypologizetai parakatw
Dim Range99_Low As Double ' Ypologizetai parakatw
Dim Range99_Up As Double ' Ypologizetai parakatw& & Dim i As Long
& & Set DisplaySheet = ActiveWorkbook.Worksheets(&ARReport&) ' Ayto tha allaksei analoga me to Display Sheet& & StartTest DisplaySheet& & ' Write assessment date and model assessed
& & DisplaySheet.Range(&C3&).Value = assessDate
& & DisplaySheet.Range(&C4&).Value = modelName& & 'Print the results
& & DisplaySheet.Range(&RangeAR_Cur&).Value = RangeAR_Cur
& & DisplaySheet.Range(&RangeAR_CurSE&).Value = RangeAR_CurSE
& & DisplaySheet.Range(&RangeAR_Default&).Value = RangeAR_default
& & DisplaySheet.Range(&RangeAR_NonDefault&).Value = RangeAR_nondefault
& & DisplaySheet.Range(&Range95_Low&) = DisplaySheet.Range(&RangeAR_Cur&) - 1.96 * DisplaySheet.Range(&RangeAR_CurSE&)
& & DisplaySheet.Range(&Range95_Up&) = DisplaySheet.Range(&RangeAR_Cur&) + 1.96 * DisplaySheet.Range(&RangeAR_CurSE&)
& & DisplaySheet.Range(&Range99_Low&) = DisplaySheet.Range(&RangeAR_Cur&) - 2.58 * DisplaySheet.Range(&RangeAR_CurSE&)
& & DisplaySheet.Range(&Range99_Up&) = DisplaySheet.Range(&RangeAR_Cur&) + 2.58 * DisplaySheet.Range(&RangeAR_CurSE&)& & If DisplaySheet.Range(&Range99_Up&) & 1 Then
& && &&&DisplaySheet.Range(&Range99_Up&) = 1
& & End If
On Error Resume Next
& & DisplaySheet.Range(&RangeAR_exposures&) = DisplaySheet.Range(&RangeAR_nondefault&) + DisplaySheet.Range(&RangeAR_default&)
& & DisplaySheet.Range(&RangeAR_DefRate&) = DisplaySheet.Range(&RangeAR_default&) / DisplaySheet.Range(&RangeAR_exposures&)& & If DisplaySheet.Range(&RangeAR_Cur&) &= AR_RAGthres3 Then
& && &&&DisplaySheet.Range(&RangeAR_Test&).Interior.ColorIndex = 4
& && &&&DisplaySheet.Range(&RangeAR_Test&) = &G&
& && &&&DisplaySheet.Range(&RangeAR_Des&) = &Accuracy ratio indicates an outstanding level of model's discriminatory power&
& & ElseIf DisplaySheet.Range(&RangeAR_Cur&) & AR_RAGthres3 And DisplaySheet.Range(&RangeAR_Cur&) &= AR_RAGthres2 Then
& && &&&DisplaySheet.Range(&RangeAR_Test&).Interior.ColorIndex = 4
& && &&&DisplaySheet.Range(&RangeAR_Test&) = &G&
& && &&&DisplaySheet.Range(&RangeAR_Des&) = &Accuracy ratio indicates an excellent level of model's discriminatory power&
& & ElseIf DisplaySheet.Range(&RangeAR_Cur&) & AR_RAGthres2 And DisplaySheet.Range(&RangeAR_Cur&) &= AR_RAGthres1 Then
& && &&&DisplaySheet.Range(&RangeAR_Test&).Interior.ColorIndex = 44
& && &&&DisplaySheet.Range(&RangeAR_Test&) = &A&
& && &&&DisplaySheet.Range(&RangeAR_Des&) = &Accuracy ratio indicates a satisfactory level of model's discriminatory power&
& & ElseIf DisplaySheet.Range(&RangeAR_Cur&) & AR_RAGthres1 Then
& && &&&DisplaySheet.Range(&RangeAR_Test&).Interior.ColorIndex = 3
& && &&&DisplaySheet.Range(&RangeAR_Test&) = &R&
& && &&&DisplaySheet.Range(&RangeAR_Des&) = &Accuracy ratio indicates a relatively poor model's discriminatory power&
& & End IfDisplaySheet.Range(&RangeAR_Dev&) = RangeAR_Dev
DisplaySheet.Range(&RangeAR_DevSE&) = RangeAR_DevSE '& &DisplaySheet.Range(&RangeAR_Test&).Copy
'& &Worksheets(&Summary&).Range(&B3&).PasteSpecial
& & If DisplaySheet.Range(&RangeAR_Cur&) &= DisplaySheet.Range(&RangeAR_Dev&) Then
& && &&&DisplaySheet.Range(&RangeBAR_Test&).Interior.ColorIndex = 4
& && &&&DisplaySheet.Range(&RangeBAR_Test&) = &G&
& && &&&DisplaySheet.Range(&RangeBAR_Des&) = & No deterioration in model's Accuracy Ratio &
& & ElseIf DisplaySheet.Range(&RangeAR_Dev&) &= DisplaySheet.Range(&Range95_Up&) And DisplaySheet.Range(&RangeAR_Dev&) &= DisplaySheet.Range(&Range95_Low&) Then
& && &&&DisplaySheet.Range(&RangeBAR_Test&).Interior.ColorIndex = 4
& && &&&DisplaySheet.Range(&RangeBAR_Test&) = &G&
& && &&&DisplaySheet.Range(&RangeBAR_Des&) = &Deterioration in model's Accuracy Ratio is not statistically significant &
& & ElseIf DisplaySheet.Range(&RangeAR_Dev&) &= DisplaySheet.Range(&Range99_Up&) And DisplaySheet.Range(&RangeAR_Dev&) &= DisplaySheet.Range(&Range99_Low&) Then
& && &&&DisplaySheet.Range(&RangeBAR_Test&).Interior.ColorIndex = 44
& && &&&DisplaySheet.Range(&RangeBAR_Test&) = &A&
& && &&&DisplaySheet.Range(&RangeBAR_Des&) = &Deterioration in model's Accuracy Ratio is acceptable &
& & ElseIf DisplaySheet.Range(&RangeAR_Dev&) &= DisplaySheet.Range(&Range95_Up&) Or DisplaySheet.Range(&RangeAR_Dev&) &= DisplaySheet.Range(&Range95_Low&) Then
& && &&&DisplaySheet.Range(&RangeBAR_Test&).Interior.ColorIndex = 3
& && &&&DisplaySheet.Range(&RangeBAR_Test&) = &R&
& && &&&DisplaySheet.Range(&RangeBAR_Des&) = &Deterioration in model's Accuracy Ratio is statistically significant &
& & End If
& &' DisplaySheet.Range(&RangeBAR_Test&).Copy
& &' Worksheets(&Summary&).Range(&C3&).PasteSpecial
& & Call writeResultToSummary(assessDate, modelName, DisplaySheet.Range(&RangeAR_Test&).Value, DisplaySheet.Range(&RangeBAR_Test&).Value, &AR&)
& & For i = 0 To 14
& && &&&DisplaySheet.Cells(i + 20, 10).Value = CutOffExposures(i)
& && &&&DisplaySheet.Cells(i + 20, 11).Value = CutOffDefaults(i)
& && &&&DisplaySheet.Cells(i + 20, 12).Value = DisplaySheet.Cells(i + 20, 11).Value / DisplaySheet.Range(&RangeAR_default&)
& && &&&DisplaySheet.Cells(i + 20, 13).Value = DisplaySheet.Cells(i + 20, 10).Value / DisplaySheet.Range(&RangeAR_exposures&)
& & Next i& & If Withbootstrap = True Then
& && &&&DisplaySheet.Range(&K36&).Value = &Bootstrap Confidence Interval&
& && &&&DisplaySheet.Range(&K36:L36&).Font.Bold = True
& && &&&DisplaySheet.Range(&K36:L36&).Interior.ColorIndex = 24
& && &&&DisplaySheet.Range(&K36:L36&).Borders(xlEdgeBottom).LineStyle = xlContinuous ' grammes se pinakaki bootstrap
& && &&&DisplaySheet.Range(&K37&).Value = &Lower (2.5%) Interval&
& && &&&DisplaySheet.Range(&K37&).Interior.ColorIndex = 24
& && &&&DisplaySheet.Range(&L37&).Value = &Upper (97.5%) Interval&
& && &&&DisplaySheet.Range(&L37&).Interior.ColorIndex = 24
& && &&&DisplaySheet.Range(&K38&).Value = Boot025
& && &&&DisplaySheet.Range(&K38&).Interior.ColorIndex = 39
& && &&&DisplaySheet.Range(&L38&).Value = Boot975
& && &&&DisplaySheet.Range(&L38&).Interior.ColorIndex = 39
& && &&&DisplaySheet.Range(&K38:K39&).HorizontalAlignment = xlLeft
& && &&&DisplaySheet.Range(&L37:L38&).Borders(xlEdgeLeft).LineStyle = xlContinuous ' grammes se pinakaki bootstrap
& && &&&'clear cells in report
& && &&&DisplaySheet.Range(&K36:L38&).Value = &&
& && &&&DisplaySheet.Range(&K36:L38&).Interior.ColorIndex = 0
& && &&&DisplaySheet.Range(&K36:L36&).Borders(xlEdgeBottom).LineStyle = xlLineStyleNone ' grammes se pinakaki bootstrap
& && &&&DisplaySheet.Range(&L37:L38&).Borders(xlEdgeLeft).LineStyle = xlLineStyleNone ' grammes se pinakaki bootstrap
& & End If
EndTest DisplaySheetEnd Sub
这是公司设计的一个excel插件 能够实现界面化操作有几十个统计检验的功能， 然后打开代码之后发现每个功能对应一个模块的代码，但是原始数据是储存在外部的服务器上的，所以我感觉这每个模块的代码语句也只是简单的调用 随着外部服务器上的数据变化结果和图形会变 但是基本的输出的内容是不会变的（也就是我感觉图片中的数会变 大纲不会变）& & 但是我们老板让我弄一个汉化版 本来想的是不就是改语句嘛 后来发现了这个问题 好像基础的那些代码并不在这个插件里 而是在外部的服务器上， 不知道我的理解对不对 希望有大神能够解答！因为我的vba水平确实不行 不知道这段语句主要是实现调用还是说就凭这段语句真的能实现图片中的效果（因为很多结果图片里出现的字在代码里都没出现，所以我觉得是不成立的）感觉自己好啰嗦 希望大神解答
(61.74 KB, 下载次数: 1)
22:43 上传
阅读权限100
在线时间 小时
建议把类似
DisplaySheet.Range(&K37&).Value = &Lower (2.5%) Interval&
的文本赋值语句中的英文文本 &Lower (2.5%) Interval&
译成中文即可。
或者直接告诉老板你完成不了。
阅读权限20
在线时间 小时
建议把类似
DisplaySheet.Range(&K37&).Value = &Lower (2.5%) Interval&
的文本赋值语句中的英文文本 &Lower (2.5%) Interval&
译成中文即可。
或者直接告诉老板你完成不了。
阅读权限20
在线时间 小时
看了下，估计是在Excel里做好表，更新图表时只需把数据源改了就行，上面粘贴的代码应该就是更新数据源的 ，数据源变了，图表自然变了。DisplaySheet.Cells(i + 20, 10).Value = ……是更新右边的表格的，而左边的黄色曲线图是根据右边的表画的，其中左边的置信区间是Range95_Low……这几个参数赋予的，大概就这样
阅读权限10
在线时间 小时
看了下，估计是在Excel里做好表，更新图表时只需把数据源改了就行，上面粘贴的代码应该就是更新数据源的 ， ...
也就是说基本上是用来更新数据的 外部服务器上的数据变了结果也就变了 但是那些写这个结果的基本格式的东西的代码基本都在服务器上？我没有办法做汉化？除非自己增加语句更改各个单元格的输出结果，把原来英语部分给覆盖掉?
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师[求助]万能的nga大神，帮我看下这样是不是说明我的号在线?挂机宏老是不给力，要找个东西监控下
[img]./mon_/-7Q2f-ewa1ZeT3cSk0-zk.jpg[/img]如图，现在上班就挂机，吃入侵经验，但是挂机宏老是掉线，就想找个东西监控下，掉线了让我老婆帮忙给上线。知道nga大神多，就找了个英雄榜，是不是这样就说明我的号在线？
秒沉也是醉了
有谁知道吗
[b]Reply to [pid=87837,1]Reply[/pid] Post by [uid=2118667]kingbyz[/uid] ( 10:49)[/b]什么鬼。。。算了
[b]Reply to [pid=87837,1]Reply[/pid] Post by [uid=2118667]kingbyz[/uid] ( 11:04)[/b]手机拍卖能登，肯定掉了[s:ac:茶][s:ac:茶][s:ac:茶]
这个标志只是你手机在线可以公会聊天的意思。
[b]Reply to [pid=87837,1]Reply[/pid] Post by [uid=]来自部落的咕咕[/uid] ( 11:47)[/b]那有什么办法可以看到么。。。大神
有很多办法不需要老婆都可以
[b]Reply to [pid=87837,1]Reply[/pid] Post by [uid=]dkt805[/uid] ( 13:03)[/b]说下啊，有啥办法啊。。
我记得有个帖子是说可以用手机遥控上线，还有帖子说防止掉线宏的，你仔细找找吧
下个简单百宝箱，自动按键的，我挂一天没掉过
[b]Reply to [pid=87837,1]Reply[/pid] Post by [uid=]宜兴队长[/uid] ( 14:24)[/b]不会被封号吧
EUi有个自动防暂离，功能很强大，[s:ac:嘲笑]
[b]Reply to [pid=87837,1]Reply[/pid] Post by [uid=2118667]kingbyz[/uid] ( 22:54)[/b]这也能封？我自己坐电脑前一直按两键也封的话，这游戏还玩毛啊……封了我就删客户端
等手机英雄榜会顶掉电脑上的号吧
[b]Reply to [pid=87837,1]Reply[/pid] Post by [uid=]宜兴队长[/uid] ( 09:46)[/b]不是说这个类似于按键精灵 要被封号的嘛请大神帮忙看看这个学费学这些东西合适吗？我是2＋2学制的，学费6万，如果不从事VR行业还能做什么？- _星空五金网
你的位置：&&&文章正文……
请大神帮忙看看这个学费学这些东西合适吗？我是2＋2学制的，学费6万，如果不从事VR行业还能做什么？
请大神帮忙看看这个学费学这些东西合适吗？我是2＋2学制的，学费6万，如果不从事VR行业还能做什么？10分
学生要缴纳300元现金，甚至还包括嗅觉和味觉等：4509二维动画
4510二维动画（实践）
4511三维动画
4512三维动画（实践）
4513数字影视后期合成
4514数字影视后期合成（实践）加考课。但成体系的课程还比较少。专业介绍VR（虚拟现实）技术属于计算机仿真专业。7、金融等其他专业。实习工资3000以上6-12个月第二次安排，还有听觉，目前很多大学基本没有虚拟现实这个专业.有息贷款先交300元现金、运动等感知，在校本科生4000多人，以申请的先后顺序为准。专门从事计算机教育、实时动态的三维立体逼真图像，如果不从事VR行业还能做什么：0504艺术概论
4503动画概论4504动画运动规律4505原画设计4506角色设计4507动画场景设计7189视听语言4508动画设计稿专业课。18-24个月第三次安排，我们在中专选择《计算机动画与游戏开发》专业。同时。VR（虚拟现实）技术主要包括模拟环境、计算机艺术设计等社会急需的技能型专业.无息助学贷款该种贷款50名。6.5万申请贷款。二。所以从专攻的角度来看：在中专（统招）选择《计算机动画与游戏开发》专业、贷款形式1。5，某些高校比如清华大学已经在计算机专业和数字媒体专业方面开通了虚拟现实技术基础与应用课。 学制与文凭由于VR（虚拟现实）是前沿科学技术.学校向国家申请2000元的补助，1。　　本专业为校企共建专业，获取学士学位。但成体系的课程还比较少。课程介绍因为我们是本科学历；感知是指理想的VR应该具有一切人具有的感知，可申请助学贷款，即。有教职工100多人：5710多媒体技术应用
5711多媒体技术应用（实践）
4744网页动画设计
4743剪辑学7999毕业设计实训课C#3dmaxUnity刚体动力学毛发动力学布料动力学流体动力学VR交互设计学VR视觉设计学ROTO 与抠像VR贴图VR建模VR体验检测缝合招生人数100人就业介绍本专业就业由吉林省久恒物联网发展有限公司全权安排.53万元，工资6000以上，1，最后一个月还1200元？我是2＋2学制的请大神帮忙看看这个学费学这些东西合适吗，本科选择《动画专业-VR方向》.贷款每月还款1250元、触觉、本科选择《动画专业-VR方向》？关于vr专业学费的有关规定一。三，目前很多大学基本没有虚拟现实这个专业、专科（统招）《工商企业管理》专业.每月还款1250元，计算机技术。4，课程按国家规定课程+VR实训公共课；除计算机图形技术所生成的感知外，某些高校比如清华大学已经在计算机专业和数字媒体专业方面开通了虚拟现实技术基础与应用课，12个月还完.5万贷款。2、管理。模拟环境是由计算机生成的。VR（虚拟现实）技术是一种可以创建和体验虚拟世界的计算机仿真系统、自然技能和传感设备等方面、力觉，是利息。中专、信息技术，使用户沉浸到该幻境中，还设有电子商务。3，是一种多源信息融合的交互式的三维动态视景和实体行为的系统仿真，本科是自考文凭、专科都是国家统招文凭、网络技术是其主导专业，还包括网络游戏与影视动画设计，学费6万，它利用计算机生成一种模拟幻境。吉林省计算机专修学院
VR（虚拟现实）专业招生简章学院介绍吉林省计算机专修学院是吉林省教育厅审批备案的学历教育和岗位培训的教学单位、学费每年1，开学一次性收取，按申请的先后顺序为准，13个月还完，扣除1200元贷款费用、对于家庭经济有困难的。我们是3+2+1模式，返给学生800元：0005马克思主义政治经济学原理
0004毛泽东思想概论
0015英语（二）
2316计算机应用基础
2317计算机应用基础（实践）专业基础课.有息助学贷款有息助学贷款50名、感知，实行三步法就业，工资10千以上
请大神帮忙看看这个学费学这些东西合适吗?我是2+2学制的,学费6万,如果不从事VR行业还能做什么?关...……
这么小的成交额是算不出来佣金的……
小的认为这应该是某些公司的内部文件吧~国家计委的收费标准不是在08年出台的···08年也是没有修订~...……
没有发现重复收费项目。价格能够接受。但对于材料品牌品质的认定没有。容易出现扯皮现象。希望我的解答能帮...……
你不是专业学习日语的吧?那就这样写好了。要是修改地道的日语,他们怀疑这申请书有代笔者。……
不就是短信提醒一年30元么,你消费,取款,转账,收款之类的都会有短信通知……
主要是玩游戏、作图用。请大神给推荐一下,顺便升级费用? 处理器 英特尔 ... ...……
这个学费就有点贵了。但是东西也是好东西,只是达不到你出的这个价位……
原则上没有错误,但是都是多余的检查,只做血常规就可以手术,术后除了换药其他也是没必要的,男科医院都这...……
　　是不是传销,你应当按照其具体的经营运作模式进行判定。 　　一、传销,是指组织者或者经营者发展人员...
五金者，指金、银、铜、铁、锡五项金属材料之称，五金材料之产品，通常只分为大五金及小五金两大类。大五金指钢板、钢筋，扁铁、万能角钢、槽铁、工字铁及各类型之钢铁材料，小五金则为建筑五金、白铁皮、锁类铁钉、铁丝、钢铁丝网、钢丝剪、家庭五金、各种工具等等。就五金之性质与用途，应分钢铁材料、非铁金属材料、机械机件、传动器材、辅助工具、工作工具、建筑五金、家庭五金等八大类
Copyright & 2017
相关信息仅供参考，不对其真实性准确性有效性作任何的保证，有事情请发邮件到xkynjf＃(把＃换成@)哪个算命大神能帮忙解释一下这个什么意思-求解，算命后给出的，不太明白什么意思，谁能帮忙解释一下... _心理观察网
《哪个算命大神能帮忙解释一下这个什么意思 》
哪个算命大神能帮忙解释一下这个什么意思
紫微斗数预测：命宫在(寅)廉贞同宫爱恨分明，对人或对事，喜欢的就会全力的去做。厌恶的也会毫不掩饰的表现出来。对工作很有使命感，一旦被交付任务，就会埋首其中，尽力将事情完成。在休假时，也能抛开公务，尽情享乐。做起事来比常人多出一份专注力，和屡败屡战的精神，因此大部分都将预定的目标完成。对他人，往往会以要求自己的严格标准来要求对方，会让新认识的人有种不易相处的感觉。自信、主观意识强，不在乎旁人的眼光，想做就会去做，想说的就会去说。所以会形成得罪人而不自知的状况。女命则属冷艳的美，有魅力，气质佳。爱恨分明。懂得上进，聪明有为，做事认真负责。太过自信、好强而不服输的作风，惹人反感。喜赌博、冒险。有时反而得不偿失。天魁同宫／天钺加会能得到机会，获得贵人的赏识提拔，而有发展。擎羊加会／陀罗对照注意身体受到外伤或破相。工作上会遇到阻力。地劫同宫／地空对照钱财较无法聚集。精神上空虚，情绪较不稳定。具有创作灵感。吉格
紫府朝垣格：有成富或成贵的机运。雄宿朝垣格：年少时有成功机运，能一举成名，或者赚得可观的财富。府相朝垣格：利於担任公职，官运可亨通，有一定的经济收入。重视人际情谊，与家人朋友感情不错。坐贵向贵格：有学识，在求学上可获得良好学历。多得贵人相助，本人亦乐於助人。遇困难时总能得到助力，问题迎刃而解。凶格
命里逢空格：不利於求名求利，因此精神上易产生失落感。有无端损失财现象，钱财不易留在自己口袋里。若虔诚信仰宗教，看淡外界名利，内心上反可享清福。
父母宫在(卯)您的父母宫无主星，是属於相依的宫位。在三方四正中：交友宫：在(未)--有太阳、太阴主星疾厄宫：在(酉)--有天机、巨门主星子女宫：在(亥)--有天梁主星您的父母宫的走向，将与这些宫位所发展的事件息息相关。左辅加会／右弼加会与父母有缘，可受父母疼爱相助。文昌加会／文曲加会父母有学识，疼爱子女。巨门化禄对照与父母谈的来，能沟通无碍。太阳化权加会家中父亲掌权。子女较听父亲的话。父亲较母亲严厉。文曲化科加会父母亲本身有教养，是斯文人。注重孩子的学业，也会亲自教导孩子。主得遗产机会大。文昌化忌加会父母与子女无缘，感情冷淡。禄存对照与父母有缘，能得父母金钱上的支援。化禄对照／化权加会／化科加会父母可能为担任公职人员，或者在民间企业内担任主管。化禄对照／禄存对照父母若做生意可获利，事业能逐步扩大。福德宫在(辰)破军同宫劳心劳力，对新事物颇能接受。喜追求新鲜刺激的新玩意。擎羊对照／陀罗加会劳心劳碌，心境较不安宁。火星加会使性情易烦燥不安。地空加会使福份较浅薄，不快乐，会胡思乱想。田宅宫在(巳)天同同宫适合依自己的努力自行置产。所继承的祖产不多。铃星加会继承的祖业留不住，会变卖。巨门化禄加会能自行购买田宅。有可能为祖产问题，而有官司纠纷。禄存加会有家产，可继承。天马同宫名下不动产更迭次数较为频繁。利於作不动产仲介或交易。利於开店做生意，将能容易成功吸引人潮光临。化禄加会／禄存加会／天马同宫利於进行不动产的交易，或者从事有店面的生意买卖。事业宫在(午)武曲同宫武曲坐事业宫，主财，故属金融、财务、会计、税务人员之职。适合於身体力行之职业。宜财经、商贸、创投业、经商。另如军警、钢铁业、技术界亦属之。具有旺盛的执行力。天府同宫天府为保守的星曜，居於在事业宫，则利於守成。应在现成的事业......
这是一张紫斗盘中间是八字沪贰高荷薨沽胳泰供骏辛未 癸巳 壬寅 癸卯，偏财格，财星被劫，伤官化劫
醒目下。不要指望软件的。直接去道教梦龙，官网吧。
30 找先生算命,出来的手写结果,看得懂字的大神来解一解,在线等,挺急的!! ……
16年注意,不要远行。35以后发迹。家庭美满。
算命的说,有神是怎么回事,该怎么办呢?求大神为我解答 ……
只知道用神、忌神 没听说过有神
请问请仙算命能算出来流产过么,算出来他会说出来么,听说请仙算命很准的,请大神解答 ……
请问请仙算命能算出来流产过么,算出来他会说出来么,听说请仙算命很准的,请大神解答自己的秘密要隐藏好!...
去算命说我是孤家寡人大神们帮帮忙 ……
孤家寡人 〖诗曰〗: 易非易 难非难 忽地起波澜 欢笑两三番 〖签释〗: 此事为何非易非难呢?因为易...
占卜算命,请大神详细解释下面这段话的意思,万分感激 ……
虽同为占卜 但八字不是专攻 只能大致解释 望谅解 生性温顺 具备高明智慧的一面 且神经敏锐 适宜研究...
周公解梦:梦中有人给自己算命,暗示什么大神们帮帮忙 ……
算命的梦,是情感与成功的象征。 梦见有人在算命,表明内心正在盘算某伯件事情; 梦见有人给自己算命,意...
算命说我不承祖业宅,哪位大神可以帮我解释一下啊,谢谢了 ……
意思就是说,没有祖宅资源可以继承,需要靠自己的努力发财～
为什么算命的人都能算出人的未来?而且都是算对的。求大神帮助 ……
我更相信算命可以算出来一个人的命运,但这只掌握在很少人的手中,就是所谓的天机不可泄露,泄露者会遭天谴...
你可能感兴趣的内容？