[已解决]vba运行二义性错误，帮忙修改

zhufuan · 发表于 2022-4-29 15:56

最佳答案

月排行榜 / 总排行榜

vitrel

2022-4-29 15:56

上附件。

跳转到最佳答案楼层

vitrel · 发表于 2022-4-29 15:56

这个最佳答案由 vitrel 给出，感谢 vitrel 的回答。

单击隐藏图章

上附件。

zhufuan · 发表于 2022-4-29 16:09

本帖最后由 zhufuan 于 2022-4-29 16:36 编辑

文件

vitrel · 发表于 2022-4-29 16:39

本帖最后由 vitrel 于 2022-4-29 16:42 编辑

zhufuan 发表于 2022-4-29 16:09
文件

在Sheet2的代码中，出现了两个名称相同的子程序，准确来说，是同一事件出现了两个，这是不允许的。
解决办法：根据您的实际情况，只保留一个。如果两个代码都有用，那就将它们合并在一个事件（子程序）中。

zhufuan · 发表于 2022-4-30 10:10

我也使用过，合并后还是不运行，不知如何合并

vitrel · 发表于 2022-4-30 15:11

楼主，您好！
现合并成一个事件，供参考。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub '如果选中的单元格超过一个，则什么也不做
If Target.Row = 1 Then Exit Sub '如果选中的是第一行（标题行），则什么也不做
'如果选中第1列
If Target.Column = 1 Then
arr = Worksheets("配方理论值").Range("a2:a" & Worksheets("配方理论值").Cells(Rows.Count, "a").End(3).Row) '数据源
With TextBox1
.Value = ""
.Visible = True '可见
.Top = Target.Top '文本框顶部位置
.Left = Target.Left '文本框左侧位置
.Height = Target.Height '文本框高度
.Width = Target.Width '文本框宽度
.Activate '激活文本框
End With
With ListBox1
.Visible = True '可
.Top = Target.Offset(0, 1).Top
.Left = Target.Offset(0, 1).Left
.Height = Target.Height * 5
.Width = Target.Width
.List = arr '写入数据源数据
End With
Else
ListBox1.Visible = False '不可见
TextBox1.Visible = False '不可见
End If
'如果选中第3列
If Target.Column = 3 Then
Set DP_inRng = Target
Call fmdatecl.ShowFrmAndMoveWithRange(Target)
Else
fmdatecl.Hide
End If
End Sub

复制代码

zhufuan · 发表于 2022-4-30 16:27

十分感谢，这就是我想要的结果。

zhufuan · 发表于 2022-4-30 16:38

我是个新手，想问一下是改的哪个地方，是属性吗，

vitrel · 发表于 2022-4-30 17:29

本帖最后由 vitrel 于 2022-4-30 17:33 编辑

zhufuan 发表于 2022-4-30 16:38
我是个新手，想问一下是改的哪个地方，是属性吗，

楼主，您好！
既然您说您是新手，那我就不客气，真当您新手，我说详细些，您别介意。
1、打开您的工作簿。
2、用快捷键Alt+F11进入VBE编辑界面。
3、从左边的“工程”窗口中，找到“Sheet2 (成品)”，双击它便可在右边看到它里面的代码。
4、就在这个“Sheet2 (成品)”的代码中，您原来的代码里两个同名的子过程（事件），因此运行时提示出错。
5、我只是把这两个同名的子过程（事件）的代码合并了，因此程序便能正常运行。
6、您原来重名的子过程我没有删除，留下来供参考，我只是在每行代码前加了 '（单引号），整行代码都变成了灰色、不再执行。

zhufuan · 发表于 2022-4-30 20:58

十分感谢老师

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