[已解决][求助]请帮我用代码实现附件要求的功能，万分感激

刘985

我需要实现附件要求的功能，请高手帮我写代码，万分感谢

Z3Z4MlOq.rar (5.36 KB, 下载次数: 0)

2009-9-20 21:41 上传

点击文件名下载附件
[求助]请帮我用代码实现附件要求的功能，万分感激

最佳答案

月排行榜 / 总排行榜

雨狐

2009-9-20 22:24

那就:

Private Sub Worksheet_Change(ByVal Target As Range)

if  条件 then

    ??=??

elseif  条件 then

  ??=??

esle

  ??=??

end if

End Sub

跳转到最佳答案楼层

雨狐

直接用if 函数这行了干 吗用代码?

刘985

附件只是为了说明问题，实际的表中条件不只是3个，用IF函数需要N层嵌套，希望用VBA快速实现

雨狐

那就:

Private Sub Worksheet_Change(ByVal Target As Range)

if  条件 then

    ??=??

elseif  条件 then

  ??=??

esle

  ??=??

end if

End Sub

刘985

上面的代码将无限循环，请予以改进

子龙

？？？？？