- 帖子
- 62
- 主題
- 10
- 精華
- 0
- 積分
- 253
- 點名
- 0
- 作業系統
- xp , win7
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 人心
- 註冊時間
- 2010-5-21
- 最後登錄
- 2012-8-3
|
我只會用註解的方式...試試.
E8欄位必須先有註解- Private Sub Worksheet_Change(ByVal Target As Range)
-
- With Sheets("工作表1")
- If Target.Row = 12 And Target.Column = 5 Then
- If .Cells(8, 5) <> "" Then
- Dim str As String
- str = "此數字比e12的值大" & .Cells(8, 5) - .Cells(12, 5)
- .Range("e8").Comment.Text Text:=str
- End If
- End If
- End With
-
- End Sub
複製代碼 |
|