ExcelTip.Net留存知识帖 ---【注：附件之前被网盘供应商清空后，现已修复-现已修复-现已修复为本地下载！】
现在位置：首页 > 我的测验 > Excel VBA > 罗刚君VBA免费课作业题】之第15课作业

罗刚君VBA免费课作业题】之第15课作业

作者：绿色风 分类： 时间：2022-08-18 浏览：106
楼主
罗刚君		 提示：此题目是“VBA入门免费教学群”（群号:30729794）的课后作业
请未参与听课者绕道，谢谢配合。
_____________________________________________________
1.图表的父对象是什么？
数据透视表的父对象是什么？

2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub

3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment

End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。

4.使用With有哪些优点？它适合在什么情况下使用？
_____________________________________________________
补充：“VBA入门免费教学群”（群号:30729794）每周三上课一次，有兴趣者皆可报名，永远免费。
请提交作业时注明在免费听课群的昵称。三次不交作业者，将踢出群，让出空间让更多的人进来听课，请大家配合。

2楼
wendel		 无心手语 25420198
1、工作表中的图表，父对象是工作表，如果是工作薄中独立图表，父对象是工作簿。
数据透视表的父对象是单元格区域(Range)。

2、activeworkbooks这是一个错误词，应写成Activeworkbook，从逻辑上说当前激活的工作簿也只能有一个，修改成ActiveSheet.Range("A5") = "VBA真犀利" 即可。

3、Sub test()
Dim com As Comment
       Set com = Range("a5").Comment
       MsgBox " 批注的上层对象是" & VBA.TypeName(com.Parent)
       MsgBox " 批注的上两层对象是" & VBA.TypeName(com.Parent.Parent)
End Sub

4、        使用With有哪些优点？它适合在什么情况下使用？
简化代码字符数，如果是对同一对象进行多次操作（运算）等，用with语句能加快程序运行速度。
3楼
kcxs		 客城小生的作业：
1、答：图表的父对象Charts.Parent是工作薄Workbooks，数据透视表的父对象Pivottables.parent是工作表Worksheets
2、答：层次和名称错误。活动工作薄是ActiveWorkbook，活动工作表是ActiveSheet，第2行代码可改为：ActiveWorkbook.ActiveSheet.Range("A5") = "VBA真犀利"
3、答：批注上两层对象是工作表。代码：MsgBox com.Parent.Parent.Name
4、答：With优点在于：有利于阅读和理解，同时也便于书写，而且执行效率更高。
使用情况：需要引用的对象包含很多层，而且需要反复引用，那么此时应该采用With语句简化引用。
4楼
zhoucs00		 1、图表与数据透视表的父对象都是其所在的工作表
2、代码运行出错，主要是因为应该写成当前活动工作表改为 ActiveSheet.Range("A5") = "VBA真犀利" 即可
3、批注的上两层父对象为此批注所在的工作表
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox com.Parent.Parent.Name
End Sub
4、使用WITH语句的好处有以下几点。书写方便；美观，查看方便；运行效率高。主要用在VBA需要多次引用工作簿、工作表、单元格和批注的时候。
注：群昵称为  周
非常感谢老师能抽出时间来耐心的批改，老师您辛苦了！
5楼
杭州小菜02		 1.图表的父对象是sheets
数据透视表的父对象是sheets
2.错的原因：Range("A5") 不是activeworkbooks的子对象
3.
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox com.Parent.Address & Chr(10) & com.Parent.Parent.Name
End Sub
4.
with优点之一就是可以简化对象引用，提高代码执行效率，也可以让代码看起来更加直观；适合在频繁多层引用中使用
6楼
杭州小菜02		 1.图表的父对象是sheets
数据透视表的父对象是sheets

2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub

子对象使用错误
3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment

End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。
Sub test2()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox com.Parent.Address & Chr(10) & com.Parent.Parent.Name
End Sub
4.使用With有哪些优点？它适合在什么情况下使用？
简化对象引用，提高执行效率，方便调试，代码更简洁美观，适合在频繁使用多层引用时使用
7楼
杭州小菜02		 1.图表的父对象是sheets
数据透视表的父对象是sheets

2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub

子对象使用错误
3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment

End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。
Sub test2()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox com.Parent.Address & Chr(10) & com.Parent.Parent.Name
End Sub
4.使用With有哪些优点？它适合在什么情况下使用？
简化对象引用，提高执行效率，方便调试，代码更简洁美观，适合在频繁使用多层引用时使用
8楼
『Lonely』		 1.图表的父对象是什workbook
数据透视表的父对象是sheet
2.以下代码执行时会出错，错在哪里？
正确代码如下：
Sub test()
Worksheets("sheet1").Range("A5") = "VBA真犀利"
End Sub
9楼
杭州小菜02		 1.图表的父对象按来源不同一个是chart，一个是workbook
数据透视表的父对象是worksheet

2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub

子对象使用错误
3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment

End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。
Sub test2()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox com.Parent.Address & Chr(10) & com.Parent.Parent.Name
End Sub
4.使用With有哪些优点？它适合在什么情况下使用？
简化对象引用，提高执行效率，方便调试，代码更简洁美观，适合在频繁使用多层引用时使用
10楼
『Lonely』		 『Lonely』提交作业
1.图表的父对象是什workbook
数据透视表的父对象是sheet
2.以下代码执行时会出错，错在哪里？
正确代码如下：
Sub test()
Worksheets("sheet1").Range("A5") = "VBA真犀利"
End Sub
11楼
一片叶子		 @小鱼
1.图表的父对象是workbook.chart/worksheet.chartobject,
数据透视表的父对象是ActiveSheet.PivotTables
2.Sub test()
      ActiveSheet.Range("A5") = "VBA真犀利"
   End Sub
