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

lcjhere

参考一下

risona

第一题：
'想法：先找到非空，然后非空行再与A列取交集。
Sub job5()
Dim rg As Range
Dim rs As Range
Dim rm As Range
Set rg = Worksheets("练习11").Range("A1:D12").SpecialCells(xlCellTypeConstants) '选中非空
Set rs = rg.EntireRow  '选中非空所在的行
Set rm = Application.Intersect(Columns(1), rs)   '将非空所在行与A列取交集
rm = 1

End Sub

lyn-

想看看

kameric

做P12作业的时候，对specialcell（xlcelltypelastcell）有误解，以为可以直接得到所在区域的最后一个单元格，但实际上操作发现，如果工作表有批注或其他单元格数据，会产生偏差，不会精确定位至表格右下角端点的单元格。P13作业只能想到偏移的方法解决定位问题了

1. <hide>Sub P13第一题()
   
2. 
   
3. With Range("C4").CurrentRegion
   
4. [A1] = Cells(.Row, .Column).Offset(.Rows.Count - 1, .Columns.Count - 1).Address(0, 0)
   
5. End With
   
6. 
   
7. End Sub
   
8. 
   
9. Sub P13第二题()
   
10. 
    
11. Dim mycomment As Comment                '声明对象变量comment
    
12. Dim mytop As Double                     '声明顶坐标变量mytop
    
13. Dim myleft As Double                    '声明左坐标变量myleft
    
14. 
    
15. Set mycomment = Cells.SpecialCells(xlCellTypeComments).Comment      '对变量comment初始化赋值
    
16. 
    
17. With Range("D3")                '获取单元格D3的位置信息，并计算批注新坐标的位置
    
18. mytop = .Top
    
19. myleft = .Left + .Width
    
20. End With
    
21. 
    
22. With mycomment.Shape            '对批注新坐标进行赋值
    
23. .Top = mytop
    
24. .Left = myleft
    
25. End With
    
26. 
    
27. End Sub</hide>

复制代码

黄豆飞

csmccdh 发表于 2011-7-7 21:07
**** 本内容被作者隐藏 ****
**** 本内容被作者隐藏 ****

看看

mushashi

虽然做出来了，想看看满分答案

呆呆休

谢谢

iopan2023

哈哈哈哈哈哈哈

别别别

参考一下

这个女人叫小美

Sub 题目一()
Dim i, j
With Range("c4").CurrentRegion
i = .Rows.Count
j = .Columns.Count
[d15] = .Range("a1").Offset(i - 1, j - 1).Address(0, 0)
End With
End Sub
Sub 题目二()
Dim i, j
With Range("d3")
i = .Left
j = .Width
End With
Range("f3").Comment.Shape.Left = i + j
End Sub