返回列表 上一主題 發帖

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

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

如附件
如果e12的值變為100
註解的數字可以變成多500嗎(註解的字可以隨值變動嗎)

活頁簿1.rar (5.19 KB)

jeason

我只會用註解的方式...試試.
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

回復 1# brabus


變更註解文字要靠vba

變更圖框內的文字做法
在A1輸入="此數字比e12的值大"&E8-E12
選取圖框
在資料編輯列輸入=$A$1
希望是您要的功能
變更圖框內文字.rar (5.24 KB)
機器人三大定律-保護人類、服從命令、保護自己
我的三大定律-生命、生存、生活

TOP

感謝2位的解答
這的高手太多了
謝謝
jeason

TOP

回復  brabus


變更註解文字要靠vba

變更圖框內的文字做法
在A1輸入="此數字比e12的值大"&E8-E12
...
asimov 發表於 2010-10-5 23:40



    請問如果我要讓註解出現在不同的格子的話呢,要怎樣設定
比方說e欄有600,500,400,300,200,100等項目
某欄有計算值,當他計算後的數字是400時,400那欄出現圖文框,當他計算後的數字是600時,600那欄出現圖文框,
這要怎樣作呢
jeason

TOP

回復 5# brabus
請上你的範例 . 類似如此嗎?
變更圖框內文字.rar (10.79 KB)

TOP

回復 6# GBKEE


    謝謝您的回覆
可是不是我畏的效果
如果在b3輸入sdd則在sdd處出現圖文框
如果在b3輸入ggg則在ddd處出現
有可能sdd和ggg離7~8個格子或10個儲存格
全看b3計算後的數字決定
jeason

TOP

回復 7# brabus
你沒附上檔案 給範例 很難理解啊!!!

TOP

回復 8# GBKEE


    請看看囉

活頁簿1.rar (3.13 KB)

jeason

TOP

回復 9# brabus
請看附檔

變更圖框內文字.rar (11.53 KB)

TOP

        靜思自在 : 道德是提昇自我的明燈,不該是呵斥別人的鞭子。
返回列表 上一主題