1、去除字符串中的数字 Function aa(sr As Range)Set reg = CreateObject("vbscript.regexp")With reg.Global = True.Pattern = "\d+"End Withaa = reg.Replace(sr, "") En ...
分类：
编程语言 时间：
2017-07-18 00:08:10
阅读次数：
145
Public Sub COM_MSForms_Class_DataObject_Test() ''MSForms.DataObject对象，可以用来沟通VBA工程内各模块数据，其上可以存储各种格式的文本，格式名必须是 '' 整数或字符串： ''1.DataObject.GetText([format... ...
分类：
编程语言 时间：
2017-07-17 20:17:45
阅读次数：
573
看过很多人写的VBA代码，一团一团的，一点规划都没有，为了VBA编程更具工程性，这里讨论一下，并列出自己的一些建议：0.给VBA工程定义一个名字，而非直接使用默认的名称——"VBAProject"，以方便以后可能要进行的跨VBA工程编码1.定义一个命名为“O”的标准模块【拼音中“O”字母的读音，意指 ...
分类：
编程语言 时间：
2017-07-17 20:02:36
阅读次数：
361
用Excel导了两天数据，各种问题，折磨客户也折磨了自己，以前没发现的问题一下子都暴露出来了 特意收集两篇Excel跟CSV读取相关的两篇文章 asp.net读取excel文件，将excel文件先上传，在读取，最后删除。 但有一个问题，那就是excel文件夹需要有读写的权限，IIS需要为asp.ne ...
分类：
Web程序 时间：
2017-07-17 12:26:03
阅读次数：
186
sub 批量新建指定名称的工作表() Dim i As Integer For i = 2 To 10 '根据实际情况修改i大小 Worksheets.Add after:=Worksheets(ThisWorkbook.Worksheets.Count) ActiveSheet.Name = Sh ...
分类：
编程语言 时间：
2017-07-14 11:55:31
阅读次数：
254
sub 汇总多个工作簿() Application.ScreenUpdating = False Dim wb As Workbook, f As String, l As String, n As String, m As String, j As Integer f = ThisWorkbook ...
分类：
编程语言 时间：
2017-07-14 11:55:24
阅读次数：
247
学习一段python正則表達式了， 对match、search、findall、finditer等函数作一小结 以下以一段网页为例，用python正則表達式作一个范例： strHtml = '''<div> <a href="/user/student/" class="user-t"><img s ...
分类：
编程语言 时间：
2017-07-12 12:14:52
阅读次数：
150
Public Sub CustomSubTotal() AppSettings On Error GoTo ErrHandler Dim StartTime, UsedTime As Variant StartTime = VBA.Timer 'Input code here Dim i As Lo... ...
分类：
编程语言 时间：
2017-07-11 19:15:34
阅读次数：
203
作者：iamlaosong 用VBA程序处理Excel数据文件。用户的数据文件有时处于自己主动筛选模式，往往导致数据处理不对。为此，须要检測工作表是否处于该模式，假设是，则去掉自己主动筛选。语句例如以下： If ActiveSheet.AutoFilterMode = True Then Selec ...
分类：
编程语言 时间：
2017-07-10 22:06:08
阅读次数：
266
