ベストアンサー

イベントプロシージャについて（エクセル）

2005/04/30 06:36

あるエクセルのブックの全てのシートに適用されるようなイベントプロシージャを作りたく思っています。１、あるセルをダブルクリックする２、そのセルが含まれている行を選択する３、メッセージボックスで「現在の行を削除する」　旨の確認を求めて　「はい」ならば削除　「いいえ」なら何もしない１、あるセルをシングルクリックする２、そのセルが含まれている行を選択する３、メッセージボックスで「現在の行をコピーして　　自身の一つしたの行に挿入する」　旨の確認を求めて　「はい」ならば実行　「いいえ」なら何もしないという二つのモノを作りたく思っています自分で色々ＨＰを見たり　書籍も見てみたのですがなかなかわかりませんでした「ブック上での全てのシートで適用される」という記述はどうしたらよろしいのでしょうか？皆様よろしくお願いします

ennkai
お礼率54% (284/525)

オフィス系ソフト
回答数3
ありがとう数3

みんなの回答 （3）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

ja7awu
ベストアンサー率62% (292/464)

2005/04/30 07:37 回答No.1

ThisWorkbookクラスのSheetBeforeDoubleClickやSheetSelectionChangeイベントを使用することになるかと思います。下記のように、引数 Shにシート名、Targetにアドレスが渡されます。 (両方のイベントを機能させるとSelectionChangeが先になり、その後、同セルＷクリックで DoubleClickイベントが機能します。) Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal _ 　　　　　　Target As Range, Cancel As Boolean) MsgBox "そこは、 " & Sh.Name & " の " & Target.Address(False, False) & " です。" End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal _ 　　　　　　Target As Range) MsgBox Sh.Name & " の " & Target.Address(False, False) & " を選択しました。" End Sub おやりになりたい最初の方は、ダブルクリックすることで、2の「そのセルが含まれている行を選択する」は、意思が反映されているので、不要ではないかと思います。あとの方は、「あるセル」とは、どの位の箇所を指すのかなど、状況によって一概には言えませんが、「シングルクリック」を使う限り、他の操作性に支障来たさないようにしなければなりません。

質問者

お礼 2005/04/30 07:54

おはようございます早速の御回答ありがとうございます複数のイベントの際には引数を使用した記述が必要なのですね大変勉強になりましたもうひとつ聞いてよろしいでしょうか？セルを選択した状態からそのセルが含まれている行を選択する記述というのはどのようにしたらよいのでしょう？

質問者

補足 2005/04/30 07:58

重ね重ねもうしわけありません教えていただいた内容ですとシングルクリックと　矢印キーでのセル移動が同じく　セル選択状態になっていますがシングルクリックの時のみにイベント発生させることは可能でしょうか？いろいろ調べてみますが　お手数でなければ御教授おねがいいたしますたびたびもうしわけありません

ログインすると、全ての回答が全文表示されます。

その他の回答 (2)

Wendy02
ベストアンサー率57% (3570/6232)

2005/04/30 10:56 回答No.3

＞矢印キーでのセル移動が＞同じく　セル選択状態になっていますが＞シングルクリックの時のみに＞イベント発生させることは＞可能でしょうか？もともと、シングル・クリック(MouseDown)イベントは、ワークシート上にはありません。それから、ダブルクリックの、Workbook_SheetBeforeDoubleClickは、Cancel =True を入れたほうがよいです。現在は、そのイベント自体が働いていないはずです。SelectionChange のシングル・クリックとSheetBeforeDoubleClickのダブル・クリックとは、ダブル・クリックの過程にシングル・クリックがあるので、論理的に、そのイベントは重なって、シングル・クリックに取られるはずです。いずれにしても、もともと、行の挿入・削除は、右クリックメニュー("Cell")に登録されているし、行の挿入・削除は、行番号や列番号(A,B,C)のところをクリックしたり、セルを選択してから、 Ctrl+Shift + [+] で挿入、Ctrl+Shift + [-]で、削除になります。 Undoの範囲内にある、これらのショートカットがありますので、対話型のイベント・プロシージャは、本来必要だとは思いません。もし、実務として、対話型にするなら、挿入・削除のコマンドボタン全てに、WithEventsで、コントロール自体に、イベントを取り付けたほうが確実だと思います。一般的なマクロで対話型の削除・挿入を実行しても、ワークシートのUndo(Ctrl+Z) が利きませんので、実務としてはあまり使い物になりません。ご自身の勉強や練習でされるのでしたら、まず、書籍などをきちんと読んで、ご自分で作ってみてから、他の人にチェックしていただいたほうがよいのではないでしょうか？

質問者

お礼 2005/04/30 13:59

非常に参考になるご意見ありがとうございました。練習や勉強というわけではありませんが自分自身で毎回行う作業を出来るだけ簡略にとおもって勉強している最中でありますこれからの指針にさせていただきたいと思います

ログインすると、全ての回答が全文表示されます。

ja7awu
ベストアンサー率62% (292/464)

2005/04/30 10:45 回答No.2

> そのセルが含まれている行を選択する > 記述というのはどのようにしたらよいのでしょう？ Selection.EntireRow 　で、そのセルが含まれる行が、取得できます。例えば、Ｗクリックしたセルが含む行を選択状態にするには、 Target.EntireRow.Select　です。 > シングルクリックの時のみにイベント発生させることは可能でしょうか？出来ないのではないかと思いますが・・・? これは、先に書いたように操作性に問題が生じ、必要性が無いから作らないのだと思います。　その必要性を感じたこともありません。

ログインすると、全ての回答が全文表示されます。