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

nodoubt · 发表于 2021-10-26 16:19

看看

TedHuang · 发表于 2021-10-30 16:56

本帖最后由 TedHuang 于 2021-10-30 17:00 编辑

Sub 第一題()
Dim x, y As Integer

With Range("c3").CurrentRegion
x = .Row + .Rows.Count - 1
y = .Column + .Columns.Count - 1
End With
Range("A1") = Cells(x, y).Address(0, 0)
End Sub

Sub 第二題()
Range("F3").Comment.Shape.Left = Range("E1").Left
Range("F3").Comment.Shape.Top = Range("D3").Top
End Sub

149058845 · 发表于 2021-11-6 14:11

来回复啦。

洛晗 · 发表于 2021-11-7 21:43

来抄大神作业了

frb719 · 发表于 2021-11-17 20:56

查看谢谢

15018296453 · 发表于 2021-11-20 16:07

111111

orange_jere · 发表于 2021-12-15 06:51

新人报道

冬夜春晓 · 发表于 2021-12-15 14:08

看看答案

xuhuihui2008 · 发表于 2021-12-25 01:04

为啥CurrentRegion.SpecialCells(xlCellTypeLastCell).Address(0, 0)不行

yowychen · 发表于 2021-12-27 15:20

have a look

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