提供免费资源
直接上代码，方便日后查阅：
以上代码会经常使用，可收藏！
Sub byw()
Dim arr, arr1
Dim i%, j%, s%
arr = Sheet6.Range("A1:K" & [A65536].End(3).Row) '第一行为标题行'
ReDim arr1(1 To UBound(arr), 1 To 11)
s = 1
For i = 2 To UBound(arr) '数据区域从第二行开始'
If arr(i, 10) = "是" Then
For j = 1 To 11
'arr1(s, j) = arr(i, j) '如果不改变数组的排列
arr1(s, 1) = s '我给加的一个序号
arr1(s, 2) = arr(i, 5)
arr1(s, 3) = arr(i, 4)
arr1(s, 4) = arr(i, 3)
arr1(s, 5) = arr(i, 1)
arr1(s, 6) = arr(i, 6)
Next
s = s + 1
End If
Next
Sheet1.Range("A4:AU100").ClearContents
Sheet1.[A4].Resize(s, 6) = arr1
End Sub
Dim arr, arr1
Dim i%, j%, s%
arr = Sheet6.Range("A1:K" & [A65536].End(3).Row) '第一行为标题行'
ReDim arr1(1 To UBound(arr), 1 To 11)
s = 1
For i = 2 To UBound(arr) '数据区域从第二行开始'
If arr(i, 10) = "是" Then
For j = 1 To 11
'arr1(s, j) = arr(i, j) '如果不改变数组的排列
arr1(s, 1) = s '我给加的一个序号
arr1(s, 2) = arr(i, 5)
arr1(s, 3) = arr(i, 4)
arr1(s, 4) = arr(i, 3)
arr1(s, 5) = arr(i, 1)
arr1(s, 6) = arr(i, 6)
Next
s = s + 1
End If
Next
Sheet1.Range("A4:AU100").ClearContents
Sheet1.[A4].Resize(s, 6) = arr1
End Sub
以上代码会经常使用，可收藏！
MYSQL正则表达式查询
[
2018/07/20 13:44 | by 吕进 | Via 本站原创 ]
2018/07/20 13:44 | by 吕进 | Via 本站原创 ]
select books from tb_book where books
regexp ‘^php’; 字符串开头
regexp ‘php$’; 字符串结尾
regexp ‘p.’; #匹配任意一个字符
regexp ‘[abc]’; #匹配abc中任意一个字符
regexp ‘[^a-z]’; #匹配除字符集外任意一个字符
regexp ‘s1|s2|s3’;#匹配任意一个字符串
regexp ‘j*a’; #匹配多个该字符a之前的字符j;j+a至少一个j
regexp ‘a{3}’; #匹配字符串连续出现3次
regexp ‘a{2,4}’; #匹配字符串最少2次，最多4次
regexp ‘^php’; 字符串开头
regexp ‘php$’; 字符串结尾
regexp ‘p.’; #匹配任意一个字符
regexp ‘[abc]’; #匹配abc中任意一个字符
regexp ‘[^a-z]’; #匹配除字符集外任意一个字符
regexp ‘s1|s2|s3’;#匹配任意一个字符串
regexp ‘j*a’; #匹配多个该字符a之前的字符j;j+a至少一个j
regexp ‘a{3}’; #匹配字符串连续出现3次
regexp ‘a{2,4}’; #匹配字符串最少2次，最多4次
mysql事件的开启和调用
[ 2018/06/23 09:54 | by 吕进 | Via 本站原创 ]
2018/06/23 09:54 | by 吕进 | Via 本站原创 ]
1、检测事件是否开启（以下代码不需修改）：
2、如果处于关闭状态，需开启事件：
3、创建一个存储过程：
4、创建一个事件：
5、关闭或开启执行事件
alter event event_name on completion preserver [enable | disable]
6、删除事件：
参考：https://www.j...cle/38319.htm
show variables like 'event_scheduler';
2、如果处于关闭状态，需开启事件：
set global event_scheduler = on;
3、创建一个存储过程：
delimiter //
create procedure test()
begin update project set create_time = now();
end;
create procedure test()
begin update project set create_time = now();
end;
4、创建一个事件：
create event if not exists e_test
on schedule every 30 second
on completion preserve
do call test();
on schedule every 30 second
on completion preserve
do call test();
5、关闭或开启执行事件
alter event event_name on completion preserver [enable | disable]
6、删除事件：
drop event event_name;
参考：https://www.j...cle/38319.htm
Office2010日历控件
[ 2017/07/14 14:51 | by 吕进 | Via 本站原创 ]
2017/07/14 14:51 | by 吕进 | Via 本站原创 ]
Office2010是不自带日历控件的，如何执行通过Office2003或Office2007编写的VB日历控件？
1、下载附件，解压后按说明执行相关操作；
2、进行VBA编辑器，附加日历控件；
3、关闭Excel文件后重新打开即可。
下载文件
1、下载附件，解压后按说明执行相关操作；
2、进行VBA编辑器，附加日历控件；
3、关闭Excel文件后重新打开即可。
下载文件
在ACCESS中用VBA设置EXCEL单元格的格式
[ 2016/09/25 09:29 | by 吕进 | Via 本站原创 ]
2016/09/25 09:29 | by 吕进 | Via 本站原创 ]
在ACCESS中用VBA更改EXCEL单格元格的格式可用以下代码：
Private Sub test5() 'EXCEL单元格格式设置
Dim excelapplication As Object
Dim str As String
str = Application.CurrentProject.Path & "\book1.xls"
Set excelapplication = GetObject(str) '获取指定的EXCEL文件
With excelapplication.sheets(1)
.Range(.Cells(1, 1), .Cells(3, 4)).Borders.LineStyle = xlContinuous '设置单元格的边框
.Range(.Cells(1, 1), .Cells(3, 4)).Borders.ColorIndex = xlAutomatic '设置单元格边框的颜色，可用1~56间的数字设置不同的颜色
.Range(.Cells(1, 1), .Cells(3, 4)).NumberFormat = "0.00%" '设置单元格的值以百分比的形式显示
.Range(.Cells(1, 1), .Cells(3, 4)).interior.ColorIndex = 24 '设置单元格的颜色
.Range(.Cells(1, 1), .Cells(3, 4)).Font.Bold = True '字体加粗
End With
End Sub
Private Sub test5() 'EXCEL单元格格式设置
Dim excelapplication As Object
Dim str As String
str = Application.CurrentProject.Path & "\book1.xls"
Set excelapplication = GetObject(str) '获取指定的EXCEL文件
With excelapplication.sheets(1)
.Range(.Cells(1, 1), .Cells(3, 4)).Borders.LineStyle = xlContinuous '设置单元格的边框
.Range(.Cells(1, 1), .Cells(3, 4)).Borders.ColorIndex = xlAutomatic '设置单元格边框的颜色，可用1~56间的数字设置不同的颜色
.Range(.Cells(1, 1), .Cells(3, 4)).NumberFormat = "0.00%" '设置单元格的值以百分比的形式显示
.Range(.Cells(1, 1), .Cells(3, 4)).interior.ColorIndex = 24 '设置单元格的颜色
.Range(.Cells(1, 1), .Cells(3, 4)).Font.Bold = True '字体加粗
End With
End Sub
