财经文摘:

由于销量放缓，5月份进口车的经销商平均库存天数达到了143天，远高于正常的24到36天。

中国汽车流通协会副秘书长郎学红认为。“从目前的市场情况来看，价格杠杆用在进口车上效果并不明显。”郎学红称，进口车单车价格较高，即便降价销售，依然比合资车、国产车贵很多，难以拉动销量。另外，降价还减少了经销商的利润。厂家帮经销商渡过难关的主要办法应该是降低销量目标，并制定符合市场实际的目标，价格上则允许经销商根据市场实际自主变动为宜。

“市场的不景气使更多经销商愿意与电商合作。”

文摘来源：

进口...

Read more

　　财经文摘:

　　中国证券网讯（记者 陈天弋）桂东电力7月10日晚间公告，公司控股股东正润集团提议公司2015年半年度利润分配预案为：以截止2015年6月30日公司总股本为基数，向全体股东每10股送红股10股，同时以资本公积金向全体股东每10股转增10股。

　　正润集团承诺，在公司股东大会审议上述2015年半年度利润分配预案时，投赞成票。

　　另外，公司公告，预计公司2015年上半年度净利润比上年同期增长600%-900%。公司2015年半年度业绩大幅增长主要是由于公司在2015年上半年投资收益大幅增加所致。

　　公司同时公告，公司及控股子公司桂能电力拟协议转让...

Read more

　　财经文摘:

　　中国民生银行首席研究员温彬认为，6月份CPI略高于市场预期，主要受到食品价格特别是猪肉价格连续回升带动的影响。从上半年看，CPI累计同比上涨1.3%，低于全年3%的调控目标，物价呈现温和上涨态势，主要还是因全球经济增长乏力、国内需求动力不足所致。预计下半年CPI继续温和小幅上涨，通胀压力不大。温彬认为，从当前物价及下半年发展趋势看，货币政策仍有进一步放松空间。预计下半年外汇占款会继续呈现负增长，存款准备金率还有较大下降空间。鉴于货币政策传导机制还存在一些障碍，为了切实降低企业实际融资成本，仍有进一步降息可能。

　　文摘来源：

　　CPI连续10个月处...

Read more

　　 财经文摘:

全景网7月2日 贵人鸟(603555)周四盘后公告称，公司控股股东贵人鸟集团(香港)有限公司一致行动人林思恩通过上交所增持50万股公司股票，占总股本的0.08%，买入价格为35.65-40.90元/股。公司表示，基于看好公司目前发展状况和对未来持续发展的信心，林思恩拟在未来12个月内以自身名义继续通过上交所增持公司股份，累计增持比例不超过公司已发行总股份的0.5%。(全景网)

文摘来源：

贵人鸟大股东增持50万股 拟继续增持 2015年07月02日 

读书笔记：

股票的价值如何确定有很多方法，贴现法、市盈率法等。直接根据...

Read more

　　财经文摘:

　　自2015年6月28日起下调金融机构人民币贷款和存款基准利率，其中，金融机构一年期贷款基准利率下调0.25个百分点至4.85%；一年期存款基准利率下调0.25个百分点至2%；其他各档次贷款及存款基准利率、个人住房公积金存贷款利率相应调整。这是继今年3月1日和5月11日以来的第三次降息。中新网证券频道盘点了近13年来共25次降息后A股的表现，从2002年2月21日截止到今年5月11日，25次降息，沪指14次上涨；

　　文摘来源：

　　央行双拳齐出释放积极信号 近年来降息降准后A股多数上涨 2015年06月28日

　　读书笔记：

　　根据资金...

Read more

期末考试结束后，需要对班级学生的成绩向家长做一个汇报。其格式如下：

尊敬的家长：***本学期成绩汇报如下，祝新年快乐！ ERP应用与管理:优秀 Office高级应用:优秀 出纳业务实训:优秀 高级财务会计:95 工业企业会计核算:优秀 管理会计:94 国际贸易实务:良好 会计分岗位实训:优秀 会计综合实训:良好 就业指导:中等 审计:99 统计学原理:良好 中级财务管理:优秀

 面对EXCEL表，可编写VBA代码如下,实现科目与成绩自动组合。

Sub 成绩汇总表()
Dim N As Integer '声明变量
N = Range("A1").En...

Read more

　　任务描述 1 For Each...Next应用

　　将工作表中报考浙江师范大学与浙江工商大学的学生数统计出来。

　　案例：《零基础学EXCEL VBA》：For Each...Next 语句

　　Sub 统计()

　　Dim W As Range

　　Set W = Range("A1:q50")

　　Dim MYQ As Byte, MYQ2 As Byte

　　For Each C In W

　　        If C = "浙江...

Read more

　　Sub 唯一值()

　　'取产品的唯一值

　　Dim P1 As Worksheet

　　Set P1 = Worksheets("操作题1")

　　Dim P2 As Worksheet

　　Set P2 = Worksheets("操作题2")

　　'取非空行数

　　Dim N As Integer

　　N = P1.Range("B65536").End(xlUp).Row

　　'取唯一值

　　P1.Range("V1:V" & N...

Read more

　　示例

　　此例在D列显示B列单元格中的公式。

　　Sub 公式()

　　Dim N As Integer

　　N = Range("B65536").End(xlUp).Row

　　For N1 = 3 To N Step 1

　　Range("D" & N1) = Range("B" & N1).Formula

　　Next

　　End Sub

　　Range.Formula 属性

　　返回或设置一个 Variant 值，它代表 A1 样式表示法和...

Read more

　　在EXCEL表的同一行单元格中，有题目，有分析，有答案，有来源，但它们分布在不同的单元格中，

　　我想从众多的试题中，找出同一章节的题目，并将该题的相关内容放置到同一单元格中，以便复制到WORD中进行排版。其代码如下：

　　Sub 试题集2()

　　Dim ShtCase As Worksheet

　　Set ShtCase = Worksheets("05案例集") '声明工作表变量

　　Dim N As Integer

　　N = ShtCase.Range("A65536").End(xlUp).Row...

Read more