最傻瓜式的VBA窗体菜单

qianlan

谢谢！好作品！

yaozong

谢谢分享 不错 不错！

yizhbi

看不明白啊...

ygq0610

确实不错，谢谢！

飞云楼主

下载，学习

lulid

下来试试用一下

whyyvonne

如果有操作视频就更好了

qczvba

想不道老扬的作品还真不少，一辈子学不完了。

wyjxd

If .Column = 2 Then
    For i = .Row To .Row + .Rows.Count - 1
         If Cells(i, 2).Value = "" Then
            Cells(i, 3).Value = ""
            Cells(i, 4).Value = ""
            Cells(i, 7).Value = ""
            Cells(i, 8).Value = ""
            Cells(i, 9).Value = ""
            
            Cells(i, 11).Value = ""
            Cells(i, 12).Value = ""
            Cells(i, 13).Value = ""
            Cells(i, 26).Value = ""
        Else
            Cells(i, 3).Value = "=项目名称"
            Cells(i, 3) = Cells(i, 3).Value
            Cells(i, 4).Value = "=单位"
            Cells(i, 4) = Cells(i, 4).Value
            Cells(i, 7).Value = "=安装费"
            Cells(i, 7) = Cells(i, 7).Value
            Cells(i, 8).Value = "=工资"
            Cells(i, 8) = Cells(i, 8).Value
            Cells(i, 9).Value = "=机械费"
            Cells(i, 9) = Cells(i, 9).Value
            Cells(i, 14).Value = "=含量"
            Cells(i, 14) = Cells(i, 14).Value
        这些语句是何意思呀，请老师帮忙

wyjxd