麻辣家族討論版版 - Powered by Discuz! Board

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If Not .Comment Is Nothing Then '處理356 的[附註]也是2003,2010的[註解]
Note_Text .Address(0, 0, , 1), .NoteText
End If
End With
End Sub
Private Sub Note_Text(Rng As String, Rng_Text As String)
Dim xMatch As Variant, xN As Integer, i As Integer
On Error GoTo ERR
With Sheets("Note_Text")
xMatch = Application.Match(Rng, .Rows(1), 0)
If IsError(xMatch) Then
With .Cells(1, Application.CountA(.Rows(1)) + 1)
.Cells(1) = Rng
.Cells(2) = Rng_Text & "--" & Now()
End With
Else
xN = Application.CountA(.Columns(xMatch))
With .Cells(1, xMatch)
If Split(.Cells(xN), "--")(0) <> Rng_Text Then .Cells(xN + 1) = Rng_Text & "--" & Now()
Rng_Text = ""
For i = 2 To xN + 1
Rng_Text = Rng_Text & IIf(i > 2, vbLf, "") & .Cells(i)
Next
MsgBox Rng_Text
End With
End If
End With
Exit Sub
ERR:
With ThisWorkbook
With .Sheets.Add(, .Sheets(.Sheets.Count))
.Name = "Note_Text"
' .Visible = xlSheetVeryHidden '隱藏起來能用巨集取消
End With
.Save
Me.Activate
End With
Resume
End Sub

複製代碼