dengsi1225-优快云博客

转载 sql 随笔1 substr和instr

select riskcode,outriskcode,riskname,suppliercode,(select min(inputdate) from fccont where innercontno in(select innercontno from fcpol where riskcode=t.riskcode and biztype='01' and corporation ...

2017-10-09 15:49:00 175

转载 find函数

我想在SHEET1里的C1单元格显示从SHEET2的A列里的数据表查找的100的数据的右边的值Private Sub CommandButton1_Click()With Sheet2.Columns("A:A")Set c = .Find(100, LookIn:=xlValues)Sheet1.Range("c1").Value = Cells(c.Row, 2)End With...

2017-07-19 17:39:00 315

转载判断是否为数字

Sub test()　　If Not VBA.IsNumeric([a1]) Then MsgBox "非数字"End Sub转载于:https://www.cnblogs.com/AntipasChen/p/7204923.html

2017-07-19 11:42:00 216

转载 vloopup在VBA

如何用vba的vlookup,在另一表取值wb_1 表示另一工作簿。Cells(X, 7) = application.VLookup(Cells(X, 1), Range(wb_1.Sheets(2).Range("A5:F43")), 2, 0)Cells(X, 6) = WorksheetFunction.VLookup(Cells(X, 1), wb_1.She...

2017-07-19 11:24:00 173

转载关于Xldown和Xlup的用法

转：学习ing关于Xldown和Xlup的用法Xldown和xlup是一对组合，用于寻找某个区间中的非空单元格。首先我们在单元格的前7行填入如下数据：A1单元格：A2单元格：2A3单元格：3A4单元格：4A5单元格：A6单元格：6A7单元格：7A8单元格：A9单元格：A10单元格：A1，A5，A8，A9，A10留空。代码一：Worksheets("Sheet1")....

2017-07-19 10:32:00 1368

转载条件语句 Select Case

Select Case TimCase 7 to 10　　msg = "morning"Case 11,12　 msg = "noon"End Select摘抄：本帖最后由香川群子于 2015-9-24 22:09 编辑Select Case 语句结构例子如下： Select Case变量 Case 1 ...

2017-07-12 15:31:00 5075

转载 With语句

本示例使用With语句对某单一对象执行一系列的语句。MyObject对象及其属性均为示范目的而采用了通用名称。With MyObject .Height = 100 ' 和 MyObject.Height 一样等于 100 。 .Caption = "Hello World" ' 和 MyObject.Caption 一样等于 "Hello Wor...

2017-07-12 13:13:00 106

转载表格Sheet

Sheets.Add(After :=Sheets(Sheets.Count))Sheets.Add用于创建新表，after表示创建在某一个sheet之后，Sheets(Sheets.Count)表示最后一个表Sheets.Add或 WorkSheets.Add方法用于新建工作表、图表、宏表，Sheets.Add( Before , After , Count, Type )...

2017-07-12 12:58:00 467

转载 Format，格式函数

Cells(i,1) = Format( Item ,"yyyy-mm-dd" )转载于:https://www.cnblogs.com/AntipasChen/p/7154740.html

2017-07-12 12:02:00 170

转载匹配，正则表达式

Function isEng(ifEng As String) As Integer '判断是否英文 isEng = 0 With CreateObject("VBSCRIPT.REGEXP") .Global = True .Pattern = "[a-zA-Z]" If .test(ifEng) Then ...

2017-07-12 11:24:00 127

转载循环语句格式

模式For counter = start to end [Step 1][statements][Exit For][statements]Next [counter]Cells( Rows.Counnt, 1 ) . End( xlUp ) . Row 代表非空最多到第几行WorkSheets(1).Cells( i ,...

2017-07-10 18:19:00 195