财经文摘:

　　中国民生银行首席研究员温彬认为，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

　　Sub Myfind()

　　'在单元格B1中当入您要查找的数据，然后在指定的单元格区域中查找，找到之后，将该单元格的底色设置成RGB(255,255,0)色，以便于查找。

　　Dim iRange As Range, iFined As Range

　　Dim iStr, iAddress As String, N As Integer, NextAddress As String '以上是定义使用到的变量

　　Set iRange = Range("A2:A100") '给irange变量赋值为A2:A100区域

　　iRange...

Read more

　　要求：根据发货单的物料清单，进行发出材料的分类汇总，首先按物料代码获取物料的唯一值，再进行分类汇总。

　　代码：

　　Sub 分类汇总()

　　' 唯一值提取

　　Dim N As Integer

　　N = [A65536].End(xlUp).Row

　　Dim Shtfl As Worksheet

　　Set Shtfl = Worksheets("出库单分类汇总")

　　Shtfl.Range("a1") = "物料代码"

　　Range("C2:C&q...

Read more