在按键精灵里,自己写的函数在命令库里可以运行,而在脚本里总是提示数据类型不匹配,啥意思啊_百度知道
在按键精灵里,自己写的函数在命令库里可以运行,而在脚本里总是提示数据类型不匹配,啥意思啊
DimXarr(4,6),Yarr(4,6)Fori=0To4Forj=0To6Xarr(i,j)=214+i*112Yarr(i,j)=170+j*68lclickXarr(i,j),Yarr(i,j)Delay100NextNext上面的lclick函数是左键点击,但在命令库中使用正常,在脚...
Dim Xarr(4, 6), Yarr(4, 6)For i = 0 To 4 For j = 0 To 6
Xarr(i, j) = 214+i*112Yarr(i, j) = 170 + j * 68lclick
Xarr(i, j), Yarr(i, j)
Delay 100NextNext上面的lclick 函数是左键点击,但在命令库中使用正常,在脚本中提示数据不匹配,请高手解答
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
_未希_知道合伙人
采纳数：19
获赞数：11
擅长：暂未定制
你的Iclick 函数是自己写的函数吧。是不是报函数个数不匹配的编译错误捏？Iclick(Xarr(i, j), Yarr(i, j))
这样才行的吧？
这样子我还真没试过
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。帮我修改下按键精灵的类型不匹配_百度知道
帮我修改下按键精灵的类型不匹配
我用的按7PluginHwnd=Window.Find(0,&天龙&)PluginRect=Window.GetClientRect(Hwnd)DimMyArrayMyArry=Split(Rect,&|&)Ux=CLng(MyArray(0))Uy=CLng(MyArray(1))怎么最后2句提示说类型不...
我用的按7Plugin Hwnd = Window.Find(0, &天龙&)Plugin Rect = Window.GetClientRect(Hwnd)Dim MyArrayMyArry=Split(Rect, &|&)Ux=CLng(MyArray(0))Uy=CLng(MyArray(1)) 怎么最后2句提示说类型不匹配帮我修改下谢谢
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
匿名用户知道合伙人
Dim MyArrayMyArry=Split(Rect, &|&)Ux=CLng(MyArray(0))Uy=CLng(MyArray(1))
看到了吗？写错了上面MyArry下面MyArray多个a
匿名用户知道合伙人
因为第一句的语句格式不正确，(0, &天龙&)应改为(&天龙&,0)。
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。按键精灵识别出数字比如7保存到变量kk里然后，用kk乘以300，提示类型不匹配要用什么函数传递吗？_百度知道
按键精灵识别出数字比如7保存到变量kk里然后，用kk乘以300，提示类型不匹配要用什么函数传递吗？
谢谢各位了我自己忘记把KK清空了...
谢谢各位了 我自己忘记把KK清空了
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
诚信欢迎你知道合伙人
诚信欢迎你
采纳数：57
获赞数：148
函数一般都会自动转换的。。
知道合伙人
擅长：暂未定制
hiadawuc函数
人之初飞知道合伙人
擅长：暂未定制
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。你的位置：
用数组显示“类型不匹配，怎么解决？
20:54:09 |
来源: 按键精灵资源站
菜鸟一枚，刚学用，发现它用来填表录入简直就是神器，但使用中遇到两个问题想请教高手们，望指教，先谢了！
问题1：数组定义那里运行后，这里怎么显示“类型不匹配”？不理解……
问题2：我这行代码有没有办法优化，使其更加简练？
再次感谢！
Call Plugin.Office.OpenXls(&D:\1.xlsx&)
//“行”循环执行，即读取数据录入个人信息。
For t = 4 To 5
Delay 1000
MoveTo 500, 124
LeftClick 1
//变量数组
Dim Text1(4)& && && && && && && & 这里显示“类型不匹配”，但程序可以正常运行，怎么消除这个提示？
Dim Text2(3)& && && && && && && & 这里显示“类型不匹配”，但程序可以正常运行，怎么消除这个提示？
Dim Text3(3)& && && && && && && & 这里显示“类型不匹配”，但程序可以正常运行，怎么消除这个提示？
//执行i次循环
For i = 2 To 6
Text1(g) = Plugin.Office.ReadXls(1, t, i)
For i = 8 To 11
Text2(h) = Plugin.Office.ReadXls(1, t, i)
For i = 13 To 16
Text3(m) = Plugin.Office.ReadXls(1, t, i)
//读取Excel表的姓名到剪切板，并粘贴、回车、删除。
Call Plugin.Sys.SetCLB(Text1(0))
KeyDown &Ctrl&, 1
KeyPress&&&v&,1
KeyUp &Ctrl&, 1
KeyPress &Enter&, 1
KeyPress &BackSpace&, 3
MoveTo 500, 187
LeftDoubleClick 1
Delay 1000
MoveTo 220, 113
LeftClick 1
Delay 1000
MoveTo 220, 192
LeftClick 1
//读取，粘贴
Call Plugin.Sys.SetCLB(Text1(2))
KeyDown &Ctrl&, 1
KeyPress&&&v&,1
KeyUp &Ctrl&, 1
MoveTo 567, 192
LeftClick 1
MoveTo 567, 264
LeftDoubleClick 1
MoveTo 567, 472
LeftDoubleClick 1
//如果变量不等于【&&】0与不等于空，则
If text1(3) && 0 and text1(3) && && Then
RightClick 1
KeyPress &a&, 1
Call Plugin.Sys.SetCLB(Text1(3))
KeyDown &Ctrl&, 1
KeyPress&&&v&,1
KeyUp &Ctrl&, 1
If text1(4) && 0 and text1(4) && && Then
RightClick 1
KeyPress &a&, 1
Call Plugin.Sys.SetCLB(Text1(4))
KeyDown &Ctrl&, 1
KeyPress&&&v&,1
KeyUp &Ctrl&, 1
MoveTo 287, 113
LeftClick 1
Delay 1000
MoveTo 206,167
LeftClick 1
Call Plugin.Sys.SetCLB(Text2(0))
KeyDown &Ctrl&, 1
KeyPress&&&v&,1
KeyUp &Ctrl&, 1
MoveTo 323,168
LeftClick 1
MoveTo 323,347
LeftClick 2
If Text3(0) = &初中& Then
MoveTo 299,347
LeftClick 1
ElseIf Text3(0) = &高中& Then
MoveTo 299,285
LeftClick 1
ElseIf Text3(0) = &中专& Then
MoveTo 323,203
LeftClick 1
MoveTo 299,361
LeftClick 1
ElseIf Text3(0) = &大专& Then
MoveTo 323,203
LeftClick 1
MoveTo 299,282
LeftClick 1
ElseIf Text3(0) = &本科& Then
MoveTo 323,203
LeftClick 2
MoveTo 299,303
LeftClick 1
MessageBox &学历出错&
//如果变量不等于0与空，则
If text2(1) && 0 and text2(1) && && Then
If text2(2) && 0 and text2(2) && && Then
If text2(3) && 0 and text2(3) && && Then
RightClick 1
KeyPress &a&, 1
//判断是否建立了三行数据
If z = 3 Then
Call Plugin.Sys.SetCLB(Text2(3))
KeyDown &Ctrl&, 1
KeyPress&&&v&,1
KeyUp &Ctrl&, 1
KeyPress &Up&, 1
Call Plugin.Sys.SetCLB(Text2(2))
KeyDown &Ctrl&, 1
KeyPress&&&v&,1
KeyUp &Ctrl&, 1
KeyPress &Up&, 1
Call Plugin.Sys.SetCLB(Text2(1))
KeyDown &Ctrl&, 1
KeyPress&&&v&,1
KeyUp &Ctrl&, 1
//判断是否建立了二行数据
ElseIf z = 2 Then
Call Plugin.Sys.SetCLB(Text2(2))
KeyDown &Ctrl&, 1
KeyPress&&&v&,1
KeyUp &Ctrl&, 1
KeyPress &Up&, 1
Call Plugin.Sys.SetCLB(Text2(1))
KeyDown &Ctrl&, 1
KeyPress&&&v&,1
KeyUp &Ctrl&, 1
//判断是否建立了一行数据
ElseIf z = 1 Then
Call Plugin.Sys.SetCLB(Text2(1))
KeyDown &Ctrl&, 1
KeyPress&&&v&,1
KeyUp &Ctrl&, 1
KeyPress &Tab&, 1
//判断调用子程序命令
If z = 3 Then
Call XueLi(Text3(1))
KeyPress &Enter&, 1
Call XueLi(Text3(2))
KeyPress &Enter&, 1
Call XueLi(Text3(3))
KeyPress &Enter&, 1
ElseIf z = 2 Then
Call XueLi(Text3(1))
KeyPress &Enter&, 1
Call XueLi(Text3(2))
KeyPress &Enter&, 1
ElseIf z = 1 Then
Call XueLi(Text3(1))
MoveTo 1903, 82
LeftClick 1
Delay 1000
//子程序判断学历，并选取
Sub XueLi(AAA)
If AAA=&高中& Then
KeyPress &Down&, 23
elseIf AAA=&中专& Then
KeyPress &Down&, 17
elseIf AAA=&大专& Then
KeyPress &Down&, 13
elseIf AAA=&本科& Then
KeyPress &Down&, 7
MessageBox &有毕业时间但学历名称错误&
//停止脚本的时候，执行关闭后台运行的Excel文档。
& & Sub OnScriptExit()
& & Call Plugin.Office.CloseXls()&&
& & End Sub}