3.批注的上两层对象是workbook.sheet
Sub test()
    Dim com As Comment
    Set com = Range("a5").Comment
    MsgBox Range("a5").Parent.Name
End Sub
4.对象具有层次结构，有时需要引用的对象包含很多层，而且需要反复引用，那么此时应该采用With语句简化引用。
12楼
manuel442		 QQ昵称：智山仁水
1、图表的父对象是工作表，数据库透视表的父对象是也是工作表
2、改为 Activesheet.Range("A5") = "VBA真犀利"
3、为工作表
MsgBox com.Parent.Parent.Name
4、使用WITH语句，可以减少代码的书写量，可以提高VBA程序的运行速度，程序更有可读性
使用场合，就是对一个对象连续访问量，但是该 对象为某对象的子对象的子对象的子对象……
隐藏的比较深，这时就使用WITH语句。
13楼
daoxuanren		 1.图表的父对象是什么？
数据透视表的父对象是工作表？
2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworksheets.Range("A5") = "VBA真犀利"
End Sub
3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = ThisWorkbook.Sheets(1).Range("a5").Comment
   MsgBox "批注的内容为:" & com   
  MsgBox "工作簿的名称为:" & ThisWorkbook.Name   
  MsgBox "工作表的名称为:" & Sheets(1).Name
End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。
4.使用With有哪些优点？它适合在什么情况下使用？
可使程序语言更简洁易读，适合对同一对象的多条件操作。
14楼
daoxuanren		 1.图表的父对象是什么？
数据透视表的父对象是工作表？
2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworksheets.Range("A5") = "VBA真犀利"
End Sub
3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = ThisWorkbook.Sheets(1).Range("a5").Comment
   MsgBox "批注的内容为:" & com   
  MsgBox "工作簿的名称为:" & ThisWorkbook.Name   
  MsgBox "工作表的名称为:" & Sheets(1).Name
End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。
4.使用With有哪些优点？它适合在什么情况下使用？
可使程序语言更简洁易读，适合对同一对象的多条件操作。
群员：daoxuanren
15楼
老固		 1.        图表的父对象是什么？
答：chart的父对象是workbook
Sub 图表的父对象()
MsgBox Charts.Parent.Name
End Sub

数据透视表的父对象是什么？
答：PivotTable的父对象是worksheet
Sub 数据透视表的父对象()
MsgBox PivotTables.Parent.Name
End Sub

2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
-------------------------------------
Sub test() '单元格赋值
    Worksheets("Sheet1").Range("A5").Value = "VBA真犀利"
MsgBox Range("A5")
End Sub

3.批注的上两层对象是什么？worbook
请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
   
End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。
-------------------------------------------------
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
  MsgBox ActiveSheet.Comments.Parent.Parent.Name
End Sub


4.使用With有哪些优点？它适合在什么情况下使用？
答：使用with语句可以给代码减肥，加快程序运行速度，更有利于初学者理解。
适合在当同一条件需要多次引用时。
16楼
Crazywu		 湖北-Craywu
----------------------------------------------------------------------------------------------------
提示：此题目是“VBA入门免费教学群”（群号:30729794）的课后作业
请未参与听课者绕道，谢谢配合。
_____________________________________________________
1.图表的父对象是什么？
数据透视表的父对象是什么？
图表的父对象是sheet，数据透视表的父对象是workbook。

2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
层次不清，导致缺少对象，单元格的父对象为工作表
第二句改为ActiveWorkbook.Sheets("sheet1").Range("A5") = "VBA真犀利"（这里指定sheet1）。
3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment

End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。

Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox Range("A5").Parent.Parent.Name
End Sub

4.使用With有哪些优点？它适合在什么情况下使用？
使用with功能是代码的一个减肥过程，适用于同一对象需要多次引用时。
17楼
一点点		     


    


 


 越发蒙@@@
数据透视表的父对象是工作薄名。



2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub

答：越级错误，工作薄没有单元格对象，修改为 工作薄.工作表.单元格  
    例如 activeworkbooks.sheets("sheet1").range("a5")="vba真犀利"

3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
Debug.Print com.Parent.Address '上一级父对象是 单元格A5
Debug.Print com.Parent.Parent.Name '上两级父对象是工作表名
End Sub

4.使用With有哪些优点？它适合在什么情况下使用？
答：with起到简化代码，提高运行速度，使代码看上去简洁易懂。
一般用在重复代码上，例如
sub test()
sheets（"sheet1"）.range("a5").font.bold=true
sheets（"sheet1"）.range("a5").font.italic=true
sheets（"sheet1"）.range("a5").font.size=12
sheets（"sheet1"）.range("a5").font.name="微软雅黑"
sheets（"sheet1"）.range("a5").font.colorindex=3
end sub
简化为：
sub test_with()
With sheets（"sheet1"）.range("a5").font
    .Bold = True
    .Italic = True
    .Size = 12
    .Name = "微软雅黑"
    .ColorIndex = 3
End With
end sub
18楼
miantiao1		 1.图表的父对象是什么？
数据透视表的父对象是什么？
答：  图表的父对象是（工作薄sheets）
           数据透视表的父对象是（工作薄sheets）

2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
答：Activeworkbooks 修改为  ActiveSheet.

3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment

End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。
答：  msgbox  com.Parent   只会获取上一层的对象，再上一层搞不定了。


