date_input_accalorate.bas

录入数据１－９时

Attribute VB_Name = "模块1"
Sub auto_open()
Application.OnKey "{48}", "v"
 Application.OnKey "{97}", "a"
 Application.OnKey "{98}", "b"
 Application.OnKey "{99}", "d"
 Application.OnKey "{100}", "e"
 Application.OnKey "{101}", "f"
 Application.OnKey "{102}", "g"
 Application.OnKey "{103}", "h"
 Application.OnKey "{104}", "i"
 Application.OnKey "{105}", "j"
 Application.OnKey "{ENTER}", "k"
 End Sub
  Sub v()
  ActiveCell.Value = 0
  SendKeys "{tab}"
  End Sub
  Sub a()
  ActiveCell.Value = 1
  SendKeys "{tab}"
  End Sub
     
  Sub b()
  ActiveCell.Value = 2
  SendKeys "{tab}"
  End Sub
        
  Sub d()
  ActiveCell.Value = 3
  SendKeys "{tab}"
  End Sub
       
  Sub e()
  ActiveCell.Value = 4
  SendKeys "{tab}"
  End Sub
       
  Sub f()
  ActiveCell.Value = 5
  SendKeys "{tab}"
  End Sub

  Sub g()
  ActiveCell.Value = 6
  SendKeys "{tab}"
  End Sub
     
  Sub h()
  ActiveCell.Value = 7
  SendKeys "{tab}"
  End Sub
       
  Sub i()
  ActiveCell.Value = 8
  SendKeys "{tab}"
  End Sub
       
  Sub j()
  ActiveCell.Value = 9
  SendKeys "{tab}"
  End Sub
  
  Sub k()
  SendKeys "{HOME}" & "{DOWN}"
  End Sub