这个比较复杂，新手真心求助，请高手帮下忙

txj@yym

先看看这个vba代码哪里错了，
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i, rowsmax
i = 1
For i = 1 To rowsmax
Worksheets("标养强度").cells(8, 3) = Worksheets("配料单台账").cells(i, 7)
If Worksheets("配料单台账").cells(i, 3) = Worksheets("标养强度").cells(7, 15) Then Exit For
Next i
End Sub

yygpd500

既是真心求助，那就真心回贴了，^_^，如下：
rowsmax变量未赋值！

事后补：在循环体中使用Worksheets("标养强度").cells(7, 15)这样的方法，极大降低代码运行速度，很糟糕。应该用一变量去代替它如下：
Dim TheValue as variant
TheValue=Worksheets("标养强度").cells(7, 15).Value
然后再在循环体中使用If Worksheets("配料单台账").cells(i, 3) = TheValue Then ……

下列代码供参考：

1. 
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3.     Dim i As Long, rowsmax As Long, TheValue As Variant
   
4.     TheValue = Worksheets("标养强度").Cells(7, 15).Value '因为TheValue定义为变体型变量，.Value不可省
   
5.     i = 1
   
6.     rowsmax = 100 '不知你意图，假定了个数值
   
7.     With Worksheets("配料单台账")
   
8.         For i = 1 To rowsmax
   
9.             Worksheets("标养强度").Cells(8, 3) = .Cells(i, 7)
   
10.             If TheValue = .Cells(i, 3) Then Exit For
    
11.         Next i
    
12.     End With
    
13. End Sub
    

复制代码

txj@yym

非常谢谢呢，运行时就有点下标越界，是With Worksheets("配料单台账")
呵呵，非常感谢前辈每一够的后面都给解答，我的意图还另外发了个帖，那个上传EXCEL附件了，后面有说明。

txj@yym

yygpd500 发表于 2012-5-17 23:17
既是真心求助，那就真心回贴了，^_^，如下：
rowsmax变量未赋值！

谢谢您，只是不知道为什么With Worksheets("配料单台账")
提示下标越界