如何用按键精灵获取Excel单元格光标的位置,并跳转到指定位置?

作者&投稿:笃丁 (若有异议请与网页底部的电邮联系)
excel让选中的单元格 跳转至指定位置~

一、工具/原料
Excel
电脑一台

二、方法/步骤
第一种方法:
使用Excel自带的定位功能,使用快捷键Ctrl+G,打开定位功能,在引用位置输入需要跳转的单元格名称,然后点击确定即可。


第二种方法:
将鼠标定位到左上角的名称框,输入需要跳转的单元格名称,然后点击回车键。

你可以用光标键(即上、下、左、右键)定位单元格,如果想要编辑某个单远格中的内容,按一下F2,这个单远格即可获得输入焦点,然后你可以再用左、右光标键来移动到相要输入内容的位置。如果要在单元格里想换行,可按alt+Enter来实现。比起用鼠标来操作,这个效率快一点。呵呵。。。

其实你把你的实际需求场景说明白了,可能会得到更多的解决方案,比如楼上说的VBA办法,当然也可以用按键精灵,但用按键精灵可以用主动式控制,而非被动得到后焦点后再作下一步动作。
如果一定要相结合,可以让EXCEL指挥鼠标到光标处,然后按键精灵接手获得鼠标的位置
以下是指挥到光标处的代码
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_ABSOLUTE = &H8000 '指定鼠标使用绝对坐标系,此时,屏幕在水平和垂直方向上均匀分割成65535×65535个单元
Private Const MOUSEEVENTF_MOVE = &H1 '移动鼠标
Private Const MOUSEEVENTF_LEFTDOWN = &H2 '模拟鼠标左键按下
Private Const MOUSEEVENTF_LEFTUP = &H4 '模拟鼠标左键抬起

Sub Mousemove()
Dim X As Long, Y As Long
Dim Px, Py, Px1, Py1
X = GetSystemMetrics32(0) ' 宽度(电脑像素)
Y = GetSystemMetrics32(1)
With ActiveCell
Px = .Left / 72 * GetPPI
Py = .Top / 72 * GetPPI
Px1 = ActiveWindow.PointsToScreenPixelsX(0)
Py1 = ActiveWindow.PointsToScreenPixelsY(0)
mw = (Px + Px1) * 65535 / X
mh = (Py + Py1) * 65535 / Y
End With
mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE, mw, mh, 0, 0
' mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 左健按下
End Sub

Private Sub CommandButton1_Click()
Mousemove
End Sub

以下代码放入模块
Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hDC As Long) As Long
Declare Function GetDeviceCaps Lib "Gdi32" (ByVal hDC As Long, ByVal index As Long) As Long
Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long '获取分辨率
Const LOGPIXELSX = 88
Const LOGPIXELSY = 90
Function GetPPI()
Dim hDC As Long
hDC = GetDC(0)
Dim X, Y
X = GetDeviceCaps(hDC, LOGPIXELSX)
Y = GetDeviceCaps(hDC, LOGPIXELSY)
GetPPI = X
End Function

获取鼠标位置代码,按键精灵百度一下就能得到,或已经可以用精灵直接控制LeftClick之类的动作了。


按键精灵代码转换为E语言代码
标签1.取窗口句柄 (), 0, #键2).子程序 _标签1_反馈事件, 整数型.参数 参数一, 整数型.参数 参数二, 整数型.如果真 (参数一 = k) 模拟按键 (#F2键, #

按键精灵后台无限按E
你可以自己做一个 简单 的啊,用抓抓把游戏 界面 的句柄抓到,再在命令库后台那个插件里找到那个后台按键,在那个按键代码那按一下E代码就直接填上了,句柄填你抓的那个句柄,再点击插入就怎么一条代码就OK了,你要是想每次都可以用,不想那么麻烦来改句柄,就要做高级点,但是2个字 ...

按键精灵如何自动抓取网页中的E-MAIL地址?
这个可以先取源码。然后用正则 易语言容易点。按键可能没那么方便。

如何用脚本按键精灵自动随机字母+数字?
If m>80 and m<91 KeyPress "E", 1 End If If m>90 and m<101 KeyPress "U", 1 End If 上面的是个例子,你可以第一个字母和后面的5分开进行,就可以保证第一个是字母,后面的随机。字母范围和数字范围可以自己增加

用按键精灵怎么制作脚本,可以在游戏中模拟,按下E键等于不停的按E键...
做简单点,可以脚本内容使用:do keypress "E",1 delay 100 loop 然后将脚本的启动按键设成E,结束按键设成F12,这样就可以按一下E就不停的按E键,要停止就按下F12键。

刚下载了按键精灵,我想设置一个按一次“E”会执行3次“E”的脚本。每次...
点上方源文件将以下内容复制进去:KeyPress "E", 1 Delay 40 KeyPress "E", 1 Delay 40 KeyPress "E", 1 Delay 40 这就是3下E,如果想通过按一下激活的话,保存后右键,属性,修改热键,启动设置为E

