摘要： 我们知道在Excel单元格中输入当前时间的快捷键是“Ctrl Shift ;”，但是这种输入方法只能显示小时和分钟，即HH:MM格式的时间。用下面的VBA代码可以实现用上述快捷键输... 我们知道在Excel单元格中输入当前时间的快捷键是“Ctrl Shift ;”，但是这种输入方法只能显示小时和分钟，即HH:MM格式的时间。用下面的VBA代码可以实现用上述快捷键输入当前时间时，在单元格中显示的是包含秒的“HH:MM:SS”格式。方法如下：
按Alt F11，打开VBA编辑器，单击菜单“插入→模块”，将下列代码输入到代码窗口中：
excel批量提取超链接中的地址
如果Excel表格单元格中包含有许多用文本形式显示的超链接，如“给我发邮件”、“访问我的网站”等，要逐一查看所有超链接的地址，用手工的方法显得太繁琐，我们可以用自定义函数来批量提取这些超链接中的地址，将下列代码插入到标准模块中： Function GetURL(rng A
Sub setKey()
Application.OnKey " ^:", "EnterTime"
End Sub
Sub resetKey()
Application.OnKey " ^:"
End Sub
Sub EnterTime()
With ActiveCell
.Value = Time()
.NumberFormat = "hh:mm:ss"
End With
End Sub
运行setkey()，在工作表中选择一个单元格，按快捷键“Ctrl Shift ;”，将显示HH:MM:SS格式的当前时间，如“20:25:09”。要还原默认的输入方式，运行resetkey()即可。
避免excel工作表函数在VBA中产生运行时错误
大家知道大多数的Excel工作表函数可以用在VBA中，通过下面的方法来调用，例如对A1:A10单元格求和： Sub Sum1()MsgBox WorksheetFunction.Sum(Sheet1.Range("A1:A10"))End Sub 或：Sub Sum2()MsgBox Applica
