'得到数字 Function getnum(s) n = Len(s) '求出s的长度，放在变量n中 For i = 1 To n '进行n次循环 a = Mid(s, i, 1) '取s中第i个字符，放在a中' If a >= 0 And a <= 9 Then '大于等于0，小于等于9的为数字 ...
分类：
编程语言 时间：
2018-12-09 14:20:11
阅读次数：
218
Public Function GetColName(ByVal y As Integer) As String Dim z As Integer Dim i As Integer Dim n(25) As String For i = 0 To 25 n(i) = Chr(65 + i) Next ...
分类：
编程语言 时间：
2018-12-09 14:02:50
阅读次数：
216
使用软件office2010 工具-引用-activex 2.8 .xls 等类型文件 On Error GoTo ErrorHandler Dim Conn As New ADODB.ConnectionConn.Open "Provider=Microsoft.ACE.OLEDB.12.0;ex ...
分类：
数据库 时间：
2018-12-09 14:01:32
阅读次数：
258
开发了vsto，客户那边也有一些反映插件安装失败或者加载不上的情况。于是我下定决定再理解下vsto的工作机制，如下图： 如上图所示，我把vsto的解决方案分为两部分，一部分是vsto Add-ins，另外一部分是Microsoft Office Applications。它们之间是如何交互的呢？要回 ...
分类：
其他好文 时间：
2018-12-07 15:01:53
阅读次数：
500
Sub 将所有列全部转换为文本() 'Cells(Rows.Count, 1).End(xlUp).Row 获取第一列最后一个非空单元格的行号s = Cells(1, Columns.Count).End(xlToLeft).Column '获取第一行最后一个非空单元格的列号For i = 1 To ...
分类：
编程语言 时间：
2018-12-06 14:34:13
阅读次数：
695
自定义函数VBA代码1 有一份数据如下，要添加季度信息，我们用VBA实现自定义季度函数： 打开VBE编辑器，插入一个函数 代码如下： 此时返回excel表格出现了我们自定义的函数如下： 下拉后得到了我们的月份所对应的季度： ...
分类：
编程语言 时间：
2018-12-05 12:33:50
阅读次数：
196
VBA代码实现自定义函数 有一份数据如下，上一节已使用VBA代码定义了季度函数并已得到了各个时间的季度信息，现在我们将各个季度对应的名称信息对应入数据列中，并使用逗号隔开： 同样打开VBE编辑器，插入一个函数过程，并命名为JoinStr1，具体代码如下： 返回excel工作表中，下拉函数得到了我们想 ...
分类：
编程语言 时间：
2018-12-05 12:20:15
阅读次数：
207
特殊符号 命名实体 十进制编码 特殊符号 命名实体 十进制编码 特殊符号 命名实体 十进制编码 Α Α Α Β Β Β Γ Γ Γ Δ Δ Δ Ε Ε Ε Ζ Ζ Ζ ...
分类：
Web程序 时间：
2018-12-04 17:09:04
阅读次数：
173
作中难免要用到PPT，比如工作总结、产品介绍、需求分析等，那怎么样让自己写的PPT高大上起来呢，写点代码是绝逼牛的选择。 下面介绍个网上就常有的小功能，上下键调整分数，见下图 图中红色的上下按键其实是添加的自选图形，如何让按键点击改变左边输入框的数值呢： 超简单的一句vba代码，就能立马让功能实现， ...
分类：
其他好文 时间：
2018-12-04 13:04:49
阅读次数：
529