4.使用With有哪些优点？它适合在什么情况下使用？
答：使用With可以减少代码的长度，增加代码的可读性
       一般情况下在频繁的针对某一对象执行操作时使用With。
19楼
miantiao1		 1.图表的父对象是什么？
数据透视表的父对象是什么？
答：  图表的父对象是（工作薄sheets）
      数据透视表的父对象是（工作薄sheets）

2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
答：Activeworkbooks 修改为  ActiveSheet.

3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment

End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。
答：  msgbox  com.Parent   只会获取上一层的对象，再上一层搞不定了。


4.使用With有哪些优点？它适合在什么情况下使用？
答：使用With可以减少代码的长度，增加代码的可读性
    一般情况下在频繁的针对某一对象执行操作时使用With。
20楼
gaoshuichang1		 1、图表的父对象是什么？
数据透视表的父对象是什么？
图表属于charts集合，而charts集合的父对象是workbook；
数据透视表PivotTable属于数据透视表集合PivotTables，透视表集合的父对象是worksheet.
2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
Activeworkbooks应换成Activesheet,因为激活的是当前工作表，不是工作簿集合。
3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment

End Sub

Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox com.Parent.Address(0, 0)
MsgBox com.Parent.Parent.Name
End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。

4.使用With有哪些优点？它适合在什么情况下使用？
优点：给代码减肥，且加快程序执行速度。
它适合于在同一对象需要多次引用的情况下使用。
21楼
转角爱		 不坏 635731146
作业.rar
22楼
静思雨		 1.如果是工作表中的图表父对象是ChartObject，如果是图表工作表父对象是Workbook。数据透视表的父对象是Range。

2.Activeworkbooks这是一个错误词，应写成Activeworkbook 或者workbooks(1)，而本题中Range的父对象不是Workbook，修改如下：
  1. Sub test()
  2. ActiveSheet.Range("A5") = "VBA真犀利"
  3. End Sub
3.
  1. Sub test()
  2. Dim com As Comment
  3. Set com = Range("a5").Comment
  4. MsgBox " 批注的上层对象是" & VBA.TypeName(com.Parent)
  5. MsgBox " 批注的上两层对象是" & VBA.TypeName(com.Parent.Parent)
  6. End Sub
4.简化代码，加快程序运行速度。
适合对同一对象进行多个操作和运算。


[浙]-小影
23楼
NULL		 1. chart Worksheet
2.Activeworkbooks是一个错误的名字
3.Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox VBA.TypeName(com.Parent)
MsgBox VBA.TypeName(com.Parent.Parent)
End Sub
4.with的优点 运行更快,书写方便, 阅读简洁,
  多次调用同一对象时
  避免使用Active动作
24楼
csppglass		 1.图表的父对像为工作表，数据透视表的父对象为工作薄。
2.range的父对像引用错误，不是workbooks，应该是工作表
3.单元格，工作表
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
com.Text Text:="111"
MsgBox com.Parent
MsgBox com.Parent.Parent.Name
End Sub
4.with 可以减少对父对像的引用，减少错误的可能。使代码看上去美观。
适合多次调用同一个父对象的时候。
                     江苏0基
25楼
hjsky		 老师辛苦了
四川-幺幺第十五课作业.rar
26楼
xj_lucky		 1.图表的父对象是工作簿对象，数据透视表的父对象是工作表对象；
2.Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub

Activeworkbooks没有此对象

3、批注的上两层对象是工作表
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox com.Parent.Parent.Name
End Sub

4、更有利于阅读和理解同时也便于书写而且执行效率更高。如果需要反复引用对象，那么应采用With语句简化引用。

VBA入门免费教学群 无忌
27楼
xj_lucky		 1.图表的父对象是工作簿对象，数据透视表的父对象是工作表对象；
2.Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
VBA入门免费教学群 无忌
Activeworkbooks没有此对象

3、批注的上两层对象是工作表
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox com.Parent.Parent.Name
End Sub

4、更有利于阅读和理解同时也便于书写而且执行效率更高。如果需要反复引用对象，那么应采用With语句简化引用。
28楼
xj_lucky		 1.图表的父对象是工作簿对象，数据透视表的父对象是工作表对象；
2.Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub

Activeworkbooks没有此对象

3、批注的上两层对象是工作表
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox com.Parent.Parent.Name
End Sub

4、更有利于阅读和理解同时也便于书写而且执行效率更高。如果需要反复引用对象，那么应采用With语句简化引用。
VBA入门免费教学群 无忌
29楼
lene		 1、图表的父对象是什么？
数据透视表的父对象是什么？
图表的父对象是 workbook
数据透视表的父对象是 worksheet
2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
1、活动工作簿的写法是activeworkbook
2、工作簿的子对象是工作表，而range是工作表的子对象，应该写成这样：
ActiveSheet.Range("A5") = "VBA真犀利"

3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox com.Parent.Address
MsgBox com.Parent.Parent.Name
End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。
工作表-单元格-批注，代码如上
4.使用With有哪些优点？它适合在什么情况下使用？
简化对象引用。在反复引用对象的情况下，可以采用With语句简化引用。
30楼
lene		 1、图表的父对象是什么？
数据透视表的父对象是什么？
图表的父对象是 workbook
数据透视表的父对象是 worksheet
2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
1、活动工作簿的写法是activeworkbook
2、工作簿的子对象是工作表，而range是工作表的子对象，应该写成这样：
ActiveSheet.Range("A5") = "VBA真犀利"

