private sub worksheet_change(byval target as range)
if target.column=1 then '限定A列
if isnumeric(target.value) then ‘判断为数字
target.interior.colorindex=3 ’添加颜色
end if
end if
end sub
欢迎分享,转载请注明来源:内存溢出
private sub worksheet_change(byval target as range)
if target.column=1 then '限定A列
if isnumeric(target.value) then ‘判断为数字
target.interior.colorindex=3 ’添加颜色
end if
end if
end sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)