Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
楼主: 兰色幻想

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

  [复制链接]
发表于 2022-11-10 17:52 | 显示全部楼层
学习学习
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
回复

使用道具 举报

发表于 2022-11-24 18:46 | 显示全部楼层
Sub 第1题()
Dim rg As String
rg = Range("c4").End(xlToRight).End(xlDown).Address(0, 0)
MsgBox rg
End Sub

Sub 第2题()
Range("F3").Comment.Shape.Left = Range("d3").Left + Range("d3").Width
End Sub


回复

使用道具 举报

发表于 2022-11-27 14:45 | 显示全部楼层
回复

使用道具 举报

发表于 2022-12-2 22:49 | 显示全部楼层
学习学习
回复

使用道具 举报

发表于 2022-12-3 16:29 | 显示全部楼层
学习学习
回复

使用道具 举报

发表于 2022-12-18 19:56 | 显示全部楼层
学习一下
回复

使用道具 举报

发表于 2023-1-1 23:20 | 显示全部楼层
liuts 发表于 2011-7-7 19:27
**** 本内容被作者隐藏 ****

学习学习
回复

使用道具 举报

发表于 2023-1-11 22:59 | 显示全部楼层
学习
回复

使用道具 举报

发表于 2023-1-11 23:05 | 显示全部楼层
本帖最后由 ywjhll0322 于 2023-1-11 23:13 编辑


  • Sub x1()
    With Range("c4").CurrentRegion
        MsgBox "C4所在单元格区域右下角单元格地址(相对引用形式)是: " & .Cells(.Rows.Count, .Columns.Count).Address(0, 0)
    End With
    End Sub
  • Sub x2()

    Range("f3").Comment.Shape.Left = Range("d3").Left + Range("d3").Width
    Range("f3").Comment.Shape.Top = Range("d3").Top

    End Sub


回复

使用道具 举报

发表于 2023-2-15 10:57 | 显示全部楼层
file:///C:\Users\zhouk\AppData\Local\Temp\SGPicFaceTpBq\8924\AFCD215A.png,老师讲课内容详实。受教了。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 23:42 , Processed in 0.502020 second(s), 5 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表