3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox com.Parent.Address
MsgBox com.Parent.Parent.Name
End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。
工作表-单元格-批注，代码如上
4.使用With有哪些优点？它适合在什么情况下使用？
简化对象引用。在反复引用对象的情况下，可以采用With语句简化引用。
31楼
健康快乐123		 c05-水上漂123
第一题：
图表的父对象是什么？
workbook
数据透视表的父对象是什么？
worksheet
第二题
对象应该按照层次写，所以在activeworkbooks后加上sheets(n)
第三题
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox com.Parent.Parent.Name
MsgBox com.Parent.Parent.Parent.Name
End Sub
第四题
优点：简化代码，使代码更容易看懂
With 语句可以对某个对象执行一系列的语句，而不用重复指出对象的名称。例如，要改变一个对象的多个属性，可以在 With 控制结构中加上属性的赋值语句，这时候只是引用对象一次而不是在每个属性赋值时都要引用它。

32楼
天空的雨		 第十五课作业-天空答.rar
33楼
paoge		 （骑着钓箱看世界）

1、        答：图表的父对象是workbook。数据透视表的父对象是worksheet。
2、        答：workbooks的子对象是worksheet.
Sub test()
Activeworkbooks.worksheets(“生产表1”).Range("A5") = "VBA真犀利"
End Sub
3、        Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox ActiveSheet.Comments(com).Parent. Parent .Name
End Sub
4、对象具有层次结构，有时需要引用的对象包含很多层，而且需要反复引用，用 With语句就可以简化这些引用。With语句可以简化书写，减少书写工作量。经with语句简化的程序更便于阅读。With语句还能提高程序的执行速度。提高运算效率。
34楼
paoge		 （骑着钓箱看世界）
1、        答：图表的父对象是workbook。数据透视表的父对象是worksheet。
2、        答：workbooks的子对象是worksheet.
Sub test()
Activeworkbooks.worksheets(“生产表1”).Range("A5") = "VBA真犀利"
End Sub
3、        Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox ActiveSheet.Comments(com).Parent. Parent .Name
End Sub
4、对象具有层次结构，有时需要引用的对象包含很多层，而且需要反复引用，用 With语句就可以简化这些引用。With语句可以简化书写，减少书写工作量。经with语句简化的程序更便于阅读。With语句还能提高程序的执行速度。提高运算效率。
35楼
paoge		 （骑着钓箱看世界）
1、        答：图表的父对象是workbook。数据透视表的父对象是worksheet。
2、        答：workbooks的子对象是worksheet.
Sub test()
Activeworkbooks.worksheets(“生产表1”).Range("A5") = "VBA真犀利"
End Sub
3、        Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox ActiveSheet.Comments(com).Parent. Parent .Name
End Sub
4、对象具有层次结构，有时需要引用的对象包含很多层，而且需要反复引用，用 With语句就可以简化这些引用。With语句可以简化书写，减少书写工作量。经with语句简化的程序更便于阅读。With语句还能提高程序的执行速度。提高运算效率。
36楼
paoge		 作业
骑着钓箱看世界.zip
37楼
paoge		 1、        答：图表的父对象是workbook。数据透视表的父对象是worksheet。
2、        答：workbooks的子对象是worksheet.
Sub test()
Activeworkbooks.worksheets(“生产表1”).Range("A5") = "VBA真犀利"
End Sub
3、        Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox ActiveSheet.Comments(com).Parent. Parent .Name
End Sub
4、对象具有层次结构，有时需要引用的对象包含很多层，而且需要反复引用，用 With语句就可以简化这些引用。With语句可以简化书写，减少书写工作量。经with语句简化的程序更便于阅读。With语句还能提高程序的执行速度。提高运算效率。
38楼
twozisan		 .1.图表的父对象是什么？
数据透视表的父对象是什么？
(ANS--1-"Workbooks("生產表.xls")2-( "Worksheets("生產") ")
2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
(ANS-少 SHEETS,COMMENT)
3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。
(ANS--- Workbooks("生產表.xls").Worksheets("生產").Range("A1").Comment.Shape.Select)
4.使用With有哪些优点？它适合在什么情况下使用？
(Ans-利用With 語句簡化物件引用, 物件具有層次結構，有時需要引用的物件包含很多層，而且需要反復引用，那麼此時應該採用With語句簡化引用。)
39楼
twozisan		 .1.图表的父对象是什么？
数据透视表的父对象是什么？
Workbooks("生產表.xls")
Worksheets("生產")
2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
ANS-少 SHEETS,COMMENT
3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。
ANS--- Workbooks("生產表.xls").Worksheets("生產").Range("A1").Comment.Shape.Select
4.使用With有哪些优点？它适合在什么情况下使用？
Ans-利用With 語句簡化物件引用, 物件具有層次結構，有時需要引用的物件包含很多層，而且需要反復引用，那麼此時應該採用With語句簡化引用。
40楼
jsrgsunny		 QQ:1975225261江苏-阳光明媚
1、图表的父对象是chartobject对象
数据透视表的父对象是worksheet对象
2、Activeworkbooks不是正确的对象名称
3、Sub test()
Dim com As Comment
Set com = Range("a5").Comment
msgbox activecell.parent.parent.name
End Sub
4、with语句的功能是代码减肥，加快程序执行速度。它适合当同一对象需要多次引用时使用。
41楼
nocturne		 nocturne
15课课后题.zip
42楼
lb425319789		 “VBA入门免费教学群”课后作业
1.图表的父对象是什么？  父对象是application
数据透视表的父对象是什么？  用Parent表示

2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
答：Activeworkbooks应该修改为Activesheet
3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox (com.Parent).Parent.Name
End Sub


4.使用With有哪些优点？它适合在什么情况下使用？
当使用的对象包含很多层次，且需要反复引用，可以使用With语句简化引用。
43楼
lb425319789		 “VBA入门免费教学群”课后作业
1.图表的父对象是什么？  父对象是application
数据透视表的父对象是什么？  用Parent表示

2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
答：Activeworkbooks应该修改为Activesheet
3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox (com.Parent).Parent.Name
End Sub


4.使用With有哪些优点？它适合在什么情况下使用？
当使用的对象包含很多层次，且需要反复引用，可以使用With语句简化引用。
44楼
lb425319789		 “VBA入门免费教学群”课后作业
1.图表的父对象是什么？  父对象是application
数据透视表的父对象是什么？  用Parent表示

2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
答：Activeworkbooks应该修改为Activesheet
3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox (com.Parent).Parent.Name
End Sub


4.使用With有哪些优点？它适合在什么情况下使用？
当使用的对象包含很多层次，且需要反复引用，可以使用With语句简化引用。
45楼
lb425319789		 “VBA入门免费教学群”课后作业
1.图表的父对象是什么？  父对象是application
数据透视表的父对象是什么？  用Parent表示

2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
答：Activeworkbooks应该修改为Activesheet
3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox (com.Parent).Parent.Name
End Sub


4.使用With有哪些优点？它适合在什么情况下使用？
当使用的对象包含很多层次，且需要反复引用，可以使用With语句简化引用。
46楼
lb425319789		 “VBA入门免费教学群”课后作业
1.图表的父对象是什么？  父对象是application
数据透视表的父对象是什么？  用Parent表示

2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
答：Activeworkbooks应该修改为Activesheet
3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox (com.Parent).Parent.Name
End Sub


4.使用With有哪些优点？它适合在什么情况下使用？
当使用的对象包含很多层次，且需要反复引用，可以使用With语句简化引用。
47楼
lb425319789		 “VBA入门免费教学群”课后作业
1.图表的父对象是什么？  父对象是application
数据透视表的父对象是什么？  用Parent表示

2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
答：Activeworkbooks应该修改为Activesheet
3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox (com.Parent).Parent.Name
End Sub


4.使用With有哪些优点？它适合在什么情况下使用？
当使用的对象包含很多层次，且需要反复引用，可以使用With语句简化引用。
48楼
wh_china2010		 1.答：图表是活动对象，所以它的父对象是Application
数据透视表是活动对象，所以它父对象是Application

2.答：1.workbooks表示工作表集合
      2.活动的工作簿不可以写为activeworkbooks
          3.workbook没有range这个子对象
      共以上3处错误

3.答：批注的上一层对象是单元格range，单元格的上一层对象是工作表worksheet。
这个不会写
4.答：with语句可以简化引用。
With适用于如果需要引用的对象包含很多层，而且需要重复引用的时候。
49楼
黑蔓巴		 1.        图表的父对象是什么？图表的父对象是工作表或工作薄
数据透视表的父对象是什么？数据透视表的父对象是单元格区域
2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
代码改为：ActiveSheet.Range("A5") = "VBA真犀利"
3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox com.Parent.Address & Chr(10) & com.Parent.Parent.Name
End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。
4.使用With有哪些优点？它适合在什么情况下使用？
1、With 语句简化对象引用2、有利于阅读和理解同时也便于书写3、执行效率高。需要反复引用对象时使用
50楼
黑蔓巴		 1.        图表的父对象是什么？图表的父对象是工作表或工作薄
数据透视表的父对象是什么？数据透视表的父对象是单元格区域
2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
代码改为：ActiveSheet.Range("A5") = "VBA真犀利"
3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox com.Parent.Address & Chr(10) & com.Parent.Parent.Name
End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。
4.使用With有哪些优点？它适合在什么情况下使用？
1、With 语句简化对象引用2、有利于阅读和理解同时也便于书写3、执行效率高。需要反复引用对象时使用
51楼
黑蔓巴		 1.        图表的父对象是什么？图表的父对象是工作表或工作薄
数据透视表的父对象是什么？数据透视表的父对象是单元格区域
2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
代码改为：ActiveSheet.Range("A5") = "VBA真犀利"
3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox com.Parent.Address & Chr(10) & com.Parent.Parent.Name
End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。
4.使用With有哪些优点？它适合在什么情况下使用？
1、With 语句简化对象引用2、有利于阅读和理解同时也便于书写3、执行效率高。需要反复引用对象时使用
52楼
黑蔓巴		 1.        图表的父对象是什么？图表的父对象是工作表或工作薄
数据透视表的父对象是什么？数据透视表的父对象是单元格区域
2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
代码改为：ActiveSheet.Range("A5") = "VBA真犀利"
3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox com.Parent.Address & Chr(10) & com.Parent.Parent.Name
End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。
4.使用With有哪些优点？它适合在什么情况下使用？
1、With 语句简化对象引用2、有利于阅读和理解同时也便于书写3、执行效率高。需要反复引用对象时使用
53楼
黑蔓巴		 1.        图表的父对象是什么？图表的父对象是工作表或工作薄
数据透视表的父对象是什么？数据透视表的父对象是单元格区域
2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
代码改为：ActiveSheet.Range("A5") = "VBA真犀利"
3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox com.Parent.Address & Chr(10) & com.Parent.Parent.Name
End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。
4.使用With有哪些优点？它适合在什么情况下使用？
1、With 语句简化对象引用2、有利于阅读和理解同时也便于书写3、执行效率高。需要反复引用对象时使用
54楼
黑蔓巴		 1.        图表的父对象是什么？图表的父对象是工作表或工作薄
数据透视表的父对象是什么？数据透视表的父对象是单元格区域
2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
代码改为：ActiveSheet.Range("A5") = "VBA真犀利"
3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox com.Parent.Address & Chr(10) & com.Parent.Parent.Name
End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。
4.使用With有哪些优点？它适合在什么情况下使用？
1、With 语句简化对象引用2、有利于阅读和理解同时也便于书写3、执行效率高。需要反复引用对象时使用
55楼
黑蔓巴		 1.        图表的父对象是什么？图表的父对象是工作表或工作薄
数据透视表的父对象是什么？数据透视表的父对象是单元格区域
2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
代码改为：ActiveSheet.Range("A5") = "VBA真犀利"
3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox com.Parent.Address & Chr(10) & com.Parent.Parent.Name
End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。
4.使用With有哪些优点？它适合在什么情况下使用？
1、With 语句简化对象引用2、有利于阅读和理解同时也便于书写3、执行效率高。需要反复引用对象时使用
56楼
黑蔓巴		 1.        图表的父对象是什么？图表的父对象是工作表或工作薄
数据透视表的父对象是什么？数据透视表的父对象是单元格区域
2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
代码改为：ActiveSheet.Range("A5") = "VBA真犀利"
3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox com.Parent.Address & Chr(10) & com.Parent.Parent.Name
End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。
4.使用With有哪些优点？它适合在什么情况下使用？
1、With 语句简化对象引用2、有利于阅读和理解同时也便于书写3、执行效率高。需要反复引用对象时使用
57楼
黑蔓巴		 1.        图表的父对象是什么？图表的父对象是工作表或工作薄
数据透视表的父对象是什么？数据透视表的父对象是单元格区域
2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
代码改为：ActiveSheet.Range("A5") = "VBA真犀利"
3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox com.Parent.Address & Chr(10) & com.Parent.Parent.Name
End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。
4.使用With有哪些优点？它适合在什么情况下使用？
1、With 语句简化对象引用2、有利于阅读和理解同时也便于书写3、执行效率高。需要反复引用对象时使用
58楼
黑蔓巴		 1.        图表的父对象是什么？图表的父对象是工作表或工作薄
数据透视表的父对象是什么？数据透视表的父对象是单元格区域
2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
代码改为：ActiveSheet.Range("A5") = "VBA真犀利"
3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox com.Parent.Address & Chr(10) & com.Parent.Parent.Name
End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。
4.使用With有哪些优点？它适合在什么情况下使用？
1、With 语句简化对象引用2、有利于阅读和理解同时也便于书写3、执行效率高。需要反复引用对象时使用
59楼
黑蔓巴		 1.        图表的父对象是什么？图表的父对象是工作表或工作薄
数据透视表的父对象是什么？数据透视表的父对象是单元格区域
2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
代码改为：ActiveSheet.Range("A5") = "VBA真犀利"
3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox com.Parent.Address & Chr(10) & com.Parent.Parent.Name
End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。
4.使用With有哪些优点？它适合在什么情况下使用？
1、With 语句简化对象引用2、有利于阅读和理解同时也便于书写3、执行效率高。需要反复引用对象时使用
60楼
黑蔓巴		 1.        图表的父对象是什么？图表的父对象是工作表或工作薄
数据透视表的父对象是什么？数据透视表的父对象是单元格区域
2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
代码改为：ActiveSheet.Range("A5") = "VBA真犀利"
3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox com.Parent.Address & Chr(10) & com.Parent.Parent.Name
End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。
4.使用With有哪些优点？它适合在什么情况下使用？
1、With 语句简化对象引用2、有利于阅读和理解同时也便于书写3、执行效率高。需要反复引用对象时使用
61楼
黑蔓巴		 1.        图表的父对象是什么？图表的父对象是工作表或工作薄
数据透视表的父对象是什么？数据透视表的父对象是单元格区域
2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
代码改为：ActiveSheet.Range("A5") = "VBA真犀利"
3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox com.Parent.Address & Chr(10) & com.Parent.Parent.Name
End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。
4.使用With有哪些优点？它适合在什么情况下使用？
1、With 语句简化对象引用2、有利于阅读和理解同时也便于书写3、执行效率高。需要反复引用对象时使用
62楼
黑蔓巴		 1.        图表的父对象是什么？图表的父对象是工作表或工作薄
数据透视表的父对象是什么？数据透视表的父对象是单元格区域
2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
代码改为：ActiveSheet.Range("A5") = "VBA真犀利"
3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox com.Parent.Address & Chr(10) & com.Parent.Parent.Name
End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。
4.使用With有哪些优点？它适合在什么情况下使用？
1、With 语句简化对象引用2、有利于阅读和理解同时也便于书写3、执行效率高。需要反复引用对象时使用
63楼
黑蔓巴		 1.        图表的父对象是什么？图表的父对象是工作表或工作薄
数据透视表的父对象是什么？数据透视表的父对象是单元格区域
2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
代码改为：ActiveSheet.Range("A5") = "VBA真犀利"
3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox com.Parent.Address & Chr(10) & com.Parent.Parent.Name
End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。
4.使用With有哪些优点？它适合在什么情况下使用？
1、With 语句简化对象引用2、有利于阅读和理解同时也便于书写3、执行效率高。需要反复引用对象时使用
64楼
winnief3		 第十五次作业
原群名为广东-cx，现群名为 广东-cxzh.zip
65楼
Erik_16888		 群名称为笑看江湖；号码364646658
2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
错误为Activeworkbooks，该词不是系统默认的对象名称，应为Activeworkbook。其次range的父对象是sheet，而不是工作簿workbook，不能跨对象的连接。可以使用ActiveWorkbook.Sheets(3).Range("A5")这样的方式。
3、
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
MsgBox Range("a5").Comment.Parent.Address
MsgBox Range("a5").Comment.Parent.Parent.Name

End Sub
上一个对象是range（“a5”），再上一个对象为range（“a5”)所在的表
4、使用WITH语句，可以减少代码的书写量，可以提高VBA程序的运行速度，程序更有可读性
使用场合，就是对一个对象不断的访问，读写该对象的多个属性，这时就使用WITH语句，减少访问量。
66楼
ynzsvt		 父对象不对啊！
——原来是Address啊！
第15课练习.zip
67楼
天天向上up		 879601550(湖南-布吉岛)

