作者jie123 (jie123)
看板Office
标题Re: [算表] 纪录曾经是1的位置
时间Fri Feb 5 14:07:56 2016
A B C
1 0
2 0
3 1 OK
4 0
5 0
6 0
7 1 0K
8 0
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then
ThisRow = Target.Row
If Target.Value = 1 Then
Range("B" & ThisRow) = "OK"
Else
End If
End If
End Sub
A栏如果不是公式，数字由0改1会显式OK
A栏如果是excel公式，0变1不会显式OK
请问VBA公式如何修正为:A栏如果是excel公式，0变1会显式OK
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 60.248.19.151
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1454652479.A.B9D.html
1F：→ soyoso: 可以range.hasformula来取得是否为公式 02/05 14:18
2F：→ jie123: 网路上看很久百思不解,请问要怎麽应用呢?谢谢! 02/05 18:14
3F：→ soyoso: 配合if，target为range，在後面接上hasformula来判断 02/05 19:58
※ jie123:转录至看板 ask 02/05 20:42