| | | |

2017年10月9日

摘要： select riskcode,outriskcode,riskname,suppliercode,(select min(inputdate) from fccont where innercontno in(select innercontno from fcpol where riskcode 阅读全文

posted @ 2017-10-09 15:49 Antipas 阅读(185) 评论(0) 推荐(0) 编辑

2017年7月19日

find函数

摘要：我想在SHEET1里的C1单元格显示从SHEET2的A列里的数据表查找的100的数据的右边的值Private Sub CommandButton1_Click()With Sheet2.Columns("A:A")Set c = .Find(100, LookIn:=xlValues)Sheet1. 阅读全文

posted @ 2017-07-19 17:39 Antipas 阅读(554) 评论(0) 推荐(0) 编辑

判断是否为数字

摘要： Sub test() If Not VBA.IsNumeric([a1]) Then MsgBox "非数字"End Sub 阅读全文

posted @ 2017-07-19 11:42 Antipas 阅读(178) 评论(0) 推荐(0) 编辑

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) = Workshee 阅读全文

posted @ 2017-07-19 11:24 Antipas 阅读(168) 评论(0) 推荐(0) 编辑

关于Xldown和Xlup的用法

摘要：转：学习ing 关于Xldown和Xlup的用法 Xldown和xlup是一对组合，用于寻找某个区间中的非空单元格。首先我们在单元格的前7行填入如下数据：A1单元格：A2单元格：2A3单元格：3A4单元格：4A5单元格：A6单元格：6A7单元格：7A8单元格：A9单元格：A10单元格：A1，A5，A 阅读全文

posted @ 2017-07-19 10:32 Antipas 阅读(653) 评论(0) 推荐(0) 编辑

2017年7月12日

条件语句 Select Case

摘要： Select Case Tim Case 7 to 10 msg = "morning" Case 11,12 msg = "noon" End Select 摘抄：阅读全文

posted @ 2017-07-12 15:31 Antipas 阅读(420) 评论(0) 推荐(0) 编辑

With语句

摘要：本示例使用 With 语句对某单一对象执行一系列的语句。MyObject 对象及其属性均为示范目的而采用了通用名称。阅读全文

posted @ 2017-07-12 13:13 Antipas 阅读(108) 评论(0) 推荐(0) 编辑

表格Sheet

摘要： Sheets.Add(After :=Sheets(Sheets.Count)) Sheets.Add用于创建新表，after表示创建在某一个sheet之后，Sheets(Sheets.Count)表示最后一个表 Sheets.Add或 WorkSheets.Add方法用于新建工作表、图表、宏表，S 阅读全文

posted @ 2017-07-12 12:58 Antipas 阅读(420) 评论(0) 推荐(0) 编辑

Format，格式函数

摘要： Cells(i,1) = Format( Item ,"yyyy-mm-dd" ) 阅读全文

posted @ 2017-07-12 12:02 Antipas 阅读(139) 评论(0) 推荐(0) 编辑

匹配，正则表达式

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

posted @ 2017-07-12 11:24 Antipas 阅读(123) 评论(0) 推荐(0) 编辑