请教老师VBA代码

浪子917

请教各位老师， 假如，我在b1单元出现的内容，与a1到a10中任何一个单元格内容一样，那么在c1单元中就显示“对”，否则就显示“错”。
请问老师vba代码怎么写？或给我点指导思路，不甚感激!!

liulang0808

楼主可以参考下表格change事件的案例
另外用公式也可以吧

shiruiqiang

数组循环或字典判断

shiruiqiang

也可以find查找

z865593849

单元格改变事件里，用find找

quqiyuan

这个这么简单用公式吧
=IF(COUNTIF(A1:A10,B1),"对","错")

张小生

1. <blockquote>Sub test()

复制代码

张小生

1. Sub test()
   
2. Dim x%, a%
   
3. For x = 1 To 10
   
4.     If Range("a" & x) = Range("b1") Then
   
5.         a = a + 1
   
6.     End If
   
7. Next x
   
8. If a > 0 Then
   
9.     Range("c1") = "对"
   
10. Else
    
11.     Range("c1") = "错"
    
12. End If
    
13. End Sub

复制代码

canyng2

=IF(MAX(IF(A1:A15=B1,1,0))=1,"错误","")

浪子917

canyng2 发表于 2024-10-26 21:49
=IF(MAX(IF(A1:A15=B1,1,0))=1,"错误","")

非常感谢老师