1.图表和数据透视图的父对象  分别是他们所在的工作表
2.该段代码中Activeworkbooks对象错误：
  workbooks为对象集合，肯定不能加active，只能对单一的workbook，
  workbook和range跨级了，
  改为Activesheet
3.Sub test2()
Dim com As Comment
Set com = Range("a5").Comment
Set comPart1 = com.Parent
Set comPart2 = comPart1.Parent
MsgBox comPart2.name
End Sub

'其中，comPart1没有name属性
4.当对象具有整齐的层次结构时，用with语句不但可以简化语句、方便查看，而且提高了代码的运行效率
68楼
天天向上up		 879601550(布吉岛)
1.图表 数据透视表的父对象分别是他们所在的工作表

2. Activeworkbooks对象错误
  workbooks为集合，不可能active一个集合
  workbooks跟range之间跨级了
  应该改为Activeworkbook.activesheet.range

3.Sub test2()
Dim com As Comment
Set com = Range("a5").Comment
Set comPart1 = com.Parent
Set comPart2 = comPart1.Parent
MsgBox comPart2.name
End Sub
'comPart1没有name属性

4.当对象具有层次结构而且反复调用的时候，用with语句可以简化对象引用、方便查看代码、提高代码运算效率。
69楼
天天向上up		 879601550(布吉岛)
1.图表 数据透视表的父对象分别是他们所在的工作表

