VBA80第13集练习题上交专贴：单元格信息返回

vincenta3211

看看答案

yalu007

{:041:}

18088271240

证实一下，感觉这个第一题很简单

fl93

想了半天还是没弄出来

看看答案

qianqinglong

游客，如果您要查看本帖隐藏内容请回复

九尾小白狐

我做完了想看一下答案~

柒月ting

Sub test1()
    Dim 区域 As Range
    Set 区域 = Range("C4").CurrentRegion
    Range("A14") = 区域.Cells(区域.Rows.Count, 区域.Columns.Count).Address(0, 0)
   
End Sub
Sub test2()
    Range("F3").Comment.Shape.Top = Range("D3").Top
    Range("F3").Comment.Shape.Left = Range("e3").Left
End Sub

林枫多多

来学习

bufuyilu

c2003921

第13集练习题.rar (9.06 KB, 下载次数: 0)

2017-5-26 10:34 上传

点击文件名下载附件 第1题：
Sub 返回D10的地址()
Range("n3") = Range("c3").Offset(Range("c3").CurrentRegion.Rows.Count - 1, Range("c3").CurrentRegion.Columns.Count - 1).Address(0, 0)
End Sub
第2题：
Sub 批注的位置()
Range("F3").Comment.Shape.Left = Range("e3").Left
Range("F3").Comment.Shape.Top = Range("e3").Top
End Sub