2015年VBA初级1班 B组第3讲作业上交贴 已开贴

qh8600

2015年VBA初级1班 B组作业上交贴
第3讲课程视频  http://www.excelpx.com/thread-366193-1-1.html
第3讲课件 http://www.excelpx.com/thread-366157-1-1.html
第3讲作业 http://www.excelpx.com/thread-366169-1-1.html

要求：
1、提交作业请注明论坛ID及学号。如：B19-白开水的微笑；
2、作业请以代码方式提交，标清题号并所有题贴到一个代码标签中，无需提交附件。不会使用标签可移步妙妙班长帖子：http://www.excelpx.com/thread-322284-1-1.html
3、代码题要求强制声明变量，代码缩进及代码注释(缺少任何一项按错误处理没有分)；
4、跟帖不要重复占楼,有问题直接在原帖编辑;
5、非本组学员请勿跟帖，否者往死里扣分；
6、作业截止时间：2015年6月23日18:00时

ZL在水一方

B17-ZL在水一方

1. Option Explicit
   
2. Dim K As String '定义模块级变量
   
3. Private Sub Worksheet_Change(ByVal Target As Range) '改变事件，判断选定单元格的输入内容是否与之前一致
   
4.     With Target
   
5.         If .Cells.Count = 1 Then    '单个单元格变化执行下面语句，多个单元格变化不执行
   
6.             If .Value <> K Then MsgBox .Address(0, 0) & "单元格的内容发生变化！"    '当单元格内容发生变化时弹出窗口提示
   
7.         End If
   
8.     End With
   
9. End Sub
   
10. Private Sub Worksheet_SelectionChange(ByVal Target As Range) '选择事件，记录选中单元格的当前值
    
11.     With Target
    
12.         If .Cells.Count = 1 Then    '对选中的单元格内容进行赋值，即记录当前的值
    
13.             K = .Value
    
14.         End If
    
15.     End With
    
16. End Sub

复制代码

JLxiangwei

B11-JLxiangwei

1. Dim strAddress As String
   
2. Dim RngValue As Variant
   
3. Private Sub Worksheet_Change(ByVal Target As Range)
   
4.     If RngValue <> Range(strAddress).Value Then
   
5.         MsgBox strAddress & "单元格中的内容发生变化"
   
6.     End If
   
7. End Sub
   
8. 
   
9. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
10.     If Selection.Count > 1 Then Exit Sub
    
11.     strAddress = Selection.Address(0, 0)
    
12.     RngValue = Selection.Value
    
13. End Sub

复制代码

opqazxc

弄错号回复了``
B10-opqazxc

1. Option Explicit
   
2. 
   
3. Dim va As Variant    '单元格变化前的值）定义模块型变量va,声明变量va的类型为变体型
   
4. Dim targetcount As Long    '选定区域单元格的个数）定义模块型变量targetcount,声明变量targetcount的类型为长整形
   
5. 
   
6. Private Sub Worksheet_SelectionChange(ByVal Target As Range)    '当工作表上的选定区域发生改变时发生此事件。
   
7.     targetcount = Target.Count    '给变量赋值,等于选定区域单元格的个数
   
8.     If targetcount = 1 Then    '判断选定区域单元格的个数是否为1,是的话给变量va赋值
   
9.         va = Target.Value    'va=选定单元格的值,即单元格内容变化前的值
   
10.     End If
    
11. End Sub
    
12. 
    
13. Private Sub Worksheet_Change(ByVal Target As Range)    '当用户更改工作表中的单元格，或外部链接引起单元格的更改时发生此事件。
    
14.     If targetcount > 1 Then           '判断选定区域单元格的个数是否大于1,是的话不进行任何操作,否的话继续下面的判断
    
15.     ElseIf va <> Target Then    '判断变化后单元格的值与变化前的值是否不一致,是的话弹出下面的提示框,并给变量va重新赋值
    
16.         MsgBox Target.Address(False, False) & "单元格中的内容发生变化!"    'Range.Address属性,第一参数设置行(第二参数设置列)是否绝对引用,默认按绝对引用
    
17.         va = Target.Value    'va再重新赋值为单元格变化后的值
    
18.     End If
    
19. End Sub

复制代码

``

xcnclzy

B:12-xcnclzy 第3讲作业

1. Option Explicit
   
2. Dim a
   
3. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
4.      a = Target.Value
   
5. End Sub
   
6. Private Sub Worksheet_Change(ByVal Target As Range)
   
7.      If Target.Cells.Count > 1 Then Exit Sub
   
8.      If Target.Cells.Count = 1 Then
   
9.          If Target.Value = a Then Exit Sub
   
10.          MsgBox Target.Address(0, 0) & "单元格中的内容发生变化！"
    
11.      End If
    
12. End Sub
    

复制代码

qousan

B13 - qousan 第三讲作业

1. Option Explicit '要求变量声明
   
2. 
   
3. Dim lastValue As String '定义单元格内容“改变”前的内容
   
4. 
   
5. 
   
6. Private Sub Worksheet_Change(ByVal Target As Range) '工作表改变事件
   
7.     If Selection.Count = 1 And lastValue <> Target.Value Then '如果选区为单个单元格，且内容发生了改变，则
   
8.         MsgBox Target.Address(RowAbsolute:=False, ColumnAbsolute:=False) & "单元格中的内容发生变化！" '输出相关信息提示
   
9.     End If
   
10. End Sub
    
11. 
    
12. 
    
13. Private Sub Worksheet_SelectionChange(ByVal Target As Range) '工作表选区改变事件
    
14.     If Target.Count = 1 Then lastValue = Target.Value '如果选区为单个单元格，则用lastValue记录其值
    
15. End Sub
    

复制代码

lvxia

1. 没实现效果，不会做……
   
2. 
   
3. Private Sub Worksheet_Change(ByVal Target As Range)
   
4.     Dim arr As Variant '定义一个数组名
   
5.     arr = Split(Target.Address, "$") '给数组赋值
   
6.     If Target.Count = 1 Then '如果选中单元格数量等于1
   
7.         MsgBox arr(1) & arr(2) & "单元格中的内容发生变化!" '那么输出该单元格内容发生变化提示
   
8.     End If
   
9. End Sub

复制代码

砂海

1. Option Explicit
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     Dim ts As String                                                                 '定义输出文本
   
4.     ts = Selection.Address(0, 0) & "单元格的内容发生变化!"                           '计算输出文本
   
5.     If Selection.Rows.Count * Selection.Columns.Count = 1 Then MsgBox ts, vbOKOnly   '判断,弹出对话框
   
6. End Sub
   

复制代码

挤出来这个

朵朵mila

1. 不会做。

复制代码

B21:朵朵mila

采姑娘的小蘑菇

学委请指正！

1. Option Explicit
   
2. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   
3.     If Target.Count = 1 Then
   
4. '当目标单元格为数量为1时执行
   
5.         MsgBox Target.Address(0, 0) & "单元格中的内容发生变化！"
   
6. '显示内容改变的单元格相对地址
   
7.     End If
   
8. End Sub

复制代码