统计VBA学习小组正式组第八课（第九讲）的积分帖之作业上交贴（第10周）

木易金

H04木易金8课作业，不好意识我桌面上有两个文件，点错了，不知道什么原因，我下载的文件要另存为才存住，否则存不住。

ls

查找.rar (15.48 KB, 下载次数: 16)

2012-3-5 22:13 上传

点击文件名下载附件

wuhairong2011

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim book As Workbook
   If Sh.Name = "Sheet1" And Target.Address = "$E$5" Then
      Set book = Workbooks.Open(ThisWorkbook.Path & "/价格表.xls")
   End If
Dim z As Integer
Dim c As Integer
With book
  z = Application.CountIf(.[a:a], Range("e5"))
  If z < 0 Then
    Range("e7") = "查找不到"
    Exit Sub
  Else
    c = .[a:a].Find(Range("e5"), , , , , xlNext).Row
    Range("e7") = .Cells(c, 2)
    book.Close
  End If
End With
End Sub
这是我做的成果,结果是错的,,但坚持交业,等待校长给我们讲解做业

君子豹变

君子豹变 发表于 2012-3-3 15:56
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   Dim JJB As Workbook
...

谢谢老师改作业。可是我第一次的错了吗？我不知道。

开心妙妙

B:08开心妙妙

老师，无论如何最终还是没把这题搞掂。
对象变量那里不知道怎样传递
为什么我把 Workbooks("价格表.xls").Close 放在Next i前面
怎么就没 With Workbooks("价格表.xls").Sheets("Sheet1") 这个对象了呢？
练习题.rar (15.72 KB, 下载次数: 3)

2012-3-6 17:23 上传

点击文件名下载附件

DQ空气

什么都锁着还用发表啊   学生看什么啊

jiahua1010

1. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   
2.     Dim wsh As Worksheet
   
3.     Dim i As Integer
   
4.     Dim a, b As String
   
5.     If Sh.Name = "Sheet1" And Target.Address = "$E$5" Then
   
6.         a = Range("E5")
   
7.         Workbooks.Open ThisWorkbook.Path & "/价格表.xls"
   
8.         Set wsh = Workbooks("价格表.xls").Sheets("sheet1")
   
9.         For i = 1 To wsh.Range("A65536").End(xlUp).Row
   
10.             If wsh.Cells(i, 1) = a Then
    
11.                 b = wsh.Cells(i, 2)
    
12.                 Exit For
    
13.             End If
    
14.         Next
    
15.         ActiveWorkbook.Close
    
16.         If b <> "" Then
    
17.             Range("E7").Value = b
    
18.         Else
    
19.             Range("E7").Value = "查找不到"
    
20.         End If
    
21.     End If
    
22. End Sub

复制代码

jiahua1010

看来我是交晚了，也不知道我的结果对不对。

laoau126

4556666