[编程申请]：Excel VBA的编程求教

hgqhq

请问：在工作表2(Sheet2)中的A1单元格中输入101后，怎样实现在B1和C1单元格中自动出现Sheet1中101对应的C1和D1单元格中的内容。
示例文件如下

efan2000

引用另一张工作表上的单元格或区域

工作簿必须包含多张工作表 。

1、单击需要输入公式的单元格。

2、键入 ＝（等号）。

3、单击需要引用的工作表标签。

4、选定需要引用的单元格或单元格区域。

5、完成公式。

也可以直接在单元格B1中输入“=Sheet1!C2”。在单元格C1中输入“=Sheet1!D2”。其它的操作类似。

hgqhq

这样做格式就固定了。我的意思是如果在Sheet2中的随便一个位置输入例如101后，在它的同一行的后面就会自动出现Sheet1中对应的101后的内容。

efan2000

一种是使用相对引用的方式，如：C1=OFFSET(Sheet1!B2,0,1)，D1=OFFSET(Sheet1!B2,0,2)。
另一种就是使用编程来解决。如：在Sheet2中写入下面的代码，当输入101时，触发事件，在Sheet1中的第2列查找与之相等的值，如果找到，那么将它同一行之后的数据复制到Sheet2中。

2. 
   
3.   [FONT=courier new]
   
4. Private Const SearchColumn As Integer = 2 '要查找的列
   
5. 
   
6. Private Sub Worksheet_Change(ByVal Target As Range)
   
7.     If Target.Count <> 1 Then Exit Sub
   
8.     Dim i As Integer
   
9.     Dim j As Integer
   
10.     For i = 1 To Sheet1.UsedRange.Rows.Count
    
11.         If Sheet1.Cells(i, SearchColumn).Text = Target.Text Then
    
12.             For j = SearchColumn + 1 To Sheet1.UsedRange.Columns.Count
    
13.                 Target.Offset(0, j - SearchColumn) = Sheet1.Cells(i, j)
    
14.             Next
    
15.             Exit For
    
16.         End If
    
17.     Next
    
18. End Sub
    
19.   [/FONT]
    

<br />   [FONT=courier new]<br /> Private Const SearchColumn As Integer = 2 '要查找的列<br /> <br /> Private Sub Worksheet_Change(ByVal Target As Range)<br />     If Target.Count <> 1 Then Exit Sub<br />     Dim i As Integer<br />     Dim j As Integer<br />     For i = 1 To Sheet1.UsedRange.Rows.Count<br />         If Sheet1.Cells(i, SearchColumn).Text = Target.Text Then<br />             For j = SearchColumn + 1 To Sheet1.UsedRange.Columns.Count<br />                 Target.Offset(0, j - SearchColumn) = Sheet1.Cells(i, j)<br />             Next<br />             Exit For<br />         End If<br />     Next<br /> End Sub<br />   [/FONT]<br />

hgqhq

我又有新的想法：
在Sheelt2中第二列输入零件号，在随后的第三列输入数量（最大不超过Sheet1中对应的数量），怎样产生如附件所示的格式；重量和数量要一一对应。

efan2000

一、将Sheet2中的重量更改为重量(kg)。
二、在Sheet2中粘贴下面的代码，

2. 
   
3.   [FONT=courier new]
   
4. Private Const SearchColumn As Integer = 2 '要查找的列
   
5. 
   
6. Private Sub Worksheet_Change(ByVal Target As Range)
   
7.     If Target.Count <> 1 Then Exit Sub
   
8.     Dim j As Integer
   
9.     Dim i As Integer
   
10.     On Error Resume Next
    
11.     If Target.Column = SearchColumn Then
    
12.         j = GetRow(Target.Row, SearchColumn)
    
13.         For i = SearchColumn + 1 To Sheet2.UsedRange.Columns.Count
    
14.             Target.Offset(0, i - SearchColumn) = Sheet1.Cells(j, GetColumn(i)).Text
    
