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

zx_wl · 发表于 2011-10-1 18:43

我来学习.

scsys1 · 发表于 2011-10-4 17:19

Sub 最后单元格()
Dim a As Integer
Dim b As Integer
Dim iRow As Integer
Dim iColumns As Integer
With Range("C4").CurrentRegion
a = .Row
b = .Column
iRow = .Rows.Count - 1
iColumn = .Columns.Count - 1
End With
MsgBox "C4所在单元格区域的右下角单元格地址是" & Cells(a + iRow, b + iColumn).Address
End Sub
Sub 批注对齐()
Dim a As Integer
a = Cells(, 5).Left
Range("F3").Comment.Shape.Left = a
End Sub

复制代码

slg1975 · 发表于 2011-10-11 16:12

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

淮南王 · 发表于 2011-10-12 15:00

13集还没有看

淮南王 · 发表于 2011-10-12 15:04

有时间试试

wbzxz · 发表于 2011-10-16 21:26

不知道做的合不合适，请师父批改。

第13集练习题-wbzxz.rar (8.6 KB, 下载次数: 3)

fsezllq · 发表于 2011-10-21 22:15

讲解与练习并进真不错

wxxydl · 发表于 2011-10-23 21:32

我的答案:Sub a()
With Range("c4").CurrentRegion
[c21] = .Cells(Range("c4").CurrentRegion.Rows.Count, Range("c4").CurrentRegion.Columns.Count).Address
End With
End Sub

wyf22006 · 发表于 2011-10-29 22:10

本帖最后由 wyf22006 于 2011-10-29 22:13 编辑

Sub dz() '返回左下角地址
Dim i As Integer, ic As Integer
With Range("c3").CurrentRegion
i = .Rows.Count
ic = .Columns.Count
[a1] = .Range("a1").Offset(i - 1, ic - 1).Address(0, 0)
End With
End Sub
Sub pz() '批注与D列的左边对齐
With Range("f3").Comment.Shape
.Left = Columns("d").Offset(0, 1).Left
End With
End Sub

复制代码

zhaoxianqi132 · 发表于 2011-11-8 01:02

xuexie
xuexi
..

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