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

hjy123 · 发表于 2019-5-13 21:57

dadasd

ren591 · 发表于 2019-5-18 08:40

第13集练习题 - Lorna.rar (10.19 KB, 下载次数: 0)

px7282835 · 发表于 2019-5-21 00:12

看看答案

mardy · 发表于 2019-5-23 12:45

xuexixuexi

Anniebbr · 发表于 2019-6-6 14:01

check

ben8563 · 发表于 2019-6-8 23:07

看看结果

琰小淡 · 发表于 2019-6-9 16:11

Public Sub 题目1()
Dim rg As Range, a%, b%, c%, d%

With Range("c4").CurrentRegion
a = .Range("a1").Row
b = .Rows.Count
c = .Range("a1").Column
d = .Columns.Count
End With

Set rg = Cells(a + b - 1, c + d - 1)
Range("a19") = "C4所在单元格区域的右下角单元格地址："
Range("b19") = rg.Address(0, 0)

End Sub[/hide]

金色之刃 · 发表于 2019-6-10 22:31

过来学习……

wohenan13 · 发表于 2019-6-12 11:13

看看是不是有点

无痕音速 · 发表于 2019-6-14 15:40

Sub t1()    '第一题解答
  With Range("c4").CurrentRegion
  Cells(1, 1) = .Cells(.Count).Address(0, 0)
  End With
End Sub

Sub t2()  '第二题解答
  With Range("f3").Comment.Shape
  .Top = Range("e3").Top
  .Left = Range("e3").Left
  End With
End Sub

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