VBA like用法求教

dddd64693

1. Public masterNamebox As String '主进线柜

复制代码

1. Dim rng4 As Range

复制代码

1. Set rng4 = Workbooks("设备设施导入模板.xlsx").Sheets("设备设施数据").Range("E" & j + k)

复制代码

1. Private Sub masterName_Change()
   
2. masterNamebox = masterName.Value
   
3. End Sub

复制代码

1. If rng1 Like "*masterNamebox*" Then
   
2.         rng4.Value = "主进线柜"

复制代码

请问一下，这么写的话，if条件判断能生效吗，我是想在窗体程序中输入待比较内容，然后把这个内容和rng4所代表的单元格内容进行比较

dddd64693

1.     Public masterNamebox As String '主进线柜

复制代码

1.   Dim rng4 As Range

复制代码

1. Set rng4 = Workbooks("设备设施导入模板.xlsx").Sheets("设备设施数据").Range("E" & j + k)

复制代码

1. Private Sub masterName_Change()
   
2. masterNamebox = masterName.Value
   
3. End Sub

复制代码

1.              If rng1 Like "*masterNamebox*" Then
   
2.                 rng4.Value = "主进线柜"

复制代码

代码如上

dddd64693

    Public masterNamebox As String '主进线柜

    Dim rng4 As Range

    Set rng4 = Workbooks("设备设施导入模板.xlsx").Sheets("设备设施数据").Range("E" & j + k)

   Private Sub masterName_Change()

      masterNamebox = masterName.Value

   End Sub

    If rng1 Like "*masterNamebox*" Then

                rng4.Value = "主进线柜"

vitrel

楼主，看了您两篇贴子，数层楼，最终才明白，
你是想在TextBox内输入数据后，与rng4进行内容比较，是吗？
那我想问问您，啥时候开始比较？哪一个动作触发比较？
用点击按钮的方法？还是在TextBox内边输入边比较？
进行比较的那段代码在哪个Sub（过程、子程序）里呢？
我到现在都没能搞明白。

dddd64693

vitrel 发表于 2021-9-24 15:26
楼主，看了您两篇贴子，数层楼，最终才明白，
你是想在TextBox内输入数据后，与rng4进行内容比较，是吗？
...

在模块1的sub copyRng中有比较的内容
这部分是开始比较的

dddd64693

vitrel 发表于 2021-9-24 15:26
楼主，看了您两篇贴子，数层楼，最终才明白，
你是想在TextBox内输入数据后，与rng4进行内容比较，是吗？
...

触发按钮是直接执行 copyRng过程的，过程中有比较的语句

dddd64693

vitrel 发表于 2021-9-24 15:26
楼主，看了您两篇贴子，数层楼，最终才明白，
你是想在TextBox内输入数据后，与rng4进行内容比较，是吗？
...

放在一个嵌套循环里面，将一个工作簿中的内容逐行比较然后得出结果

vitrel

暂时找到一个问题：
将
If rng1 Like "*masterNamebox*" Then
改为
If rng1 Like "*" & masterNamebox & "*" Then
即可

其实masterNamebox这个公共变量在这里是多余的，
因为单元格可以直接和TextBox的值进行比较，这样写便可以：
If rng1 Like "*" & 电力平台模板生成工具.masterName.Text & "*" Then

vitrel

楼主，您好！
如果下次再有类似的问题，我觉得您应该事先跟大伙说一下，例如：

附件里的两个文件必须同时打开，然后点击xx文件上的“酸菜鱼”按钮弹出窗体，
在窗体哪哪几格应该这样填，填完后点击上面的“生成”按钮触发copyRng()，
copyRng()里有一段xx代码，原来设计是xx用的，结果不起作用，请大家帮我看一下为什么。

您叫别人帮您看代码，总得告诉一下测试方法吧。
否则真的很打击了别人帮您改代码的积极性的。
我口直，您别介意。

vitrel

已经回答并作了更改，等待审核中，楼主您稍等吧。