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

kaolacola · 发表于 2012-4-11 16:37

学习
学习
学习
学习
学习
学习
学习

18056330181 · 发表于 2012-4-13 11:47

向有潜力的童鞋学习。

lx5971367 · 发表于 2012-4-14 21:33

我来交作业啦我来交作业啦我来交作业啦

lx5971367 · 发表于 2012-4-14 21:36

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

一条橙 · 发表于 2012-4-17 10:44

Sub yellow()
Range("c4").CurrentRegion.Address

End Sub

Sub yellow2()
Range("f3").Context.Shape
End Sub

yl_li · 发表于 2012-4-18 14:13

第2题不理解题意，先交第1题<div class="blockcode"><blockquote> Sub 第1题()     With Range("c4").CurrentRegion         MsgBox .Cells(.Rows.Count, .Columns.Count).Address(0, 0)     End With End Sub</blockquote></div>

tsigms · 发表于 2012-4-19 20:19

本帖最后由 tsigms 于 2012-4-19 20:22 编辑

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

zlnxlzht · 发表于 2012-4-21 18:43

本帖最后由 zlnxlzht 于 2012-4-21 18:44 编辑

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

yongly1211 · 发表于 2012-4-23 23:23

thank you very much!

hellohome · 发表于 2012-4-26 16:40

Sub 题目1()
Dim X As Integer, Y As Integer
'[A1] = Range("C4").CurrentRegion.Row
'[A2] = Range("C4").CurrentRegion.Rows.Count
'[A3] = Range("C4").CurrentRegion.Column
'[A4] = Range("C4").CurrentRegion.Columns.Count
X = Range("C4").CurrentRegion.Row + Range("C4").CurrentRegion.Rows.Count - 1
Y = Range("C4").CurrentRegion.Column + Range("C4").CurrentRegion.Columns.Count - 1
Range("A1") = Cells(X, Y).Address(0, 0)
End Sub
Sub 题目2()
'With Range("F3")
      '[b26] = .Top
      '[b27] = .Left
      '[b28] = .Height
      '[b29] = .Width
  '[B24] = Range("I2").Comment.Text

   Range("F3").Comment.Shape.Top = Range("E3").Top
   Range("F3").Comment.Shape.Left = Range("E3").Left

End Sub

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