- 日時： 2012/06/10 14:16
- 名前： VBレスキュー(花ちゃん)
- ***********************************************************************************
* カテゴリー：[エクセル][][] *
* キーワード：Excel VBA,Excel2010,コメント操作,挿入,削除,変更,コメントを表示 *
***********************************************************************************
'===================================================================================================
'投 稿 日：2012.06.10
'投 稿 者：VBレスキュー(花ちゃん)
'タイトル：VB2010 から Excel のセルにコメントを挿入及びコメント操作色々(VB.NET)
'========1=========2=========3=========4=========5=========6=========7=========8=========9=========0
まずは、>>32 VB2010 から Excel のセルに関する操作、1行 Tips 集その１及び２をご覧になってから
こちらをご覧下さい。
尚、この Tips を使用される場合は、Excel の Com オブジェクトの解放に関する処理を理解
されてから使用するようにして下さい。
'-------------------------------------------------------------------------------
'Button32 が重複しておりますので、Sub とか適当な場所に記入して下さい。
Private Sub Button32_Click(sender As System.Object, e As System.EventArgs) Handles Button32.Click
Call ExcelOpen("", "") '新規ファイルをオープンして、Excel を起動
'=============================================================================
'-------------------------------------------------------------------------------
下記のVB6.0用のコードを移植したものです。
コメント表示・変更・削除方法色々
http://www.hanatyan.sakura.ne.jp/vbhlp/excel09.htm#xl_2
'-------------------------------------------------------------------------------
'セル A3 にコメントを新規作成(追加)します。
Dim xlRange As Excel.Range = Nothing
Dim xlComment As Excel.Comment
xlRange = xlSheet.Range("A3")
xlComment = xlRange.AddComment("セル A1 と A2 の合計です")
MRComObject(xlComment)
MRComObject(xlRange)
xlRange = xlSheet.Range("C8")
xlComment = xlRange.AddComment("ついでにもう1個作成しました。")
MRComObject(xlComment)
MRComObject(xlRange)
'確認のために、１秒間表示しておく
System.Threading.Thread.Sleep(1000)
'----------------------------------------------
'セル E3 にコメントを記入又は変更します。
xlRange = xlSheet.Range("E3")
xlRange.NoteText("変更予定")
MRComObject(xlRange)
'確認のために、１秒間表示しておく
System.Threading.Thread.Sleep(1000)
'----------------------------------------------
'最初のコメントを表示します。
Dim xlComments As Excel.Comments
xlComments = xlSheet.Comments
xlComment = xlComments.Item(1)
xlComment.Visible = True
MRComObject(xlComment)
MRComObject(xlComments)
'確認のために、１秒間表示しておく
System.Threading.Thread.Sleep(1000)
'----------------------------------------------
'すべてのコメントを表示します。
xlComments = xlSheet.Comments
For Each xlComment In xlComments
xlComment.Visible = True
MRComObject(xlComment)
Next
MRComObject(xlComments)
'確認のために、１秒間表示しておく
System.Threading.Thread.Sleep(1000)
'----------------------------------------------
'セル範囲を指定してコメントを削除
xlRange = xlSheet.Range("A1:A7")
xlRange.ClearComments()
MRComObject(xlRange)
'確認のために、１秒間表示しておく
System.Threading.Thread.Sleep(1000)
'----------------------------------------------
'記入しているコメントを全て削除
xlComments = xlSheet.Comments
For Each xlComment In xlComments
xlComment.Delete()
MRComObject(xlComment)
Next
MRComObject(xlComments)
'=============================================================================
System.Threading.Thread.Sleep(1000)
Call ExcelClose(IO.Path.GetFullPath(".\Test.xlsx"), False)
Call ProcessCheck()
End Sub
|
VB2010 から Excel のセルにコメントを挿入及びコメント操作色々(VB.NET)