<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0">
  <channel>
    <title>精评技经论坛 - VBA精品代码</title>
    <link>http://hgplus.net/bbs/forum.php?mod=forumdisplay&amp;fid=56</link>
    <description>Latest 20 threads of VBA精品代码</description>
    <copyright>Copyright(C) 精评技经论坛</copyright>
    <generator>Discuz! Board by Comsenz Inc.</generator>
    <lastBuildDate>Wed, 20 May 2026 06:10:06 +0000</lastBuildDate>
    <ttl>60</ttl>
    <image>
      <url>http://hgplus.net/bbs/static/image/common/logo_88_31.gif</url>
      <title>精评技经论坛</title>
      <link>http://hgplus.net/bbs/</link>
    </image>
    <item>
      <title>VBA 定时器模块改进</title>
      <link>http://hgplus.net/bbs/forum.php?mod=viewthread&amp;tid=147</link>
      <description><![CDATA[VBA定时器模块改进

     VBA借助SetTimer函数的调用是可以实现定时功能的，网上介绍的范例是：

模块代码：

    Declare Function SetTimer Lib \&quot;user32\&quot; (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
  ...]]></description>
      <category>VBA精品代码</category>
      <author>Zhy</author>
      <pubDate>Wed, 07 Dec 2022 03:44:03 +0000</pubDate>
    </item>
    <item>
      <title>64位VBA如何调用32位dll</title>
      <link>http://hgplus.net/bbs/forum.php?mod=viewthread&amp;tid=123</link>
      <description><![CDATA[64位VBA如何调用32位dll

    1.运行VB6，新建 ActiveX EXE，在Class1中输入以下代码，属性中的工程名称改为“Call32Dll”，最后编译为*.exe文件(本例为：Call32Dll.exe）

    Public Function LoadDll(ProID As String) As Object

        Set LoadDll = CreateObjec ...]]></description>
      <category>VBA精品代码</category>
      <author>Zhy</author>
      <pubDate>Tue, 15 Nov 2016 09:12:08 +0000</pubDate>
    </item>
    <item>
      <title>VBA判断64/32位Excel最简代码</title>
      <link>http://hgplus.net/bbs/forum.php?mod=viewthread&amp;tid=122</link>
      <description><![CDATA[VBA判断64/32位Excel最简代码

        VB中有一种带“#”的IF判断语句非常适宜用于判断32/64位Excel。

    经测试以下两个判断：

        #If Win64 then                    #If Win32 then
          MsgBox \&quot;OK!\&quot;                      MsgBox \&quot;OK!\&quot;
        #End ...]]></description>
      <category>VBA精品代码</category>
      <author>Zhy</author>
      <pubDate>Tue, 15 Nov 2016 08:01:22 +0000</pubDate>
    </item>
    <item>
      <title>Excel合并单元格实现自动调整行高</title>
      <link>http://hgplus.net/bbs/forum.php?mod=viewthread&amp;tid=121</link>
      <description><![CDATA[Excel合并单元格实现自动调整行高

        众所周知，Excel单元格在启用自动换行及自动调整行高时，一旦书写内容超出单元格可视宽度时即会自动换行并自动调整行高，但同样的设置却并不适用合并单元格。

    经本人亲身调试，以下代码能实现任意行数和列数的合并单元格 ...]]></description>
      <category>VBA精品代码</category>
      <author>Zhy</author>
      <pubDate>Tue, 15 Nov 2016 02:59:16 +0000</pubDate>
    </item>
  </channel>
</rss>