作者jie123 (jie123)
看板ask
标题Fw: [算表] 纪录曾经是1的位置
时间Fri Feb 5 20:42:12 2016
※ [本文转录自 Office 看板 #1Mj3m_kT ]
作者: 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
※ 发信站: 批踢踢实业坊(ptt.cc)
※ 转录者: jie123 (118.169.70.197), 02/05/2016 20:42:12
※ 编辑: jie123 (118.169.70.197), 02/05/2016 20:43:13