Heim > Themen > excel > Hauptteil

So implementieren Sie die Dropdown-Box-Prüfung in Excel

藏色散人
Freigeben: 2020-02-10 09:28:14
Original
14814 Leute haben es durchsucht

So implementieren Sie die Dropdown-Box-Prüfung in Excel

Wie implementiert man die Dropdown-Box-Überprüfung in Excel?

EXCEL-Dropdown-Feld auswählen, um die Prüfung zu implementieren

Schritt 1: Erstellen Sie ein neues Excel und legen Sie die Datengültigkeit fest [X-Spalte auswählen – Daten-- gültiges Geschlecht】

So implementieren Sie die Dropdown-Box-Prüfung in Excel

Schritt 2: Entwicklungstools – Code anzeigen – Code kopieren und speichern und es ist OK

So implementieren Sie die Dropdown-Box-Prüfung in Excel

Der Code lautet wie folgt:

Private Sub Worksheet_Change(ByVal Target As Range)
' Developed by Contextures Inc.
' www.contextures.com
Dim rngDV As Range
Dim oldVal As String
Dim newVal As String
If Target.Count > 1 Then GoTo exitHandler
 
On Error Resume Next
Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo exitHandler
 
If rngDV Is Nothing Then GoTo exitHandler
 
If Intersect(Target, rngDV) Is Nothing Then
   'do nothing
Else
  Application.EnableEvents = False
  newVal = Target.Value
  Application.Undo
  oldVal = Target.Value
  Target.Value = newVal
  If Target.Column = 7 Then '这里规定好哪一列的数据有效性是多选的,A列是第1列,依次类推,如3就是C列,7就是G列
    If oldVal = "" Then
      'do nothing
      Else
      If newVal = "" Then
      'do nothing
      Else
        If InStr(1, oldVal, newVal) <> 0 Then  &#39;重复选择视同删除
          If InStr(1, oldVal, newVal) + Len(newVal) - 1 = Len(oldVal) Then &#39;最后一个选项重复
            Target.Value = Left(oldVal, Len(oldVal) - Len(newVal) - 1)
          Else
            Target.Value = Replace(oldVal, newVal & ",", "") &#39;不是最后一个选项重复的时候处理逗号
          End If
        Else &#39;不是重复选项就视同增加选项
        Target.Value = oldVal & "," & newVal
&#39;      NOTE: you can use a line break,
&#39;      instead of a comma
&#39;      Target.Value = oldVal _
&#39;        & Chr(10) & newVal
        End If
      End If
    End If
  End If
End If
 
exitHandler:
  Application.EnableEvents = True
End Sub
Nach dem Login kopieren

Weitere technische Artikel zu Excel finden Sie in der Spalte Excel Basic Tutorial!

Das obige ist der detaillierte Inhalt vonSo implementieren Sie die Dropdown-Box-Prüfung in Excel. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!

Verwandte Etiketten:
Quelle:php.cn
Erklärung dieser Website
Der Inhalt dieses Artikels wird freiwillig von Internetnutzern beigesteuert und das Urheberrecht liegt beim ursprünglichen Autor. Diese Website übernimmt keine entsprechende rechtliche Verantwortung. Wenn Sie Inhalte finden, bei denen der Verdacht eines Plagiats oder einer Rechtsverletzung besteht, wenden Sie sich bitte an admin@php.cn
Beliebte Tutorials
Mehr>
Neueste Downloads
Mehr>
Web-Effekte
Quellcode der Website
Website-Materialien
Frontend-Vorlage