Re: [算表] 紀錄曾經是1的位置

[jie123 (jie123)]

        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://www.ptt.cc/bbs/Office/M.1454652479.A.B9D.html
→ soyoso: 可以range.hasformula來取得是否為公式
→ jie123: 網路上看很久百思不解,請問要怎麼應用呢?謝謝!
→ soyoso: 配合if，target為range，在後面接上hasformula來判斷
※ jie123:轉錄至看板 ask                                           02/05 20:42