最傻瓜式的VBA窗体菜单

qianlan · 发表于 2010-6-12 06:40

谢谢！好作品！

yaozong · 发表于 2010-6-12 06:58

谢谢分享不错不错！

yizhbi · 发表于 2010-6-12 10:28

看不明白啊...

ygq0610 · 发表于 2010-6-12 22:22

确实不错，谢谢！

飞云楼主 · 发表于 2010-7-10 23:24

下载，学习

lulid · 发表于 2010-7-29 19:12

下来试试用一下

whyyvonne · 发表于 2010-8-6 16:17

如果有操作视频就更好了

qczvba · 发表于 2010-8-6 17:02

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

wyjxd · 发表于 2010-8-6 17:09

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 · 发表于 2010-8-6 17:10

		自动登录	找回密码
密码			免费注册

[原创] 最傻瓜式的VBA窗体菜单

这个有创意

评分