求助大师，解决一个百度提问2个月都无人能解的小问题，多谢。

ffddzyx

582766 发表于 2022-11-18 09:20
既然用了VBA就不要用公式进去了 直接单元格事件一步到位

有道理。哈哈。

ffddzyx

鄂龙蒙 发表于 2022-11-18 09:24

感谢回复 ，我测试了一下，还是不行哦，要的结果是，拖动第二行中任意一个单元格，只要松开鼠标，就把第二行每一个单元格中的字符放入A1中，且，计算出还差多少个字符达到60个字符

ffddzyx

请高手，帮忙看看这个代码哦，在工作表第二行，拖动单元格，还是不会触发 鼠标 松开事件，是不是哪里有错？

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Target.Row = 2 Then
Cancel = True
Call 宏1
End If
End Sub

于箱长

ffddzyx 发表于 2022-11-18 10:00
请高手，帮忙看看这个代码哦，在工作表第二行，拖动单元格，还是不会触发 鼠标 松开事件，是不是哪里有错？ ...

leirongqin

ffddzyx 发表于 2022-11-18 09:47
可行，只是不好在第2行中录入数据或拖动单元格，要是把你的代码第一行，能改为 松开鼠标事件，那这个代码 ...

不好意思，没认真看你的宏，你的宏是返回A2，执行我的那个代码就进入死循环。23楼已经给出完美答案

leirongqin

ffddzyx 发表于 2022-11-18 10:00
请高手，帮忙看看这个代码哦，在工作表第二行，拖动单元格，还是不会触发 鼠标 松开事件，是不是哪里有错？ ...

你这个是窗体触发事件和表格里面触发事件是两码事，还是我那个代码，删除Selection（选择）也就可以了

ffddzyx

于箱长 发表于 2022-11-18 10:12

感谢编写代码，我发现我是掉入了一个死胡同，只想到用鼠标松开事件，而没有想到使用单元格值改变触发事件，你写的代码可以解决我的问题。谢谢你哦。

ffddzyx

在此感谢所有帮忙的老师们，我已完成了工作表的设计，其实代码还可以更完美，没时间研究了，现在也肯定够用了，我也分享给大家，对于做电商的人，取标题关键词，我想还是非常实用的，效率提升非常大，详见附件。

ffddzyx

leirongqin 发表于 2022-11-18 10:56
你这个是窗体触发事件和表格里面触发事件是两码事，还是我那个代码，删除Selection（选择）也就可以了

谢谢，已经调试好了哦。

于箱长

ffddzyx 发表于 2022-11-18 14:05
感谢编写代码，我发现我是掉入了一个死胡同，只想到用鼠标松开事件，而没有想到使用单元格值改变触发事件 ...