Sub NonContiguousRange()Dim oRng As RangeSet oRng = Range("A1, B2, C3:D10")oRng.Value = 100oRng.Interior.ColorInde...
如果要在VBA中使用非连续区域,可以用类似Range("A1, B2, C3:D10")的语句,如下例:
Sub NonContiguousRange()
Dim oRng As Range
Set oRng = Range("A1, B2, C3:D10")
oRng.Value = 100
oRng.Interior.ColorIndex = 2
End Sub
在Excel中用快捷键输入“HH:MM:SS”格式的当前时间
我们知道在Excel单元格中输入当前时间的快捷键是“Ctrl Shift ;”,但是这种输入方法只能显示小时和分钟,即HH:MM格式的时间。用下面的VBA代码可以实现用上述快捷键输入当前时间时,在单元格中显示的是包含秒的“HH:MM:SS”格式。方法如下: 按Alt F1
上述代码设置非连续区域A1、B2、C3:D10的值为100,同时设置非连续区域的背景颜色为粉红。
excel批量提取超链接中的地址
如果Excel表格单元格中包含有许多用文本形式显示的超链接,如“给我发邮件”、“访问我的网站”等,要逐一查看所有超链接的地址,用手工的方法显得太繁琐,我们可以用自定义函数来批量提取这些超链接中的地址,将下列代码插入到标准模块中: Function GetURL(rng A