数据有效性设置

dl0506

求助一个问题，怎么根据filter 1 的值，得到二级菜单filter 的值，filter 2 的值来源是一个单元格中的值，按照, 链接的，谢谢

因为没法上传文件，传个图片，谢谢老师。





PS，谢谢大家提供的帮助。
二级菜单source最后用这个公式，可以的，大概轮廓。
=OFFSET(C4,MATCH(一级菜单选的值,!C5:C228,),3,1,100)

miaojohn45

定义名称，然后indirect间接引用。

dl0506

miaojohn45 发表于 2024-1-11 15:59
定义名称，然后indirect间接引用。

感谢帮助。
另外，在不改变原数据结构的情况下，有没有方法实现一下？谢谢

橒♂蝣

=TEXTSPLIT(XLOOKUP(A2,E:E,F:F),",",,1)

dl0506

橒♂蝣 发表于 2024-1-11 16:11
=TEXTSPLIT(XLOOKUP(A2,E:E,F:F),",",,1)

是公式写进source 中么

橒♂蝣

dl0506 发表于 2024-1-11 16:16
是公式写进source 中么

辅助列吧，好像不支持内存数组

dl0506

橒♂蝣 发表于 2024-1-11 16:23
辅助列吧，好像不支持内存数组

谢谢回复。

dl0506

1. Private Sub Click()
   
2.     Dim strFilePath As String
   
3.     Dim arr()
   
4.     Dim n As Long
   
5.     Dim iLoop As Long
   
6.     Dim sShowParentFolder As String
   
7. 
   
8.     Me.Lst_FileList.RowSource = ""
   
9.     Me.Lst_FileList.Clear
   
10.     strFilePath = GetMultiFilepath(msoFileDialogFilePicker)
    
11.     If Trim(strFilePath) <> "" Then
    
12.         If InStr(strFilePath, "|") > 0 Then
    
13.             sShowParentFolder = Split(strFilePath, "|")(0)
    
14.             Me.Txt_ImportFilesFolderPath.Value = GetFileParentFolderPath(sShowParentFolder)
    
15.             For iLoop = 0 To UBound(Split(strFilePath, "|"))
    
16.                 Me.Lst_FileList.AddItem GetFileBaseName(Split(strFilePath, "|")(iLoop))
    
17.             Next
    
18.         Else
    
19.             Me.Txt_ImportFilesFolderPath.Value = GetFileParentFolderPath(strFilePath)
    
20.             Me.Lst_FileList.AddItem GetFileBaseName(strFilePath)
    
21.         End If
    
22.     Else
    
23.         Me.Txt_ImportFilesFolderPath.Value = ""
    
24.     End If
    
25. End Sub

复制代码

dl0506

-2

1. Public Function GetMultiFilepath(ByVal msoFileDialogFilePicker As Integer) As String
   
2.     Dim objFileDialog As Object
   
3.     Dim i As Long
   
4.     Dim sConnect As String
   
5.     Set objFileDialog = Application.FileDialog(msoFileDialogFilePicker)
   
6.     With objFileDialog
   
7.         If .Show = True Then
   
8.             .AllowMultiSelect = True
   
9.             .Filters.Add "Excel Files", "*.xls"
   
10.             For i = 1 To .SelectedItems.Count
    
11.                 sConnect = sConnect & "|" & .SelectedItems(i)
    
12.             Next
    
13.             If Left(sConnect, 1) = "|" Then
    
14.                 sConnect = Right(sConnect, Len(sConnect) - 1)
    
15.             End If
    
16.             GetMultiFilepath = sConnect
    
17.         End If
    
18.     End With
    
19.     Set objFileDialog = Nothing
    
20. End Function

复制代码

dl0506

-3

1. Public Sub UnProteceSheet()
   
2.         Dim myWkb As Workbook
   
3.         Dim myWks As Worksheet
   
4.         Dim wks_MainSheet As Worksheet
   
5.         Dim iLastRow As Long, iLoop As Long
   
6.         Dim arr_SheetList()
   
7.         Dim sPsw As String
   
8.         
   
9.         On Error GoTo ErrorHandle
   
10.         Set myWkb = ThisWorkbook
    
11.         Set wks_MainSheet = myWkb.Worksheets("MainSheet")
    
12.         With wks_MainSheet
    
13.             .Range("A:ZZ").EntireColumn.Hidden = False
    
14.             .AutoFilterMode = False
    
15.             iLastRow = .Range("A" & .Rows.Count).End(xlUp).Row
    
16.             If iLastRow <= 1 Then
    
17.                 Call ShowMsgbox("MainSheet Sheet List Empty,Please Check it.", 2)
    
18.                 Exit Sub
    
19.             End If
    
20.             arr_SheetList = .Range("A2:A" & iLastRow).Value
    
21.         End With
    
22.         
    
23.         sPsw = InputBox("Enter a protection password:")
    
24.         For iLoop = 1 To UBound(arr_SheetList)
    
25.             Set myWks = myWkb.Worksheets(arr_SheetList(iLoop, 1))
    
26.             myWks.Unprotect Password:=sPsw
    
27.         Next
    
28.         Call ShowMsgbox("UnProtect.", 1)
    
29.     Exit Sub
    
30. ErrorHandle:
    
31.   Call ShowMsgbox("Password Error ,Please Check it.", 2)
    
32. End Sub

复制代码