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

红旗雪 · 发表于 2017-7-3 07:02

好好学习，天天向上

dt7155 · 发表于 2017-7-4 15:48

学习~

edisonx32 · 发表于 2017-7-5 16:13

好好学习，天天向上

i1312013120 · 发表于 2017-7-13 21:29

学习一下。

i1312013120 · 发表于 2017-7-13 21:40

学习一下。。

lgljd2007 · 发表于 2017-7-14 11:08

Option Explicit
Sub t11()
With Range("c4").CurrentRegion
'[e10] = .Range("a1").Offset(.Rows.Count - 1, .Columns.Count - 1).Address(0, 0)
[d12] = .Cells(.Rows.Count, .Columns.Count).Address(0, 0)
End With
End Sub

Sub t2()
Range("f3").Comment.Shape.Left = _
Range("d1").Left + Range("d1").Width

Range("f3").Comment.Shape.Top = _
Range("d3").Top
End Sub

leaf0603 · 发表于 2017-7-16 13:45

学习中

jason.zou · 发表于 2017-7-17 05:59

kai xin !!!

One123.. · 发表于 2017-7-18 12:18

学习学习

gshzero · 发表于 2017-7-18 20:14

看看高手的答案

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