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

【名臣】

看看，学习学习..

ming_565

的是不是回复可见模式？

sxz0928

这么久了 不知道兰版还能看到不~~

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

不信这样还重名

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

shangxun

Sub s1()
Dim si As Range
  With Range("c4").CurrentRegion
   [a1] = .Row
   [a2] = .Rows.Count
   [a3] = .Column
   [a4] = .Columns.Count
  End With
  Set si = Cells(Range("a1").Value, Range("a3").Value).Cells(Range("a2").Value, Range("a4").Value)
   [a5] = si.Address(0, 0)
End Sub

Sub s2()
With Range("e3")
   [a7] = .Left
End With
Range("f3").Comment.Shape.Left = [a7]
   
End Sub

yzj2558

Sub t1()
    With Range("c3").CurrentRegion
    i = .Rows.Count
    y = .Columns.Count
    [a3] = Cells(i, y).Address
    End With
End Sub
Sub t2()
    With Range("d3")
    i = .Top
    [a4] = Range("f3").Comment.Shape.Top
    s = Range("e3").Left
    Range("f3").Comment.Shape.Top = i
    Range("f3").Comment.Shape.Left = s
   
    End With
End Sub

mengsuiwofei

参考学习一下，谢谢

tomle

上来学习一下子{:011:}

sylverster

Sub 第1题()
Dim rg As Range
Set rg = [c4].CurrentRegion
MsgBox rg.Cells(rg.Count).Address(0, 0)

End Sub
Sub 第2题()
Range("f3").Comment.Shape.Top = [d3].Top
Cells(3, 6).Comment.Shape.Left = Range("d3").Left + Range("d3").Width
End Sub

mooneds

又来学习了~
又来学习了~
又来学习了~
又来学习了~
又来学习了~
又来学习了~
又来学习了~
又来学习了~
又来学习了~
又来学习了~
又来学习了~
又来学习了~
又来学习了~
又来学习了~
又来学习了~
又来学习了~
又来学习了~
又来学习了~