将个人的所有值从“是”更改为“否”

Question

我创建了我的第一个用户表单来捕获医院数据，但现在我陷入了困境。

当我点击“从 ITU 删除”时，我想将给定患者的“B:B”列中“当前住院患者”的所有值从“是”更改为“否”。

示例数据

在“当前住院患者”列中将患者从“是”更改为“否”的用户表单

Answer 1

请尝试下一个代码：

Sub ChangeYesToNo()
  Dim sh As Worksheet, curInp As String, lastRow As Long, i As Long
  Set sh = ActiveSheet
  lastRow = sh.Range("A" & Rows.Count).End(xlUp).row
  curInp =  Me.ComboBox1.Value  'use here your combo name

  For i = 2 To lastRow
    If CStr(sh.Range("E" & i).Value) = CStr(curInp) Then
        If sh.Range("B" & i).Value = "Yes" Then
            sh.Range("B" & i).Value = "No"
        Else
            MsgBox "Strange situation in row """ & i & """."
        End If
    End If
  Next i
End Sub

未经测试，在未安装 Excel 的平板电脑上编写，但它应该可以工作...