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

ffddzyx

wengjl 发表于 2022-11-18 08:43
不好意思 ，我只看了下图。  再次放大看，原来换行连接符  藏在 C的头上。

没关系 ，不是非常非常仔细看，99.99%的人都一下子发现不了那个连接符哦，那第二段代码哪里有错，能帮忙指点一下么，谢谢啦。

wengjl

换一个思路，在第二行上放一个按钮，点按钮时执行，就简单化了

你要整行任一单元格点击，都能执行，会产生 明明不要执行的， 因为误点到第二行上了，结果执行，就产生了不必要的错误！

leirongqin

自动执行的第二行代码错了，你的代码是（如果点击第二行并且点击第二列）意思是只有B2单元格可以触发

leirongqin

Sheet1写入我这个，点击第二行可以自动执行，不过你的宏好像有问题啊，好久没有执行好

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Row = 2 Then
   
3. Cancel = True
   
4. Call 宏1
   
5. End If
   
6. End Sub

复制代码

582766

既然用了VBA就不要用公式进去了 直接单元格事件一步到位

鄂龙蒙

阿里改标题日志-e.rar (17.73 KB, 下载次数: 13)

2022-11-18 09:24 上传

点击文件名下载附件

ffddzyx

wengjl 发表于 2022-11-18 08:59
换一个思路，在第二行上放一个按钮，点按钮时执行，就简单化了

你要整行任一单元格点击，都能执行，会产 ...

放按钮就很好做了，现在就是要自动运行哦。响应松开鼠标 就运行

半百

1、事件代码放错地方了
2、事件代码中，Target.Column = 2，拼错成了Target.Columm = 2
另外，连接字符还有个函数可以试试
=PHONETIC(A2:Z2)，缺点是会舍掉数值单元格，优点是不会出现图3、4的错误。

ffddzyx

leirongqin 发表于 2022-11-18 09:07
自动执行的第二行代码错了，你的代码是（如果点击第二行并且点击第二列）意思是只有B2单元格可以触发

这个的确错了，我刚才自己也发现了，关键是那个改了之后，得双击才能运行，松开鼠标就是不运行，我要的效果是，只要松开鼠标，即运行宏1

ffddzyx

leirongqin 发表于 2022-11-18 09:15
Sheet1写入我这个，点击第二行可以自动执行，不过你的宏好像有问题啊，好久没有执行好

可行，只是不好在第2行中录入数据或拖动单元格，要是把你的代码第一行，能改为 松开鼠标事件，那这个代码就完美了。我改了几次，都不行，不知哪里错了。
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