功能:根据项目号和步骤ID,更新指定步骤完成时间.这里里边要匹配两个条件一个是项目ID “”projectID“” 另一个是 “”StepID“” 步骤ID. Sub SaveFini() Dim rs As New ADODB.Recordset Dim cnn As String Dim sql As String ) As String ) As String pn = ThisWorkbook.Sheets("A3").Range("AF4").Value
Private Sub RegExp_Replace() Dim RegExp As Object Dim SearchRange As Range, Cell As Range '此处定义正则表达式 Set RegExp = CreateObject("vbscript.regexp") RegExp.Pattern = "[0-9]{5}" '此处指定查找范围 Set SearchRange = ActiveSheet.Range("A1:A99&qu
根据多个条件更新数据 UPDATE sphwph SET BKXSHL=t2.BKXSHL FROM sphwph t1,sphwph_170420 t2 --(SELECT a.* FROM dbo.sphwph a JOIN spkfk b --ON a.spid = b.spid WHERE a.shl <b.jlgg AND a.shl<>0 AND a.hw='HWI00000001' --AND a.spid IN( --SELECT DISTINCT spid FROM d
VBA中的流程控制分为两种,其一是条件结构式的,即根据条件判断的结果去选择性执行相应的语句(块):另一种是循环,即循环地执行语句(块).本节介绍第一种. 1. IF if 语句其实包含有几种形式: ① If...Then...End If 其格式为: If 逻辑表达式 Then ' 如果逻辑表达式为真,则执行这里的语句 End if 例如: If 8 > 5 Then Debug.Print "Yes" End If 输出结果为:Yes ② If...Then...Else...
Excel VBA数组入门教程 1. 前言:不要把VBA数组想的太神秘,它其实就是一组数字而已. 2. 数组的维数: Sub 数组示例() Dim x As Long, y As Long Dim arr(1 To 10, 1 To 3) '创建一个可以容下10行3列的数组空间 For x = 1 To 4 For y = 1 To 3 arr(x, y) = Cells(x, y) '通过循环把单元格区域a1:c4的数据装进数组中 Next y Next x
excel vba 高级过滤 Sub shaixuan() Dim database As Range '定义数据区域 Dim criteria_range As Range '定义条件区域 Dim extract_field As Range '定义结果区域 Set database = Sheets("man").Range("A1").CurrentRegion ' 数据区域 man 表格A1 据区域中的任何单元格,然后按Ctrl +A选择整个数据区域 空行空