数据输入及在另一个表中显示

[dragoniwn]

在一个EXCEL工作簿中，有两个表：A和B。内容如下：其中AB两个表格中都有相同列：合同号，B表中有所有合同号列的内容，现在想A表中合同号列输入资料后，所对应的B合同号列相同内容所在的行就会充填着色显示出来。如在A表合同号列中输入GA090506001后，B表合同号列对应的GA090506001行就会填充显示！谢谢大家!!! EXCEL文件如附件

A表：
项目编号 项目名称 签约单位 合同号
1 PA0001 光明医院 GA090506001
2 PA0002 希望小学
3 PA0003 长虹公司
4
5
6
7
8
9

B表：
合同号 所需物料 工时 项目负责人
GA090506001 灯管、线材 5天 张生
GA081226005 木材、地砖 12天 李生
GA090100901 电阻、电容 8天 王生
GA100316004 IC、线路板 30天 刘生
GA090909003 塑胶料 15天 邓生
GA071201008 五金材料 40天 叶生
GA100709001 泡沫 26天 蒋生

[booksoon]

Private Sub Worksheet_Change(ByVal Target As Range)
myhth = Trim(Target.Value)
For i = 2 To ThisWorkbook.Worksheets("sheet2").UsedRange.Rows.Count
If myhth = Trim(ThisWorkbook.Worksheets("sheet2").Cells(i, 1).Value) Then
ThisWorkbook.Worksheets("sheet2").Activate
myrange = Trim(Str(i)) & ":" & Trim(Str(i))
ThisWorkbook.Worksheets("sheet2").Rows(myrange).Select
With Selection.Interior
.ColorIndex = 45
End With
Exit For
End If
Next i

End Sub

[dragoniwn]

謝謝樓上的兄弟,請問能詳細點嗎?

[booksoon]

够详细了吧~~~
在sheet1的Worksheet_Change事件过程中写入上面的代码应该就可以了

[dragoniwn]

再次謝謝您的回復.再請問您一下,您的代碼是工作表區域變更事件,能不能只定位到某一列事件的改變,即這一列輸入數據後就會觸發這個事件,也就是請問有沒有列變更事情.謝謝.

[dragoniwn]

我将A表的中行资料选择复制，也会出现错误提示。请问能去掉这个吗？