发出号码并以另一种formssearch

我试图要求雇员的身份证号码，然后寻找另一种forms来find这名雇员。 我知道一个事实，即我的Mail_Alert工作和PN正在复制数字，但它没有检测到其他forms的一面。

Sub Find_Employee() Dim PN As String PN = Worksheets("Sheet3").Cells(1, "B").Value Range("B2") = PN Worksheets("Sheet4").Activate Range("C2").Activate Do Until IsEmpty(ActiveCell.Value) If ActiveCell.Value = "PN" Then Call Mail_Alert End If ActiveCell.Offset(1, 0).Select Loop End Sub 

Answer 1

 Dim PN As String 

这里PN是一个variables，一个编程符号 。

 If ActiveCell.Value = "PN" Then 

这里"PN"是一个string文字，一个符号可以有的值 ，比如ActiveCell.Value可以。 但是这个条件可能意味着validationActiveCell.Value是否匹配PN （variables）包含的内容，而不是"PN" （文字值）。

在VBA中，双引号表示string文字。 删除它们。

Answer 2

请使您的代码更好，不要使用工作表（“Sheet4”）。激活：

 Option Explicit Sub Find_Employee() Dim PN As String Dim sh As Worksheet Set sh = Worksheets("sheet4") PN = Worksheets("Sheet3").Cells(1, "B").Value Range("B2") = PN With sh Do Until IsEmpty(.Range("C2").Value) If .Range("C2").Value = PN Then Call Mail_Alert End If Loop .Activate 'activate sheet because wants to select Range("C2").Offset(1, 0) for some reason Range("C2").Offset(1, 0).Select End With End Sub