2015年VBA初级1班A组（第3节课）作业上交贴（已开贴）

josonxu

1.严格按照要求做题
2.作业以附件形式上交


答案：（希望你们能灵活运用，selection）

Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.Count = 1 Then
    MsgBox Target.Address(0, 0) & "单元格的内容发生变化！"
End If
End Sub

tinty

交作业啦

C.Deny

A14:C.Deny上交第三讲作业
A14-C.Deny第03讲作业 - 监控工作表内容变化.rar (20.47 KB, 下载次数: 12)

2015-6-23 19:14 上传

点击文件名下载附件

incrediblesky

1. Public s

复制代码

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. s = Target.Value
   
3. End Sub

复制代码

1. Sub t1()
   
2. Dim rg As Range
   
3. If Selection.Columns.Count > 1 And Selection.Rows.Count > 1 Then Exit Sub
   
4. For Each rg In Selection
   
5. If rg.Value = s Then Exit Sub
   
6. MsgBox Split(rg.Address, "$")(1) & Split(rg.Address, "$")(2) & "单元格中的内容发生变化!"
   
7. Next
   
8. End Sub
   

复制代码

Excel VBA 第03讲作业 -YAN.rar (20.04 KB, 下载次数: 5)

2015-6-23 17:55 上传

点击文件名下载附件
做不出来了，不会了

linshaosheng12

辛苦学委了