DEAR SIR
1.如果RANGE("F12")內是公式. 直接該公式改 =IF(H12-0<0,公式&"負數",公式)
2.IF RANGE("F12")需手動輸入AA123456789.輸入完執行如下 VBA
Sub AA()
X = Sheet1.[H65536].End(xlUp).Row
For Q = 12 To X
If Sheet1.Cells(Q, 8) - 1 < 0 Then
Cells(Q, 6).Value = Cells(Q, 6).Value & "負數"
End If
Next
End Sub作者: tku0216 時間: 2014-12-23 15:27