根据先前的选择Excel的动态下拉菜单

问题描述 投票:0回答:1

美好的一天,

我只能找到例子,其中表是非常简单和数据最小。我坐在36个品牌,以及多达上,我需要整理出下面的数据3个072变种。

通过E中的以下山坳是我的数据的提取物,通过我山坳G,我需要做出的选择。解释。

大段引用

山口G:应该是一个下拉从山口C(这是很容易并已完成)的值

大段引用

山口H:如果我现在在山口g选择阿巴特,我只希望六百九十五分之五百或在下拉显示124,在那里我会选择124

大段引用

Ⅰ型胶原:类似山口H,现在只有阿巴特124个相关的项目,应在下拉向下显示

enter image description here

excel dynamic drop-down-menu
1个回答
0
投票

解决了!我已经写宏来解决如下:

Sub SelectModel()
'
' SelecModel Macro
'

'
    ActiveCell.Select

'   Save the active cell to use later
    Set myActiveCell = ActiveCell
    Set myActiveWorksheet = ActiveSheet
    Set myActiveWorkbook = ActiveWorkbook

    ActiveCell.Copy Destination:=Sheets("2018MMCodes").Range("AU1")

    Sheets("2018MMCodes").Select
    If (ActiveSheet.AutoFilterMode And ActiveSheet.FilterMode) Or ActiveSheet.FilterMode Then
        ActiveSheet.ShowAllData
    End If
    Columns("AV:AX").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Selections").Select
    Range("A1").Select
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveSheet.Range("$A$1:$C$3257").RemoveDuplicates Columns:=2, Header:= _
        xlYes

    'Returns the user to the original sheet to enable just making a selection
    myActiveWorkbook.Activate
    myActiveWorksheet.Activate
    myActiveCell.Activate

End Sub
Sub SelectVariant()
'
' SelectVariant Macro
'

'
    ActiveCell.Select

'   Save the active cell to use later
    Set myActiveCell = ActiveCell
    Set myActiveWorksheet = ActiveSheet
    Set myActiveWorkbook = ActiveWorkbook

    Selection.Copy

    Sheets("2018MMCodes").Select
    Range("AU3").Select
    ActiveSheet.Paste
    Columns("AV:AX").Select
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Range("AV1:AX3257").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("'2018MMCodes'!Criteria"), Unique:=False
    Selection.Copy
    Sheets("Selections").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    'Returns the user to the original sheet to enable just making a selection
    myActiveWorkbook.Activate
    myActiveWorksheet.Activate
    myActiveCell.Activate

End Sub
© www.soinside.com 2019 - 2024. All rights reserved.