2. Activeworkbooks对象错误
  workbooks为集合，不可能active一个集合
  workbooks跟range之间跨级了
  应该改为Activeworkbook.activesheet.range

3.Sub test2()
Dim com As Comment
Set com = Range("a5").Comment
Set comPart1 = com.Parent
Set comPart2 = comPart1.Parent
MsgBox comPart2.name
End Sub
'comPart1没有name属性

4.当对象具有层次结构而且反复调用的时候，用with语句可以简化对象引用、方便查看代码、提高代码运算效率。
70楼
/kf农夫三拳		 kf农夫三拳    的作业：

1.图表的父对象是什么？
数据透视表的父对象是什么？

答：图表的父对象是工作表。数据透视表的父对象是单元格区域。

2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub

答：活动工作簿对象应写为：Activeworkbook。而且对象层次不正确，应改为：Activeworksheet.range

("A5")="VBA真犀利"

3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。

答：完整代码：
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
msgbox "批注的上两层对象是" & typename(com.parent.parent)
End Sub

4.使用With有哪些优点？它适合在什么情况下使用？

答：使用With可以简化代码，方便阅读。它适合在多次引用同一对象的情况下使用。
71楼
/kf农夫三拳		 kf农夫三拳    的作业：

1.图表的父对象是什么？
数据透视表的父对象是什么？

