[已解决]下拉菜单问题请老师看看哪里出错谢谢！

金点子双色球 · 发表于 2014-9-17 19:55

本帖最后由金点子双色球于 2014-9-18 06:57 编辑

我要在一张表的不同单元区域按分类设置多项菜单，该定义的都定义了，调试了好久，可就是不成功，请老师帮忙修改谢谢！！

下拉菜单.zip (9.39 KB, 下载次数: 4)

这儿有肥猫 · 发表于 2014-9-17 20:03

没看出哪个代码是下拉菜单。。。

金点子双色球 · 发表于 2014-9-17 20:09

这儿有肥猫发表于 2014-9-17 20:03
没看出哪个代码是下拉菜单。。。

刚添加了附件。前几天请WP8680老师做了个单元格的菜单，可我实际运用时，要在同一张表的不同单元格或合并单元格建立多个菜单，结果，就调试不好了。

这儿有肥猫 · 发表于 2014-9-17 21:11

调用宏前面加 call ，比如

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$$F$$3" Then
Select Case Target.Value
Case "保存"
Call 保存
Case "全屏显示"
Call 全屏显示
Case "取消全屏显示"
Call 取消全屏显示
End Select
End If
If Target.Address = "$$H$$3" Then
Select Case Target.Value
Case "数据1"
Call 数据1
Case "数据2"
Call 数据2
End Select
End If
If Target.Address = "$$J$$3" Then
Select Case Target.Value
Case "全屏显示"
Call 全屏显示
Case "取消全屏显示"
Call 取消全屏显示
End Select
End If
End Sub

复制代码

金点子双色球 · 发表于 2014-9-17 21:25

这儿有肥猫发表于 2014-9-17 21:11
调用宏前面加 call ，比如

有问题：“编译错误：子过程或函数未定义”。请老师您用我的附件试试行吗？谢谢了！！

这儿有肥猫 · 发表于 2014-9-17 21:27

金点子双色球 · 发表于 2014-9-17 21:35

这儿有肥猫发表于 2014-9-17 21:27
ccc

谢谢老师成功。老师：您好！能看看我的代码哪里错了吗？我看好像没错啊？谢谢您看看！！

这儿有肥猫 · 发表于 2014-9-17 21:38

金点子双色球发表于 2014-9-17 21:35
谢谢老师成功。老师：您好！能看看我的代码哪里错了吗？我看好像没错啊？谢谢您看看！！

第二部分，select case 的名称与数据有效性不一致，宏的名称也不对，因为这个原因

金点子双色球 · 发表于 2014-9-17 21:45

这儿有肥猫发表于 2014-9-17 21:38
第二部分，select case 的名称与数据有效性不一致，宏的名称也不对，因为这个原因

老师：您好！
If Target.Address = "$h$12" Then
   Select Case Target.Value
      Case "导入数据"
         导入数据表
   End Select
End If
这个是个数据导入的宏，宏的名称没错啊。是不是只有“导入数据”这一项的原因啊？是不是要多添加几项才可以啊？？

这儿有肥猫 · 发表于 2014-9-17 21:49

宏名称没错的话，宏前面记得加call
If Target.Address = "$h$12" Then
   Select Case Target.Value
      Case "导入数据"
         call 导入数据表
   End Select
End If

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

[已解决]下拉菜单问题 请老师看看哪里出错 谢谢！

[已解决]下拉菜单问题请老师看看哪里出错谢谢！