IT仕事

ExcelVBAのコメント操作で色々手間取ったので備忘録

投稿日:

フォーム上のコントロールの値を特定のセルにセットするのと、コメントの背景色をセットするには:
例えば、こんな感じに。

If TextBox8.Value <> "" Then
ActiveCell.Offset(, 5).AddComment TextBox8.Value '着日
ActiveCell.Offset(, 5).Comment.Shape.Fill.ForeColor.SchemeColor = 42
End If

特定のセルにコメントがついている/ついていないをチェックする:
例えば、こんな感じに。

If Cells(actrow, actcol + 5).Comment Is Nothing Then
Else
TextBox8.Value = Cells(actrow, actcol + 5).Comment.Text '金額欄のコメントを使う
End If

‘色番号の参考:http://park11.wakwak.com/~miko/Excel_Note/19-01_keisen.htm
‘コメント存在判定の参考:http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_comment.html

-IT仕事

執筆者:

関連記事

no image

珍しく、講習会

昨日は珍しく、講習会なんぞに行ってきた。 内容は、SEO。 Webサイトをちゃんとする方法について、講師は丁寧に解説してくれた。 ま、要するに、右脳も左脳も前頭葉も後頭葉も全力でこき使ってください、う …

CliborのマクロをPythonの正規表現を使ってフォームに値をセットする

とにかくコピペ作業が多い職場なので、何かクリップボード拡張ソフトを入れたらいいねということで、Cliborを試してみたところ、なかなかよかったので、部署に啓蒙した。 「Clibor」定型文の挿入もでき …

no image

WP Limit Post Automaticallyプラグインはとても賢い

とあるサイトを管理していて、WPで長文を書くことが多い。 カテゴリー一覧でリスト表示した場合、全文表示されるととっても見にくい。特に画像が多いと。 その場合にも見やすいように文章の前半に「続きを読む- …

no image

ブログシステム物色

Geeklog インストール難しい、多機能、公式サイトの掲示板に質問すると、2人のモデレーターが親切に答えてくれた。うれしかった。 xaioを使う場合は、php.iniの設定を変えないといけなかった。 …

no image

シャトル

今日で閉店。 WindowsXPが発売された年にオープンしたから、2001年末ごろだったかな。 10年たって店じまい。 お客さんが少なかった。というより、富山の中心商店街の歩行者が少ないので、仕方ない …