在Access报表设计时，当文本框内容可能会占据两行时，需要把文本框移上一定空间，以实现内容垂直居中，可以在主体格式化时判断并移动控件。代码如下： Option Compare Database Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
    dTop = -120
  

收到很多Excel文档，需要把它们组合在一起形成一张大表，然后才进行格式化。 由于文档格式有些差异，合并最好的办法只能是复制、粘贴，为提高效率，特编此VBA： Sub MergeWorkbooks()
    Dim i As Long
    Dim WB As Workbook
    Dim currentWS As Worksh

    最近为同事的电脑清除病毒，通过HijackThis.exe检查清除了大多数恶意注册表项。发现有一个xboxcenter.dll位于winsock LSP（编号应该是010）中，于是使用lspfix.exe修复，并删除了xboxcenter.dll程序。     修复后发现依然无法上网，再用WinsockXPFix.exe修复还是没用。郁闷...     后来查询微软网站发现一篇文章：     如何确定 Winsock2 是否损坏并从损坏中恢复     按要求执行netsh winsock reset提示出错，后试图删除注册表项：     HKEY_LOCAL_MACHINE\Sys

网上有不少关于如何把金额转换成大写中文的例子。有些是用公式，有些用VBA自定义函数。我发现有些用公式的转换的结果很好，可是使用总觉得不便。而用VBA的没找到转换很好的例子，于是参考网上的一些例子进行了修改。 源程序如下：  Function dx(q)
    ybb = Application.WorksheetFunction.Round(q * 100, 0) '利用Excel函数
    'ybb = Round(Abs(q) * 100, 0) 'VBA函数与Excel函数对舍入算法有些不一样
    dx = IIf(ybb < 0, "负", "") '符号
    ybb = Abs(ybb)
    y = Int(ybb / 100) '元
    j = Int(ybb / 10) - y *

最近处理一个Excel文档，其中包含大量手工换行符（就是可以用Alt+Enter输入的那种），想去掉它们。 最后发现最简单的办法是在替换对话框中查找内容用Alt+数字小键盘10输入就是那个手工换行符，替换一切正常。 其实可以用Alt+数字小键盘输入一些特殊字符，在一些场合还是蛮有用的。

    最近做Maps.google.com图集，发现图片会随着鼠标滚轮缩放，不符合我的要求，必须去掉。     其实只要加上如下javascript屏蔽原来的功能即可。 function bbimg(a){}

我一直用UltraEdit 8.2，最近看到居然升级到11.0了，忍不住下载了一个试试。其它都好，界面漂亮了许多，可是我发现了一个Bug，表现如下：     一段长长的中文，如果最前面为中文，一切正常。可是如果前面插入一个西文空格，按End到行尾，光标没有在真正的行尾，而只是在中间某个位置。这应该是中文兼容性的问题。     另外，只要把文件编码转换为Unicode，又一切Ok。转回来又老样。     重新装回UltraEdit 8.2，没有这个Bug。哎，用原来的吧，希望UltraEdit下一版会改好。有谁会英文的话，麻烦把这个Bug告诉UltraEdit作者。