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

qlh1978

Sub 第一题()
Dim aa1 As Byte, aa2 As Byte
aa1 = Range("c4").CurrentRegion.Rows.Count
aa2 = Range("c4").CurrentRegion.Columns.Count
Range("a1") = Range("c4").CurrentRegion.Range("a1").Offset(aa1 - 1, aa2 - 1).Address(0, 0)
End Sub
Sub 第二题()
Dim a As Integer, b As Integer, c As Integer
With Range("d3")
a = .Top
b = .Left
c = .Width
d = .Height
End With

Range("f3").Comment.Shape.Select
With Selection
.Left = b + c
.Top = a
End With
End Sub

brightleaf

Sub e1()
With Range("c4").CurrentRegion
[F3] = .SpecialCells(xlCellTypeLastCell).Address(0, 0)
End With
End Sub

Sub e2()
Range("f3").Comment.Shape.Left = Application.WorksheetFunction.Sum(Range("d3").Left, range("d3").Width)
Range("f3").Comment.Shape.Top = Range("d3").Top
End Sub

xiaoleiboshi

改变，mdfb./cv

davidwance

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

见附件

ranzhaohang

看看大家和我的方法有没不同

ranzhaohang

Sub 第一题()
   Dim x As Integer, y As Integer
   x = Range("c4").CurrentRegion.Rows.Count
   y = Range("c4").CurrentRegion.Columns.Count
   Range("a1") = Range("c4").CurrentRegion.Cells(x, y).Address(0, 0)
End Sub


Sub 第二题()
Dim x As Integer
   Range("f3").Comment.Shape.Left = Range("d:d").Width + Range("d:d").Left
End Sub

mfksypss

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

kcn

check the ans~~~~

xqqyz

学习学习。。。。。

gongbiao111

[hide]Sub 练习1()
Dim x As String, y As String
With Range("c4").CurrentRegion
[f1] = .Rows.Count
[f2] = .Columns.Count
[f3] = .Cells([f1].Value, [f2].Value).Address(0, 0)
End With
End Sub


Sub 练习2()
With Range("f3")
[a1] = .Comment.Shape.Top
[a2] = .Comment.Shape.Left
End With
With Range("e3")
[a3] = .Top
[a4] = .Left
End With
[a5] = [a3] - [a1]
[a6] = [a4] - [a2]
Range("f3").Comment.Shape.IncrementLeft [a6].Value
Range("f3").Comment.Shape.IncrementTop [a5].Value
End Sub