求组vba实现以下需求

liwei0310

用vba判断选定区域是否含有“是”值，

liwei0310

求大神帮忙

hfwufanhf2006

vba的find可以直接查找，这个函数我从来没用过，不会用它，所以我就写一段普通的循环查询供参考：
Dim rng As String
Dim rg As Range
rng = Range("b1")     ’在b1输入自选区域，如c1:f30，要从c列往后选，a-b列被用来存储单元格地址了
hs = 2                      '记录查找的起始区域，b1是自定义区域，所以从第二行开始记录
For Each rg In Range(rng)
    If rg.Value = "是" Then
      Cells(hs, 1) = "找到了"         '在hs行的第一列A列记录“找到了”
      Cells(hs, 2) = rg.Address      '在hs行的第二列B列记录单元格地址
      hs = hs + 1                        'hs+1，用来记录下一个找到的单元格地址
    End If
Next

大灰狼1976

1. Sub test()
   
2. Dim rng As Range
   
3. Set rng = Selection.Find("是")
   
4. If Not rng Is Nothing Then MsgBox "Yes"
   
5. End Sub

复制代码