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

sunxian1988 · 发表于 2012-4-30 21:39

vbgbfgbfgbfgbghccc

monicaling27 · 发表于 2012-5-3 22:55

本帖最后由 monicaling27 于 2012-5-3 22:57 编辑

若有问题，请指教，谢谢{:011:}

Sub 单元格地址()
Dim x As Integer, y As Integer
With Range("c4").CurrentRegion
   x = .Rows.Count
   y = .Columns.Count
   '[a1] = .Cells(x, y).Address(1, 0)  '行绝对列返回的单元格信息
'    [a2] = .Cells(x, y).Address(0, 1)  '列绝对行
'    [a3] = .Cells(x, y).Address(1, 1) '绝对值
'    [a5] = .Cells(x, y).Address '绝对值
   [a4] = .Cells(x, y).Address(0, 0)  '相对值
End With
End Sub
Sub 列对齐()
  Range("f3").Comment.Shape.Left = Range("e3").Left

End Sub

quan593 · 发表于 2012-5-8 22:37

Sub 右下角单元格地址()
   With Range("C4").CurrentRegion
   [A1] = .Range("a1").Offset(.Rows.Count - 1, .Columns.Count - 1).Address(0, 0)
   End With
End Sub
Sub 右边对齐()
Range("F3").Comment.Shape.Left = [e6].Left
End Sub

zhanghui9988 · 发表于 2012-5-11 13:13

第二题不会

zhanghui9988 · 发表于 2012-5-11 13:16

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

756700603 · 发表于 2012-5-11 21:13

嘿嘿，看看，题太难了

jlf2003 · 发表于 2012-5-13 20:36

VBA80第13集练习题上交专贴

cqtxl · 发表于 2012-5-18 14:26

我要进来学习，求进步

yinjinjian · 发表于 2012-5-25 13:57

兰版辛苦了

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

westwyw · 发表于 2012-5-26 21:32

先交1题

Sub 题目1()
Dim x As Integer, y As Integer
With Range("C4").CurrentRegion
x = .Rows.Count
y = .Columns.Count
[A1] = .Cells(x, y).Address(0, 0)
End With
End Sub

		自动登录	找回密码
密码			注册

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

似乎已经过了审核的时间，但是还是希望有前辈们知道一下，谢谢