用来代替多级菜单是个不错的选择

hqswww · 发表于 2012-6-9 05:20

本帖最后由 hqswww 于 2012-6-9 11:53 编辑

附件已经更新在8楼大家要下的去8楼吧

新建文件夹.rar (92.53 KB, 下载次数: 426)

我还有两个问题没法解决,辛苦整整一个晚上弄出来的,那么那两个什么问题呢,大家下的时候自己先想想吧,明天再和大家讨论,累死我了.觉得自己有点疯,都5点多了.
如果大家觉得好的,留个脚印.大方一点就送朵花吧 = -~~

好了明天来和大家讨论我无法解决的两个问题
附件已经更新在8楼大家要下的去8楼吧

humengqiang · 发表于 2012-6-9 07:17

先占位学习下

redbrother_118 · 发表于 2012-6-9 08:15

占位学习！！

xsy我可以很好 · 发表于 2012-6-9 08:23

{:soso_e179:} 学习

蓝桥玄霜 · 发表于 2012-6-9 10:00

做得不错，收藏学习了。
发现有一个问题：只能输入一种水果或者蔬菜，如遇到相同的，则前一个的图片没有了。

hqswww · 发表于 2012-6-9 10:42

蓝版, 这就是我昨晚说的没能解决的两个问题中的一个了, 我在插入图片前,删除了相同名字的图片, 可是不删,又会引起不断点击的时候会不断的插入图片,蓝版有什么办法么

hqswww · 发表于 2012-6-9 11:17

TopLeftCell 属性
搜到SHAPE 有这样一个属性,看到怎么改改大家都来看下呐反正我觉得它可以替掉多级菜单因为可以动态加项目窗体也能随选择的单元进行位置变化了

第二个问题即是想办法添加三级菜单

hqswww · 发表于 2012-6-9 11:41

For Each sh In ActiveSheet.Shapes
If sh.TopLeftCell.Address = Target.Offset(, -1).Address Then
sh.Delete
End If
Next
终于可以了就是觉得貌似麻烦如果第二列偏左一列即A列的对应单元格存在图片就删除

原来叫蓝版帮忙了不知道蓝版有更好的办法吗

hqswww · 发表于 2012-6-9 12:10

Columns(Target.Offset(, -1).Column).ColumnWidth = 4
Rows(Target.Offset(, -1).Row).RowHeight = 20
将行高和列宽修改为上面的4 和20 比较合适这样图片就不会太大了

疯球 · 发表于 2012-6-9 14:27

学学习习
······································

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

[分享] 用来代替多级菜单是个不错的选择

评分

评分