No.2ベストアンサー
- 回答日時:
サンプル
コメントがそのセルに既にある場合
Sheets("Sheet1").Range("A1").Comment.Text " commented at " & Format(Time, "hh:mm:ss")
コメントが無い場合
Sheets("Sheet1").Range("A1").AddComment " commented at " & Format(Time, "hh:mm:ss")
No.6
- 回答日時:
1つ書き忘れました。
(余計なことかもしれませんが)#3さんの方法では、C3セルに値が入っていなかったり、数字が入っている場合、
Range("A3").Comment.Text Text:=Cells(3, "c").Value
でエラーになります。
Range("A3").Comment.Text Text:=cstr(Cells(3, "c").Value)
とするか
#4さんのように一旦文字列変数に格納するか
私の様に.Valueでなく.Textを使うかしないとだめだと思います。
(絶対文字が入っていれば、気にすることもないかもしれませんが)
EXCEL2000なので、それ以降のバージョンではうまくいくのかな?
確認してみてください。
No.5
- 回答日時:
私もサンプルです。
コメントがあるかないかを判断しています。
Sub Macro1()
Dim Msg As String
Msg = "TEST"
With Worksheets("Sheet1").Range("A2")
If (.Comment Is Nothing) Then 'コメントがない場合
.AddComment Worksheets("Sheet1").Range("B2").Text 'B2セルの値を入れる
Else
.Comment.Text Msg '変数を入れる
End If
End With
End Sub
No.4
- 回答日時:
こちらもサンプルです。
セルA1の値を B1に「セルのコメント」として設定させています。Sub Macro1()
Dim Mytext As String
Mytext = Range("A1").Value
Range("B1").Select
Range("B1").AddComment Text:=Mytext
End Sub
No.3
- 回答日時:
C3セルに、例えば「東京管轄」と入れて下記を実行すると
A3のコメントに「東京管轄」と入りましたが。
Cells(3, "c").ValueとValueが必要のようです。
Sub test01()
Range("A3").AddComment
Range("A3").Comment.Visible = False
Range("A3").Comment.Text _
Text:=Cells(3, "c").Value
End Sub
#1のご回答のような問題でしょうか。それならごめんなさい。
No.1
- 回答日時:
コメントというのは
「'」
で始まる一行のことでしょうか。その行内はすべてコメントアウトされるので、その行内に何を書いても実行はされないと思います。
' 変数宣言しまーす! Dim i as Integer どうですか?
とか
' iに値を格納しますよー! i = 1 どうだ!
と書いても、そのInteger大のメモリ領域確保は行われませんし当然思うところの「1」という値もどこにも保持されません。
そして、そのようなことをする必要もないのではないのでしょうか。
' 変数宣言
Dim i as Integer
' 値格納
i = 1
これが普通のやり方です。コードがどれほど複雑になっても、コメント行はコメント行として使うしかないと思います。
間違っていたら誰か正してください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/02/02 13:13
- Visual Basic(VBA) 昨日、質問した件『VBA にて、条件付き書式で背景色を設定しているセルの範囲で、背景色付きのセルをカ 4 2022/04/07 14:39
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/06/22 11:19
- Visual Basic(VBA) Excel(VBA) 特定の条件に該当する行の値、書式を同じセルにコピ&ペーストしたいです 1 2022/05/21 18:18
- 会計ソフト・業務用ソフト エクセル 背景色のついたセル位置を参考にして固定の数値を取得する 4 2022/07/11 08:44
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 3 2022/06/10 09:24
- Visual Basic(VBA) VBAで自動集計(特定セルコピー月ごとに値貼り付け)したい。 6 2023/06/25 11:37
- Excel(エクセル) エクセル バーコード作成で他のシートを参照するには? 2 2023/05/03 16:57
- Visual Basic(VBA) VBA にて、条件付き書式で背景色を設定しているセルの範囲で、背景色付きのセルをカウントできる、VB 2 2022/04/06 21:33
- Visual Basic(VBA) VBA ドロップダウンリストを残して値のみクリア 2 2022/10/27 05:42
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
エクセルVBAでコメントのコピー
Excel(エクセル)
-
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
-
4
Excel2003 の『コメント』の編集位置が、あらぬ位置に勝手に移動してしまう件で教えて下さい。
Excel(エクセル)
-
5
エクセルのコメントで自動サイズ調整
Excel(エクセル)
-
6
VBAでワークブックの名前を変数にして開かせる?
Excel(エクセル)
-
7
エクセルで複数のコメントのサイズ(形)を一括で変える方法
Excel(エクセル)
-
8
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
勃起する時って痛いんですか? ...
-
白血球が多いとどんな心配があ...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
中出しをするとお腹が痛い・・・。
-
精子が黄色?
-
【Excelで「正弦波」のグラフを...
-
エクセル指定した範囲からラン...
-
これって喉仏ですか? 私は女性...
-
風俗店へ行く前のご飯
-
EXCELで条件付き書式で空白セル...
-
甲状腺が腫れているが血液検査...
-
筋トレするとチンコが縮んじゃ...
-
旦那のピンサロ好きについてで...
-
精子に血が・・・
-
アクエリアスが苦く感じる
-
尿検査前日に自慰行為した時の...
-
腕を見たら黄色くなってる部分...
-
小数点以下を繰り上げたものを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
白血球が多いとどんな心配があ...
-
検便についてです。 便は取れた...
-
勃起する時って痛いんですか? ...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
精子が黄色?
-
EXCELで条件付き書式で空白セル...
-
至急!尿検査前日にオナニーし...
-
これって喉仏ですか? 私は女性...
-
中出しをするとお腹が痛い・・・。
-
甲状腺が腫れているが血液検査...
-
2つの数値のうち、数値が小さい...
-
尿検査前日に自慰行為した時の...
-
EXCELで式からグラフを描くには?
-
小数点以下を繰り上げたものを...
-
ある範囲のセルから任意の値を...
-
口の中に黒い血の塊
-
【Excelで「正弦波」のグラフを...
-
エクセル指定した範囲からラン...
おすすめ情報