SamB's questions

我有一张 Excel 表（销售表），它在几列中使用了 INDEX MATCH 函数。有 2 个特定列（产品和零件编号）使用材料编号列从其他表中提取其他值。材料编号列中填充了存储为“常规”的数字，每个单元格都有一个错误，显示“数字存储为文本”。对于产品列来说，“数字存储为文本”不是问题，但对于零件编号列来说是个问题。当我将列更改为“数字”时，零件编号列会自行修复（所以我知道这不是函数的问题）。

此外，零件编号参考表包含物料编号，并且物料编号值没有显示错误。然而，在产品表中，物料编号确实显示错误。

有人能解释为什么以文本形式存储的数字会影响一列而不影响另一列吗？仅供参考：数据源通过 VBA 导入主表，我无法更改输入文件内容。也许我需要在导入时通过 VBA 更改列文本，但我真的想了解为什么它在一处有问题而在另一处没有问题。

产品配方：

=IF([@Location]="Non-AT","Non AT",INDEX(Table_Material,MATCH([@[Material Number]],Table_Material[Material Number],0),MATCH($T$2,'Material No. to Product'!Print_Titles,0)))

零件编号公式：

=INDEX(Table_ATNo,MATCH([@[Material Number]],Table_ATNo[SAP Material Number],0),2)

主表

在我的代码中，我在用户窗体上有一个组合框。用户从下拉列表中选择一个选项，然后用户窗体将选定的值设置为全局变量“monthYearEntered”。

然后我有一个使用全局变量的子程序。但是，全局变量的值没有转移到子程序中。我知道，因为我在用户窗体中创建了变量的 MsgBox，然后在子程序中再次创建了变量的 MsgBox。我在窗体中得到了正确的值，但在程序中却没有。

我研究了一下，找到了一些可能的解决方案，但对我来说都不起作用。在过去的一些代码中，我通过将单元格设置为值，然后引用单元格来设置子程序中的变量，从而找到了一种解决方法。我想避免这种情况，因为它只是一个创可贴。

用户表单代码

Private Sub CBN_OK_Click()

If YearMonthField = "" Then
    MsgBox "Value cannot be blank. Please enter correct value."
    Exit Sub
Else
    monthYearEntered = YearMonthField.Value
    MsgBox monthYearEntered
    Me.Hide
    Application.Run "DeleteMonth"
End If

End Sub

模块

Option Explicit
Dim monthYearEntered As String

Private Sub RangetoDelete()

    Application.DisplayAlerts = False
    
    Dim ws As Worksheet
    Dim tableSalesCombined As ListObject
    Dim cell, rng As Range

    Set ws = ThisWorkbook.Worksheets("Sales Data Combined")
    Set tableSalesCombined = ws.ListObjects("Table_SalesCombined")
    Set rng = ws.Columns("I:I")
    
    DeleteMonthForm.Show 'show user form
    
    'monthYearEntered.ClearContents
    Application.Run "Protect"
    Application.DisplayAlerts = True
    
End Sub

Private Sub DeleteMonth()

    Application.DisplayAlerts = False
    
    Dim ws As Worksheet
    Dim tableSalesCombined As ListObject
    'Dim monthYearValue
    Dim cell, rng As Range

    Set ws = ThisWorkbook.Worksheets("Sales Data Combined")
    Set tableSalesCombined = ws.ListObjects("Table_SalesCombined")
    Set rng = ws.Columns("I:I")
    
    ws.Unprotect Password:=PassW

    'look for value entered by user (monthYearValue)
    Set cell = rng.Find(What:=monthYearEntered, LookIn:=xlFormulas, LookAt:=xlWhole, MatchCase:=False)
    
    MsgBox monthYearEntered
    
    If cell Is Nothing Then
        MsgBox monthYearEntered & "not found in Combined Sales Data.  Please confirm value and try again."
        Exit Sub
    End If
    
    With tableSalesCombined
         .Range.AutoFilter Field:=9, Criteria1:=monthYearEntered
         If Not .DataBodyRange Is Nothing Then
            '.DataBodyRange.SpecialCells(xlCellTypeVisible).Delete
         End If
         '.Range.AutoFilter
    End With

    tableSalesCombined.AutoFilter.ShowAllData
    
    'monthYearEntered.ClearContents
    Application.Run "Protect"
    Application.DisplayAlerts = True
    
End Sub
  

我在受保护的工作表中有一个 Excel 表。我正在尝试执行以下步骤：

1. 添加一个名为“决策”的新列
2. 解锁“决策”列内的单元格
3. 根据另一列“已售”中的值过滤表格（如果某一行显示错误，则保持其可见并隐藏所有其他行）
4. 对所有可见单元格应用数据验证，仅允许 2 个值“删除”或“分类”

我有以下代码。当我运行它时，我没有收到任何错误，但预期单元格中没有验证，并且单元格未解锁。另外，我认为解锁可能应该在过滤之后进行，但请考虑一下。

    Private Sub HandleErrors()

    Dim ws, wsList As Worksheet
    Dim importTable As ListObject
    Dim DecisionColumn As ListColumn
    Dim listRange, valRange, cell As Range
    Dim listOptions As String

    Set ws = Worksheets("Sales Import")
    Set importTable = ws.ListObjects("Table_SalesImport")
    Set wsList = ThisWorkbook.Worksheets("Lists")
    Set listRange = wsList.Range("A1:A2")
    Set cell = ws.Range("W2")
    listOptions = "Delete, Classify"

    ws.Unprotect Password:=PassW

    With importTable

        ws.Unprotect Password:=PassW

        Set DecisionColumn = importTable.ListColumns.Add
        DecisionColumn.Name = "Select Decision"

        Range("W2").Select
        Set valRange = Range(cell, cell.End(xlDown))
        valRange.Locked = False
        valRange.Locked = False

        If .Parent.FilterMode Then .Range.AutoFilter
 
        .Range.AutoFilter Field:=22, Criteria1:="Error"

        With valRange.Validation
            .Delete 'delete previous validation
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
                Formula1:=listOptions
                .IgnoreBlank = True
                .InCellDropdown = True
                .InputTitle = ""
                .ErrorTitle = ""
                .InputMessage = ""
                .ErrorMessage = ""
                .ShowInput = True
                .ShowError = False

        End With

        Application.Run "Protect"

    End With

    End Sub