答：图表的父对象是工作表。数据透视表的父对象是单元格区域。

2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub

答：活动工作簿对象应写为：Activeworkbook。而且对象层次不正确，应改为：Activeworksheet.range

("A5")="VBA真犀利"

3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。

答：完整代码：
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
msgbox "批注的上两层对象是" & typename(com.parent.parent)
End Sub

4.使用With有哪些优点？它适合在什么情况下使用？

答：使用With可以简化代码，方便阅读。它适合在多次引用同一对象的情况下使用。
72楼
/kf农夫三拳		 kf农夫三拳    的作业：

1.图表的父对象是什么？
数据透视表的父对象是什么？

答：图表的父对象是工作表。数据透视表的父对象是单元格区域。

2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub

答：活动工作簿对象应写为：Activeworkbook。而且对象层次不正确，应改为：Activeworksheet.range

("A5")="VBA真犀利"

3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。

答：完整代码：
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
msgbox "批注的上两层对象是" & typename(com.parent.parent)
End Sub

4.使用With有哪些优点？它适合在什么情况下使用？

答：使用With可以简化代码，方便阅读。它适合在多次引用同一对象的情况下使用。
73楼
/kf农夫三拳		 kf农夫三拳    的作业：

1.图表的父对象是什么？
数据透视表的父对象是什么？

答：图表的父对象是工作表。数据透视表的父对象是单元格区域。

2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub

答：活动工作簿对象应写为：Activeworkbook。而且对象层次不正确，应改为：Activeworksheet.range

("A5")="VBA真犀利"

3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。

答：完整代码：
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
msgbox "批注的上两层对象是" & typename(com.parent.parent)
End Sub

4.使用With有哪些优点？它适合在什么情况下使用？

答：使用With可以简化代码，方便阅读。它适合在多次引用同一对象的情况下使用。
74楼
/kf农夫三拳		 kf农夫三拳    的作业：

1.图表的父对象是什么？
数据透视表的父对象是什么？

答：图表的父对象是工作表。数据透视表的父对象是单元格区域。

2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub

答：活动工作簿对象应写为：Activeworkbook。而且对象层次不正确，应改为：Activeworksheet.range

