Tag: 文本比较

Excel VBA：将CompareMode设置为TextCompare与“Dictionary”时，“无效过程调用或方法”

出于某种原因，我无法将字典offONameDic的CompareMode设置为TextCompare 。 我不断收到"Invalid Procedure or Call Error" 。 我想确保用户提供的提供密钥的大小写不会影响字典将密钥识别为有效的能力，即如果密钥是“hello”，“Hello”也会被识别为密钥。 请注意，我使用VBA Excel中已安装库的列表中的Microsoft Scripting Runtime Reference 我的代码： Sub Main() '…code… Dim offONameDic As Scripting.Dictionary '…code… Set offONameDic = New Scripting.Dictionary With offONameDic .Add "Blood", "Blood" .Add "Liver", "Liver" .Add "Kidneys", "Kidneys" .Add "Kidney", "Kidneys" .Add "Spleen", "Spleen" .Add "Heart", "Heart" .Add "Lungs", "Lungs" .Add "Lung", "Lungs" .Add […]

Excel使用vbTextCompare在单元格中循环来分配类别

我有一个电子表格，每行包含一个汇总列（K列）。 我需要匹配概要列中的某些单词，以便在新列（第V列）中分配类别名称。 我试着用一个正常的excel来做这个事情。如果声明但是我已经find了一个限制。 所以现在我试图使用下面的VBA代码。 Public Function getCategory() V_End_Of_Table = ActiveSheet.UsedRange.Rows.Count 'count the number of rows used' Dim cell As Range For Each cell In Range("K2:K" & V_End_Of_Table) 'loop through each row until end of table' If InStr(1, cell.Value, "Nationalities", vbTextCompare) > 0 Then Range("V" & V_End_Of_Table).Value = "Nationalities" Else Range("V" & V_End_Of_Table).Value = "No Match […]