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

Cliborのマクロでウィンドウ操作&コピペを楽にする

Clibor、便利だわ~。もう大好き。 今回はこんなコードをご紹介。私が作った。えへ。 まあProの方々から見れば、全然大した頃は無いのでしょうが。 # -*- coding: utf-8 -*- # …

Excel2013 セル入力直後から確定までが遅い

オプション-詳細設定-表示の、「ハードウェア グラフィック アクセラレータを無効にする」のチェックで、すごく改善した。 自分の周りで相当悩んでいる人がいたので、一緒に調べた結果、わかった。 他にも悩ん …

no image

hostingrails.com

知り合いがHPを作ってくれというので、どこかのサーバを借りることにした。 いろいろ検討した結果、hostingrails.comというところにした。 このレンサバはその名の通り、Railsで作ったWe …

ここ数日Google Apps Script を触っていてわかったこと

・セル操作については、思ったよりも色々できる。 ・実行速度は遅い。 ・Googleアカウントを持っている人に配布する/共有するには、とても便利。 ・スクリプトを使った画像の配置もできる(ただし画像それ …

no image

来週やるExcelVBAセミナーの準備をしていて、

同じ「飛び物」でもロケットが好きな人とラジコンが好きな人がいるよな、とふと思った。 ロケットの好きな人は、 準備をきちんと整えて、万全を期して発射スイッチを押す・・・飛んだ!あんなに高く。感動! 飛ん …