作者Linkey (Linkey)
看板Office
标题Re: [算表] 当某栏位符合条件 执行巨集
时间Wed Jun 15 15:24:06 2016
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
: 请问有人知道是怎麽办到的吗?
: 因为我现在要制作的档案会给很多人填写
: 不希望使用者打开时还会要问是否启用巨集等安全等级问题
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 36.226.237.133
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1465975451.A.C58.html
※ 编辑: Linkey (36.226.237.133), 06/15/2016 15:25:22
※ 编辑: Linkey (36.226.237.133), 06/15/2016 15:30:00
1F：推 olivefox: 请问private做什麽用呢? 我这麽做没反应 是不是还有 06/15 16:15
2F：→ olivefox: 什麽我没注意到的(抱歉我道行很浅) 06/15 16:15
6F：→ Linkey: 我的 VBA 基础都从这里学的，每天花一点时间看，值得的 06/15 16:23
7F：推 olivefox: 谢谢我懂了!我会找时间好好研读的！ 06/15 20:25