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

情報セキュリティアドミニストレータ試験

セキュアド試験、受験。 午前の試験、結構簡単だった。 今年から50問->55問になったので内容も変わったのかと心配していたのだが、過去4年で一番やさしかったのではないか。 苦手な計算問題が少なかったよ …

no image

教育訓練給付制度

おや? 久々にITCの公式HPを見ると、こんな記述が。 「ITコーディネータ補資格認定用ケース研修は、2005年度より、厚生労働省教育訓練給付制度の対象講座になっておりません」 私が受験した2年前は、 …

no image

今日も目が赤い

Accessで業務アプリ作成中。 Accessって難しいな、と思う。 VBAのデータ操作関数(DMAXとか)は、何が難しいって、まず構文がややこしくって、なんどやっても覚えられない。 覚えられないから …

LimeSurverのEM機能

仕事で使えるかもと思いつつ、まとまって勉強する時間がなかったLimeSurverのEM機能について、調べてみた。 以下のWEB資料を読みながら実際に使ってみた。 EM/HowEnhanced | Li …

no image

楽天RPP広告「ランク別入札最適化」は微妙

最近の楽天のRPP広告、「ランク別入札最適化」をプッシュしているが、これってみんな使っているんだろうか?効果は出ているんだろうか? というのは、うちの店では、効果が出ていない。機能のスイッチをオンにし …