ついに夏本番!さぁ、家族でキャンプに行くぞ! >>

お世話になります。
件名と同じくエクセルで、ボタンを使わずセルを選択する事により任意のマクロを実行させる事は可能かをお伺いしたく存じます。

【詳細】
現在、特定のセルを基点に画像を決められたサイズで挿入する作業を行っております。
画像を挿入する基点とするセルは複数あり、その度に図形の挿入のコマンドを選択しております。
ただ、非常に短銃作業ではあるのですが、量があまりにも多い為、
セルを選択した段階で挿入する画像ファイルを呼び出す画面を表示するように出来ないだろうかと思い質問致しました。

以上、お時間のある時で構いませんのでご教授下されば幸いです。

このQ&Aに関連する最新のQ&A

A 回答 (3件)

セルを選択したときにマクロを起動するならシートモジュールにそのマクロを書いておきます。



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then 'この例だと$A$1を選択したときだけ
MsgBox "Macro was done" 'この文を画像ファイルを呼び出すマクロに置き換える
End If
End Sub
    • good
    • 0
この回答へのお礼

早速の回答ありがとう御座います。
また、サンプルのマクロまで回答下さり感謝致します。
実は、シートモジュールや標準モジュール、ブックモジュールなど
各モジュール毎の、できること、できないことといった機能的な特色に関してあまり理解できておりませんでした(^^;)
ですが今回の質問を機に改めて覚えてみようかと思います。
非常に助かりました。また質問した際にもご教授下されば幸いです。

お礼日時:2009/05/26 21:52

使いにくい場面もありそうな気がしますが、とりあえず…



セルの指定位置は修正してください。
(仮にA1、B2、C3にセットしてあります)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("A1,B2,C3")) Is Nothing Then Exit Sub

Application.Dialogs(xlDialogInsertPicture).Show
End Sub
    • good
    • 0
この回答へのお礼

早速の回答ありがとう御座います。
また、サンプルマクロまで短時間で作成して頂き、大変感謝しております。
今後も質問するあるかと存じます。その際も懲りずにご教授頂ければ幸いです。
重ねてではありますが、ありがとう御座いました。

お礼日時:2009/05/26 21:26

こんにちは。



Worksheet_SelectionChangeイベントは、シート内の選択セルを変更するたびに発行されます。
これを活用してみてはいかがでしょう。
    • good
    • 0
この回答へのお礼

早速の回答ありがとう御座います。
Worksheet_SelectionChange。云われてみれば以前、条件付き書式を拡張したマクロを作成した際使っておりました。
独学で丸のみしてきたせいか、応用が利かなくなっておりますね(^^;)
質問させて頂いてよかったです。
感謝いたします。

お礼日時:2009/05/26 21:40

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QエクセルVBAで、条件に一致するセルへ移動

 エクセルVBAでシート内を検索し、条件に一致するセルを選択させたいのですが、どのようにしたら良いでしょうか?
 同一データはシート内に一つしか無い前提です。
勉強不足ですみませんが、どなたかご教授お願いします。

Aベストアンサー

こんにちは。maruru01です。

Findメソッドがいいでしょう。
こんな感じ


Dim rg As Range

Set rg = ActiveSheet.Cells.Find(What:="検索文字列")
If rg Is Nothing Then
  MsgBox "シート内には見つかりませんでした。"
Else
  rg.Select
End If


Findメソッドの詳細は、VBAのヘルプを参照して下さい。


人気Q&Aランキング