vba 查找和選中

With Worksheets("員工信息統計")

Sheets("員工信息統計").Select

For Each BmCell In .Range("A:C")

If CStr(BmCell) = FORM1.TextBox1.Value Then

If FORM1.TextBox11.Value = "" Then

FORM1.TextBox11.Value = BmCell.Offset(0, 0).Value

FORM1.TextBox21.Value = BmCell.Offset(0, 1).Value

FORM1.TextBox31.Value = BmCell.Offset(0, 2).Value