エクセルVBAで特定のセルの値をコメントに置き換えることについて
A1のセルに入っている値(文字)を、
別のシートのB1セルのコメントに貼り付けたいです。
A1の値は毎回変わるので、
マクロボタンを押すたびにA1の値を別シートB1のコメントに貼り付けるにはどうしたらいいですか?
別シートのB1のコメント欄を出す事と常に表示させる所までは出来ました。A1の値を空欄のコメントに貼り付けたいです
※何度か頑張ってみたのですが出来ず困っています。
No.1ベストアンサー
- 回答日時:
以下の手順でマクロを作成。
VBAエディタを開く:
Alt + F11を押してVBAエディタを開きます。
新しいモジュールを挿入:
挿入 > モジュールを選択
以下のコードを入力:
Sub CopyValueToComment()
Dim sourceSheet As Worksheet
Dim targetSheet As Worksheet
Dim sourceValue As String
' シートの設定
Set sourceSheet = ThisWorkbook.Sheets("Sheet1") ' A1の値があるシート名に変更
Set targetSheet = ThisWorkbook.Sheets("Sheet2") ' B1のコメントを追加するシート名に変更
' A1の値を取得
sourceValue = sourceSheet.Range("A1").Value
' B1のコメントを設定
With targetSheet.Range("B1")
If .Comment Is Nothing Then
.AddComment
End If
.Comment.Text Text:=sourceValue
End With
End Sub
マクロを実行:
F5キーを押してマクロを実行。
このコードは、Sheet1のA1セルの値を取得し、Sheet2のB1セルのコメントにその値を貼り付けます。シート名はご自身のシート名に合わせて変更.
No.3
- 回答日時:
新規貼り付けなら
Set WS1 = Worksheets("Sheet1")
Set WS2 = Worksheets("Sheet2")
WS2.Range("B1").AddComment Text:=WS1.Range("A1").Value
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Excel(エクセル) エクセルの関数式を教えてください。 2 2022/11/29 21:09
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2024/06/13 13:39
- Excel(エクセル) エクセルで、 A1セルに「A」という値、 B1セルに「B」という値が入っています。 どちらも表示形式 5 2023/02/22 23:05
- Excel(エクセル) エクセルの表示形式について教えてください あるセルの「A」という値と、別のセルの「B」という値を組み 4 2023/02/21 21:55
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Excel(エクセル) エクセルの書式設定の表示形式で設定した文字を文字列としてコピーしたい 1 2022/12/21 10:41
- Visual Basic(VBA) VBA初心者です。電話番号の数字の前に0を表示させたいです。 2 2022/12/14 03:58
- Excel(エクセル) 【マクロ】毎回、ファイル名が変わるファイルへの 文字列の転記 2 2024/05/02 14:17
このQ&Aを見た人はこんなQ&Aも見ています
-


エクセルVBAのブックを開く方法 例えば [20241001] [20241002] [202410
Visual Basic(VBA)
-


エクセル タブの下のメニューを選択 実行するコード
Visual Basic(VBA)
-


[Excel VBA]特定の条件で文字を削除&残す処理をするファイルを作成したいです
Visual Basic(VBA)
-
-
4

考えた式の戻り値が期待通りにならない
Excel(エクセル)
-
5

【ExcelVBA】5万行以上のデータ比較の効率的な処理方法について
Visual Basic(VBA)
-
6

エクセルvbaの対象セルに色をつける 例えば a日付 b種類 c値段 dその他 にんじん 50 ぴー
Visual Basic(VBA)
-
7

VBA 2次元配列の出力
Visual Basic(VBA)
-
8

WindowsのOutlook を VBA から操作する
Visual Basic(VBA)
-
9

Vba エラーコード2147xxxxxxについて教えてください
Visual Basic(VBA)
-
10

VB.net 文字列から日付型へ変更したい
Visual Basic(VBA)
-
11

VBAでエクセルのテキストデータをクリップボードに格納したい。
Visual Basic(VBA)
-
12

Excel VBAについて。こんな動作をさせるためにはどう書けばよいでしょうか。
Visual Basic(VBA)
-
13

エクセル 入力があった場合のみ隣の関数を表示
Excel(エクセル)
-
14

【ExcelVBA】dictionaryの重複判断の基準(セル結合だと違う値として認識される)
Visual Basic(VBA)
-
15

レイアウトが異なる別のワークブックからデータを転記する方法を教えてください
HTML・CSS
-
16

エクセルの計算式について(COUNTIFの応用)
Excel(エクセル)
-
17

excelファイルの内容検索
Excel(エクセル)
-
18

VBAでセルの書式を変えずに文字列を置換する方法をご教示ください
Visual Basic(VBA)
-
19

年間の医療費のデータがあり、月々の集計をする計算式を教えていただけませんか
Excel(エクセル)
-
20

Excelの計算で差分を求める場合について
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでCOPYを繰り返すと、処理が...
-
【マクロ】並び替えの範囲が、...
-
【マクロ】オートフィルター を...
-
Vba Array関数について教えてく...
-
Vba 型が一致しません(エラー1...
-
【ExcelVBA】値を変更しながら...
-
vbsでのwebフォームへの入力制限?
-
エクセルのマクロについて教え...
-
【ExcelVBA】5万行以上のデー...
-
VBAでセルの書式を変えずに文字...
-
【マクロ】開いているブックの...
-
Vba セルの4辺について罫線が有...
-
vb.net(vs2022)のtextboxのデザ...
-
Excel VBA 選択範囲の罫線色の...
-
【マクロ】売上一覧YYYYMMDDHHS...
-
エクセルの改行について
-
VBAで特定の文字が入った行をコ...
-
WindowsのOutlook を VBA から...
-
Excel 範囲指定スクショについ...
-
【マクロ】シートの変数へ入れ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Vba セルの4辺について罫線が有...
-
vbsでのwebフォームへの入力制限?
-
【ExcelVBA】5万行以上のデー...
-
【マクロ】売上一覧YYYYMMDDHHS...
-
【マクロ】開いているブックの...
-
【マクロ】並び替えの範囲が、...
-
エクセルの改行について
-
エクセルのマクロについて教え...
-
vb.net(vs2022)のtextboxのデザ...
-
VBAでCOPYを繰り返すと、処理が...
-
VBA ユーザーフォーム ボタンク...
-
エクセルのVBAコードと数式につ...
-
エクセルのVBAコードについて教...
-
[VB.net] ボタン(Flat)のEnable...
-
【マクロ】変数を使った、文字...
-
改行文字「vbCrLf」とは
-
質問58753 このコードでうまく...
-
【マクロ】シートの変数へ入れ...
-
ワードの図形にマクロを登録で...
-
算術演算子「¥」の意味について
おすすめ情報














