• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.2.9
软件大小:62.5M
更新时间:12-07

按键精灵iOS版
立即下载

软件版本:1.3.1
软件大小:29.2M
更新时间:09-29

按键精灵Mac版
立即下载

软件版本:1.1.0
软件大小:12.3M
更新时间:12-29

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

全表操作求教!!! [复制链接]

1#
请问大神是插件不管用吗
无论改什么查找内容 反馈的数组都是(1,.)
path="C:\Users\Lenovo\Desktop\test.xlsx"
index=Plugin.LazyOffice.ExcelOpen(path,1)
loc =Plugin.lxj_Office.lxj_ExcelCells (1,"精确查找","123",index)
MessageBox "精确查找到的总数:"&loc(0)
i=1
For loc(0)
msgbox "第"&i&"个位置为:"&loc(i)
i=i+1
Next
TracePrint loc(0)
TracePrint loc(1)
TracePrint loc(2)
weizhizu = Split(loc(0), ",")
TracePrint weizhizu(0)
TracePrint weizhizu(1)
TracePrint weizhizu(2)
weizhi = split(weizhizu(), ",")
TracePrint weizhi(0)
TracePrint weizhi(1)

2#

写个笨方法,懒人插件真难用
Call Plugin.Office.OpenXls("c:\测试.xls")
Delay 200
//查找1行1列到20行20列的内容并计数统计
TracePrint 找到的总数(20,20,123)
Sub OnScriptExit()
Call Plugin.Office.CloseXls()
End Sub
Function 找到的总数(i,y,z)
y1 = 1
i1=1
For i
//这里的脚本可以循环
For y
    
    表格内容 = Plugin.Office.ReadXls(1, i1, y1)
    If 表格内容 = z Then
        计数 = 计数 + 1
    TracePrint 表格内容
    TracePrint "行" & i1
    TracePrint "列" & y1
    End If

y1=y1+1


Next
y1=1
i1=i1+1
Next

TracePrint 计数
End Function

发新话题 回复该主题