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

海角天涯0

C16：海角天涯0
作业是同学们帮助做的，我是一点思路都没有，还是等老师下次上课讲解了

tcn541

辛苦老师，继续努力

vbamaster

第8课作业题查找.rar (11.81 KB, 下载次数: 13)

2012-3-4 22:48 上传

点击文件名下载附件
D05:vbamaster

libenwen2011

16组libenwen2011    (UID: 514207)

libenwen2011

16组libenwen2011    (UID: 514207)

jinglingshu

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim rg As Workbook
    Dim i As Range
    Dim S As String
    If Sh.Name = "Sheet1" And Target.Address = "$E$5" Then
        Application.EnableEvents = False
        Application.ScreenUpdating = False
        Set rg = Workbooks.Open(ThisWorkbook.Path & "/价格表.xls")
        For Each i In rg.Sheets("sheet1").[A2:A7]
            If i = Target Then
                S = i.Offset(0, 1)
                GoTo 8
            End If
        Next
        S = "查找不到"
    End If
8: rg.Close
    [E7] = S
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

wangchangjun

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim x As Integer
    Dim arr()
    ReDim arr(1 To 6, 1 To 2)
    If Sh.Name = "Sheet1" And Target.Address = "$E$5" Then
        Workbooks.Open ("I:\第8课作业题查找\价格表.xls")
        arr = Range("a2:b7")
        Workbooks("价格表.xls").Close
        For x = 1 To 6
            If arr(x, 1) = Range("e5").Value Then
                Range("e7").Value = arr(x, 2)
                Exit Sub
            Else
                Range("e7").Value = "没有找到"
            End If
        Next
    Else
    End If
End Sub

w2001pf

第8课作业题答题.rar (21.03 KB, 下载次数: 23)

2012-3-5 07:17 上传

点击文件名下载附件
H07:w2001pf

auroral

作业还没批改吧？

木易金

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