问答1 问答5 问答50 问答500 问答1000
网友互助专业问答平台

首页

互助专区

登录

注册

这段excel vba 有什么错误啊？ If target.Value Like rng.Value And target.Value <> "" Then出错了

提问网友 发布时间：2022-04-23 14:20
我来回答
声明：本网页内容为用户发布，旨在传播知识，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:1656858193@qq.com
共2个回答
热心网友 回答时间：2023-10-18 01:09
Private Sub worksheet_change(ByVal target As Range)
If Application.Intersect(target, Range("c:c")) Is Nothing Or target.Count > 1 Then
    Exit Sub
End If
Dim i As Integer, arr As Range
Dim rng As Range
i = 1
Set arr = Worksheets("自动录入").Range("N1").EntireColumn
'arr里面包含了太多的对象,你监视一下arr就可以发现.
'所以下面的for each..in 循环你要指定一下
For Each rng In arr.Cells
    On Error GoTo rng100 '标签写错了.
    If target.Value Like rng.Value And target.Value <> "" Then
        target.Value = rng.Value
    Else
        Exit Sub
    End If
Next
rng100:

End Sub

追问您好，我按照您的提示操作了，但还是不行呀
不会出错，但是也不能返回结果

追答你要学会分析代码,找到问题,
把光标移到代码的For 语句上.按F9设置断点.然后改变C列的任意一个单元格内容,触发该过程.当代码执行到你设置的断点时停止,你可以按F8单步执行代码.监视必要的变量.找出问题的所在.再修改代码,
代码应该没问题.如果你现在在线.百度Hi我 不用追问了.我面对面帮你解决问题

热心网友 回答时间：2023-10-18 01:09
On Error GoTo 100错误，应该是Rng100;
另外，Worksheets("自动录入").Range("N1").EntireColumn范围太大，可以直接指定或者用End（xlup)方法。例如
Worksheets("自动录入").Range("N1:N"&Range("N1048576").End(xlUP).Row)
你这个比较好像意义不大。If target.Value Like rng.Value And target.Value <> "" Then target.Value = rng.Value
，只要第一个数不同，就退出循环方法了。
热心网友 回答时间：2023-10-18 01:09
Private Sub worksheet_change(ByVal target As Range)
If Application.Intersect(target, Range("c:c")) Is Nothing Or target.Count > 1 Then
    Exit Sub
End If
Dim i As Integer, arr As Range
Dim rng As Range
i = 1
Set arr = Worksheets("自动录入").Range("N1").EntireColumn
'arr里面包含了太多的对象,你监视一下arr就可以发现.
'所以下面的for each..in 循环你要指定一下
For Each rng In arr.Cells
    On Error GoTo rng100 '标签写错了.
    If target.Value Like rng.Value And target.Value <> "" Then
        target.Value = rng.Value
    Else
        Exit Sub
    End If
Next
rng100:

End Sub

追问您好，我按照您的提示操作了，但还是不行呀
不会出错，但是也不能返回结果

追答你要学会分析代码,找到问题,
把光标移到代码的For 语句上.按F9设置断点.然后改变C列的任意一个单元格内容,触发该过程.当代码执行到你设置的断点时停止,你可以按F8单步执行代码.监视必要的变量.找出问题的所在.再修改代码,
代码应该没问题.如果你现在在线.百度Hi我 不用追问了.我面对面帮你解决问题

热心网友 回答时间：2023-10-18 01:09
On Error GoTo 100错误，应该是Rng100;
另外，Worksheets("自动录入").Range("N1").EntireColumn范围太大，可以直接指定或者用End（xlup)方法。例如
Worksheets("自动录入").Range("N1:N"&Range("N1048576").End(xlUP).Row)
你这个比较好像意义不大。If target.Value Like rng.Value And target.Value <> "" Then target.Value = rng.Value
，只要第一个数不同，就退出循环方法了。

本文如未解决您的问题请添加抖音号：51dongshi（抖音搜索懂视），直接咨询即可。

已解决
等待解决
cf真正有实力的主播有几个,你最喜欢谁? java中怎么实现查找某个数组里的string值 CF最强女主播有哪些 如何判断某个数组中是否存在某个元素? cf姗姗ss原名叫什么,那个美女玩家,上海二区的 js怎么获取父函数的event 今天中午在虎牙直播打cf的女主播是那个？穿的黑色裙子，是河南郑州的 判断数组里是不是包含某个值 cf 穿越火线 江苏一区 女主播婉清? 如何高效地判断数组中是否包含某特定值 cf默心姐姐在哪直播 如何判断某个数组中是否存在某个元素 EXCEL中If Target.Value &lt;&gt; &quot;&quot; Then是什么意思 cf美女主播dj喵喵她的全名叫什么? excel出错：运行时错误’7’内存溢出，选择调试时弹出宏窗口，XX = Target.Value为*字体，如何修改？ cf女主播梧桐的真实姓名 Excel Target.value能返回什么样的值 CF里的美女主播是主播什么的 啊 谁知道CF美女主播比赛的主持人叫什么名字的? 请教虎皮鸡爪怎么做 cf兔酱姐姐直播房间号是什么? cf飞段女朋友妙娴再哪直播。 如何获取一个a标签的value值 cf凉意在哪直播? Z-VALUE是什么意思，详细一点的。还有在经济学中比如DER,SHR那些缩写都代表什么意思？我在网上没有查到... cf游戏直播吊骚频道多少啊 JavaScript中对象的Value属性用法解答 cf专区直播在哪里 穿越火线颖三岁娘皮妹妹在哪直播 Html的javascrip脚本如何实现input的value值跟一个变量进行对比? 具体... 虎牙直播穿越火线,大北一起的女的是谁,是主播么?在哪里直播 html中target属性怎么定义打开新窗口 少齐在哪里直播 在springmvc中 @RequestMapping(value={&quot;&quot;, &quot;/&quot;})是什么意思? 穿越火线白鲨小红帽在哪直播 露营帐篷的地钉有什么作用,怎么使用 帐篷地钉怎么用 帐篷地钉 帐篷地钉怎么打 怎么固定美捷堡帐篷的防风绳和地钉? 怎么移动扎好的帐篷

湘ICP备2022005869号-1

违法及侵权请联系：E-MAIL:1656858193@qq.com

Top