如何用VBA,寻找两个相邻人后面的那个人，并把选取的全部结果用窗体显示出来？

shine111 · 发表于 2019-3-17 22:06

如何找竖列座位中，两个前后相邻的黑衣人蓝衣人后面的那个人，并把选取的结果在窗体控件中全部显示出来？谢谢注意：1、表格是竖列。2、黑衣人、蓝衣人前后邻坐。3、找出前后邻坐的黑衣人、蓝衣人后面的那个人，并把选取的结果在窗体控件中全部显示出来，即点击按钮，在窗体上显示全部结果？

序号	座位	表中颜色仅是为提示，结果不用颜色
1	红衣人
2	黄衣人
3	黑衣人
4	蓝衣人
5	白衣人
6	青衣人
7	黑衣人
8	蓝衣人
9	紫衣人
10	绿衣人

shine111 · 发表于 2019-3-17 22:08

附件

爱疯 · 发表于 2019-3-18 10:36

这样可以吗

=AND(LEFT(B10,1)="蓝",LEFT(B9,1)="黑")

shine111 · 发表于 2019-3-18 22:22

谢谢高手！如果不用公式，用VBA, 结果在窗体控件中全部显示出来，即点击按钮，在窗体上显示全部结果？

爱疯 · 发表于 2019-3-19 11:22

个人觉得用窗体费事
如果一定要用建议给一个效果，别人知道才好回复

shine111 · 发表于 2019-3-19 13:13

显示效果见附件

爱疯 · 发表于 2019-3-19 16:24

B列是真实数据？

在文本框显示白衣人紫衣人？

爱疯 · 发表于 2019-3-19 17:49

Private Sub UserForm_Initialize()
Dim A, i, str
A = Sheets(1).Range("a1").CurrentRegion
For i = 4 To UBound(A)
If A(i - 1, 2) = "蓝衣人" And A(i - 2, 2) = "黑衣人" Then str = str & "," & A(i, 2)
Next i
Me.TextBox1 = Mid(str, 2)
End Sub

附件2.rar (12.28 KB, 下载次数: 5)

shine111 · 发表于 2019-3-20 21:44

本帖最后由 shine111 于 2019-3-20 21:49 编辑

谢谢高手！如果是个大表格，很多数据，不是一眼就看到单元格的行列，而是不确定具体的行与列怎么办？也就是，设单元格行、列为x 、y ,那如何做？谢谢！

shine111 · 发表于 2019-3-20 21:52

另外，我也用了 print ，想让 print 把结果显示在窗体上，但提示出错。也不知为什么？

		自动登录	找回密码
密码			注册