很简单额!
break子过程或函数未定义。
追答亲,把break全部替换为Exit For
追问也不对,你试了一下没有?我试了一下全红了。
追答我这里暂时不方便调试,你留意一下代码,在你第一个追问的时候,我改进过。
你重新复制最新的代码,然后把break全部替换为Exit For。试试呢
试了,不行。先谢了。
追答好的,那我明天来测试一下。
一、假如要把当前选中区域中,包含数字的单元格的文字颜色变成红色,可以使用如下代码:
Sub test()二、代码解释:使用FOR EACH循环,对当前选中区域进行遍历,再用IsNumeric
判断遍历到的单元格内是否为数字格式,如果是,执行文字着色语句:rng.Font.ColorIndex = 3把单元格数字颜色改为红色。
代码如下,详见附件。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)