VBA常用技巧代码解析

yixt170585

#001  Sub RangeCopy()
#002      Application.DisplayAlerts = False
#003      Sheet1.Range("A1").CurrentRegion.Copy Sheet2.Range("A1")
#004      Application.DisplayAlerts = True
#005  End Sub


在使用上面的代码,为什么不会出现下面的提示,如果要出现下面的提示,是不是还要增加一些代码呀?

a489685453

请问版主，我下载下来打开文件时，为什么会出现这样的错误！



好的，继续关注中..........

[ 本帖最后由 a489685453 于 2009-4-13 16:37 编辑 ]

yuanzhuping

技巧117         使用RefEdit控件选择区域
       在技巧76-2中介绍了如何使用InputBox方法获得所选单元格区域的地址，而使用RefEdit控件获得单元格区域的地址比使用InputBox方法更加方便，可以单击RefEdit控件中的按钮以折叠用户窗体，选定区域后再单击按钮展开用户窗体，示例代码如下：

1. #001  Private Sub CommandButton1_Click()
   
2. #002      Dim Rng As Range
   
3. #003      On Error GoTo line
   
4. #004      Set Rng = Range(RefEdit1.Value)
   
5. #005          Rng.Interior.ColorIndex = 15
   
6. #006          Unload UserForm1
   
7. #007          Exit Sub
   
8. #008  line:
   
9. #009      MsgBox "你选择的是非单元格区域!"
   
10. #010  End Sub

复制代码

代码解析：
       用户窗体中按钮的单击事件过程，改变用户使用RefEdit控件所选择的单元格区域内部的颜色。
       第3行代码，错误处理语句。因为如果用户输入或选定了错误的单元格区域地址，将显示一错误信息，如图所示，所以必需使用On Error GoTo语句来绕过错误。

       第4行代码，使用Set语句将用户选择的单元格区域赋给变量rng。
       第5行代码，改变用户所选单元格区域内部的颜色。
注意 不能在无模式用户窗体中使用RefEdit控件。
       窗体运行后，当用户在工作表中选择一个单元格区域后改变所选单元格区域内部的颜色，如图所示。

yuanzhuping

原帖由 a489685453 于 2009-4-10 14:38 发表
请问版主，我下载下来打开文件时，为什么会出现这样的错误！

这是因为DTP控件没有注册引用，请注意这几天的内容，会有关于如何注册引用控件方面的内容。

yuanzhuping

原帖由 yixt170585 于 2009-4-10 13:43 发表
#001  Sub RangeCopy()
#002      Application.DisplayAlerts = False
#003      Sheet1.Range("A1").CurrentRegion.Copy Sheet2.Range("A1")
#004      Application.DisplayAlerts = True
#005  End Sub


在 ...

删除Application.DisplayAlerts = False这句代码。

fawcqgzxr

收藏下来,学习!谢谢楼主!

hbqchhp

这么好的东西，一定要顶！感谢版主啦！

yushufang

高人啊,家里真是大有人材啊,

月冷龙沙

楼主造福人类啊

yl6242003

感谢楼主的无私分享！！！