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

zhoujianhua

第13集还没出来呢？上课前作业吗？

dw37182

游客，如果您要查看本帖隐藏内容请回复

dw37182

游客，如果您要查看本帖隐藏内容请回复

yyychenyu

Sub test1()

With Range("c4").CurrentRegion
Range("c12") = .Cells(.Rows.Count, .Columns.Count).Address(0, 0)
End With
End Sub


Sub test2()
With Range("f3").Comment.Shape
.Top = Range("d3").Top
.Left = Range("d3").Left + Range("d3").Width
End With
End Sub

fangmin2008

1. Sub ex1()
   
2.   Dim x As Integer
   
3.   Dim y As Integer
   
4.      With Range("C3").CurrentRegion
   
5.         x = .Rows.Count
   
6.         y = .Columns.Count
   
7.     End With
   
8.     'MsgBox x
   
9.     'MsgBox y
   
10. Range("A1") = Cells(x + 2, y + 2).Address(0, 0)
    
11. End Sub
    
12. 
    
13. 
    
14. Sub ex2()
    
15.   Dim x, y, i, j
    
16.     x = Range("e3").Top
    
17.     y = Range("e3").Left
    
18.     Range("F3").Comment.Shape.Select
    
19.      With Selection
    
20.       i = .Top
    
21.       j = .Left
    
22.       .ShapeRange.IncrementTop x - i
    
23.       .ShapeRange.IncrementLeft y - j
    
24.      End With
    
25. End Sub
    

复制代码

fangmin2008

Sub ex1()
  Dim x As Integer
  Dim y As Integer
     With Range("C3").CurrentRegion
        x = .Rows.Count
        y = .Columns.Count
    End With
    'MsgBox x
    'MsgBox y
Range("A1") = Cells(x + 2, y + 2).Address(0, 0)
End Sub


Sub ex2()
  Dim x, y, i, j
    x = Range("e3").Top
    y = Range("e3").Left
    Range("F3").Comment.Shape.Select
     With Selection
      i = .Top
      j = .Left
      .ShapeRange.IncrementTop x - i
      .ShapeRange.IncrementLeft y - j
     End With
End Sub

fangmin2008

游客，如果您要查看本帖隐藏内容请回复

almeida

{:35:}學習，學習

2288liu

看看,
            

RGTLYL

继续学习学习{:021:}