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仕事

執筆者:

関連記事

Googleドライブのフォルダに含まれるファイル数を確認する方法(要マクロ)

ほとんど、以下の参考サイトのマルパクリで恐縮なのだが。 グーグルドライブで、特定のフォルダ以下のフォルダとファイルの一覧を書き出すスクリプト 上記ページの「コード」のうち、91行目以降を以下に書き換え …

no image

自宅で使っているパソコン。 朝から使っていて、昼ごろ、急に動作がのろくなった。 起動してからデスクトップが使えるようになるまで、普段の3倍以上かかる。 現象の出る直前にいろいろハードをいじっていたので …

no image

パンフ

今日、ちょっとした託物があってお客様のところを訪ねた。 またついでに、このたび新しく制作した会社案内もついでに見てもらおうと持参した。 対応した女性に肝心のをお渡しした後、「会社案内をこのたび新しくし …

Shopify(Matrixify)でスケジュール化したJobのキャンセル

どうしても方法を見つけられなかったが、ふと画面に目を落とすと、あった、方法が。 焦ると視野が狭くなって、なかなか気が付かないんだよなあ、こういうの。 You have 4 scheduled jobs …

no image

MDTM対応FTPクライアント

Webサーバにあるファイルをほとんど全て上書きしたい。 しかし、その中に最近お客様が書き換えたファイルが2・3あり、それは対象外。 しかししかし、量に埋もれているのでファイル名で探すのが骨。更新日で探 …