日志

通报：个人建卡

lingyuncelia1 2016-9-8 15:29

Sub celia(x, y) MoveTo x, y Delay 500 LeftClick 1 Delay 500 End Sub Call celia(200,140) //通报主题 SayString "请建个人卡" Delay 500 KeyPress "Enter", 1 Delay 500 Call celia(777, 207) //基本信息 Call celia(315, 1 ...

1597 次阅读|0 个评论

16.8.29

JX_shangrila 2016-8-29 23:31

如何用VBA计算几个月零几天 http://www.excelpx.com/thread-424015-1-1.html

18745 次阅读|0 个评论

一对多模糊查找

lingyuncelia1 2016-8-27 15:46

Function mylookup(myword As Range, mybook As Range, mycol As Integer) Dim mysht As Worksheet Set mysht = ActiveSheet maxrow = mysht.UsedRange.Rows.Count For i = 1 To maxrow If myword .Value Like "*" mybook .Cells(i, 1) "*" Then myresult = myresult "," mybook.Cells(i, mycol).Value ...

1565 次阅读|0 个评论

16.8.24

JX_shangrila 2016-8-24 22:19

请问数字组合代码怎么写 http://www.excelpx.com/thread-423863-1-1.html

16172 次阅读|0 个评论

本页有 6 篇日志因作者的隐私设置或未通过审核而隐藏