No.4ベストアンサー
- 回答日時:
#2です。
Sheet1のE1:F5に
1 人事
2 総務
3 管理
4 海外
5 調達
と入れ表を作って準備します。
ワークシートのイベントプロセジュアーを作るには
(1)ワークシートSheet1の画面で、ALTキーを左手で押さえながら、右手でF11(ファンクションキー)を押してください。
(2)出てきたVBE画面左部のVBAProject画面のSheet1をダブルクリックしてください。
(3)右のウインドウの上部の(General)の▼ボタンをクリックして、出てくる「Worksheet」をクリックすると、一旦
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
が右側ウインドウに出ますが、無視して、▼をクリックして「Change」を探してクリックしてください。
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
が出ます。この真中に回答の中身の部分をコピペして
下さい。
そしてワークシートSheet1の画面に戻り、A列セルの値を
変化させてエンタキーを押してみて下さい。
この回答への補足
imogasiさんありがとうございます
毎回、実行エラー“1004”がでて、
Target.Comment.Text Text:=Workshee~ が黄色くなります。
しかし、実際にどう直したらいいのかわからないのですが、リセット?をかけつつ、なんとか目的の動作に近づいたように思えます。ありがとうございます
ただ、F1の記述を後から変えてもA列のコメント文は
不変で“人事”のままなのですが、これは仕方ないんですねきっと。
No.2
- 回答日時:
ご希望に近いものをVBAで。
E1:F5に
1人事
2総務
3管理
4海外
5調達
と入れ表を作ります。部コードと部名です。
Sheet1のChangeイベントに
Private Sub Worksheet_Change(ByVal Target As Range)
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
If Target.Column = 1 Then
Target.AddComment
Target.Comment.Text Text:=WorksheetFunction.VLookup(Target, Range("e1:f5"), 2, False)
End If
End Sub
なおコメントを付けたセルにコメントをつけるとエラーになりますから、コメントの削除をしてからテストしてください。
OKWEBでの勝手な改行に気をつけて、復元してください。
VBAは一度エラーを起こすと、必ずリセットしてから、イベントを起こしてくださいね。(黄色行のままだと
ずっと反応しません。
この回答への補足
どなたか願わくば更に教えていただけないでしょうか?
Private Sub Worksheet_Change(ByVal Target As Range)
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
If Target.Column = 1 Then
Target.AddComment
Target.Comment.Text Text:=WorksheetFunction.VLookup(Target, Range("e1:f5"), 2, False)
End If
End Sub
をMicrosoft Excel Objects の Sheet1(Sheet1)
というところをクリックしたら
上記のマクロ文を入れるべく窓が表示されたので
コピペしました
その後、どうしたらいいんでしょうか?
標準モジュールの“Module*”の部分にマクロを登録した場合はそのマクロを実行するためのやりかたはなんとなくわかるのですが、Microsoft Excel Objects に組み込んだマクロを実行する方法がわからないのです
これは困り度3です。
どなたか教えて下さい
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【再度】Excelの関数について教えてください。 4 2023/07/28 13:06
- Excel(エクセル) Excelの関数について教えてください。 5 2023/07/28 11:27
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Excel(エクセル) エクセル関数のXlookupのフィルハンドル機能(類した機能でも可)を知りたいです。 3 2022/09/20 20:02
- Excel(エクセル) エクセルで、特定のセルの内容を更新すると、別の特定セルに 更新日付が自動的に表示させる方法はあります 1 2022/11/14 21:03
- Excel(エクセル) エクセルの数式で教えてください。 5 2023/02/10 15:11
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
- Excel(エクセル) エクセルで日付に続けて連番を表示したい 6 2022/05/25 23:33
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
- その他(Microsoft Office) エクセルについて教えてください。 2 2022/10/20 14:55
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
excelでSUBTOTAL関数を設定した...
-
セルを結合した場合の関数(COU...
-
エクセル ボタンを押すとセルの...
-
エクセルで片方のセルに入力し...
-
EXCELで、結合されたセルに連続...
-
VBAで結合したセルがクリアでき...
-
エクセルでセルをクリックして“...
-
文字列の結合、改行、空白削除
-
VBAで困っています。
-
EXCEL セル結合したセルを参照...
-
Excel セルを結合したものを抽...
-
エクセルでチェックボックスを...
-
エクセル 結合セル内に空白なら...
-
Excelでnullになるような式のセ...
-
Excelの表に自動でナンバリング...
-
エクセルでたくさんのセルを小...
-
vba 結合されたセルの列番号を...
-
Excelのカウントアップボタンに...
-
エクセルvbaの質問です。 エク...
-
セルの値を取得してSQL文に組み...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
excelでSUBTOTAL関数を設定した...
-
エクセル ボタンを押すとセルの...
-
EXCELで、結合されたセルに連続...
-
セルを結合した場合の関数(COU...
-
エクセルでチェックボックスを...
-
エクセルで片方のセルに入力し...
-
Excel 離れたセルへの連続デー...
-
VBAで結合したセルがクリアでき...
-
セルの値を取得してSQL文に組み...
-
Excelのカウントアップボタンに...
-
Excel セルを結合したものを抽...
-
Excelの表に自動でナンバリング...
-
エクセルでセルをクリックして“...
-
Excelでnullになるような式のセ...
-
エクセル 結合セル内に空白なら...
-
エクセルで作業した日の日付を残す
-
VBAで困っています。
-
エクセルでたくさんのセルを小...
-
EXCEL VBAでたくさんのURLの一...
-
Excel2007 セルの削除について
おすすめ情報