返回列表 上一主題 發帖

[發問] 請問註解的字可以變動嗎

我只會用註解的方式...試試.
E8欄位必須先有註解
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.   
  3.   With Sheets("工作表1")
  4.     If Target.Row = 12 And Target.Column = 5 Then
  5.       If .Cells(8, 5) <> "" Then
  6.         Dim str As String
  7.         str = "此數字比e12的值大" & .Cells(8, 5) - .Cells(12, 5)
  8.         .Range("e8").Comment.Text Text:=str
  9.       End If
  10.     End If
  11.   End With
  12.   
  13. End Sub
複製代碼
是學程式而不是要程式,是進步的基礎

TOP

        靜思自在 : 【是否發揮了良能?】人間壽命因為短暫,才更顯得珍貴。難得來一趟人間,應問是否為人間發揮了自己的良能,而不要一味求長壽。
返回列表 上一主題