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

Lydia_Liu_1234 · 发表于 2021-12-29 14:35

学习

学习干饭王丶 · 发表于 2021-12-29 16:17

学习

MLibra · 发表于 2021-12-31 09:58

现在学习不晚

lushwong · 发表于 2022-1-4 12:45

学习

q1026031700 · 发表于 2022-1-5 21:07

lex_emily · 发表于 2022-1-5 21:14

学习中。

ouvi · 发表于 2022-1-8 10:49

Sub 定位2()

With Range("C4").CurrentRegion
[A13] = .Rows.Count
[A14] = .Columns.Count
[A15] = .Cells([A13], [A14]).Address(0, 0)
End With
End Sub

Sub 调整批注位置()

With Range("C3").CurrentRegion.Offset(0, 2)
[A16] = .Top
[A17] = .Left
End With
Range("F3").Comment.Shape.Select
Selection.Top = [A16]
Selection.Left = [A17]

End Sub

ouvi · 发表于 2022-1-8 10:51

学习一下

liuying1982 · 发表于 2022-1-9 16:31

学习学习

kino2015 · 发表于 2022-1-24 14:41

学习

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