返回列表 上一主題 發帖

[發問] 萬年曆問題

jackdream
　暱稱: Jack

中學生Rank: 2

帖子
130 
主題
8 
精華
0 
積分
143 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-8-3 
1# 跳轉到 »
發表於 2010-7-9 12:04 | 顯示全部帖子
提供一個測試看看~放在 sheet 裡面,不要放在模組裡..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim note As String

    If Not ActiveCell = Empty Then
        If Not ActiveCell.Comment Is Nothing Then
            note = InputBox("請輸入當日記事", , ActiveCell.Comment.Text)
        Else
            note = InputBox("請輸入當日記事")
        End If

        If note = Empty Then
            ActiveCell.ClearComments
            ActiveCell.Font.ColorIndex = 0
        Else
            On Error Resume Next
            ActiveCell.AddComment
            ActiveCell.Comment.Text Text:=note
            ActiveCell.Font.ColorIndex = 3
        End If
    End If
End Sub

TOP

jackdream
　暱稱: Jack

中學生Rank: 2

帖子
130 
主題
8 
精華
0 
積分
143 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-8-3 
2#
發表於 2010-7-9 13:35 | 顯示全部帖子
還是可以請您寄一個範例給我看呢?


您好! 請參考附件.
sample.rar (7.69 KB)

TOP

        靜思自在 : 口說好話、心想好意、身行好事。
返回列表 上一主題