前言:今天在写一段VBA代码之后,遇到一个问题,
Excel每次保存时就报一个警告(使用的是office 2007):
此文档中包含宏、Activex控件、XML扩展包信息
用起来很不爽!
----------------------------------------------------------------------------------------------------------------------------
但是,在2003中打开这个Excel文件,保存时,警告信息是 ”保存时从文件属性中删除个人信息“
可以根据警告的错误提示,很容易解决~
“工具”--》“选项" --》"在安全"选项卡中——》”保存时从文件属性中删除个人信息” 选上
2003
2007
-----------------------------------------------------------------------------------------------------------------------------
于是根据2003的错误提示信息,找到了2007的设置的位置~
2007:
错误信息:此文档中包含宏、Activex控件、XML扩展包信息
解决:excel选项----- ----信任中心---- ----信任中心设置---- -----个人信息选项------
"セキュリティセンタ"----"セキュリティセンタの設定"----"プライバシーオプション"----
在这里选上 “文档特定设置”下的“保存时从文件属性中删除个人信息”
===
-------------------------------------------
以下是这次写的VBA代码,
通过改变一个单元格的内容,出发一个事件,根据改变的内容,进行相应的处理。
具体内容是,有一个单元个,里面的内容可以选择,分别是”1 选择;2填空;3读程序;4写代码“
这里,实现的是,选择部分的列
(注:也就是选择题时,会有四个选项,所占的4列,填空题时,不需要这4列)
A
B
C
D
当题型"1选择"被选中时,显示,没有被选中时,隐藏
这里面需要学习的是对这种事件接收的处理的写法。
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$E$1" Then
If Range("E1").Value = "1 選択" Then
Rows("4:7").Select
Range("B4").Activate
Selection.EntireRow.Hidden = False
End If
If Range("E1").Value <> "1 選択" Then
Rows("4:7").Select
Range("B4").Activate
Selection.EntireRow.Hidden = True
End If
End If
Application.EnableEvents = True
End Sub