我正在尝试在工作中的Excel注册中更改某些内容。我有2个带下拉菜单的单元格。当我从另一个下拉菜单中选择一个选项时,我希望其中一个可以自动选择一个选项。
例如: 第一个下拉菜单是办公室名称-我选择英国的办公室。 另一个下拉菜单使用不同的地址。当我在第一个下拉列表中选择英国时,我希望它自动选择英国办事处的地址。
我可以访问每个下拉菜单的名称。我该怎么办?
答案 0 :(得分:0)
您可以尝试:
Option Explicit
Sub Insert()
Dim LastRow As Long, i As Long, y As Long
Dim str As String
Dim arr As Variant, element As Variant
With ThisWorkbook.Worksheets("Sheet1")
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = 1 To LastRow
str = .Range("A" & i).Value
arr = Split(.Range("B" & i).Validation.Formula1, ",")
For y = LBound(arr, 1) To UBound(arr, 1)
If InStr(1, arr(y), str) > 0 Then
.Range("B" & i) = arr(y)
Exit For
Else
.Range("B" & i).ClearContents
End If
Next y
Next i
End With
End Sub