Question

我有Data.shared.refresh()作为数据

def cmpPrevElement[T](l: List[T]): List[(T,T)] = {
  (l.indices).sliding(2).toList.map(e => (l(e.head), l(e.tail.head)))
}

我在Sheet1上创建下拉列表

Column J 
Name of header AccNo

我想在Sheet2上的891-0001 PARKING EXPENSES 891-0002 AIRFARE EXPENSES上显示下拉列表，但仅显示结果Sheet1。请帮助宏代码。

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$J$1" Then     'Cell J1 is the dropdown list
    On Error GoTo errorhandler
    Application.EnableEvents = False
    Selection.Validation.Delete
    Target.Value = Left(Target.Value, 8)
    Selection.Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="=List"   'Define selection as List name
 End If

ErrorExit:
Application.EnableEvents = True

Exit Sub
errorhandler:
Resume ErrorExit

End Sub

VBA下拉列表

1 个答案: