Re: [算表] 当某字段符合条件 执行宏

楼主: Linkey (Linkey)   2016-06-15 15:24:06
1.Refer:https://msdn.microsoft.com/zh-tw/library/office/ff839775.aspx
在worksheet里新增事件
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A11")) Is Nothing _
And Target.Value = "A" Then
MsgBox "Run Sub A"
ElseIf Not Intersect(Target, Range("A11")) Is Nothing _
And Target.Value = "B" Then
MsgBox "Run Sub B"
End If
End Sub
2.宏安全等级算是保护系统,要教育使用者正确观念
不要随意开启不信任的档案,略过有点本末倒置,以上个人观点
存盘时选取excel 97-2003 xls,而非 xlsx 就不会强制xlsm
※ 引述《olivefox (Olive)》之铭言:
: 软件:excel
: 版本:
: 两个问题
: 1. 请问有没有办法
: 比如当SHEET1 A11="A"时,就执行某宏
: 当A11="B"时,就执行某另一宏
: 2. 我看过有个EXCEL档案是.xls
: 但是它里面是有宏的
: 但是我有宏的档案excel都要求我存成xlsm
: 请问有人知道是怎么办到的吗?
: 因为我现在要制作的档案会给很多人填写
: 不希望使用者打开时还会要问是否启用宏等安全等级问题
作者: olivefox (Olive)   2016-06-15 16:15:00
请问private做什么用呢? 我这么做没反应 是不是还有什么我没注意到的(抱歉我道行很浅)
楼主: Linkey (Linkey)   2016-06-15 16:20:00
https://www.youtube.com/watch?v=ZnnCm7tyqlghttps://www.youtube.com/watch?v=0EXdPcbsTZIhttps://goo.gl/Yr0ICr 我推荐看完这一系列我的 VBA 基础都从这里学的,每天花一点时间看,值得的
作者: olivefox (Olive)   2016-06-15 20:25:00
谢谢我懂了!我会找时间好好研读的!

Links booklink

Contact Us: admin [ a t ] ucptt.com