[已解决]【真心求助】帮忙解决回车后启用对应的宏代码

rosemai

大家好，新人报道！由于公司有高手不愿意交，老板又施压，使得我非常难受，特此在这给各位老师拜个晚年了！
请大家协助下，在“录入表”内当A4单元格输入信息，按回车后，启动对应的那个宏，其实里面就只有一个宏！
真心的还是劳烦大家了，本人也是初学者，但岗位环节出了问题急切求助大家帮忙解决！
QQ：272929809
高手提示我，但我弄不来，杨老师这样提示的：
使用 工作表的 Change 事件
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Call 时间敲定
End Sub
感激大家了！哪天我学成也会回报给大家的。

最佳答案

月排行榜 / 总排行榜

cbg2008

2013-2-27 20:34

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address = "$A$4" And Len(Target.Value) > 0 Then Call 时间敲定
   
3. End Sub
   

复制代码

2-27三方快递登记高值剔除按钮.zip (23.08 KB, 下载次数: 13)

2013-2-27 20:34 上传

点击文件名下载附件

跳转到最佳答案楼层

fjmxwrs

你提问也不讲清，你在哪输入什么要启动哪个宏，晕

cbg2008

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address = "$A$4" And Len(Target.Value) > 0 Then Call 时间敲定
   
3. End Sub
   

复制代码

2-27三方快递登记高值剔除按钮.zip (23.08 KB, 下载次数: 13)

2013-2-27 20:34 上传

点击文件名下载附件

rosemai

真的，相当感激！解决了。

rosemai

fjmxwrs 发表于 2013-2-27 20:32
你提问也不讲清，你在哪输入什么要启动哪个宏，晕

是是是，版主，以后我一定注意！谢谢了！

fjmxwrs

rosemai 发表于 2013-2-27 20:42
是是是，版主，以后我一定注意！谢谢了！

给你写个完整的

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Address = "$A$4" Then
   
3.         Range("A3").Select
   
4.         If Range("A3").Value = "" Then
   
5.             MsgBox "单号不能为空!"
   
6.             Application.EnableEvents = False
   
7.             Target.ClearContents
   
8.             Application.EnableEvents = True
   
9.             Exit Sub
   
10.         End If
    
11.         With Sheets("明细表")
    
12.             i = .Range("A65536").End(xlUp).Row + 1
    
13.             .Cells(i, 1).Value = Range("A3").Value
    
14.             .Cells(i, 2).Value = Range("B3").Value
    
15.             .Cells(i, 3).Value = Range("A4").Value
    
16.             .Cells(i, 4).Value = Range("B1").Value
    
17.         End With
    
18.         Range("A3:A4").ClearContents
    
19.     End If
    
20. End Sub
    

复制代码

三方快递登记高值剔除按钮.zip (19.05 KB, 下载次数: 5)

2013-2-27 20:48 上传

点击文件名下载附件

rosemai

fjmxwrs 发表于 2013-2-27 20:48
给你写个完整的

版主是厉害，花了好多心思！那我想厚脸皮再咨询下，如果光用回车来启动宏，那怎么写？

fjmxwrs

rosemai 发表于 2013-2-27 21:49
版主是厉害，花了好多心思！那我想厚脸皮再咨询下，如果光用回车来启动宏，那怎么写？

我给你的就是回车就可以得么结果的呀