如何用VBA語制作壹個搜索工具？

如圖，是sheet1，sheet2，？按鈕中的代碼如下:

私有子命令按鈕1_Click（）

fd = 0

單元格（3，2）=““

每張表中的e（“表1”）。範圍（“a:a”）

if e . Text = Cells（2，2）。那就發短信

fd = 1

單元格（3，2）=張（“Sheet1“）。單元格（第2行）

如果…就會結束

如果e.Text =““那麽

如果fd = 0則

MsgBox“未找到記錄”

如果…就會結束

出口到

如果…就會結束

下壹個e

末端接頭