这个按回车是怎么做的到

fyj2018

fyj2018

在线等谢谢

liulang0808

楼主看看表格change事件吧

fyj2018

liulang0808 发表于 2018-3-27 08:10
楼主看看表格change事件吧

不会啊能做一个啊

liulang0808

fyj2018 发表于 2018-3-27 20:40
不会啊能做一个啊

楼主的贴图是哪里搞的，
上传附件吧

fyj2018

liulang0808 发表于 2018-3-27 20:54
楼主的贴图是哪里搞的，
上传附件吧

是的，吧里找的

fyj2018

liulang0808 发表于 2018-3-27 20:54
楼主的贴图是哪里搞的，
上传附件吧

是的，在百度里找的

txj123456

选项里回车向右，选中A1：E19区域，回车就是这效果
vba中
Range("A1:E19").Select

liulang0808

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Count <> 1 Then Exit Sub
   
3.     If Target.Column > 5 Then Exit Sub
   
4.     Application.ScreenUpdating = False
   
5.     If Target.Column = 5 Then Cells(Target.Row + 1, 1).Select
   
6.     Application.ScreenUpdating = True
   
7. End Sub

复制代码

maditate

1. 
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3. If Target.Address <> "$A$1" Then Exit Sub
   
4.   Call my_Procedure
   
5. End Sub
   
6. 
   
7. 
   
8. 此段放在标准模块里
   
9. Sub my_Procedure()
   
10. a = ActiveCell.Row
    
11. b = ActiveCell.Column
    
12. If a > 10 Then Exit Sub
    
13. If b >= 5 Then
    
14.     b = 1
    
15.     a = a + 1
    
16. Else
    
17.    b = b + 1
    
18. End If
    
19. Cells(a, b).Activate
    
20. Application.OnTime Now + TimeValue("00:00:01"), "my_Procedure"
    
21. End Sub
    

复制代码