日志

下例展示了使用不同递增/递减运算符的不同结果：

lingyuncelia1 2016-5-19 17:32

?php $x=10; echo ++$x; // 输出 11 $y=10; echo $y++; // 输出 10 $z=5; echo --$z; // 输出 4 $i=5; echo $i--; // 输出 5 ?

425 次阅读|0 个评论

隐藏工作表

lingyuncelia1 2016-5-19 10:05

MoveTo 87, 951 'Excel Sheet1 Delay 500 LeftClick 1 Delay 500 RightClick 1 Delay 500 KeyPress "H", 1

463 次阅读|0 个评论

提取数据预备

lingyuncelia1 2016-5-18 11:12

Sub 提取数据预备() For i = 1 To 3000 Cells(i, 2) = Application.WorksheetFunction.Trim(Cells(i, 1)) Cells(i, 2) = Application.WorksheetFunction.Trim(Cells(i, 1)) Next Call 选择性粘贴格式 Call 删除第二列 Call 删除空格 Call 确定位置1 Call 确定位置2 End Sub Sub 选择性粘贴格式() Columns("b:b").Copy ...

538 次阅读|0 个评论

确定位置

lingyuncelia1 2016-5-17 14:28

Sub 确定位置() Dim i, s For i = 1 To 30 If Cells(i, 1) = 17 Then s = s + 1 If s = 3 Then '指定第几次 ...

490 次阅读|0 个评论

countif

lingyuncelia1 2016-5-13 14:46

Sub celia() For j = 2 To 4 For i = 2 To 94 If Sheet1.Cells(i, 1) = Sheet2.Cells(j, 1) Then myCount = myCount + 1 End If Next Sheet2.Cells(j, 2) = myCount Next End Sub Sub natenie() For i = 2 To 94 myCount = Application.WorksheetFunction.CountIf(Sheet1.Rows(i), 0) + Application.WorksheetFunction.Cou ...

509 次阅读|0 个评论

正则--地址

lingyuncelia1 2016-5-9 09:02

Sub yy() Dim brr(1 To 10000, 1 To 5) arr = .CurrentRegion Set regx = CreateObject("vbscript.regexp") regx.Pattern = "(\d{6})(.*省)(.*市)(.*)" For i = 1 To UBound(arr) Set mh = regx.Execute(arr(i, 1))   ...

447 次阅读|0 个评论

正则--地方划分

lingyuncelia1 2016-5-6 17:32

Sub yy() Dim brr(1 To 10000, 1 To 5) arr = .CurrentRegion Set regx = CreateObject("vbscript.regexp") regx.Pattern = "(\d{6})(.*省)(.*市)(.*)" For i = 1 To UBound(arr) Set mh = regx.Execute(arr(i, 1))   ...

468 次阅读|0 个评论

正则--在不规则的文本里提取手机号码

lingyuncelia1 2016-5-2 16:52

Sub 提取手机号码() Cells(1, 4).Resize(100, 5).ClearContents arr = Range("a2:a" Range("a65536").End(3).Row) Set reg = CreateObject("vbscript.regexp") reg.Pattern = "1 \d{9}(?=\D|1 \d{9}|$)" reg.Global = True & ...

463 次阅读|0 个评论 热度 1

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