("A5")="VBA真犀利"

3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。

答：完整代码：
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
msgbox "批注的上两层对象是" & typename(com.parent.parent)
End Sub

4.使用With有哪些优点？它适合在什么情况下使用？

答：使用With可以简化代码，方便阅读。它适合在多次引用同一对象的情况下使用。
75楼
/kf农夫三拳		 kf农夫三拳    的作业：

1.图表的父对象是什么？
数据透视表的父对象是什么？

答：图表的父对象是工作表。数据透视表的父对象是单元格区域。

2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub

答：活动工作簿对象应写为：Activeworkbook。而且对象层次不正确，应改为：Activeworksheet.range

("A5")="VBA真犀利"

3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。

答：完整代码：
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
msgbox "批注的上两层对象是" & typename(com.parent.parent)
End Sub

4.使用With有哪些优点？它适合在什么情况下使用？

答：使用With可以简化代码，方便阅读。它适合在多次引用同一对象的情况下使用。
76楼
/kf农夫三拳		 kf农夫三拳    的作业：

1.图表的父对象是什么？
数据透视表的父对象是什么？

答：图表的父对象是工作表。数据透视表的父对象是单元格区域。

2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub

答：活动工作簿对象应写为：Activeworkbook。而且对象层次不正确，应改为：Activeworksheet.range("A5")="VBA真犀利"

3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。

答：完整代码：
Sub test()
Dim com As Comment
Set com = Range("a5").Comment
msgbox "批注的上两层对象是" & typename(com.parent.parent)
End Sub

4.使用With有哪些优点？它适合在什么情况下使用？

答：使用With可以简化代码，方便阅读。它适合在多次引用同一对象的情况下使用。
77楼
cxleaf		 1.图表的父对象是什么？数据透视表的父对象是什么？

答：工作表中图表，如绘图工具创建的图shape，插入创建的图表chart，父对象是工作表
工作薄中独立图表，如数据透视图chart，父对象是工作簿
数据透视表pivotTable的父对象是工作表

2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub

答：层次和名称错误，改为：ActiveWorkbook.ActiveSheet.Range("A5") = "VBA真犀利"


3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment

End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。

答： MsgBox TypeName(com.Parent)
       MsgBox com.Parent.Parent.Name

4.使用With有哪些优点？它适合在什么情况下使用？

答：With优点在于：有利于阅读和理解，同时也便于书写，而且执行效率更高。
使用情况：需要引用的对象包含很多层，而且需要反复引用，那么此时应该采用With语句简化引用。
78楼
cxleaf		 1.图表的父对象是什么？数据透视表的父对象是什么？

签：工作表中的图表，如绘图工具创建的图shape，菜单插入工具创建的图表chart，父对象是工作表
      工作簿中的独立图表，如创建的数据透视图chart，父对象是工作簿
      数据透视表pivottable的父对象是工作表

2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub

答：名称和层次有误。改为：ActiveWorkbook.ActiveSheet.Range("A5") = "VBA真犀利"。

3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment

End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。

答：MsgBox TypeName(com.Parent.Parent)
      MsgBox com.Parent.Parent.Name

4.使用With有哪些优点？它适合在什么情况下使用？

答：易读易懂易写，执行效率高。适合在频繁使用多层引用时使用。
79楼
cxleaf		 1.图表的父对象是什么？数据透视表的父对象是什么？

签：工作表中的图表，如绘图工具创建的图shape，菜单插入工具创建的图表chart，父对象是工作表
      工作簿中的独立图表，如创建的数据透视图chart，父对象是工作簿
      数据透视表pivottable的父对象是工作表

2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub

答：名称和层次有误。改为：ActiveWorkbook.ActiveSheet.Range("A5") = "VBA真犀利"。

3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment

End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。

答：MsgBox TypeName(com.Parent.Parent)
      MsgBox com.Parent.Parent.Name

4.使用With有哪些优点？它适合在什么情况下使用？

答：易读易懂易写，执行效率高。适合在频繁使用多层引用时使用。
80楼
mmice		 1.图表的父对象是什么？答：是sheets,而chart是集合
数据透视表的父对象是什么？

2.以下代码执行时会出错，错在哪里？
Sub test()
Activeworkbooks.Range("A5") = "VBA真犀利"
End Sub
答：Range上一层对象是worksheet。如果是当前工作表可改为Range("A5") = "VBA真犀利"或者 activesheet.Range("A5") = "VBA真犀利"
3.批注的上两层对象是什么？请用代码获得这个对象的名称。
Sub test()
Dim com As Comment
Set com = Range("a5").Comment '' 务必A5有批注，否则，程序会报错91
MsgBox TypeName(com.Parent) '求类型，是Range,注意 MsgBox com.Parent是返回A5单元格内容
MsgBox TypeName(com.Parent.Parent)'求父对象的父对象，返回是WorkSheet  
End Sub
以上代码中Com变量就是一个批注，请将代码补充完整，利用代码获取批注上两层的对象名称。

4.使用With有哪些优点？它适合在什么情况下使用？
优点：一书写方便，二方便查看，三，优化代码，减少引用次数，提高效率，
适用情况：同一对象下面有很多层。同一对象需反复引用时。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素， 经与ExcelTip.Net站长Apolloh商议并征得其同意， 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示， 供有需要的人士查询使用，也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议， 可与本人沟通提出，或于本站点留言，我们会尽快处理。 在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

猜您喜欢
评论列表
搜索

鄂ICP备2021011689号-2

powered by emlog pro Theme By 蓝叶

sitemap