提供免费资源

VB:条件数组

[不指定 2019/06/06 11:29 | by 吕进 | Via 本站原创 ]
直接上代码,方便日后查阅:
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

以上代码会经常使用,可收藏!
Tags: ,

MYSQL正则表达式查询

[不指定 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次
Tags:

mysql事件的开启和调用

[不指定 2018/06/23 09:54 | by 吕进 | Via 本站原创 ]
1、检测事件是否开启(以下代码不需修改):
show variables like 'event_scheduler';

2、如果处于关闭状态,需开启事件:
set global event_scheduler = on;

3、创建一个存储过程:
delimiter //
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();

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 本站原创 ]
Office2010是不自带日历控件的,如何执行通过Office2003或Office2007编写的VB日历控件?

1、下载附件,解压后按说明执行相关操作;

2、进行VBA编辑器,附加日历控件;

3、关闭Excel文件后重新打开即可。

在ACCESS中用VBA设置EXCEL单元格的格式

[不指定 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
分页: 1/11 第一页 1 2 3 4 5 6 7 8 9 10 下页 最后页 [ 显示模式: 摘要 | 列表 ]