帮忙做个快捷输入

xmgslx123

一指禅62 发表于 2017-12-8 10:53

你出现 问题一定解决。但为什么我的电脑， 窗体在“任课情况”表打开后不启动  ？

xmgslx123

额  要双击    高手啊  代码有简单  又能达到目的

xmgslx123

一指禅62 发表于 2017-12-8 10:58
提示：  代码很简单。窗体必须在“任课情况”表中启动，否则出错

运行发现非常快，很感谢！ 如果再增加工号与姓名  代码如何修改  谢谢！

一指禅62

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2.     On Error Resume Next
   
3.     Erase arr
   
4.     If Target.Row > 4 And Target.Count = 1 Then
   
5.         If Target.Column = 2 Then
   
6.             Cancel = True
   
7.             arr = Sheet4.Range("A1").CurrentRegion
   
8.             frmMain.Caption = "教工列表"
   
9.             frmMain.Show
   
10.         ElseIf Target.Column = 4 Then
    
11.             Cancel = True
    
12.             arr = Sheet3.Range("A1").CurrentRegion
    
13.             frmMain.Caption = "专业目录列表"
    
14.             frmMain.Show
    
15.         ElseIf Target.Column = 7 Then
    
16.             Cancel = True
    
17.             arr = Sheet1.Range("A1").CurrentRegion
    
18.             frmMain.Caption = "课程目录列表"
    
19.             frmMain.Show
    
20.         End If
    
21.     End If
    
22. End Sub
    

复制代码

xmgslx123

非常好！高兴