按键精灵后台按键
Call Plugin.Msg.Tips("鼠标移动到游戏窗口内 请按Q键 锁定句柄")w = WaitKey()Wend Hwnd = Plugin.Window.MousePoint()\/\/===后台是要句柄的 上面设置获取句柄 do Call 按键次数(69,1,10)'按键e Delay 1000 Call 按键次数(87,1,10)'按键w Delay 1000 loop Sub 按键次数(按键码,次数,延时...

按键精灵9 怎么把波浪键键改成按E键
貌似所有标点符号的按键码都是一样的 如果要改的话,只要对方按了 “ ‘shift’ + ‘任意符号键’ ” 都会变成 “E” 键

按键精灵怎么设置按Q等于依次按下Q W E R四个键 求代码
你好,按键精灵不会,VB语言,文科生学的东西。已经被淘汰了。给你python代码:km.mask('q',1)#屏蔽物理按键Q while 1:if km.isdown(‘q’)==1:#键盘上的Q按下 km.press('q')km.press('w')km.press('e')km.press('r')以上,能看懂吧,一个死循环检测Q有没有按下,如果按下了就...

我想不停的按E键,每隔1.5秒按一次,用按键精灵的话应该怎么做?麻烦稍 ...
你把下边的代码复制到按键精灵的源文件里面就行了,69是E键的按键码,1500=1.5秒 Hwnd = Plugin.Window.Foreground()Rect = Plugin.Window.GetClientRect(Hwnd)Rem S Call Plugin.Bkgnd.KeyPress(Hwnd, 69)Delay 1500 Goto S

振兴区15127362731: 按键精灵如何获取excel的某些单元格后并复制? -
仲杰苓桂: 格式如下: Call Plugin.Office.OpenXls(文件路径) Text = Plugin.Office.ReadXls(页, 行, 列) Call Plugin.Sys.SetCLB(Text) Call Plugin.Office.CloseXls() 比如excel的路径是:C:\测试.xls 单元格是:A4 那么代码如下: Call Plugin.Office.OpenXls("C:\测试.xls") Text = Plugin.Office.ReadXls(1, 4, 1) Call Plugin.Sys.SetCLB(Text) Call Plugin.Office.CloseXls()

振兴区15127362731: 用按键精灵怎么读取EXCEL数据 -
仲杰苓桂: 按键精灵里的插件命令: //定义变量// dim a,text Call Plugin.Office.OpenXls("C:\AA.xls") a = 1 x = 1 y = 2 //读取表格,括号内第2个是行,第3个是列// Text = Plugin.Office.ReadXls(1, a, 1) a = a + 1 //写入指定位置// Call Plugin.Office.WriteXls(2, x, 1, text) x = x + 1 Call Plugin.Office.WriteXls(2, y, 1, text) y = y + 1如果需要读取B列,C列,就定义多几个变量,最后写个循环命令就行了.

振兴区15127362731: 按键精灵,如何提取excel表格指定单元格. -
仲杰苓桂: 读取excel文件要先用plugin office.openxls()打开excel文件,读完后还要用plugin office.closexls()关闭.比如下面是读取 d:\测试.xls 这个文件的 sheet1 工作表的第3行b列中的数据(b3)保存到变量p中并弹出对话框显示p的值的写法: ...

振兴区15127362731: 如何使用按键精灵读取Excel表格内容并将提取出的内容填入另一个软件中去? -
仲杰苓桂: 打开EXCEL表,打开另一个软件输入界面,打开按键精灵,新建按健精灵录制任务,开始录制,点击切换到EXCEL表,选中表格内容,复制,按键向下走一格,切换到另一个软件输入界面,点击选中输入窗格,粘贴.保存该内容,然后新建另一软件任务窗格(如是是列表式输入,可以按键向下走一格),切换到按键精灵,停止录制,任务重复改成一个大数比如一千次.执行按健精灵录制任务即可.

振兴区15127362731: 按键精灵 读取EXCEL -
仲杰苓桂: 定义一个变量,每次读完让变量+1 把这个变量作为参数中的行号放到函数当中.举个我写的简单的例子 Call Plugin.Office.WriteXls(1,row,2, guid) 我把我的内容写入到row行2列的单元格 完了之后改变行号 row=row+1

振兴区15127362731: 如何使用按键精灵辨别EXCEL的单元格 -
仲杰苓桂: 读取EXCEL文件要先用Plugin Office.OpenXls()打开EXCEL文件,读完后还要用Plugin Office.CloseXls()关闭.比如下面是读取 D:\测试.xls 这个文件的 Sheet1 工作表的第3行B列中的数据(B3)保存到变量p中并弹出对话框显示P的值的...

振兴区15127362731: 按键精灵怎么读取excel表格 第一次读一行 循环一次读第二行 再循环一次读第三行 以此类推 - -- -
仲杰苓桂: 你好!按键精灵 + 一键粘贴复制 无敌组合.仅代表个人观点,不喜勿喷,谢谢.

振兴区15127362731: 如何用按键精灵读取excel数据并输出?
仲杰苓桂: 建一个excel表格,每个单元格里一个人名,想用按键精灵分别读每个单元格的内容并输出到指定位置.输出好说就是读单元格不会弄.

振兴区15127362731: 按键精灵如何把复制的数据写入到excel指定单元格中 -
仲杰苓桂: 这里的关键是获取复制的内容,然后写入表格中,这里要用到代码 Plugin.Sys.GetCLB() 来获取系统剪贴板的内容,然后用Call Plugin.Office.WriteXls()写入到表格中. 代码: A = Plugin.Sys.GetCLB() //获取系统剪贴板的内容到变量A中 Call Plugin.Office.WriteXls(1, 1, 2, A,"C:\测试.xls")//将A的内容写入到表格指定位置处

振兴区15127362731: 建一个excel表格,每行单元格里一个人名,想用按键精灵分别读每个单元格的内容并依次输出到指定位置. -
仲杰苓桂: 那你先备份一份.再用按键精灵,读取第一行信息.分别复制到网页后,点击添加.后再删除第一行表格.最后为了网页反应速度没一下动作吋间.按键精灵与屏幕分辨率的问题.没办法给你录制

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 星空见康网