excel vba-Contains（）的自定義公式

Question

如果我有一個像列：

ColumnA
-------
NUMBER
VARCHAR(50 BYTE)
TIMESTAMP

我正在尋找一個vba函數，它將像這樣工作：

contains（“要搜索的字符串”，要在其中搜索的單元格）即。 = contains（“ VARCHAR”，A2），如果該單元格確實包含它（該單元格中的任何地方-不必開始或結束該單元格），則在該單元格（使用該函數）中填充“ T”，否則填充“ F ”。

所以在我的例子中：

ColumnB
-------
F
T
F

然后我也可以在其他VBA代碼中使用此功能，如下所示：

If Len(A2) > 10 and contains("CHAR",A2) Then
 //do stuff
End If

如果它們必須是單獨的函數（要在返回“ T” /“ F”的單元格中使用並在其他VBA代碼中使用），請同時提供兩者。

Answer 1

您想要VBA的InStr

例如在模塊中；

Public Function Contains(Text As String, Cell As Range) As String
   If InStr(1, Cell.Value, Text, vbTextCompare) Then '//case insensitive
       Contains = "T"
   Else
       Contains = "F"
   End If
End Function

在工作表中啟用=Contains("blah", A1)