如何确定学生是否已经有效回复？简化了下原题

高空闪电

活在理想的世界 发表于 2018-2-28 21:24
我已经判断为已阅读了，我懒得再改了。

直接把已阅读改为责任，不可以吗？

高空闪电

活在理想的世界 发表于 2018-2-28 21:24
我已经判断为已阅读了，我懒得再改了。

直接将宏里的“已阅读”，改为“责任”，可以吗？

高空闪电

活在理想的世界 发表于 2018-2-28 21:24
我已经判断为已阅读了，我懒得再改了。

或者可能第次我要鉴别的关键词是不一样的，如何能够快速更改呢？

活在理想的世界

高空闪电 发表于 2018-3-1 07:35
直接将宏里的“已阅读”，改为“责任”，可以吗？

不给你事件了，给你按钮吧。

用下面的代码，自己弄个按钮，我把关键字改成“责任”了。如果你的模拟数据没问题，我的代码可以说是完美解决了你的问题。匹配责任比匹配已阅读更简单。。。。

别忘了多给我几朵献花。。。。

1. Sub d()
   
2. Dim Reg As Object, Mac As Object, dic As Object, M As Object, arr(), brr()
   
3. Set Reg = CreateObject("VBScript.RegExp"): Set dic = CreateObject("Scripting.Dictionary")
   
4. brr = Range("b4").CurrentRegion.Resize(, 2): Reg.Global = 1: Reg.Pattern = "([一-龥]+).+(责任)"
   
5. Set Mac = Reg.Execute([A2]): ReDim arr(1 To Mac.Count, 1 To 2)
   
6. For Each M In Mac
   
7. r = r + 1: c = 0
   
8.     For Each ii In M.SubMatches
   
9.         c = c + 1: arr(r, c) = ii
   
10.     Next
    
11.     dic(arr(r, 1)) = ""
    
12. Next
    
13. For i = 2 To UBound(brr)
    
14.     If dic.Exists(brr(i, 1)) Then
    
15.         brr(i, 2) = "是"
    
16.     Else
    
17.         brr(i, 2) = "否"
    
18.     End If
    
19. Next
    
20. Range("c4").Resize(65500, 1).ClearContents: Range("b4").CurrentRegion.Resize(, 2) = brr
    
21. End Sub

复制代码

高空闪电

活在理想的世界 发表于 2018-3-1 07:37
不给你事件了，给你按钮吧。

用下面的代码，自己弄个按钮，我把关键字改成“责任”了。如果你的模拟数 ...

看不出门道，怎么就能检测已阅读了。学海无涯啊！每每有高手用vba解决了自己的问题，就有学习vba的冲动，几次了。最多可以赠2朵花吗？输入8,不允许提交啊。

高空闪电

如果要自定义输入关键词，直接将责任改为单元格引用不行啊，再指导下。我的鲜花只给你了！

1. Sub d()
   
2. Dim Reg As Object, Mac As Object, dic As Object, M As Object, arr(), brr()
   
3. Set Reg = CreateObject("VBScript.RegExp"): Set dic = CreateObject("Scripting.Dictionary")
   
4. brr = Range("b4").CurrentRegion.Resize(, 2): Reg.Global = 1: Reg.Pattern = "([一-龥]+).+([b2])"
   
5. Set Mac = Reg.Execute([A2]): ReDim arr(1 To Mac.Count, 1 To 2)
   
6. For Each M In Mac
   
7. r = r + 1: c = 0
   
8.     For Each ii In M.SubMatches
   
9.         c = c + 1: arr(r, c) = ii
   
10.     Next
    
11.     dic(arr(r, 1)) = ""
    
12. Next
    
13. For i = 2 To UBound(brr)
    
14.     If dic.Exists(brr(i, 1)) Then
    
15.         brr(i, 2) = "是"
    
16.     Else
    
17.         brr(i, 2) = "否"
    
18.     End If
    
19. Next
    
20. Range("c4").Resize(65500, 1).ClearContents: Range("b4").CurrentRegion.Resize(, 2) = brr
    
21. End Sub
    

复制代码

活在理想的世界

高空闪电 发表于 2018-3-1 09:43
如果要自定义输入关键词，直接将责任改为单元格引用不行啊，再指导下。我的鲜花只给你了！

可以啊，你要重新模拟附件。按照你希望的，完美的，适合你工作的样子来模拟。

否则我是不可能写出你要的代码来的。

活在理想的世界

高空闪电 发表于 2018-3-1 09:43
如果要自定义输入关键词，直接将责任改为单元格引用不行啊，再指导下。我的鲜花只给你了！

因为你给到我的就是一个单元格里的一个长文本，我就只能按照你给的A2单元格来写代码。

活在理想的世界

还有，本案例的关键在于“元字符”的编写？这个元字符如果没有学习过你是无论如何看不懂代码的。。。。

这就是元字符：([一-龥]+).+(责任)

这是本代码的核心。。。

高空闪电

活在理想的世界 发表于 2018-3-1 10:18
可以啊，你要重新模拟附件。按照你希望的，完美的，适合你工作的样子来模拟。

否则我是不可能写出你要 ...

未评论家长名单查找模板.zip (17.29 KB, 下载次数: 1)

2018-3-1 15:28 上传

点击文件名下载附件

其余没有变化，只是希望能自定义查找关键词。