Excel2000 VBA セルの数式をコメント欄に表示するの実験

Excel2000 VBA  セルの数式をコメント欄に表示するの実験

 

Sub コメント欄にセルの数式を表示()
'
'実験なので、対象は選択セルのみ
'
Dim ComTxt, FormulaTxt  As String

    ActiveCell.Select
   
'数式の文字列
    FormulaTxt = "セルの数式" & Chr(10) & ActiveCell.Formula
   
'数式が設定されてなければ終了
    If FormulaTxtActiveCell.Formula = "" Then MsgBox "数式が設定されてません。": Exit Sub
   
'選択セルにコメントが設定されているか調べて、設定されていれば
'コメントに数式文字列を追加する
       
    If TypeName(ActiveCell.Comment) = "Comment" Then
        ComTxt = ActiveCell.Comment.Text    '現在のコメントテキスト
        'コメント設定
        ActiveCell.Comment.Text Text:=ComTxt & Chr(10) + Chr(10) & FormulaTxt
    Else
        '新たにコメント作成
        With ActiveCell.AddComment
            .Text FormulaTxt
            '.Visible = True
        End With
    End If
   
End Sub

 

---

 

選択範囲の数式をコメント欄に記入

Sub コメント欄にセルの数式を表示2()
'
'事前にドラッグしてセル範囲を選択する
'
Dim ComTxt, FormulaTxt  As String
Dim contR  As Range

'選択範囲
    For Each contR In Selection
        contR.Activate
 
'数式の文字列
    FormulaTxt = "セルの数式" & Chr(10) & ActiveCell.Formula
   
'数式が設定されてなければ次
    If ActiveCell.Formula = "" Then GoTo next_each
   
'選択セルにコメントが設定されているか調べて、設定されていれば
'コメントに数式文字列を追加する
       
    If TypeName(ActiveCell.Comment) = "Comment" Then
        ComTxt = ActiveCell.Comment.Text    '現在のコメントテキスト
        'コメントに同じ数式があれば書き足さない
        If InStr(ComTxt, ActiveCell.Formula) > 1 Then GoTo next_each
        'コメント設定
        ActiveCell.Comment.Text Text:=ComTxt & Chr(10) & FormulaTxt
    Else
        '新たにコメント作成
        With ActiveCell.AddComment
            .Text FormulaTxt
            '.Visible = True
        End With
    End If
next_each:
    Next contR
 
End Sub

 

タグ：Excel2000 VBA