日志

通报：个人建卡

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 ...

1596 次阅读|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 个评论

endswitch

lingyuncelia1 2016-6-28 10:49

?php $i = 5; switch ($i) : case 0: echo '$i is 0.'; break; &n ...

566 次阅读|0 个评论

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