註解問題

myleoyes

各位前輩你們好!
         問題如附檔說明
         請知道的前輩,不吝賜教謝謝再三!!

GBKEE

回復 1# myleoyes

1. Sub 特別()  'Sub 常態() Sub 額外() 請依樣畫葫蘆
   
2.     ZZ = Application.InputBox("請輸入數字", "特別數字？！", Type:=1)
   
3.     If ZZ = False Then End
   
4.     If [M79] = "" Then
   
5.        [M79] = "=" & ZZ
   
6.        Else
   
7.     If ZZ <> False Then [$M$79] = "=" & ZZ & "+" & Mid([$M$79].FormulaR1C1, 2)
   
8.     End If
   
9.     M79註解 Format(Date, "MM/DD") & " 特別 " & ZZ   
   
10. End Sub
    
11. Sub M79註解(註解 As String)
    
12.     With Range("M79")
    
13.         .NoteText .NoteText & IIf(.NoteText <> "", Chr(10), "") & 註解
    
14.         .Comment.Shape.TextFrame.AutoSize = True
    
15.     End With
    
16. End Sub
    
17. Sub 複製註解()
    
18.      With Range("BA2")
    
19.         .NoteText Range("M79").NoteText
    
20.         .Comment.Shape.TextFrame.AutoSize = True
    
21.     End With
    
22. End Sub

複製代碼

myleoyes

回復 2# GBKEE
良師!哇!!太感激囉!!完全正確謝謝再三!!辛苦囉!!