[已解决]请老师们帮帮我把注释部分用代码写出来下，谢谢大家了！

yjwdjfqb · 发表于 2013-12-16 20:26

请老师们帮帮我把注释部分用代码写出来下，谢谢大家了！

求助－改成可以用选择框选择.rar (10.23 KB, 下载次数: 12)

1091126096 · 发表于 2013-12-16 20:46

论坛内搜索“ VBA程序解释器”，爱疯老师的。

1091126096 · 发表于 2013-12-16 20:47

看错题意了。不好意思。

爱疯 · 发表于 2013-12-16 22:47

Sub 选择()
Dim Regional As Range

Set Regional = Application.InputBox(prompt:="请在工作表中选择你要复制的单元格区域", Title:="提示", Default:="请选择", Type:=8)
If Regional Is Nothing Then Exit Sub
Regional.ClearContents

Set Regional = Application.InputBox(prompt:="请在工作表中选择你要复制的单元格区域", Title:="提示", Default:="请选择", Type:=8)
If Regional Is Nothing Then Exit Sub
Regional.FormulaR1C1 = "测试的数据"
End Sub

把你所选的区域所在行，我给删了，估计不会要整行都写些某个值吧？
猜的，要这样？
建议说明下希望实现的效果。

PS:“VBA程序解释器”不是我写的，是转自：http://club.excelhome.net/thread-547868-1-1.html

yjwdjfqb · 发表于 2013-12-17 08:44

爱疯发表于 2013-12-16 22:47
Sub 选择()
Dim Regional As Range

老师你好，就是要这样的效果，

但出现，选择框时，我如果点了，取消，就会弹出，“运行时错误424”，这个是什么问题呀，怎么解决呀，请老师帮帮忙！

爱疯 · 发表于 2013-12-17 09:05

yjwdjfqb 发表于 2013-12-17 08:44
老师你好，就是要这样的效果，

但出现，选择框时，我如果点了，取消，就会弹出，“运行时错误424”，这 ...

Sub 选择()
Dim Regional As Range
'1）对所选单元格，清除内容
On Error Resume Next
Set Regional = Application.InputBox(prompt:="请在工作表中选择你要复制的单元格区域", _
                                    Title:="提示", _
                                    Default:="请选择", _
                                    Type:=8)
If Regional Is Nothing Then Exit Sub
On Error GoTo 0
Regional.ClearContents

'2）对所选单元格，输入公式
On Error Resume Next
Set Regional = Application.InputBox(prompt:="请在工作表中选择你要复制的单元格区域", _
                                    Title:="提示", _
                                    Default:="请选择", _
                                    Type:=8)
If Regional Is Nothing Then Exit Sub
On Error GoTo 0
Regional.FormulaR1C1 = "测试的数据"
End Sub

因为与声明的类型不一致造成的。
没想到更好方式，还是on error语句吧

yjwdjfqb · 发表于 2013-12-17 09:45

爱疯发表于 2013-12-17 09:05
Sub 选择()
Dim Regional As Range
'1）对所选单元格，清除内容

Sub 选择()
Dim Regional As Range
Set Regional = Application.InputBox(prompt:="请选择区域", Title:="提示", Default:="请选择", Type:=8).EntireRow
If Regional Is Nothing Then Exit Sub
Regional.ClearContents
End Sub

复制代码

爱疯老师，像我上面的代码，只用了一个，选择框，点取消时，也会出现“运行错误424”，我知道，加容错语句，可以解决，
请问下老师，还有没有其它更好的办法呀，谢谢了老师。

爱疯 · 发表于 2013-12-17 09:48

如果只等效7楼的代码

Sub Click()
Selection.EntireRow.ClearContents
End Sub

yjwdjfqb · 发表于 2013-12-17 10:14

爱疯发表于 2013-12-17 09:48
如果只等效7楼的代码

Sub Click()

老师，我没有看懂这个，传个附件好吧

爱疯 · 发表于 2013-12-17 10:40

1楼代码的用途，应该只是你问题里的中间环节吧！我觉得还是用6楼代码吧

这种情况怎么避免容错处理我以前好像提问过，没找着那个提问帖，我记得好像没等到答案。

6楼的容错处理，是从 On Error Resume Next 开始，到 On Error GoTo 0 结束。所以不会对其它地方的代码造成影响。

如果不急，还是其它朋友来看看吧。

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