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

空メールを送る仕組みをはじめて作るのに苦労した記録

4日間、苦労。モウイヤ。 ■1日目: 携帯から空メールを送ったら、サーバがクリックしてほしいURLと送り主のメルアドを本文に書いて返す仕組み、それを作りたい。しかし何を準備してどうすればよい? まずは …

no image

DreamWeaverでXamppでMySqlでトラブルで

DreamWeaverCS6とXampp+MySqlを接続しようとしたのだがうまくいかず4時間ほど格闘。 一番はまったのが、右上のスクリーンショット「サイト設定」の、「使用する接続」が「ローカル/ネッ …

no image

フリースポット

仕事で宿泊施設。 公衆無線LAN構築を提案、いい感触。 個人的興味の深い仕事に、よし今度こそはと。

no image

Quick TranslatorがFireFox12で使えるようになった

FireFoxをバージョンアップした際に、互換性の問題から使えなくなった、Quick Translator。 私はこれを長年使い、「これ以上に使いやすいアドオンはない」と思っているので、昨年、FFの最 …

no image

ファイルサーバにコンピュータ名で接続できない

入れ替えをした会社NAS(ファイルサーバ)に、自分のPCと同僚のPCの2台について、コンピュータ名で接続できない。 一方、IPアドレスでは、接続できる。 他の数十台のPCでは問題なくこれまで通り接続で …