摘要: 1.Range.End属性1 //示例2 mysheet.Cells[5, 5].Value = mysheet.Range["G65536"].End[Excel.XlDirection.xlUp].Row;2. 字典相关1 //定义2 Dictionary Blocksheet = new Di... 阅读全文
posted @ 2015-06-02 18:09 zengzongfa 阅读(146) 评论(0) 推荐(0) 编辑
摘要: 返回某一字符串从另一字符串的右侧开始算起第一次出现的位置。参数StringCheck 类型:System.String 必选。 搜索的 String 表达式。StringMatch 类型:System.String 必选。 搜索的字符串表达式。Start 类型:Syst... 阅读全文
posted @ 2015-04-03 12:29 zengzongfa 阅读(278) 评论(0) 推荐(0) 编辑
摘要: Me.Application.ActiveWorkbook.Name需要注意的是:只有当前文件已经存档的情况下,才能获得后缀名。 阅读全文
posted @ 2015-04-03 12:27 zengzongfa 阅读(117) 评论(0) 推荐(0) 编辑
摘要: 1 Public Sub Igor() 2 Dim Dtsheet As Excel.Worksheet 3 Dim TotalC As Long '原始数据范围列 4 Dim TotalR As Long ... 阅读全文
posted @ 2015-01-22 14:15 zengzongfa 阅读(1013) 评论(0) 推荐(0) 编辑
摘要: 1.往组合框添加条目1 With Me .ComboBox1.Items2 .Add( "Ports" )3 .Add( "Igor" )4 End With2.文本框Select Case 1 Private Su... 阅读全文
posted @ 2015-01-13 15:47 zengzongfa 阅读(228) 评论(0) 推荐(0) 编辑