第一篇：引用 Excel单元格内如何换行.
Excel是我们经常使用的表格编辑工具，有的时候会用到换行。掌握在Excel中换行的方法利于我们日常操作。下面我们看下在Excel中如何换行：
第一、如何输入数据随时换行：我们如果要在输入数据时换行，仅需要通过Alt+Enter组合键即可轻松实现。而这个方法同样可使已输入内容的单元格在光标所在处换行。
第二、如何在Excel单元格区域内换行：我们可以将某个长行转成段落并在指定区域内换行。比如A10内容很长，而我们想要将其显示在A列至C列之内：选定区域A10：C12（先选A10），然后可以选择“编辑”——“填充”——“内容重排”，这样的话A10内容就会分布在A10：C12区域中。
第三、如何调整单元格格式换行：我们可以选定单元格，然后选择“格式”——“单元格”，然后在弹出的对话框中单击“对齐”，选中“自动换行”复选框并且点击“确定”按钮即可。
第四、如何实现文本框的巧用：我们可以点击“视图”菜单——“工具栏”——选中“绘图”工具栏——点击该工具栏的“文本框”，我们为了保证文本框的边界与工作表网格线重合，需按住Alt键的同时插入文本框，接下来就可以在文本框中任意输入内容了。
第二篇：vba单元格区域引用方式的小结
vba单元格区域引用方式的小结
在使用ExcelVBA进行编程时，我们通常需要频繁地引用单元格区域，然后再使用相应的属性和方法对区域进行操作。所谓单元格区域，指的是单个的单元格、或者是由多个单元格组成的区域、或者是整行、整列等。下面，我们设定一些情形，以问答的形式对引用单元格区域的方式进行归纳。------------------问题一：在VBA代码中，如何引用当前工作表中的单个单元格(例如引用单元格C3)？ 回答：可以使用下面列举的任一方式对当前工作表中的单元格(C3)进行引用。(1)Range(“C3”)(2)[C3](3)Cells(3, 3)(4)Cells(3, “C”)(5)Range(“C4”).Offset(-1)Range(“D3”).Offset(,-1)Range(“A1”).Offset(2, 2)(6)若C3为当前单元格，则可使用：ActiveCell(7)若将C3单元格命名为“Range1”，则可使用：Range(“Range1”)或[Range1](8)Cells(4, 3).Offset(-1)(9)Range(“A1”).Range(“C3”)------------------问题二：在VBA代码中，我要引用当前工作表中的B2:D6单元格区域，有哪些方式？ 回答：可以使用下面列举的任一方式对当前工作表中单元格区域B2:D6进行引用。(1)Range(“B2:D6”)(2)Range(“B2”, “D6”)(3)[B2:D6](4)Range(Range(“B2”), Range(“D6”))(5)Range(Cells(2, 2), Cells(6, 4))(6)若将B2:D6区域命名为“MyRange”，则又可以使用下面的语句引用该区域： ① Range(“MyRange”)② [MyRange]
(7)Range(“B2”).Resize(5, 3)(8)Range(“A1:C5”).Offset(1, 1)(9)若单元格B2为当前单元格，则可使用语句：Range(ActiveCell, ActiveCell.Offset(4, 2))(10)若单元格D6为当前单元格，则可使用语句：Range(“B2”, ActiveCell)------------------问题三：在VBA代码中，如何使用变量实现对当前工作表中不确定单元格区域的引用？
回答：有时，我们需要在代码中依次获取工作表中特定区域内的单元格，这通常可以采取下面的几种方式：
(1)Range(“A” & i)
(2)Range(“A” & i & “:C” & i)(3)Cells(i,1)(4)Cells(i,j)其中，i、j为变量，在循环语句中指定i和j的范围后，依次获取相应单元格。------------------问题四：在VBA代码中，如何扩展引用当前工作表中的单元格区域？ 回答：可以使用Resize属性，例如：
(1)ActiveCell.Resize(4, 4)，表示自当前单元格开始创建一个4行4列的区域。(2)Range(“B2”).Resize(2, 2)，表示创建B2:C3单元格区域。(3)Range(“B2”).Resize(2)，表示创建B2:B3单元格区域。(4)Range(“B2”).Resize(, 2)，表示创建B2:C2单元格区域。
如果是在一个单元格区域(如B3:E6)，或一个命名区域中(如将单元格区域B3:E6命名为“MyRange”)使用Resize属性，则只是相对于单元格区域左上角单元格扩展区域，例如：
代码Range(“C3:E6”).Resize(, 2)，表示单元格区域C3：D6，并且扩展的单元格区域可不在原单元格区域内。
因此，可以知道Resize属性是相对于当前活动单元格或某单元格区域中左上角单元格按指定的行数或列数扩展单元格区域。
------------------问题五：在VBA代码中，如何在当前工作表中基于当前单元格区域或指定单元格区域处理其它单元格区域？
回答：可以使用Offset属性，例如：
(1)Range(“A1”).Offset(2, 2)，表示单元格C3。
(2)ActiveCell.Offset(, 1)，表示当前单元格下一列的单元格。(3)ActiveCell.Offset(1)，表示当前单元格下一行的单元格。
(4)Range(“C3:D5”).Offset(, 1)，表示单元格区域D3:E5，即将整个区域偏移一列。
从上面的代码示例可知，Offset属性从所指定的单元格开始按指定的行数和列数偏移，从而到达目的单元格，但偏移的行数和列数不包括指定单元格本身。
------------------问题六：在VBA代码中，如何在当前工作表中引用交叉区域？ 回答：可以使用Intersect方法，例如：
Intersect(Range(“C3:E6”), Range(“D5:F8”))，表示单元格区域D5:E6，即单元格区域C3:E6与D5:F8相重迭的区域。
------------------问题七：在VBA代码中，如何在当前工作表中引用多个区域？ 回答：
(1)可以使用Union方法，例如：
Union(Range(“C3:D4”), Range(“E5:F6”))，表示单元格区域C3:D4和E5:F6所组成的区域。Union方法可以将多个非连续区域连接起来成为一个区域，从而可以实现对多个非连续区域一起进行操作。
(2)也可以使用下面的代码：
Range(“C3:D4, E5:F6”)或[C3:D4, E5:F6] 注意：Range(“C3:D4”, “F5:G6”)，表示单元格区域C3:G6，即将两个区域以第一个区域左上角单元格为起点，以第二个区域右下角单元格为终点连接成一个新区域。
同时，在引用区域后使用Rows属性和Columns属性时，注意下面代码的区别： ①Range(“C3:D4”, “F8:G10”).Rows.Count，返回的值为8；
②Range(“C3:D4,F8:G10”).Rows.Count，返回的值为2，即只计算第一个单元格区域。------------------问题八：在VBA代码中，如何引用当前工作表中活动单元格或指定单元格所在的区域(当前区域)？ 回答：可以使用CurrentRegion属性，例如：
(1)ActiveCell.CurrentRegion，表示活动单元格所在的当前区域。(2)Range(“D5”).CurrentRegion，表示单元格D5所在的当前区域。
当前区域是指周围由空行或空列所围成的区域。该属性的详细使用参见《CurrentRegion属性示例》一文。[NextPage]------------------问题九：在VBA代码中，如何引用当前工作表中已使用的区域？ 回答：可以使用UsedRange属性，例如：
(1)Activesheet.UsedRange，表示当前工作表中已使用的区域。
(2)Worksheets(“sheet1”).UsedRange，表示工作表sheet1中已使用的区域。
与CurrentRegion属性不同的是，该属性代表工作表中已使用的单元格区域，包括显示为空行，但已进行过格式的单元格区域。该属性的详细使用参见《解析UsedRange属性》一文。
------------------问题十：如何在单元格区域内指定特定的单元格？ 回答：可以使用Item属性，例如：
(1)Range(“A1:B10”).Item(5,3)指定单元格C5，这个单元格处于以区域中左上角单元格A1(即区域中第1行第1列的单元格)为起点的第5行第3列。因为Item属性为默认属性，因此也可以简写为：Range(“A1:B10”)(5,3)。
如果将A1:B10区域命名为”MyRange”，那么Range(“MyRange”)(5,3)也指定单元格C5。
(2)Range(“A1:B10”)(12,13)指定单元格M12，即用这种方式引用单元格，该单元格不必一定要包含在区域内。
同时，也不需要索引数值是正值，例如： ① Range(“D4:F6”)(0,0)代表单元格C3； ② Range(“D4:F6”)(-1,-2)代表单元格A2。而Range(“D4:F6”)(1,1)代表单元格D4。(3)也可以在单元格区域中循环，例如：
Range(“D4:F6”)(2,2)(3,4)代表单元格H7，即该单元格位于作为左上角单元格E5的第3行第4列(因为E5是开始于区域中左上角单元格D4起的第2行第2列)。
(4)也能使用一个单个的索引数值进行引用。计数方式为从左向右，即在区域中的第一行开始从左向右计数，第一行结束后，然后从第二行开始从左到右接着计数，依次类推。(注：从区域中第一行第一个单元格开始计数，当第一行结束时，转入第二行最左边的单元格，这样按一行一行从左向右依次计数。以单元格区域中第1个单元格开始，按上述规则依次为第2个单元格、第3个单元格„.等等)，例如：
Range(“A1:B2”)(1)代表单元格A1； Range(“A1:B2”)(2)代表单元格B1； Range(“A1:B2”)(3)代表单元格A2； Range(“A1:B2”)(4)代表单元格B2。
这种方法可在工作表中连续向下引用单元格(即不一定是在单元格区域内，但在遵循相同的规律)，例如：
Range(“A1:B2”)(5)代表单元格A3； Range(“A1:B2”)(14)代表单元格B7，等等。也可以使用单个的负数索引值。这种使用单个索引值的方法对遍历列是有用的，例如，Range(“D4”)(1)代表单元格D4，Range(“D4”)(2)代表单元格D5，Range(“D4”)(11)代表单元格D14，等等。同理，稍作调整后也可遍历行，例如：
Range(“D4”).Columns(2)代表单元格E4，Range(“D4”).Columns(5)指定单元格H4，等等。(5)当与对象变量配合使用时，Item属性能提供简洁并有效的代码，例如： Set rng = Worksheets(1).[a1] 定义了对象变量后，像单元格方法一样，Item属性允许使用两个索引数值引用工作表中的任一单元格，例如，rng(3,4)指定单元格D3。(By Chip Pearson)------------------问题十一：在VBA代码中，如何引用当前工作表中的整行或整列？ 回答：见下面的示例代码：
(1)Range(“C:C”).Select，表示选择C列。Range(“C:E”).Select，表示选择C列至E列。(2)Range(“1:1”).Select，表示选择第一行。Range(“1:3”).Select，表示选择第1行至第3行。(3)Range(“C:C”).EntireColumn，表示C列； Range(“D1”).EntireColumn，表示D列。
同样的方式，也可以选择整行，然后可以使用如AutoFit方法对整列或整行进行调整。------------------问题十二：在VBA代码中，如何引用当前工作表中的所有单元格？ 回答：可以使用下面的代码：
(1)Cells，表示当前工作表中的所有单元格。
(2)Range(Cells(1, 1), Cells(Cells.Rows.Count, Cells.Columns.Count))，其中Cells.Rows表示工作表所有行，Cells.Columns表示工作表所有列。
------------------问题十三：在VBA代码中，如何引用工作表中的特定单元格区域？
回答：在工作表中，您可能使用过“定位条件”对话框。可以通过选择菜单“编辑——定位”，单击“定位”对话框中的“定位条件”按钮显示该对话框。这个对话框可以允许用户选择特定的单元格。例如：
(1)Worksheets(“sheet1”).Cells.SpecialCells(xlCellTypeAllFormatConditions)，表示工作表sheet1中由带有条件格式的单元格所组成的区域。
(2)ActiveCell.CurrentRegion.SpecialCells(xlCellTypeBlanks)，表示当前工作表中活动单元格所在区域中所有空白单元格所组成的区域。
当然，还有很多常量和值的组合，可以让您实现特定单元格的查找并引用。参见《探讨在工作表中找到最后一行》一文。
------------------问题十四：在VBA代码中，如何引用其它工作表或其它工作簿中的单元格区域？
回答：要引用其它工作表或其它工作簿中的单元格区域，只需在单元格对象前加上相应的引用对象即可，例如：
(1)Worksheets(“Sheet3”).Range(“C3:D5”)，表示引用工作表sheet3中的单元格区域C3:D5。(2)Workbooks(“MyBook.xls”).Worksheets(“sheet1”).Range(“B2”)，表示引用MyBook工作簿中工作表Sheet1上的单元格B2。
------------------问题十五：还有其它的一些情形吗？ 回答：列举如下：
(1)Cells(15)，表示单元格O1，即可在Cells属性中指定单元格数字来选择单元格，其计数顺序为自左至右、从上到下，又如Cells(257)，表示单元格B1。
(2)Cells(, 256)，表示单元格IV1，但是如果Cells(, 257)，则会返回错误。
------------------结语
我们用VBA对Excel进行处理，一般是对其工作表中的数据进行处理，因此，引用单元格区域是ExcelVBA编程中最基本的操作之一，只有确定了所处理的单元格区域，才能使用相应的属性和方法进行下一步的操作。
上面列举了一些引用单元格区域的情形和方式，可以看出，引用单元格区域有很多方式，有一些可能不常用，可以根据工作表的所处的环境和个人编程习惯进行选择使用。
当然，在编写程序时，也可能会将上面的一些属性联合使用，以达到选取特定操作对象的目的，例如Offset属性、Resize属性、CurrentRegion属性、UsedRange属性等的组合。文章标签： ExcelVBA引用单元格
第三篇：2014年会计从业《会计电算化》：单元格引用每日一练(12月23日)
2014年会计从业《会计电算化》：单元格引用每日一练（12月23日）
一、单选题(每题1分，以下备选项中，只有一项符合题目要求，不选、错选均不得分)
1、下列各项中，关于结转本年利润的方法表述不正确的是（）。
A．表结法减少了月末转账环节工作量，且不影响利润表的编制
B．账结法无需每月编制转账凭证，仅在年末一次性编制
C．表结法下每月月末需将损益科目本月发生额合计数填人利润表的本月栏目
D．期末结转本年利润的方法有表结法和账结法两种
2、根据《仲裁法》的规定，下列关于仲裁协议的表述中，正确的是（）。
A．仲裁协议可以书面形式订立，也可以口头形式订立
B．仲裁协议对仲裁委员会没有约定，当事人又达不到补充协议的，仲裁协议无效
C．当事人对仲裁协议的效力有异议的，只能要求仲裁委员会作出决定
D．没有仲裁协议，一方面申请仲裁的，仲裁委员会应当受理
2．下列法律事实中，属于法律事件的是（）。
A．订立遗嘱
B．台风登陆
C．租赁设备
D．买卖房屋
3、甲企业拥有一处原值560000元的房产。已知房产税税率1．2%，当地规定的房产税减除比例为30%。下列甲企业年应缴纳房产税税额的计算中，正确的是（）。
A．560000×1．2%=6720(元)
B．560000÷(1-30%)×1．2%=9600(元)
C．560000×(1-30%)×1．2%=4704(元)
D．560000×30%×1．2%=2016(元)
4、根据土地增值税法律制度的规定，下列各项中，属于土地增值税的征税范围是（）。
A．房地产的出租
B．企业间的房地产交换
C．房地产的代建
D．房地产的抵押 5、2013年3月1日，某企业对经营租赁方式租人的办公楼进行装修，发生职工薪酬15万元，其他费用45万元。2013年10月31日，该办公楼装修完工，达到预定可使用状态并交付使用，至租赁到期还有5年。假定不考虑其他因素，该企业发生的该装修费用对2013损益的影响金额为（）万元。
A．45
B．12
C．2
D．60
6、下列各项中，应计入期间费用的是（）。
A．计提车间管理用固定资产的折旧费
B．预计产品质量保证损失
C．车间管理人员的工资费用
D．销售商品发生的商业折扣
7、甲公司购买乙公司的股票300万股，每股5元，另外支付税费4万元，占乙公司20%的股份，有重大影响，乙公司公允价值8000万元，甲公司该股票的入账价值为()万元。
A.1604
B.1500
C.1600
D.1504
【参考答案】C
8、下列各项中，关于结转本年利润的方法表述不正确的是（）。
A．表结法减少了月末转账环节工作量，且不影响利润表的编制
B．账结法无需每月编制转账凭证，仅在年末一次性编制
C．表结法下每月月末需将损益科目本月发生额合计数填人利润表的本月栏目
D．期末结转本年利润的方法有表结法和账结法两种
9、某企业生产甲产品完工后发现10件废品，其中4件为不可修复废品，6件为可修复废品，不可修复废品按定额成本计价，每件250元；回收材料价值300元，修复6件可修复废品，共发生直接材料100元，直接人工120元，制造费用50元。假定不可修复废品净损失由同种产品负担，应转人“基本生产成本——甲产品”废品净损失为（）。
A．700
B．1000
C．970
D．270
10、下列各项中，不应列入资产负债表“资本公积”的是（）。
A．注销回购价格低于面值的库存股，其账面价值与所冲减股本的差额
B．可供出售金融资产发生的公允价值变动损益
C．采用权益法核算的长期股权投资按持股比例享有被投资单位实现净利润的份额
D．将存货转为以公允价值模式计量的投资性房地产，其公允价值高于账面余额的差额
11、根据支付结算法律制度的规定，下列银行卡中，发卡银行对其账户内存款不计付利息的是（）。
A．准贷记卡
B．贷记卡
C．专用卡
D．转账卡
12、某公司因持续暴雨导致停工5天，停工期间发生的原材料损耗7000元，应分摊的人工费用3000元，应分摊的水电费500元，该停工损失应由保险公司赔偿2000元，假定不考虑其他因素，下列关于停工损失会计处理正确的是（）。
A．净停工损失8500元，计入营业外支出
B．净停工损失8500元，计入基本生产成本
C．净停工损失10500元，计入营业外支出
D．净停工损失10500元，计人基本生产成本
13、下列各项中，不属于企业流动负债是（）。
A．预收购货单位的款项
B．预付采购材料款
C．应付采购商品货款
D．购买材料开出的商业承兑汇票
14、下列科目可以按账户余额直接填列的（）。
A．其他应收款
B．在建工程
C．应付票据
D．固定资产
15、甲公司职工周某的月工资为6800元。已知当地职工基本医疗保险的缴费率为6%，职工个人缴费率2%，用人单位所缴医疗保险费划入个人医疗账户的比例为30%。关于周某个人医疗保险账户每月存储的下列计算中，正确的是（）。
A．6800×2%=136(元)
B．6800×2%+6800×6%×30%=258．4(元)
C．6800×2%+6800×6%=544(元)
D．6800×6%×30%=122．4(元)
16、根据税收征收管理法律制度的规定，对欠缴税款、滞纳金的纳税人或其法定代表人需要出境的，税务机关可以采取的措施是（）。
A．书面通知其开户银行从其存款汇总扣缴税款
B．责令提供纳税担保
C．核定、调整应纳税额
D．依法拍卖期间只相当于应纳税款的商品
17、某企业只生产和销售甲产品。2013年4月初，在产品成本为3．5万元。4月份发生如下费用，生产耗用材料6万元，生产工人2万元，行政管理部门人员工资1．5万元，制造费用1万元。月末在产品成本3万元，该企业4月份完工甲产品的生产成本为（）万元。
A．9．5
B．12．5
C．11
D．9
18、根据税收征收管理法律制度的规定，对欠缴税款、滞纳金的纳税人或其法定代表人需要出境的，税务机关可以采取的措施是（）。
A．书面通知其开户银行从其存款汇总扣缴税款
B．责令提供纳税担保
C．核定、调整应纳税额
D．依法拍卖期间只相当于应纳税款的商品
19、下列各项中，关于结转本年利润的方法表述不正确的是（）。
A．表结法减少了月末转账环节工作量，且不影响利润表的编制
B．账结法无需每月编制转账凭证，仅在年末一次性编制
C．表结法下每月月末需将损益科目本月发生额合计数填人利润表的本月栏目
D．期末结转本年利润的方法有表结法和账结法两种
20、因书立购销合同而缴纳的印花税的会计分录正确的是（）。
A．借记“管理费用”，贷记“银行存款”
B．借记“管理费用”，贷记“应缴税费”
C．借记“营业税金及附加”，贷记“应缴税费”
D．借记“营业税金及附加”，贷记“银行存款”
21、下列各项中，与无形资产相关的会计处理表述不正确的是（）。
A．无法可靠区分研发阶段和开发阶段支付的应当全部费用化
B．使用寿命有限的无形资产应自可供使用的当月开始摊销
C．不满足资本化条件的研发支出应当费用化
D．出租的无形资产摊销计入营业外支出
22、大学教授张某取得的下列收入中，应按“稿酬所得”税目计缴个人所得税的是（）。
A．作品参展收入
B．出版书画作品收入
C．学术报告收入
D．审稿收入
23、企业以现金支付行政管理人员生活困难补助2000元，应做的账务处理（）。
A．借：管理费用2000
贷：库存现金2000
B．借：其他业务成本2000
贷：库存现金2000
C．借：应付职工薪酬——货币性职工福利2000
贷：库存现金2000
D．借：营业外支出2000
贷：库存现金2000
24、甲公司购买乙公司的股票300万股，每股5元，另外支付税费4万元，占乙公司20%的股份，有重大影响，乙公司公允价值8000万元，甲公司该股票的入账价值为()万元。
A.1604
B.1500
C.1600
D.1504
【参考答案】C
25、预算单位应向（）申请开立零余额账户。
A．中国人民银行
B．财政部门
C．上级主管部门
D．社保部门 26、2012年7月1日，某公司按面值发行总额6000万元、5年期、票面年利率5%、到期一次还本付息的债券，2013年12月31日该债务的账面金额（）万元。
A．6150
B．6600
C．6000
D．6450
27、某企业2014年可比产品上年实际平均单位成本计算的本年累计总成本为160万元，按本年计划单位成本计算的本年累计总成本为1500万元，本年累计实际总成本为1450万元。则可比产品的实际降低率为（）。
A．5．375%
B．9．375%
C．9．735%
D．8．735%
28、根据税收征收管理法律制度的规定，下列各项中，不属于税务机关权利的是（）。
A．税务管理
B．税务检查
C．税款征收
D．宣传税法
29、某企业生产甲产品完工后发现10件废品，其中4件为不可修复废品，6件为可修复废品，不可修复废品按定额成本计价，每件250元；回收材料价值300元，修复6件可修复废品，共发生直接材料100元，直接人工120元，制造费用50元。假定不可修复废品净损失由同种产品负担，应转人“基本生产成本——甲产品”废品净损失为（）。
A．700
B．1000
C．970
D．270 30、下列各项中，不会引起利润总额发生增减变动的是（）。
A．计提存货跌价准备
B．确定劳务收入
C．确定所得税费用
D．取得持有国债的利息收入
31、某事业单位经财政部门审核后以财政直接支付方式向自来水公司支付水费，应贷记的会计科目是（）。
A．事业收入
B．银行存款
C．财政补助收入
D．零余额账户用款额度
32、下列各项中，不属于企业流动负债是（）。
A．预收购货单位的款项
B．预付采购材料款
C．应付采购商品货款
D．购买材料开出的商业承兑汇票
33、根据资源税法法律制度的规定，下列各项中属于资源税纳税人的是（）。
A．进口金属矿石的冶炼企业
B．销售精盐的商场
C．开采原煤的公司
D．销售石油制品的加油站 34、2013年5月10日，甲公司以总款7000万元，从二级市场购人乙公司股票500万股准备长期持有，占乙公司30%的股份，对乙公司有重大影响。购人股票时，乙公司可辨认净资产的公允价值为20000万元，甲公司持有长期股权投资的人账价值为（）万元。
A．20000
B．1000
C．7000
D．6000
35、不影响权益法下长期股权投资成本的是()。
A被投资单位实现净利润
B被投资单位资本公积变动
C被投资单位收到现金捐赠
D被投资单位发放股票股利
【参考答案】D
36、某公司因雷电造成损失共计250万元，其中流动资产100万元，非流动资产150万，获得保险公司赔偿80万元，计入营业外支出的金额为()万元。
A.250
B.170
C.150
D.160
【参考答案】B
37、企业将房地产存货转回为采用公允价值模式计量的投资性房地产，转换日存货公允价值小于原账面价值的差额应计入的会计科目是（）。
A．公允价值变动损益
B．资本公积——其他资本公积
C．营业外支出
D．投资收益
38、事业单位会计期末应结转记入“事业结余”的是()。
A.事业收入本期发生额中的专项资金收入
B.上级补助收入本期发生额中的专项资金收入
C.其他收入本期发生额中的专项资金收入
D.其他收入本期发生额中的非专项资金收入
【参考答案】D
39、不影响权益法下长期股权投资成本的是()。
A被投资单位实现净利润
B被投资单位资本公积变动
C被投资单位收到现金捐赠
D被投资单位发放股票股利
【参考答案】D 40、下列各项中，应计人废品损失的是（）。
A．可修复废品的修复费用
B．实行“三包”企业的产品出售后发现的废品
C．产品入库后因保管不善发生的变质净损失
D．可修复废品返修前的费用
41、某企业2014年11月发生以下经济业务，支付专设销售机构固定资产修理费3万元；代垫销售商品运杂费2万元；支付受托方代销商品手续费10万元；结转随同商品出售单独计价包装物成本5万元；预计本月已销商品质量保证损失1万元；支付诉讼费0．8万元。该企业11月份应计人销售费用的金额是（）。
A．16
B．16．8
C．14
D．14．8 42、2013年4月20日，甲公司从二级市场购人乙公司股票100000股，购买价款为每股9．85元，包括已宣告但尚未发放的现金股利0．1元，另外，支付交易费用5000元，甲公司将其划分为可供出售金融资产，该资产的入账金额为（）元。
A．980000
B．985000
C．975000
D．990000
43、某企业采用毛利率法核算库存商品。2014年5月1日库存商品200万元，本月购人该种商品100万元，本月销售收入1200万元，上月毛利率15%，2014年5月末库存商品成本为（）万元。
A．1200
B．1530
C．1980
D．2100 44、2013年5月10日，甲公司以总款7000万元，从二级市场购人乙公司股票500万股准备长期持有，占乙公司30%的股份，对乙公司有重大影响。购人股票时，乙公司可辨认净资产的公允价值为20000万元，甲公司持有长期股权投资的人账价值为（）万元。
A．20000
B．1000
C．7000
D．6000
45、某企业采用毛利率法核算库存商品。2014年5月1日库存商品200万元，本月购人该种商品100万元，本月销售收入1200万元，上月毛利率15%，2014年5月末库存商品成本为（）万元。
A．1200
B．1530
C．1980
D．2100
46、下列科目可以按账户余额直接填列的（）。
A．其他应收款
B．在建工程
C．应付票据
D．固定资产
47、某企业随同商店出售不单独计价的包装物，应计入的会计科目为（）。
A．主营业务成本
B．管理费用
C．其他业务成本
D．销售费用
48、下列各项中，应计人废品损失的是（）。
A．可修复废品的修复费用
B．实行“三包”企业的产品出售后发现的废品
C．产品入库后因保管不善发生的变质净损失
D．可修复废品返修前的费用 49、2014年9月1日，某工业企业转让一项专利权，该专利权成本为250000元，累计返销50000元。取得转让价款300000元，不考虑其他因素，则下列关于转让专利权的会计处理结果正确的是（）。
A．营业外收入增加300000元
B．其他业务收入增加300000元
C．营业外收入增加100000元
D．其他业务收入增加100000元
50、下列各项中，不应列入资产负债表“资本公积”的是（）。
A．注销回购价格低于面值的库存股，其账面价值与所冲减股本的差额
B．可供出售金融资产发生的公允价值变动损益
C．采用权益法核算的长期股权投资按持股比例享有被投资单位实现净利润的份额
D．将存货转为以公允价值模式计量的投资性房地产，其公允价值高于账面余额的差额
第四篇：2013年会计从业《会计电算化》：单元格引用每日一练(3月9日)
2013年会计从业《会计电算化》：单元格引用每日一练（3月9日）
一、单选题(每题1分，以下备选项中，只有一项符合题目要求，不选、错选均不得分)
1、小规模纳税企业委托其他单位加工材料收回后用于连续生产消费税应税产品的，其发生的下列支出中，应计入委托加工物资成本的有（）。A、加工费 B、增值税
C、发出材料的实际成本 D、受托方代收代缴的消费税
2、在采用自营方式建造固定资产的情况下，下列项目中应计入固定资产取得成本的有（）。A、工程项目耗用的工程物资
B、工程领用本企业商品涉及的增值税销项税额 C、生产车间为工程提供的水、电等费用
D、企业行政管理部门为组织和管理生产经营活动而发生的费用
3、某企业购入Ｗ上市公司股票180万股，并划分为交易性金融资产，共支付款项2 830万元，其中包括已宣告但尚未发放的现金股利126万元。另外支付相关交易费用4万元。该项交易性金融资产的入账价值为（）万元。A、2 700
B、2 704 C、2 830
D、2 834
4、企业因销售商品收到商业汇票一张，下列账务处理中正确的是（）。A、借：银行存款
贷：主营业务收入 B、借：应收票据
贷：主营业务收入 C、借：银行存款
贷：主营业务收入
应交税费——应交增值税（销项税额）D、借：应收票据
贷：主营业务收入
应交税费——应交增值税（销项税额）
5、下列各项中，关于被投资单位宣告发放现金股利或分配利润时，正确的会计处理有（）。A、交易性金融资产持有期间，被投资单位宣告发放现金股利或利润时确认投资收益
B、长期股权投资采用成本法核算时，被投资单位宣告发放现金股利或利润时确认投资收益 C、长期股权投资采用权益法核算时，被投资单位宣告发放现金股利或利润时确认投资收益 D、长期股权投资采用权益法核算时，被投资单位宣告发放现金股利或利润时冲减其账面价值
6、下列各项中，影响固定资产折旧的因素有（）。A、固定资产原价
B、固定资产的预计使用寿命 C、固定资产预计净残值
D、已计提的固定资产减值准备
料的实际成本为（）万元。A、502.5
B、570
C、630
D、697.5
7、企业现金清查中，对于现金短缺，如果经查明应由相关责任人赔偿的，经批准后应计入（）。
A、管理费用
B、营业外支出 C、财务费用
D、其他应收款
8、下列关于存货盘盈盘亏说法正确的是（）。
A、存货盘盈时，经批准后，存在记入管理费用科目的情况 B、存货盘亏时，经批准后，存在记入管理费用科目的情况 C、企业发生存货盘盈盘亏，会涉及到“待处理财产损溢”科目 D、企业发生存货盘盈盘亏，不会涉及到“其他应收款”科目
9、某企业为增值税一般纳税人，委托其他单位加工应税消费品，该产品收回后继续加工，下列各项中，应计入委托加工物资成本的有（）。A、发出材料的实际成本 B、支付给受托方的加工费 C、支付给受托方的增值税 D、受托方代收代缴的消费税
10、下列各项中，是低值易耗品采用分次摊销法涉及到的科目有（）。A、周转材料—低值易耗品—在用 B、周转材料—低值易耗品—在库 C、周转材料—低值易耗品—摊销 D、制造费用
11、下列关于交易性金融资产的说法中正确的有（）。A、购入的交易性金融资产实际支付的价款中包含的已宣告但尚未领取的现金股利或已到付息期但尚未领取的债券利息，应单独核算，不构成交易性金融资产的成本 B、为购入交易性金融资产所支付的相关交易费用，不计入该资产的成本 C、为购入交易性金融资产所支付的相关交易费用，应计入该资产的成本 D、交易性金融资产在持有期间取得的现金股利，应确认为投资收益
12、小规模纳税企业委托其他单位加工材料收回后用于连续生产消费税应税产品的，其发生的下列支出中，应计入委托加工物资成本的有（）。A、加工费 B、增值税
C、发出材料的实际成本 D、受托方代收代缴的消费税
13、某企业采用先进先出法计算发出甲材料的成本，2011年2月1日，结存甲材料200公斤，每公斤实际成本100元；2月10日购入甲材料300公斤，每公斤实际成本110元；2月15日发出甲材料400公斤。2月末，库存甲材料的实际成本为（）元。A、10 000
B、10 500
C、10 600
D、11 000
14、下列各项中，关于无形资产摊销表述正确的是（）。A、使用寿命不确定的无形资产应按照10年摊销 B、出租无形资产的摊销额应计入管理费用 C、使用寿命有限的无形资产处置当月仍然摊销 D、无形资产的摊销方法主要有直线法和生产总量法
15、下列各项中，属于投资性房地产的有（）。A、房地产企业持有的待售商品房 B、以经营租赁方式出租的商用房 C、以经营租赁方式出租的土地使用权 D、以经营租赁方式租入后再转租的建筑物
16、下列情况下，投资方应采用权益法核算长期股权投资的有（）。A、控制 B、重大影响 C、无重大影响 D、共同控制
17、固定资产费用化的后续支出可以计入（）。A、管理费用 B、制造费用 C、销售费用 D、财务费用
18、企业购入的采用权益法核算的长期股权投资，其初始投资成本包括（）。A、购入时实际支付的价款
B、支付的价款中包含的被投资方已宣告但尚未发放的现金股利 C、支付的印花税
D、为取得长期股权投资发生的相关手续费
19、下列情况中能够采用权益法核算的有（）。A、企业对其合营企业的长期股权投资 B、企业对其联营企业的长期股权投资 C、企业对其子公司的长期股权投资
D、企业对被投资单位具有重大影响的长期股权投资
20、企业盘亏生产用设备一台，该设备账面原值为150000元，已提折旧24000元，取得相关保管人员的责任赔款5000元，已存入银行。经上级批准相关损失转入当期“营业外支出”的金额是（）元。A、121000 B、5000 C、126000 D、116000
21、在采用自营方式建造固定资产的情况下，下列项目中应计入固定资产取得成本的有（）。
A、工程项目耗用的工程物资
B、工程领用本企业商品涉及的增值税销项税额 C、生产车间为工程提供的水、电等费用
D、企业行政管理部门为组织和管理生产经营活动而发生的费用
22、存货成本包括（）。A、采购成本 B、加工成本 C、主营业务成本 D、其他成本
23、企业盘亏生产用设备一台，该设备账面原值为150000元，已提折旧24000元，取得相关保管人员的责任赔款5000元，已存入银行。经上级批准相关损失转入当期“营业外支出”的金额是（）元。A、121000 B、5000 C、126000 D、116000
24、企业盘亏生产用设备一台，该设备账面原值为150000元，已提折旧24000元，取得相关保管人员的责任赔款5000元，已存入银行。经上级批准相关损失转入当期“营业外支出”的金额是（）元。A、121000 B、5000 C、126000 D、116000
25、企业在连续提取坏账准备的情况下，“坏账准备”科目在期末结账前如为贷方余额，其反映的内容是（）。
A、企业已提取但尚未转销的坏账准备数额
B、上年末坏账准备的余额小于本年确认的坏账损失部分 C、已经发生的坏账损失 D、本年提取的坏账准备
26、甲公司2011年7月1日购入乙公司2011年1月1日发行的债券，支付价款2 100万元(含已到付息期但尚未领取的债券利息40万元)，另支付交易费用20万元。该债券面值为2 000万元，票面年利率为4%(票面利率等于实际利率)，每半年付息一次，甲公司将其划分为交易性金融资产。2011年12月31日该交易性金融资产的公允价值为2 100万元，则甲公司2011因该项交易性金融资产而影响利润的金额为()万元。A、25 B、60 C、65 D、80
27、（）是指企业为了到外地进行临时或者零星采购，而汇往采购地银行开立采购专户的存款。
A、信用卡存款
B、信用证保证金存款 C、外埠存款 D、存出投资款
28、“材料成本差异”账户贷方可以用来登记（）。A、购进材料实际成本小于计划成本的差额 B、发出材料应负担的超支差异
C、发出材料应负担的节约差异
D、购进材料实际成本大于计划成本的差额
29、固定资产费用化的后续支出可以计入（）。A、管理费用 B、制造费用 C、销售费用 D、财务费用
30、下列关于存货盘盈盘亏说法正确的是（）。
A、存货盘盈时，经批准后，存在记入管理费用科目的情况 B、存货盘亏时，经批准后，存在记入管理费用科目的情况 C、企业发生存货盘盈盘亏，会涉及到“待处理财产损溢”科目 D、企业发生存货盘盈盘亏，不会涉及到“其他应收款”科目
31、甲企业为房地产开发企业，现有存货商品房一栋，实际开发成本为10 000万元，2010年12月31日，甲公司将该商品房以经营租赁方式提供给乙公司使用，租赁期为3年。甲公司对该商品房采用公允价值模式进行后续计量，预计使用寿命为50年，预计净残值为零。2010年12月31日该商品房公允价值为12 000万元，假定不考虑其他因素，下列关于甲公司2010年12月31日会计报表项目列报正确的有（）。A、资本公积-其他资本公积为2 000 万元 B、固定资产10 000万元
C、投资性房地产为12 000万元 D、无形资产为12 000万元
32、下列情况中能够采用权益法核算的有（）。A、企业对其合营企业的长期股权投资 B、企业对其联营企业的长期股权投资 C、企业对其子公司的长期股权投资
D、企业对被投资单位具有重大影响的长期股权投资
33、某增值税一般纳税企业因管理不善导致一批库存材料被盗，该批原材料实际成本为20 000元，保险公司赔偿11 600元。该企业购入材料的增值税税率为17%，该批毁损原材料造成的非正常损失净额是（）元。A、8 400 B、19 600 C、9 200 D、11 800
34、某企业采用先进先出法计算发出甲材料的成本，2011年2月1日，结存甲材料200公斤，每公斤实际成本100元；2月10日购入甲材料300公斤，每公斤实际成本110元；2月15日发出甲材料400公斤。2月末，库存甲材料的实际成本为（）元。A、10 000
B、10 500 C、10 600
D、11 000
35、下列关于存货，说法正确的有（）。
A、存货的采购成本包括购买价款、相关税费、运输费、装卸费、保险费等
B、存货的加工成本指的是加工过程中发生的追加费用，包括直接人工，但是不包括分配的制造费用
C、非正常消耗的直接材料、直接人工和制造费用应该在发生时计入当期损益，不计入成本 D、仓储费用指企业在存货采购入库后发生的储存费用，应该计入成本
36、下列关于存货，说法正确的有（）。
A、存货的采购成本包括购买价款、相关税费、运输费、装卸费、保险费等
B、存货的加工成本指的是加工过程中发生的追加费用，包括直接人工，但是不包括分配的制造费用
C、非正常消耗的直接材料、直接人工和制造费用应该在发生时计入当期损益，不计入成本 D、仓储费用指企业在存货采购入库后发生的储存费用，应该计入成本
37、存货成本包括（）。A、采购成本 B、加工成本 C、主营业务成本 D、其他成本
38、（）是指企业为了到外地进行临时或者零星采购，而汇往采购地银行开立采购专户的存款。
A、信用卡存款
B、信用证保证金存款 C、外埠存款 D、存出投资款
39、在采用自营方式建造固定资产的情况下，下列项目中应计入固定资产取得成本的有（）。
A、工程项目耗用的工程物资
B、工程领用本企业商品涉及的增值税销项税额 C、生产车间为工程提供的水、电等费用
D、企业行政管理部门为组织和管理生产经营活动而发生的费用
40、某企业为增值税一般纳税人，委托其他单位加工应税消费品，该产品收回后继续加工，下列各项中，应计入委托加工物资成本的有（）。A、发出材料的实际成本 B、支付给受托方的加工费 C、支付给受托方的增值税 D、受托方代收代缴的消费税
41、（）是指企业为了到外地进行临时或者零星采购，而汇往采购地银行开立采购专户的存款。
A、信用卡存款
B、信用证保证金存款 C、外埠存款 D、存出投资款
42、下列各项中，一般不会引起无形资产账面价值发生增减变动的是（）。A、对无形资产计提减值准备
B、无形资产可收回金额大于账面价值 C、摊销无形资产
D、转让无形资产所有权
43、预付货款不多的企业，可以将预付的货款直接记入（）的借方，而不单独设置“预付账款”账户。
A、“应收账款”账户 B、“其他应收款”账户
C、“应付账款”账户 D、“应收票据”账户
44、A公司于2010年1月5日从证券市场上购入B公司发行在外的股票100万股作为可供出售金融资产，每股支付价款6元(含已宣告但尚未发放的现金股利0.5元)，另支付相关费用12万元，不考虑其他因素，则A公司可供出售金融资产取得时的入账价值为（）万元。A、600 B、612 C、550 D、562
45、某企业为增值税一般纳税人，委托其他单位加工应税消费品，该产品收回后继续加工，下列各项中，应计入委托加工物资成本的有（）。A、发出材料的实际成本 B、支付给受托方的加工费 C、支付给受托方的增值税 D、受托方代收代缴的消费税
46、在采用自营方式建造固定资产的情况下，下列项目中应计入固定资产取得成本的有（）。
A、工程项目耗用的工程物资
B、工程领用本企业商品涉及的增值税销项税额 C、生产车间为工程提供的水、电等费用
D、企业行政管理部门为组织和管理生产经营活动而发生的费用
47、（）是指企业为了到外地进行临时或者零星采购，而汇往采购地银行开立采购专户的存款。
A、信用卡存款
B、信用证保证金存款 C、外埠存款 D、存出投资款
48、下列各项中，关于被投资单位宣告发放现金股利或分配利润时，正确的会计处理有（）。A、交易性金融资产持有期间，被投资单位宣告发放现金股利或利润时确认投资收益
B、长期股权投资采用成本法核算时，被投资单位宣告发放现金股利或利润时确认投资收益 C、长期股权投资采用权益法核算时，被投资单位宣告发放现金股利或利润时确认投资收益 D、长期股权投资采用权益法核算时，被投资单位宣告发放现金股利或利润时冲减其账面价值
49、下列关于存货，说法正确的有（）。
A、存货的采购成本包括购买价款、相关税费、运输费、装卸费、保险费等
B、存货的加工成本指的是加工过程中发生的追加费用，包括直接人工，但是不包括分配的制造费用
C、非正常消耗的直接材料、直接人工和制造费用应该在发生时计入当期损益，不计入成本 D、仓储费用指企业在存货采购入库后发生的储存费用，应该计入成本
50、某商业企业采用售价金额核算法计算期末存货成本。本月月初存货成本为10 000元，售价总额为15 000元；本月购入存货成本为50 000元，相应的售价总额为60 000元；本月销售收入为50 000元。该企业本月销售成本为（）元。A、48 333
B、20 000 C、40 000 D、16 667
51、下列关于存货盘盈盘亏说法正确的是（）。
A、存货盘盈时，经批准后，存在记入管理费用科目的情况 B、存货盘亏时，经批准后，存在记入管理费用科目的情况 C、企业发生存货盘盈盘亏，会涉及到“待处理财产损溢”科目 D、企业发生存货盘盈盘亏，不会涉及到“其他应收款”科目
52、在采用自营方式建造固定资产的情况下，下列项目中应计入固定资产取得成本的有（）。
A、工程项目耗用的工程物资
B、工程领用本企业商品涉及的增值税销项税额 C、生产车间为工程提供的水、电等费用
D、企业行政管理部门为组织和管理生产经营活动而发生的费用
53、.某企业月初结存材料的计划成本为250万元，材料成本差异为超支差45万元；当月入库材料的计划成本为550万元，材料成本差异为节约差85万元；当月生产车间领用材料的计划成本为600万元。当月生产车间领用材
54、某增值税一般纳税企业因管理不善导致一批库存材料被盗，该批原材料实际成本为20 000元，保险公司赔偿11 600元。该企业购入材料的增值税税率为17%，该批毁损原材料造成的非正常损失净额是（）元。A、8 400 B、19 600 C、9 200 D、11 800
55、下列关于交易性金融资产的说法中正确的有（）。A、购入的交易性金融资产实际支付的价款中包含的已宣告但尚未领取的现金股利或已到付息期但尚未领取的债券利息，应单独核算，不构成交易性金融资产的成本 B、为购入交易性金融资产所支付的相关交易费用，不计入该资产的成本 C、为购入交易性金融资产所支付的相关交易费用，应计入该资产的成本 D、交易性金融资产在持有期间取得的现金股利，应确认为投资收益
56、资产负债表日，持有至到期投资在持有期间应当按照（）计算确认利息收入，作为投资收益进行会计处理。A、摊余成本和实际利率 B、面值和实际利率 C、摊余成本和票面利率 D、面值和票面利率
57、甲企业为房地产开发企业，现有存货商品房一栋，实际开发成本为10 000万元，2010年12月31日，甲公司将该商品房以经营租赁方式提供给乙公司使用，租赁期为3年。甲公司对该商品房采用公允价值模式进行后续计量，预计使用寿命为50年，预计净残值为零。2010年12月31日该商品房公允价值为12 000万元，假定不考虑其他因素，下列关于甲公司2010年12月31日会计报表项目列报正确的有（）。A、资本公积-其他资本公积为2 000 万元 B、固定资产10 000万元
C、投资性房地产为12 000万元
D、无形资产为12 000万元
58、固定资产费用化的后续支出可以计入（）。A、管理费用 B、制造费用 C、销售费用 D、财务费用
59、企业购入的采用权益法核算的长期股权投资，其初始投资成本包括（）。A、购入时实际支付的价款
B、支付的价款中包含的被投资方已宣告但尚未发放的现金股利 C、支付的印花税
D、为取得长期股权投资发生的相关手续费 60、存货成本包括（）。A、采购成本 B、加工成本 C、主营业务成本 D、其他成本
61、某企业为增值税一般纳税人，委托其他单位加工应税消费品，该产品收回后继续加工，下列各项中，应计入委托加工物资成本的有（）。A、发出材料的实际成本 B、支付给受托方的加工费 C、支付给受托方的增值税 D、受托方代收代缴的消费税
62、某企业购入Ｗ上市公司股票180万股，并划分为交易性金融资产，共支付款项2 830万元，其中包括已宣告但尚未发放的现金股利126万元。另外支付相关交易费用4万元。该项交易性金融资产的入账价值为（）万元。A、2 700
B、2 704 C、2 830
D、2 834 63、企业3月末银行日记账余额为150万元，与银行对账单对比，发现企业14日收到货款10万，银行没有收到通知，银行30日代缴水电费2万元，企业未收到通知。则调节后的银行日记账余额为（）万元。A、148 B、142 C、162 D、158 64、下列关于存货，说法正确的有（）。
A、存货的采购成本包括购买价款、相关税费、运输费、装卸费、保险费等
B、存货的加工成本指的是加工过程中发生的追加费用，包括直接人工，但是不包括分配的制造费用
C、非正常消耗的直接材料、直接人工和制造费用应该在发生时计入当期损益，不计入成本 D、仓储费用指企业在存货采购入库后发生的储存费用，应该计入成本 65、某企业采用先进先出法计算发出甲材料的成本，2011年2月1日，结存甲材料200公斤，每公斤实际成本100元；2月10日购入甲材料300公斤，每公斤实际成本110元；2月15
日发出甲材料400公斤。2月末，库存甲材料的实际成本为（）元。A、10 000
B、10 500 C、10 600
D、11 000 66、下列关于固定资产计提折旧的表述中，正确的有（）。A、提前报废的固定资产，不再补提折旧
B、固定资产折旧方法的改变属于会计估计变更 C、当月减少的固定资产，当月起停止计提折旧
D、已提足折旧但仍然继续使用的固定资产不再计提折旧
67、企业发生的下列与增值税相关的业务中，增值税应计入相关资产或负债成本中的有（）。
A、自产产品用于非应税项目 B、自产产品用于职工个人消费
C、一般纳税企业购入商品未取得增值税专用发票 D、小规模纳税企业委托加工物资所支付的增值税
68、A企业为增值税一般纳税人，原材料的核算采用计划成本法，从一般纳税人处购买一批乙材料，该材料计划成本每吨为20元。本期购进6 000吨，但并未取得增值税专用发票,只取得了普通发票，发票上注明的价款总额为119 340元。另发生运杂费用1 400元，途中保险费用 359元。原材料运抵企业后验收入库原材料5 995吨，运输途中合理损耗5吨。购进A材料发生的成本差异（超支）为（）元。A、1 099 B、1 199 C、16 141 D、16 241 69、下列各项中，关于被投资单位宣告发放现金股利或分配利润时，正确的会计处理有（）。A、交易性金融资产持有期间，被投资单位宣告发放现金股利或利润时确认投资收益
B、长期股权投资采用成本法核算时，被投资单位宣告发放现金股利或利润时确认投资收益 C、长期股权投资采用权益法核算时，被投资单位宣告发放现金股利或利润时确认投资收益 D、长期股权投资采用权益法核算时，被投资单位宣告发放现金股利或利润时冲减其账面价值 70、某商业企业采用售价金额核算法计算期末存货成本。本月月初存货成本为10 000元，售价总额为15 000元；本月购入存货成本为50 000元，相应的售价总额为60 000元；本月销售收入为50 000元。该企业本月销售成本为（）元。A、48 333 B、20 000 C、40 000 D、16 667 71、下列关于存货盘盈盘亏说法正确的是（）。
A、存货盘盈时，经批准后，存在记入管理费用科目的情况 B、存货盘亏时，经批准后，存在记入管理费用科目的情况 C、企业发生存货盘盈盘亏，会涉及到“待处理财产损溢”科目 D、企业发生存货盘盈盘亏，不会涉及到“其他应收款”科目
72、甲公司出售了持有的交易性金融资产，售价为2 500万元，出售时，交易性金融资产—成本为借方余额2 400万元，交易性金融资产—公允价值变动为借方余额5万元，求出售时
影响利润（）万元。A、100 B、95 C、75 D、85 73、企业购入的采用权益法核算的长期股权投资，其初始投资成本包括（）。A、购入时实际支付的价款
B、支付的价款中包含的被投资方已宣告但尚未发放的现金股利 C、支付的印花税
D、为取得长期股权投资发生的相关手续费
74、在采用自营方式建造固定资产的情况下，下列项目中应计入固定资产取得成本的有（）。
A、工程项目耗用的工程物资
B、工程领用本企业商品涉及的增值税销项税额 C、生产车间为工程提供的水、电等费用
D、企业行政管理部门为组织和管理生产经营活动而发生的费用 75、下列关于固定资产计提折旧的表述中，正确的有（）。A、提前报废的固定资产，不再补提折旧
B、固定资产折旧方法的改变属于会计估计变更 C、当月减少的固定资产，当月起停止计提折旧
D、已提足折旧但仍然继续使用的固定资产不再计提折旧 76、下列各项中，影响固定资产折旧的因素有（）。A、固定资产原价
B、固定资产的预计使用寿命 C、固定资产预计净残值
D、已计提的固定资产减值准备 料的实际成本为（）万元。A、502.5
B、570
C、630
D、697.5 77、企业核算确认和收到交易性金融资产的现金股利时，可能涉及的会计科目有()。A、投资收益
B、交易性金融资产 C、应收股利 D、银行存款
78、下列各项中，属于投资性房地产的有（）。A、房地产企业持有的待售商品房 B、以经营租赁方式出租的商用房 C、以经营租赁方式出租的土地使用权 D、以经营租赁方式租入后再转租的建筑物 79、某企业采用先进先出法计算发出甲材料的成本，2011年2月1日，结存甲材料200公斤，每公斤实际成本100元；2月10日购入甲材料300公斤，每公斤实际成本110元；2月15日发出甲材料400公斤。2月末，库存甲材料的实际成本为（）元。
A、10 000
B、10 500 C、10 600
D、11 000 80、下列情况中能够采用权益法核算的有（）。A、企业对其合营企业的长期股权投资 B、企业对其联营企业的长期股权投资 C、企业对其子公司的长期股权投资
D、企业对被投资单位具有重大影响的长期股权投资
81、企业盘亏生产用设备一台，该设备账面原值为150000元，已提折旧24000元，取得相关保管人员的责任赔款5000元，已存入银行。经上级批准相关损失转入当期“营业外支出”的金额是（）元。A、121000 B、5000 C、126000 D、116000 82、下列各项中，属于投资性房地产的有（）。A、房地产企业持有的待售商品房 B、以经营租赁方式出租的商用房 C、以经营租赁方式出租的土地使用权 D、以经营租赁方式租入后再转租的建筑物
83、下列各项中，在确认销售收入时不影响应收账款入账金额的是（）。A、销售价款
B、增值税销项税额 C、现金折扣
D、销售产品代垫的运杂费
84、下列关于长期股权投资会计处理的表述中，正确的有（）。A、对合营企业的长期股权投资应采用权益法核算
B、长期股权投资减值准备一经确认，在以后会计期间不得转回
C、权益法下，按被投资方宣告发放现金股利应享有的份额确认投资收益 D、权益法下，按被投资方实现净利润应享有的份额确认投资收益
85、下列各项中，是低值易耗品采用分次摊销法涉及到的科目有（）。A、周转材料—低值易耗品—在用 B、周转材料—低值易耗品—在库 C、周转材料—低值易耗品—摊销 D、制造费用
86、下列各项中，应当确认为投资收益的有（）。A、支付与取得交易性金融资产直接相关的费用 B、支付与取得长期股权投资直接相关的费用 C、期末交易性金融资产公允价值变动的金额 D、处置长期股权投资净损益
87、某企业购入Ｗ上市公司股票180万股，并划分为交易性金融资产，共支付款项2 830万元，其中包括已宣告但尚未发放的现金股利126万元。另外支付相关交易费用4万元。该项交易性金融资产的入账价值为（）万元。
A、2 700
B、2 704 C、2 830
D、2 834 88、.某企业月初结存材料的计划成本为250万元，材料成本差异为超支差45万元；当月入库材料的计划成本为550万元，材料成本差异为节约差85万元；当月生产车间领用材料的计划成本为600万元。当月生产车间领用材
89、下列各项中，应当确认为投资收益的有（）。A、支付与取得交易性金融资产直接相关的费用 B、支付与取得长期股权投资直接相关的费用 C、期末交易性金融资产公允价值变动的金额 D、处置长期股权投资净损益
90、小规模纳税企业委托其他单位加工材料收回后用于连续生产消费税应税产品的，其发生的下列支出中，应计入委托加工物资成本的有（）。A、加工费 B、增值税
C、发出材料的实际成本 D、受托方代收代缴的消费税 91、2011年年末某企业应收A公司的应收账款余额为500万元，已提坏账准备30万元，经单独减值测试，确定该应收账款的未来现金流量现值为410万元，则年末该企业应确认的该资产减值损失为（）万元。A、90 B、60 C、40 D、30 92、甲公司出售了持有的交易性金融资产，售价为2 500万元，出售时，交易性金融资产—成本为借方余额2 400万元，交易性金融资产—公允价值变动为借方余额5万元，求出售时影响利润（）万元。A、100 B、95 C、75 D、85 93、某增值税一般纳税企业因管理不善导致一批库存材料被盗，该批原材料实际成本为20 000元，保险公司赔偿11 600元。该企业购入材料的增值税税率为17%，该批毁损原材料造成的非正常损失净额是（）元。A、8 400 B、19 600 C、9 200 D、11 800 94、某商业企业采用售价金额核算法计算期末存货成本。本月月初存货成本为10 000元，售价总额为15 000元；本月购入存货成本为50 000元，相应的售价总额为60 000元；本月销售收入为50 000元。该企业本月销售成本为（）元。A、48 333 B、20 000
C、40 000 D、16 667 95、下列各项中，关于无形资产摊销表述正确的是（）。A、使用寿命不确定的无形资产应按照10年摊销 B、出租无形资产的摊销额应计入管理费用 C、使用寿命有限的无形资产处置当月仍然摊销 D、无形资产的摊销方法主要有直线法和生产总量法
96、甲公司出售了持有的交易性金融资产，售价为2 500万元，出售时，交易性金融资产—成本为借方余额2 400万元，交易性金融资产—公允价值变动为借方余额5万元，求出售时影响利润（）万元。A、100 B、95 C、75 D、85 97、下列关于交易性金融资产的说法中正确的有（）。A、购入的交易性金融资产实际支付的价款中包含的已宣告但尚未领取的现金股利或已到付息期但尚未领取的债券利息，应单独核算，不构成交易性金融资产的成本 B、为购入交易性金融资产所支付的相关交易费用，不计入该资产的成本 C、为购入交易性金融资产所支付的相关交易费用，应计入该资产的成本 D、交易性金融资产在持有期间取得的现金股利，应确认为投资收益
98、甲公司出售了持有的交易性金融资产，售价为2 500万元，出售时，交易性金融资产—成本为借方余额2 400万元，交易性金融资产—公允价值变动为借方余额5万元，求出售时影响利润（）万元。A、100 B、95 C、75 D、85 99、企业对随同商品出售且单独计价的包装物进行会计处理时，该包装物的实际成本应结转到的会计科目是（）。A、制造费用 B、管理费用 C、销售费用 D、其他业务成本
100、企业3月末银行日记账余额为150万元，与银行对账单对比，发现企业14日收到货款10万，银行没有收到通知，银行30日代缴水电费2万元，企业未收到通知。则调节后的银行日记账余额为（）万元。A、148 B、142 C、162 D、158 101、企业在连续提取坏账准备的情况下，“坏账准备”科目在期末结账前如为贷方余额，其反映的内容是（）。
A、企业已提取但尚未转销的坏账准备数额
B、上年末坏账准备的余额小于本年确认的坏账损失部分
C、已经发生的坏账损失 D、本年提取的坏账准备
102、下列各项中，企业可以采用的发出存货成本计价方法有（）。A、先进先出法 B、移动加权平均法 C、个别计价法
D、成本与可变现净值孰低法
103、企业发生的下列与增值税相关的业务中，增值税应计入相关资产或负债成本中的有（）。
A、自产产品用于非应税项目 B、自产产品用于职工个人消费
C、一般纳税企业购入商品未取得增值税专用发票 D、小规模纳税企业委托加工物资所支付的增值税 104、下列各项中，属于投资性房地产的有（）。A、房地产企业持有的待售商品房 B、以经营租赁方式出租的商用房 C、以经营租赁方式出租的土地使用权 D、以经营租赁方式租入后再转租的建筑物
105、成本法下处置长期股权投资，可能涉及的会计科目有（）。A、长期股权投资减值准备 B、资本公积 C、投资收益 D、应收股利
106、企业现金清查中，对于现金短缺，如果经查明应由相关责任人赔偿的，经批准后应计入（）。
A、管理费用
B、营业外支出 C、财务费用
D、其他应收款
107、甲公司2011年7月1日购入乙公司2011年1月1日发行的债券，支付价款2 100万元(含已到付息期但尚未领取的债券利息40万元)，另支付交易费用20万元。该债券面值为2 000万元，票面年利率为4%(票面利率等于实际利率)，每半年付息一次，甲公司将其划分为交易性金融资产。2011年12月31日该交易性金融资产的公允价值为2 100万元，则甲公司2011因该项交易性金融资产而影响利润的金额为()万元。A、25 B、60 C、65 D、80 108、某企业于2011年9月1日销售商品一批，增值税专用发票上标明的价款为200万元，适用的增值税税率为17％，合同规定的现金折扣条件为2/10，1/20，n/30(计算现金折扣时不考虑增值税)，2011年9月9日收到购货方支付的货款。该企业销售商品时确认的应收账款为（）万元。A、200 B、203
C、237 D、234 109、在采用自营方式建造固定资产的情况下，下列项目中应计入固定资产取得成本的有（）。
A、工程项目耗用的工程物资
B、工程领用本企业商品涉及的增值税销项税额 C、生产车间为工程提供的水、电等费用
D、企业行政管理部门为组织和管理生产经营活动而发生的费用
110、企业盘亏生产用设备一台，该设备账面原值为150000元，已提折旧24000元，取得相关保管人员的责任赔款5000元，已存入银行。经上级批准相关损失转入当期“营业外支出”的金额是（）元。A、121000 B、5000 C、126000 D、116000 111、下列情况中能够采用权益法核算的有（）。A、企业对其合营企业的长期股权投资 B、企业对其联营企业的长期股权投资 C、企业对其子公司的长期股权投资
D、企业对被投资单位具有重大影响的长期股权投资 112、下列关于存货盘盈盘亏说法正确的是（）。
A、存货盘盈时，经批准后，存在记入管理费用科目的情况 B、存货盘亏时，经批准后，存在记入管理费用科目的情况 C、企业发生存货盘盈盘亏，会涉及到“待处理财产损溢”科目 D、企业发生存货盘盈盘亏，不会涉及到“其他应收款”科目
113、甲公司2011年7月1日购入乙公司2011年1月1日发行的债券，支付价款2 100万元(含已到付息期但尚未领取的债券利息40万元)，另支付交易费用20万元。该债券面值为2 000万元，票面年利率为4%(票面利率等于实际利率)，每半年付息一次，甲公司将其划分为交易性金融资产。2011年12月31日该交易性金融资产的公允价值为2 100万元，则甲公司2011因该项交易性金融资产而影响利润的金额为()万元。A、25 B、60 C、65 D、80 114、下列各项中，属于投资性房地产的有（）。A、房地产企业持有的待售商品房 B、以经营租赁方式出租的商用房 C、以经营租赁方式出租的土地使用权 D、以经营租赁方式租入后再转租的建筑物
115、.某企业月初结存材料的计划成本为250万元，材料成本差异为超支差45万元；当月入库材料的计划成本为550万元，材料成本差异为节约差85万元；当月生产车间领用材料的计划成本为600万元。当月生产车间领用材
116、某增值税一般纳税企业因管理不善导致一批库存材料被盗，该批原材料实际成本为20 000元，保险公司赔偿11 600元。该企业购入材料的增值税税率为17%，该批毁损原材料造
成的非正常损失净额是（）元。A、8 400 B、19 600 C、9 200 D、11 800 117、企业现金清查中，对于现金短缺，如果经查明应由相关责任人赔偿的，经批准后应计入（）。
A、管理费用
B、营业外支出 C、财务费用
D、其他应收款
118、某企业于2011年9月1日销售商品一批，增值税专用发票上标明的价款为200万元，适用的增值税税率为17％，合同规定的现金折扣条件为2/10，1/20，n/30(计算现金折扣时不考虑增值税)，2011年9月9日收到购货方支付的货款。该企业销售商品时确认的应收账款为（）万元。A、200 B、203 C、237 D、234 119、甲公司2011年7月1日购入乙公司2011年1月1日发行的债券，支付价款2 100万元(含已到付息期但尚未领取的债券利息40万元)，另支付交易费用20万元。该债券面值为2 000万元，票面年利率为4%(票面利率等于实际利率)，每半年付息一次，甲公司将其划分为交易性金融资产。2011年12月31日该交易性金融资产的公允价值为2 100万元，则甲公司2011因该项交易性金融资产而影响利润的金额为()万元。A、25 B、60 C、65 D、80 120、成本法下处置长期股权投资，可能涉及的会计科目有（）。A、长期股权投资减值准备 B、资本公积 C、投资收益 D、应收股利
121、甲企业为房地产开发企业，现有存货商品房一栋，实际开发成本为10 000万元，2010年12月31日，甲公司将该商品房以经营租赁方式提供给乙公司使用，租赁期为3年。甲公司对该商品房采用公允价值模式进行后续计量，预计使用寿命为50年，预计净残值为零。2010年12月31日该商品房公允价值为12 000万元，假定不考虑其他因素，下列关于甲公司2010年12月31日会计报表项目列报正确的有（）。A、资本公积-其他资本公积为2 000 万元 B、固定资产10 000万元
C、投资性房地产为12 000万元 D、无形资产为12 000万元
第五篇：VBA代码中引用Excel工作表中单元格区域的方式小结
VBA代码中引用Excel工作表中单元格区域的方式小结.txt大人物的悲哀在于他们需要不停地做出选择；而小人物的悲哀在于他们从来没有选择的机会。男人因沧桑而成熟，女人因成熟而沧桑。男人有了烟，有了酒，也就有了故事；女人有了钱，有了资色，也就有了悲剧。在VBA代码中引用Excel工作表中单元格区域的方式小结
问题一：在VBA代码中，如何引用当前工作表中的单个单元格(例如引用单元格C3)？ 回答：可以使用下面列举的任一方式对当前工作表中的单元格(C3)进行引用。(1)Range(“C3”)(2)[C3](3)Cells(3, 3)(4)Cells(3, “C”)(5)Range(“C4”).Offset(-1)Range(“D3”).Offset(,-1)Range(“A1”).Offset(2, 2)(6)若C3为当前单元格，则可使用：ActiveCell(7)若将C3单元格命名为“Range1”，则可使用：Range(“Range1”)或[Range1](8)Cells(4, 3).Offset(-1)
------------------问题二：在VBA代码中，我要引用当前工作表中的B2:D6单元格区域，有哪些方式？ 回答：可以使用下面列举的任一方式对当前工作表中单元格区域B2:D6进行引用。(1)Range(“B2:D6”)(2)Range(“B2”, “D6”)(3)[B2:D6](4)Range(Range(“B2”), Range(“D6”))(5)Range(Cells(2, 2), Cells(6, 4))(6)若将B2:D6区域命名为“MyRange”，则又可以使用下面的语句引用该区域： ① Range(“MyRange”)② [MyRange](7)Range(“B2”).Resize(5, 3)(8)Range(“A1:C5”).Offset(1, 1)(9)若单元格B2为当前单元格，则可使用语句：Range(ActiveCell, ActiveCell.Offset(4, 2))(10)若单元格D6为当前单元格，则可使用语句：Range(“B2”, ActiveCell)
------------------问题三：在VBA代码中，如何使用变量实现对当前工作表中不确定单元格区域的引用？ 回答：有时，我们需要在代码中依次获取工作表中特定区域内的单元格，这通常可以采取下面的几种方式：
(1)Range(“A” & i)(2)Range(“A” & i & “:C” & i)(3)Cells(i,1)(4)Cells(i,j)其中，i、j为变量，在循环语句中指定i和j的范围后，依次获取相应单元格。------------------问题四：在VBA代码中，如何扩展引用当前工作表中的单元格区域？ 回答：可以使用Resize属性，例如：
(1)ActiveCell.Resize(4, 4)，表示自当前单元格开始创建一个4行4列的区域。(2)Range(“B2”).Resize(2, 2)，表示创建B2:C3单元格区域。(3)Range(“B2”).Resize(2)，表示创建B2:B3单元格区域。(4)Range(“B2”).Resize(, 2)，表示创建B2:C2单元格区域。
如果是在一个单元格区域(如B3:E6)，或一个命名区域中(如将单元格区域B3:E6命名为“MyRange”)使用Resize属性，则只是相对于单元格区域左上角单元格扩展区域，例如： 代码Range(“C3:E6”).Resize(, 2)，表示单元格区域C3：D6，并且扩展的单元格区域可不在原单元格区域内。因此，可以知道Resize属性是相对于当前活动单元格或某单元格区域中左上角单元格按指定的行数或列数扩展单元格区域。
------------------问题五：在VBA代码中，如何在当前工作表中基于当前单元格区域或指定单元格区域处理其它单元格区域？
回答：可以使用Offset属性，例如：
(1)Range(“A1”).Offset(2, 2)，表示单元格C3。
(2)ActiveCell.Offset(, 1)，表示当前单元格下一列的单元格。(3)ActiveCell.Offset(1)，表示当前单元格下一行的单元格。
(4)Range(“C3:D5”).Offset(, 1)，表示单元格区域D3:E5，即将整个区域偏移一列。从上面的代码示例可知，Offset属性从所指定的单元格开始按指定的行数和列数偏移，从而到达目的单元格，但偏移的行数和列数不包括指定单元格本身。
------------------问题六：在VBA代码中，如何在当前工作表中引用交叉区域？ 回答：可以使用Intersect方法，例如： Intersect(Range(“C3:E6”), Range(“D5:F8”))，表示单元格区域D5:E6，即单元格区域C3:E6与D5:F8相重迭的区域。
------------------问题七：在VBA代码中，如何在当前工作表中引用多个区域？ 回答：
(1)可以使用Union方法，例如：
Union(Range(“C3:D4”), Range(“E5:F6”))，表示单元格区域C3:D4和E5:F6所组成的区域。Union方法可以将多个非连续区域连接起来成为一个区域，从而可以实现对多个非连续区域一起进行操作。
(2)也可以使用下面的代码：
Range(“C3:D4, E5:F6”)或[C3:D4, E5:F6] 注意：Range(“C3:D4”, “F5:G6”)，表示单元格区域C3:G6，即将两个区域以第一个区域左上角单元格为起点，以第二个区域右下角单元格为终点连接成一个新区域。
同时，在引用区域后使用Rows属性和Columns属性时，注意下面代码的区别： ①Range(“C3:D4”, “F8:G10”).Rows.Count，返回的值为8； ②Range(“C3:D4,F8:G10”).Rows.Count，返回的值为2，即只计算第一个单元格区域。
------------------问题八：在VBA代码中，如何引用当前工作表中活动单元格或指定单元格所在的区域(当前区域)？
回答：可以使用CurrentRegion属性，例如：
(1)ActiveCell.CurrentRegion，表示活动单元格所在的当前区域。(2)Range(“D5”).CurrentRegion，表示单元格D5所在的当前区域。
当前区域是指周围由空行或空列所围成的区域。该属性的详细使用参见《CurrentRegion属性示例》一文。
------------------问题九：在VBA代码中，如何引用当前工作表中已使用的区域？ 回答：可以使用UsedRange属性，例如：
(1)Activesheet.UsedRange，表示当前工作表中已使用的区域。
(2)Worksheets(“sheet1”).UsedRange，表示工作表sheet1中已使用的区域。
与CurrentRegion属性不同的是，该属性代表工作表中已使用的单元格区域，包括显示为空行，但已进行过格式的单元格区域。该属性的详细使用参见《解析UsedRange属性》一文。
------------------问题十：如何在单元格区域内指定特定的单元格？ 回答：可以使用Item属性，例如：
(1)Range(“A1:B10”).Item(5,3)指定单元格C5，这个单元格处于以区域中左上角单元格A1(即区域中第1行第1列的单元格)为起点的第5行第3列。因为Item属性为默认属性，因此也可以简写为：Range(“A1:B10”)(5,3)。如果将A1:B10区域命名为”MyRange”，那么Range(“MyRange”)(5,3)也指定单元格C5。(2)Range(“A1:B10”)(12,13)指定单元格M12，即用这种方式引用单元格，该单元格不必一定要包含在区域内。
同时，也不需要索引数值是正值，例如： ① Range(“D4:F6”)(0,0)代表单元格C3； ② Range(“D4:F6”)(-1,-2)代表单元格A2。而Range(“D4:F6”)(1,1)代表单元格D4。(3)也可以在单元格区域中循环，例如：
Range(“D4:F6”)(2,2)(3,4)代表单元格H7，即该单元格位于作为左上角单元格E5的第3行第4列(因为E5是开始于区域中左上角单元格D4起的第2行第2列)。
(4)也能使用一个单个的索引数值进行引用。计数方式为从左向右，即在区域中的第一行开始从左向右计数，第一行结束后，然后从第二行开始从左到右接着计数，依次类推。(注：从区域中第一行第一个单元格开始计数，当第一行结束时，转入第二行最左边的单元格，这样按一行一行从左向右依次计数。以单元格区域中第1个单元格开始，按上述规则依次为第2个单元格、第3个单元格„.等等)，例如： Range(“A1:B2”)(1)代表单元格A1； Range(“A1:B2”)(2)代表单元格B1； Range(“A1:B2”)(3)代表单元格A2； Range(“A1:B2”)(4)代表单元格B2。这种方法可在工作表中连续向下引用单元格(即不一定是在单元格区域内，但在遵循相同的规律)，例如：
Range(“A1:B2”)(5)代表单元格A3；
Range(“A1:B2”)(14)代表单元格B7，等等。也可以使用单个的负数索引值。
这种使用单个索引值的方法对遍历列是有用的，例如，Range(“D4”)(1)代表单元格D4，Range(“D4”)(2)代表单元格D5，Range(“D4”)(11)代表单元格D14，等等。同理，稍作调整后也可遍历行，例如：
Range(“D4”).Columns(2)代表单元格E4，Range(“D4”).Columns(5)指定单元格H4，等等。(5)当与对象变量配合使用时，Item属性能提供简洁并有效的代码，例如： Set rng = Worksheets(1).[a1] 定义了对象变量后，像单元格方法一样，Item属性允许使用两个索引数值引用工作表中的任一单元格，例如，rng(3,4)指定单元格D3。(By Chip Pearson)
------------------问题十一：在VBA代码中，如何引用当前工作表中的整行或整列？ 回答：见下面的示例代码：
(1)Range(“C:C”).Select，表示选择C列。
Range(“C:E”).Select，表示选择C列至E列。(2)Range(“1:1”).Select，表示选择第一行。
Range(“1:3”).Select，表示选择第1行至第3行。(3)Range(“C:C”).EntireColumn，表示C列； Range(“D1”).EntireColumn，表示D列。
同样的方式，也可以选择整行，然后可以使用如AutoFit方法对整列或整行进行调整。
------------------问题十二：在VBA代码中，如何引用当前工作表中的所有单元格？ 回答：可以使用下面的代码：
(1)Cells，表示当前工作表中的所有单元格。
(2)Range(Cells(1, 1), Cells(Cells.Rows.Count, Cells.Columns.Count))，其中Cells.Rows表示工作表所有行，Cells.Columns表示工作表所有列。
------------------问题十三：在VBA代码中，如何引用工作表中的特定单元格区域？
回答：在工作表中，您可能使用过“定位条件”对话框。可以通过选择菜单“编辑——定位”，单击“定位”对话框中的“定位条件”按钮显示该对话框。这个对话框可以允许用户选择特定的单元格。例如：
(1)Worksheets(“sheet1”).Cells.SpecialCells(xlCellTypeAllFormatConditions)，表示工作表sheet1中由带有条件格式的单元格所组成的区域。(2)ActiveCell.CurrentRegion.SpecialCells(xlCellTypeBlanks)，表示当前工作表中活动单元格所在区域中所有空白单元格所组成的区域。
当然，还有很多常量和值的组合，可以让您实现特定单元格的查找并引用。参见《探讨在工作表中找到最后一行》一文。------------------问题十四：在VBA代码中，如何引用其它工作表或其它工作簿中的单元格区域？
回答：要引用其它工作表或其它工作簿中的单元格区域，只需在单元格对象前加上相应的引用对象即可，例如：
(1)Worksheets(“Sheet3”).Range(“C3:D5”)，表示引用工作表sheet3中的单元格区域C3:D5。(2)Workbooks(“MyBook.xls”).Worksheets(“sheet1”).Range(“B2”)，表示引用MyBook工作簿中工作表Sheet1上的单元格B2。
------------------问题十五：还有其它的一些情形吗？ 回答：列举如下：
(1)Cells(15)，表示单元格O1，即可在Cells属性中指定单元格数字来选择单元格，其计数顺序为自左至右、从上到下，又如Cells(257)，表示单元格B1。
(2)Cells(, 256)，表示单元格IV1，但是如果Cells(, 257)，则会返回错误。
------------------结语
我们用VBA对Excel进行处理，一般是对其工作表中的数据进行处理，因此，引用单元格区域是ExcelVBA编程中最基本的操作之一，只有确定了所处理的单元格区域，才能使用相应的属性和方法进行下一步的操作。
上面列举了一些引用单元格区域的情形和方式，可以看出，引用单元格区域有很多方式，有一些可能不常用，可以根据工作表的所处的环境和个人编程习惯进行选择使用。
当然，在编写程序时，也可能会将上面的一些属性联合使用，以达到选取特定操作对象的目的，例如Offset属性、Resize属性、CurrentRegion属性、UsedRange属性等的组合。
找到最后一行的一些方法探讨 使用End属性
在ExcelVBA中，使用End(xlUp)查找最后一行是最常使用且最为简单的方法，它假设要有一列总包含有数据(数字、文本和公式等)，并且在该列中最后输入数据的单元格的下一行不会包含数据，因此不必担心会覆盖掉已有数据。但该方法有两个缺点：(1)仅局限于查找指定列的最后一行。
(2)如果该列中最后一行被隐藏，那么该隐藏行将被视作最后一行。因此，在最后一行被隐藏时，其数据可能会被覆盖。但该列中间的隐藏行不会影响查找的结果。[示例代码01] Sub EndxlUp_OneColLastRow()If Range(“A” & Rows.Count).End(xlUp)= Empty Then GoTo Finish '获取最后一行
MsgBox “最后一行是第” & Range(“A” & Rows.Count).End(xlUp).Row & “行.” Exit Sub Finish: MsgBox “没有发现公式或数据!” End Sub [示例代码02] Sub NextRowInColumnUsedAsSub()'包含所有数据和公式，忽略隐藏的最后一行
Range(“A” & Range(“A” & Rows.Count).End(xlUp).Row + 1).Select End Sub [示例代码03] Sub NextRowInColumnUsedAsFunction()'包含所有数据和公式，忽略隐藏的最后一行
Range(“A” & LastRowInColumn(“A”)+ 1).Select End Sub '-------Public Function LastRowInColumn(Column As String)As Long LastRowInColumn = Range(Column & Rows.Count).End(xlUp).Row End Function 注意，要输入新数据的列可能与我们所查找最后一行时所使用的列不同，例如，在上例中，我们可以修改为在B列中查找该列的最后一行，而在A列相应行的下一行中输入新的数据。
------------------使用Find方法
Find方法在当前工作有数据中进行查找，不需要指定列，也可以确保不会意外地覆盖掉已有数据。其中，参数LookIn指定所查找的类型，有三个常量可供选择，即xlValues、xlFormulas和xlComments。
(1)常量xlFormulas将包含零值的单元格作为有数据的单元格。(当设置零值不显示时，该单元格看起来为空，但该参数仍将该单元格视为有数据的单元格)(2)常量xlValues将包含零值的单元格(如果设置零值不显示时)作为空白单元格，此时，若该单元格在最后一行，则Find方法会认为该单元格所在的行为空行，因此，该单元格中的内容可能会被新数据所覆盖。
[注：在Excel中，选择菜单“工具”——“选项”，在打开的“选项”对话框中，选择“视图”选项卡，将其中的“零值”前的复选框取消选中，则工作表中的零值都不会显示] 如果在参数LookIn中使用常量xlValues的话，还存在一个问题是：如果您将最后一行隐藏，则Find方法会认为倒数第二行是最后一行，此时您在最后一行的下一行输入数据，则会将实际的最后一行的数据覆盖。
您可以在隐藏最后一行与不隐藏最后一行，或者是最后一行显示零值与不显示零值时，运行下面的示例代码04，看看所得的结果有什么不同。[示例代码04] Sub Find_LastRowxlValues()On Error GoTo Finish '获取最后一行
MsgBox “最后一行是第” & Cells.Find(“*”, _ SearchOrder:=xlByRows, LookIn:=xlValues, _ SearchDirection:=xlPrevious).EntireRow.Row & “行” Exit Sub Finish: MsgBox “没有发现数值！” End Sub 因此，在使用Find方法时，您应该考虑所选参数设置的常量，以及工作表最后一行是否有可能被隐藏或不显示零值。如果您忽视这些情况，很可能得不到您想要的结果，或者是覆盖掉已有数据。使用常量xlFormulas可以避免这个问题，如下面的示例代码05所示。[示例代码05] Sub Find_LastRowxlFormulas()On Error GoTo Finish '获取最后一行
MsgBox “最后一行是第” & Cells.Find(“*”, _ SearchOrder:=xlByRows, LookIn:=xlFormulas, _ SearchDirection:=xlPrevious).EntireRow.Row & “行” Exit Sub Finish: MsgBox “没发现数值或公式！” End Sub 下面再列举几个示例代码。[示例代码06] Sub NextRowUsedAsSub()'选取最后一行的下一行 Range(“A” & Cells.Find(“*”, LookIn:=xlFormulas, SearchDirection:=xlPrevious).Row + 1).Select End Sub [示例代码07] Sub NextRowUsedAsFunction()'选取最后一行的下一行(调用函数)Range(“A” & LastRow + 1).Select End Sub '-------Public Function LastRow()As Long '本代码包含隐藏行
'使用常量xlFormulas，因为常量xlValues会忽略隐藏的最后一行 LastRow = Cells.Find(“*”, LookIn:=xlFormulas, SearchDirection:=xlPrevious).Row End Function 注：Find方法中，参数LookIn的默认值为xlFormulas。
------------------使用SpecialCells方法
SpecialCells方法用于查找指定类型的值，其语法为SpecialCells(Type,Value)，有两种主要的使用方式：
(1)若参数Type仅考虑常量，则在查找时会忽略和覆盖由公式生成的任何数据，如示例代码08所示。
(2)若参数Type仅考虑由公式生成的数据，则在查找时会忽略和覆盖任何常量数据，如示例代码09所示。如果参数Type是xlCellTypeConstants或者是xlCellTypeFormulas，则Value参数可使用常量决定哪种类型的单元格将被包含在结果中，这些常量值能组合而返回多个类型，其缺省设置是选择所有的常量或公式，而不管是何类型，可使用下面四个可选的常量： 1)xlTextValues(包含文本);2)xlNumbers(包含数字);3)xlErrors(包含错误值);4)xlLogical(包含逻辑值)自已在工作表输入一些含有数值和公式的数据，隐藏或不隐藏最后一行或公式所在的行，先体验下面的两段示例代码。[示例代码08] '当最后一行为公式或隐藏了最后行时，会忽略，即认为倒数第二行为最后一行 Sub NextConstantRowFunction()Range(“A” & LastConstantRow(True, True, True, True)+ 1).Select End Sub '------Public Function LastConstantRow(Optional IncludeText As Boolean, _ Optional IncludeNumbers As Boolean, _ Optional IncludeErrors As Boolean, _ Optional IncludeLogicals As Boolean)As Long Dim Text As Long, Numbers As Long, Errors As Long Dim Logical As Long, AllTypes As Long If IncludeText Then Text = xlTextValues Else Text = 0 If IncludeNumbers Then Numbers = xlNumbers Else Numbers = 0 If IncludeErrors Then Errors = xlErrors Else Errors = 0 If IncludeLogicals Then Logical = xlLogical Else Logical = 0 AllTypes = Text + Numbers + Errors + Logical On Error GoTo Finish LastConstantRow = Split(Cells.SpecialCells(xlCellTypeConstants, AllTypes).Address, “$”)_(UBound(Split(Cells.SpecialCells(xlCellTypeConstants, AllTypes).Address, “$”)))Exit Function Finish: MsgBox “没有发现数据！” End Function [示例代码09] '查找含有公式的单元格所在的行，忽略该行以后的常量和隐藏的行 Sub NextFormulaRowFunction()Range(“A” & LastFormulaRow(True, True, True, True)+ 1).Select End Sub '-------Public Function LastFormulaRow(Optional IncludeText As Boolean, _ Optional IncludeNumbers As Boolean, _ Optional IncludeErrors As Boolean, _ Optional IncludeLogicals As Boolean)As Long Dim Text As Long, Numbers As Long, Errors As Long Dim Logical As Long, AllTypes As Long If IncludeText Then Text = xlTextValues Else Text = 0 If IncludeNumbers Then Numbers = xlNumbers Else Numbers = 0 If IncludeErrors Then Errors = xlErrors Else Errors = 0 If IncludeLogicals Then Logical = xlLogical Else Logical = 0 AllTypes = Text + Numbers + Errors + Logical On Error GoTo Finish LastFormulaRow = Split(Cells.SpecialCells(xlCellTypeFormulas, AllTypes).Address, “$”)_(UBound(Split(Cells.SpecialCells(xlCellTypeFormulas, AllTypes).Address, “$”)))Exit Function Finish: MsgBox “没有发现数据！” End Function 下面的示例代码10忽略最后一行带有公式的单元格，即当最后一行的单元格中含有公式时，将倒数第二行作为最后一行，即只考虑直接输入到工作表中的数据。当最后一行没有公式但被隐藏时，并不影响该方法的判断。[示例代码10] Sub SpecialCells_LastRowxlCellTypeConstants()Dim MyRow As Range On Error GoTo Finish Set MyRow = Intersect([A:A], Cells._ SpecialCells(xlCellTypeConstants).EntireRow).EntireRow '获取最后一行
MsgBox “最后一行是第” & Split(MyRow.Address, “$”)_(UBound(Split(MyRow.Address, “$”)))& “行” Set MyRow = Nothing Exit Sub Finish: MsgBox “没有发现数据！” End Sub 注：因为上述代码使用了’Split’函数，故只适合于Office2000及以上的版本。该方法也允许我们指定单个数据类型，诸如数字数据或文本数据，如下所示。
下面，我们查找的最后一行是仅在行中有数字(而不包含公式)的单元格的最后一行。[示例代码11] Sub SpecialCells_LastRowxlCellTypeNumberConstants()Dim MyRow As Range On Error GoTo Finish Set MyRow = Intersect([A:A], Cells._ SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow)'获取最后一行
MsgBox “最后一行是第” & Split(MyRow.Address, “$”)_(UBound(Split(MyRow.Address, “$”)))& “行” Set MyRow = Nothing Exit Sub Finish: MsgBox “没有发现数据！” End Sub 下面，我们查找的最后一行是仅在行中有文本(而不包含公式)的单元格的最后一行。[示例代码12] Sub SpecialCells_LastRowxlCellTypeTextConstants()Dim MyRow As Range On Error GoTo Finish Set MyRow = Intersect([A:A], Cells._ SpecialCells(xlCellTypeConstants, xlTextValues).EntireRow)'获取最后一行
MsgBox “最后一行是第” & Split(MyRow.Address, “$”)_(UBound(Split(MyRow.Address, “$”)))& “行” Set MyRow = Nothing Exit Sub Finish: MsgBox “没有发现数据！” End Sub 下面，我们查找的最后一行是仅在行中有公式的单元格的最后一行。[示例代码13] Sub SpecialCells_LastRowxlCellTypeFormulas()Dim MyRow As Range On Error GoTo Finish Set MyRow = Intersect([A:A], Cells._ SpecialCells(xlCellTypeFormulas).EntireRow).EntireRow '获取最后一行
MsgBox “最后一行是第” & Split(MyRow.Address, “$”)_(UBound(Split(MyRow.Address, “$”)))& “行” Set MyRow = Nothing Exit Sub Finish: MsgBox “没有发现数据！” End Sub 同上面所讲述的一样，我们也能使用SpecailCells方法去找到其它特定类型的单元格所在的最后一行，下面是这些常量的一个完整的列表：
XlCellTypeAllFormatConditions(任何格式的单元格)XlCellTypeAllValidation(带有数据有效性的单元格)XlCellTypeBlanks(所使用区域中的空白单元格)XlCellTypeComments(包含有批注的单元格)XlCellTypeConstants(包含有常量的单元格)XlCellTypeFormulas(包含有公式的单元格)XlCellTypeLastCell(已使用区域中的最后一个单元格(看下面))XlCellTypeSameFormatConditions(有相同格式的单元格)XlCellTypeSameValidation(有相同数据有效性条件的单元格)XlCellTypeVisible(工作表中所有可见的单元格)
点击咨询 