Question

我是VB6的新手，我想将文本框中的字符串与excel中的单元格进行比较。我用

Dim temp1 As String

Dim temp2 As String

temp1 = A.Text

temp2 = wsheet.Cells（l，3）

i = StrComp（temp1，temp2，vbTextCompare）

但结果从不是函数需要的0。文本格式为x.x.x.x，我在文本字段中从excel复制粘贴。

有什么方法可以解决这个问题吗？

提前谢谢你!!

Answer 1

希望这有帮助，

Option Explicit

Private Sub myCompareText()
    Dim temp1 As String
    Dim temp2 As String
    Dim i As Integer
    temp1 = ActiveSheet.A.Value
    temp2 = ActiveSheet.Range("C1").Value
    i = StrComp(temp1, temp2, vbTextCompare)
    MsgBox "The vbTextCompare Result is: " & CStr(i)
End Sub

请回复是否有效，并将此答案标记为完整答案。

感谢。

Answer 2

现在似乎有用了。我添加了修剪功能，但它没有解决问题。我意识到当我从Excel复制粘贴单元格时，字符串的长度是字符串+2的长度。我在文本字段中输入了我要查找的密钥，它工作正常。感谢您的帮助，如果您对此有所了解，我将不胜感激。

谢谢！

VB6：将Excel中的单元格与文本框中的字符串进行比较

2 个答案: