阿木的学习天地

利用正则表达式，可以编写自定义函数来提取汉字。 在Excel界面按Alt+F11，然后插入一个模块，添加如下代码。 Function Hanzi(rng As Range) As String 正则表达式 With CreateObject("VBSCRIPT.REGEXP") .Global = True .Pattern = "[

Mid不仅可以作为函数提取字符串，还可以作为语句来替换字符串。本文就以Mid语句为例来说明Mid的作用。相对来说，用Mid来替换字符串，速度非常快。

批量删除满足条件的行和行中的图片，而不会影响其他按钮和控件。这一技巧在许多情形下都非常有用。

有些福利比较好的公司会为员工承担部分工资或者奖金的个人所得税，即保证员工到手拿到多少工资，然后公司来交税。也就是通过员工的实发数来倒算应发数。本文就介绍这样一个自定义函数，来减轻人事工作的负担。

2007、2010版本中我们已经找不到SpreadSheet控件了。因为这个控件是为2003之前的版本设计的。但是我们依然可以使用这个控件，本文就介绍如何再次引用该控件。

本文用ADODB.Stream对象来解决FSO读取文本文件的乱码问题。

有些时候，我们要将SQL查询得到的结果直接赋值到某数组中，或者要取得查询结果中某一列的值。

<br />利用类模块可以减少许多重复的代码。<br />以给控件设定批量的Click事件为例，在工作簿中定义了以下名为clsChe的类模块：<br />Public WithEvents Chkbox As MSForms.CheckBoxPrivate Sub Chkbox_Change() MsgBox Chkbox.ValueEnd Sub<br /><br />利用该类模块，可以轻松实现对复选框进行批量设置Change事件。<br /><br />

在Excel VBA中，可以利用Application.Inputbox来选择区域，但是该方法不能够跨工作簿选择。同样，若采用RefEdit控件也存在不能跨工作簿选择的问题。本文介绍一种替代的方法来跨工作簿选择区域。

<br />Q：如何将跨页的合并单元格拆分使两页中都能显示？<br />A：数据透视表是一个方便的汇总工具。当采用数据透视表进行汇总后，有些行标题可能出现跨页问题。此时如打印该表，则会在某页缺失行标题，如图所示： <br />何编写VBA使这些跨页的合并单元格自动拆分，使其分别显示在两个页面中，效果如图： <br /> 代码和附件请参见：[Excel VBA] 如何将跨页的合并单元格拆分使两页中都能显示？ http://www.exceltip.net/thr

在有些时候，我们会采用ExcelVBA+ACCESS数据库的方式来制作微型数据库系统。在多次操作数据库后，数据库文件会越变越大。在ACCESS里面有压缩数据库的命令，其实我们完全可以通过Excel VBA来压缩数据库。以下代码就是一个备份和压缩的函数，当操作成功时返回True，失败时返回False。

可以参考以下代码设定程序运行次数，超过次数则无法运行。下面代码设定次数为3次。Sub 设定程序运行次数()    Dim Times    Times = GetSetting("RnTime", "Set", "Times")    If Len(Times) > 0 Then        Times = CInt(Times)        If Times

其实，在VBA中可以使用其他编程语言中使用的排序方法，只是语法不同而已。 以下就是冒泡排序的一个简单例子。如果区域有变化，作相应改动即可。 Sub 冒泡排序() Dim i As Integer, Temp As Variant Dim arr() As Variant Dim OK As Boolean arr = Application.

很多时候有人问到，怎么样弄使得VBA中的关闭窗口的按钮消失啊。其实在VBA中，我们可以利用API的SetWindowLong函数来进行对VBA中窗体的设置。以下代码添加到窗体中，可以隐藏窗体的关闭按钮。 API声明Private Declare Function FindWindow Lib "user32" Alias _ "FindWindowA" (ByVal

在Excel VBA编程中，我们知道可以利用UBound函数来获取数组各纬度的上标。但是当超过该数组的上标时就会发生错误，所以可以利用Excel的出错来获取数组的维数。代码如下：Function DofArray(arr) As Integer On Error Resume Next 判断是否数组 If Not IsArray(arr) Then

Q：如何编写分解因数的自<span class="t_tag" onclick="function onclick(){tagshow(event)}">定义函数？A：首先，我们需要一个<span class="t_tag" onclick="function onclick(){tagshow(event)}">判断质数的函数。<span class="t_tag" on

可以利用Microsoft.XMLHTTP来读取网页内容，请参考下列<span class="t_tag" onclick="function onclick(){tagshow(event)}">代码。Sub 利用网络时间校对当前计算机时间() Dim objXML As Object Dim strTemp As String Dim lStart

这个是我第一个Excel游戏，边学边做弄了好久，也没什么美化。其实算法比较简单，看看就会了。 点击下载

主要是利用Excel自带的创建Web查询功能，再配合代码加以实现。代码如下：Sub 查询() Dim sDate As Date sDate = Application.InputBox("请输入日期", "输入", Date) Cells.Clear With ActiveSheet.QueryTables.Add(Connection:= _

整体思路就是利用数组存放每一位数字，模拟乘法规则进行计算。Function MyFact(DNumber) Dim ArrJG, ArrTemp Dim SumA As Double Dim i&, j& Dim strJG$ 结果输出 计算阶乘长度 SumA = 1 For i = 1 To DNumber

最近研究了一下身份证号码升级的规则，真的很有趣。和17较上劲了。Function 升级(Rng) On Error GoTo AA Dim StrT$, i%, SumM& If Len(Rng) = 18 Then 升级 = Rng ElseIf Len(Rng) = 15 Then StrT = Replace(R

Excel提供了一些注册表操作的语句，通过这些语句我们可以在注册表内存储一些信息。比如下例，通过写入、读取注册表来限制程序运行次数。Sub 设定程序运行次数() Dim Times Times = GetSetting("RnTime", "Set", "Times") If Len(Times) > 0 Then Times = CInt(

<br />Q：如何正确使用TreeView的HitTest方法？<br />A：在TreeView控件中有一个非常有用的方法HitTest，其功能是返回指定坐标的节点对象。其语法如下：<br />object.HitTest(x As Single, y As Single)<br />其中x和y代表坐标点，但必须要注意的是这里的x和y表示的是单位缇。任何数值必须转换为相应的缇才能正确得到HitTest的返回结果。<br />参考以下示例。本例中利用MouseMove事件和