六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

expression.SendKeys(Keys, Wait)

Admin | 2013-2-21 9:59:22 | ReadNums | 2715 | 标签 六合开奖结果现场直播 | 打印本页
     

  一、SendKeys语法介绍

  expression.SendKeys(Keys, Wait)

  语句功能:将击键发送给活动应用程序。

  语法如下:

  expression.SendKeys(Keys, Wait)

  expression 可选。该表达式返回一个 Application 对象。

  Keys Variant 类型,必需。要发送的键或者组合键,以文本方式表示。

  Wait Variant 类型,可选。如果该值为 True,则 Microsoft Excel 等待击键处理完后再将控制返回到宏;如果该值为 False(或者省略该参数),则宏继续执行而不等待击键处理完毕。

  说明:本方法将击键放到键盘缓冲区。某些情况下,在调用要使用击键的方法之前必须先调用此方法。例如,若要往对话框中发送密码,则必须在显示对话框之前调用 SendKeys 方法。

  Keys 参数可指定任何单个键或与 Alt、Ctrl 或 Shift 的组合键(或者这些键的组合)。每个键可用一个或多个字符表示。例如,"a" 表示字符 a,或者 "{ENTER}" 表示 Enter。

  若要指定在按相应键时不会显示的字符(例如,Enter 或 Tab),请使用下表所列的代码来表示相应的键。表中的每个代码表示键盘上的一个键。

  二、SendKeys代码示例

  Public MyRow As Integer

  Private Sub Workbook_Open()
      Application.OnKey key:="{F8}", procedure:="MyAutoInput1"
      Application.OnKey key:="{F9}", procedure:="MyAutoInput2"
  End Sub
  代码解释:按下F1键,执行MyAutoInput8,按下F9,执行MyAutoInput2

  Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
      MyRow = Target.Row
  End Sub
  代码解释:每选择不同的单元格,都将其所处的行号传递给变量MyRow

  接下来,还有两个过程的代码如下:

  Sub MyAutoInput1()
      ActiveSheet.Cells(MyRow, 7).Value = 800
  End Sub
  代码解释,在当前行的7列自动输入数值800

  Sub MyAutoInput2()
      ActiveSheet.Cells(MyRow, 7).Value = 600
  End Sub
  代码解释,在当前行的7列自动输入数值600

  三、知识拓展

  若要指定在按相应键时不会显示的字符(例如,Enter 或 Tab),请使用下表所列的代码来表示相应的键。表中的每个代码表示键盘上的一个键。

    键           代码

  Backspace     {BACKSPACE} or {BS}
  Break        {BREAK}
  Caps Lock      {CAPSLOCK}
  Clear        {CLEAR}
  Delete 或 Del    {DELETE} 或 {DEL}
  End           {END}
  Enter        ~(波形符)
  Enter(数字小键盘)  {ENTER}
  Esc         {ESCAPE} 或 {ESC}
  F1 到 F15      {F1} 到 {F15}
  Help         {HELP}
  Home         {HOME}
  Ins         {INSERT}
  Num Lock       {NUMLOCK}
  Page Down      {PGDN}
  Page Up       {PGUP}
  Return       {RETURN}
  Scroll Lock     {SCROLLLOCK}
  Tab         {TAB}
  向上键        {UP}
  向下键        {DOWN}
  向右键        {RIGHT}
  向左键        {LEFT}


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日