VBA银行对账查询返回多结果并标记颜色

bjanian

单位每个月往来款项记录很多，又没有网银，每个月都是靠人工参照银行对账单逐条核对，想做个简易的VBA小程序减轻下工作量，望各位大侠指点一下。
想要达到的效果：
输入框输入一个数字后，在借方，贷方，结果这3个列中精确查询，结果有3种：
1.没有找到匹配结果，弹出对话框“没有找到匹配金额，请输入下一个金额”，继续输入下一个金额。
2.找到一个匹配结果，定位到该行，弹出对话框“此金额在表中位置为XX(如G620)，是否标记该位置”，按确定关闭对话框并将该单元格背景色改为黄色，取消直接关闭对话框。
3.找到对各匹配结果，定位到第一条记录所在行，弹出对话框“找到多个匹配金额，在表中位置为XX(如G620)，是否标记该位置”，按确定关闭对话框并将该单元格背景色改为黄色，取消直接关闭对话框。此处多2个按钮，上一条记录，下一条记录，点击下一条记录，定位到下一个结果所在的行，对话框中位置信息更新为此纪录的位置，按确定关闭对话框并将该单元格背景色改为黄色，取消直接关闭对话框。
如果在此基础上再实现以下功能就更完美了：
1.不同列标记的背景色颜色不一样。
2.已经标记的结果下次查询时跳过该单元格。

dddfr

用range.find和一个form解决问题

zpy2

http://club.excelhome.net/forum.php?mod=viewthread&tid=609146&mobile
这种论坛里类似的不少，以前也搞过一个，可以参考一下上面的链接。

bjanian

zpy2 发表于 2019-6-13 05:05
http://club.excelhome.net/forum.php?mod=viewthread&tid=609146&mobile
这种论坛里类似的不少，以前也搞 ...

感谢回复，论坛没找到符合要求的，很多都是已经有了电子的对账单，再跟系统的对比，实际上是2个数据表对，跟我们的这个不太一样。

bjanian

dddfr 发表于 2019-6-13 00:06
用range.find和一个form解决问题

感谢回复，能说的具体一点么，不是很会用，谢谢

bjanian

dddfr 发表于 2019-6-13 00:06
用range.find和一个form解决问题

感谢回复，能说的具体一点么，不是很会操作，谢谢

dddfr

今天有空，给你做好了，窗口快捷键是CTRL+R，输完数据后按回车开始搜索

1. Dim findData As String
   
2. Dim firstResult As Range
   
3. Dim result As Range
   
4. 
   
5. Private Sub CommandButton1_Click()
   
6. Set result = ActiveSheet.Range("G:K").FindPrevious(result)
   
7. 
   
8. CommandButton2.Enabled = True
   
9. result.Select
   
10. If result.Address = firstResult.Address Then
    
11. 
    
12.     CommandButton1.Enabled = False
    
13.     CommandButton2.SetFocus
    
14. End If
    
15. End Sub
    
16. 
    
17. Private Sub CommandButton2_Click()
    
18. 
    
19. Set result = ActiveSheet.Range("G:K").FindNext(result)
    
20. CommandButton1.Enabled = True
    
21. result.Select
    
22. If result.Address = firstResult.Address Then
    
23. 
    
24.     CommandButton2.Enabled = False
    
25.     CommandButton1.SetFocus
    
26. End If
    
27. End Sub
    
28. 
    
29. 
    
30. Private Sub CommandButton3_Click()
    
31. Call mark
    
32. Unload Me
    
33. End Sub
    
34. 
    
35. Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    
36. If KeyCode = 13 Then
    
37.     findData = TextBox1.Text
    
38.     Call findvalue(TextBox1.Text)
    
39. End If
    
40. End Sub
    
41. 
    
42. 
    
43. 
    
44. Private Sub findvalue(ByVal v As String)
    
45. Set firstResult = ActiveSheet.Range("G:K").Find(v, , , 1)
    
46. If firstResult Is Nothing Then
    
47.     TextBox1.Text = ""
    
48.    
    
49.     MsgBox "没有找到匹配金额，请输入下一个金额"
    
50.     TextBox1.SetFocus
    
51. Else
    
52.     Set result = ActiveSheet.Range("G:K").FindNext(firstResult)
    
53.     If result Is Nothing Then
    
54.         firstResult.Select
    
55.         Me.Hide
    
56.         Call mark
    
57.         Unload Me
    
58.     Else
    
59.         firstResult.Select
    
60.         CommandButton2.Enabled = True
    
61.         Set result = firstResult
    
62.     End If
    
63.    
    
64. End If
    
65. End Sub
    
66. 
    
67. 
    
68. Private Sub UserForm_Initialize()
    
69. CommandButton1.Enabled = False
    
70. CommandButton2.Enabled = False
    
71. 
    
72. End Sub
    
73. 
    
74. Sub mark()
    
75. If MsgBox("此金额在表中位置为" & result.Address & "，是否标记该位置?", vbOKCancel) = vbOK Then
    
76.     Selection.Interior.Color = 65535
    
77. End If
    
78. End Sub
    

复制代码

bjanian

dddfr 发表于 2019-6-14 16:18
今天有空，给你做好了，窗口快捷键是CTRL+R，输完数据后按回车开始搜索

万分感谢，真的不知道怎么感谢才好

bjanian

dddfr 发表于 2019-6-14 16:18
今天有空，给你做好了，窗口快捷键是CTRL+R，输完数据后按回车开始搜索

万分感谢，感激之情无以言表

sw3392787

这个效果确实很实用，而且感觉可以延伸好多问题