15.         Next
    
16.     ElseIf Target.Column = SearchColumn + 1 Then
    
17.         j = GetRow(Target.Row, SearchColumn)
    
18.         i = Sheet1.Cells(j, GetColumn(SearchColumn + 1)).Text
    
19.         Target.Offset(0, 1) = Sheet1.Cells(j, GetColumn(SearchColumn + 2)).Text / i * Target.Text
    
20.     End If
    
21. End Sub
    
22. 
    
23. Private Function GetRow(ByVal RowIndex As Integer, ByVal ColumnIndex As Integer) As Integer
    
24.     Dim j As Integer
    
25.     j = GetColumn(ColumnIndex)
    
26.     Dim i As Integer
    
27.     For i = 2 To Sheet1.UsedRange.Rows.Count
    
28.         If Sheet1.Cells(i, j).Text = Sheet2.Cells(RowIndex, ColumnIndex).Text Then
    
29.             GetRow = i
    
30.             Exit For
    
31.         End If
    
32.     Next
    
33. End Function
    
34. 
    
35. Private Function GetColumn(ByVal ColumnIndex As Integer) As Integer
    
36.     Dim i As Integer
    
37.     For i = 1 To Sheet1.UsedRange.Columns.Count
    
38.         If Sheet1.Cells(1, i).Text = Sheet2.Cells(1, ColumnIndex).Text Then
    
39.             GetColumn = i
    
40.             Exit For
    
41.         End If
    
42.     Next
    
43. End Function
    
44.   [/FONT]
    

<br />   [FONT=courier new]<br /> Private Const SearchColumn As Integer = 2 '要查找的列<br /> <br /> Private Sub Worksheet_Change(ByVal Target As Range)<br />     If Target.Count <> 1 Then Exit Sub<br />     Dim j As Integer<br />     Dim i As Integer<br />     On Error Resume Next<br />     If Target.Column = SearchColumn Then<br />         j = GetRow(Target.Row, SearchColumn)<br />         For i = SearchColumn + 1 To Sheet2.UsedRange.Columns.Count<br />             Target.Offset(0, i - SearchColumn) = Sheet1.Cells(j, GetColumn(i)).Text<br />         Next<br />     ElseIf Target.Column = SearchColumn + 1 Then<br />         j = GetRow(Target.Row, SearchColumn)<br />         i = Sheet1.Cells(j, GetColumn(SearchColumn + 1)).Text<br />         Target.Offset(0, 1) = Sheet1.Cells(j, GetColumn(SearchColumn + 2)).Text / i * Target.Text<br />     End If<br /> End Sub<br /> <br /> Private Function GetRow(ByVal RowIndex As Integer, ByVal ColumnIndex As Integer) As Integer<br />     Dim j As Integer<br />     j = GetColumn(ColumnIndex)<br />     Dim i As Integer<br />     For i = 2 To Sheet1.UsedRange.Rows.Count<br />         If Sheet1.Cells(i, j).Text = Sheet2.Cells(RowIndex, ColumnIndex).Text Then<br />             GetRow = i<br />             Exit For<br />         End If<br />     Next<br /> End Function<br /> <br /> Private Function GetColumn(ByVal ColumnIndex As Integer) As Integer<br />     Dim i As Integer<br />     For i = 1 To Sheet1.UsedRange.Columns.Count<br />         If Sheet1.Cells(1, i).Text = Sheet2.Cells(1, ColumnIndex).Text Then<br />             GetColumn = i<br />             Exit For<br />         End If<br />     Next<br /> End Function<br />   [/FONT]<br />

xiaogengxu

最初由 efan2000 发布
[B]一、将Sheet2中的重量更改为重量(kg)。
二、在Sheet2中粘贴下面的代码，

[/B]

请问在Sheet2中什么地方粘贴下面的代码。

hgqhq

菜单：工具-宏-VISUAL BASIC编辑器