列表框单击事件后再次单击选择同一个选项为什么不行？

mfk1288

Private Sub ListBox1_Click()
   ActiveCell = ListBox1.Value
   ActiveCell.Offset(0, 1).Select
End Sub

请问列表框设置的单击事件。例如单击了“福利费”后，当前单元格是可以录入了“福利费”。然后单元格右移一格，然后我再单击“福利费”后，这次当前单元格就不能录入”福利费“。（除非应该选择了其他选项，再次单击”福利费",才能再次录入“福利费”


其实问题就是可以多次单击选择“福利费”

追风少年丶斌

为方便分析，请上传附件。

mfk1288

追风少年丶斌 发表于 2023-5-8 13:30
为方便分析，请上传附件。

已上传附件！

xunanming

把单击事件改为双击事件就OK!!

tanglf188

试试这个：
Private Sub ListBox2_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    ActiveCell = ListBox2.Value
    ActiveCell.Offset(0, 1).Select
   ListBox2.SetFocus
End Sub

追风少年丶斌

经测试可用。

mfk1288

追风少年丶斌 发表于 2023-5-8 16:35
经测试可用。

谢谢指导，测试可用。但是现在还有另外一个问题，就是当单击列表框，把值赋给了activecell.然后向右偏移了一格。虽然ActiveCell.Offset(0, 1).Select了，但是此时的焦点还是在窗体上。如果要有ActiveCell.Offset(0, 1)输入文字，还是每次点击一下表格。把焦点转移到表格上了。才可以继续输入。请问如何单击事件后。把焦点转移到ActiveCell.Offset(0, 1).Select选择的单元格上，谢谢指导！

追风少年丶斌

mfk1288 发表于 2023-5-8 17:34
谢谢指导，测试可用。但是现在还有另外一个问题，就是当单击列表框，把值赋给了activecell.然后向右偏移 ...

按照目前的自动录入需求，
建议不要使用窗体交互
建议使用工作表的列表控件来实现

qflwork

追风少年丶斌 发表于 2023-5-9 08:43
按照目前的自动录入需求，
建议不要使用窗体交互
建议使用工作表的列表控件来实现

请教一下了，你这三行字，我看不太明白，能详细说一下吗？
1、“目前的自动录入需求”，请问是什么样的需求？我想象不出来，是指用鼠标不用键盘录入吗？
2、为啥不用窗体交互？这样的什么缺陷吗？
3、列表控件是指开发工具-插入-表单控件-列表框（窗体控件）吗？

追风少年丶斌

qflwork 发表于 2023-5-9 09:58
请教一下了，你这三行字，我看不太明白，能详细说一下吗？
1、“目前的自动录入需求”，请问是什么样的 ...

才疏学浅，帮不到你，非常抱歉。