No.3ベストアンサー
- 回答日時:
#3です。
前述のコードは特定のシートにおいて、セルが選択された際に
動作するものです。
ちなみにTargetは選択されているセル範囲を指します。
設定方法としては以下になります。
1.設定するシートのシートタブを右クリック。
2.メニューからコードの表示を選択。
3.前述のコードをコピペ。
4.エディタを×で終了
以上です。
ありがとうございます!! できました───っ!! (^o^)
驚きましたー!! 今年一番の目からウロコです!!
VBAにイベントプロシージャーという概念があるなんて、
知りませんでした。(大汗)
いつも「標準モジュール」でしかコードを書いたことが
ありませんでした。
勉強になりました。本当にありがとうございました。
今年最大の感謝を込めて……。(^^)
No.4
- 回答日時:
#1です。
keirikaさんがレス済みですが、絵付きの解説HPです。
Excel VBA 入門講座 ワークシートのイベントプロシージャ
http://excelvba.pc-users.net/fol3/3_6.html
何回もすみません。ありがとうございます。(^^)
できました───っ!!
VBAにイベントプロシージャーという概念があるなんて、
全然知りませんでした。(^_^;)
また、教えて頂いたURLのサイトは、非常に分かりやすいですね。
(今まで何十と見た中で一番分かりやすいかも)
これからじっくり読んで勉強したいと思います。
本当にありがとうございました。(ペコリ)
No.2
- 回答日時:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("a1") = Application.Sum(Target)
Range("a2") = Application.Average(Target)
End Sub
さっそくのご回答ありがとうございました。
えっと、すみません、よく分かりません。恐縮です。(汗)
範囲選択をしただけで、このサブルーチンを
起動するにはどうすればいいのでしょうか???
何度もすみません。よろしくお願い申し上げます。
No.1
- 回答日時:
WorksheetFunction
が便利です。
全ての関数をVBAで使えるわけではないですが、↓の関数は
VBAでも使えます。
Dim selrng As Range
If TypeName(Selection) <> "Range" Then Exit Sub
Set selrng = Selection
MsgBox "合計:" & WorksheetFunction.Sum(selrng) & vbCrLf & _
"平均:" & WorksheetFunction.Average(selrng) & vbCrLf & _
"個数:" & WorksheetFunction.CountA(selrng) & vbCrLf & _
"最小:" & WorksheetFunction.Min(selrng) & vbCrLf & _
"最大:" & WorksheetFunction.Max(selrng)
さっそくのご回答ありがとうございました。
えっと、すみません、よく分かりません。恐縮です。(汗)
Exit Sub とあるのでサブルーチンだと思うのですが、
範囲選択をしただけで、このサブルーチンを
起動するにはどうすればいいのかが分かりません。
(お恥ずかしい……(^_^;) )
何度もすみません。よろしくお願い申し上げます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Excel(エクセル) 余計なお世話的な「入力規則」?対策は? 2 2023/01/14 12:39
- Excel(エクセル) エクセルVBA 複数行にまたがっている選択を判定するには 2 2023/05/21 21:54
- Excel(エクセル) Excelのプルダウンメニューの内容を人によって可変する方法 2 2023/03/28 14:52
- その他(Microsoft Office) 選択行の列範囲に二重線を引く 3 2022/06/08 12:21
- Excel(エクセル) マクロ セルの選択 5 2022/08/12 22:47
- Excel(エクセル) 範囲選択すると最後の一行で急に出てくる#が邪魔で困っています。 ExcelでVLOOKUPで引っ張っ 2 2022/08/31 10:03
- Excel(エクセル) excelで可視セルのみ置換 3 2022/08/04 11:02
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの画面で十字マークが...
-
エクセルで連続データから、数...
-
EXCEL アルファベットと数字の...
-
Excel選択を繰り返すとセルの色...
-
エクセルでカーソルが四方に矢...
-
余計なお世話的な「入力規則」...
-
excelで1行ごとに一気に削除す...
-
Shift押しながら、矢印ボタンで...
-
Excelで表のデータを並び替えた...
-
EXCELで不規則的に行の高さを変...
-
excelで、スクロールをすると限...
-
エクセル 画面上の行数を調節...
-
セルをクリックすると付箋のよ...
-
エクセルで1つおきに列を削除...
-
エクセルで、指定した整数の範...
-
エクセルで空白の行を削除する方法
-
エクセルでウインドウ枠を固定...
-
カーソルを移動させない
-
エクセルVBAでセル範囲のデータ...
-
Excelですばやく食材リストを作...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
excelで、スクロールをすると限...
-
エクセルの画面で十字マークが...
-
エクセルで連続データから、数...
-
複数のセルの入力内容を一度に...
-
セルをクリックすると付箋のよ...
-
エクセルでハイパーリンクのU...
-
EXCEL アルファベットと数字の...
-
エクセル 数値を全て「1」にす...
-
Excel選択を繰り返すとセルの色...
-
Excelで表のデータを並び替えた...
-
エクセル 画面上の行数を調節...
-
エクセルでカーソルが四方に矢...
-
エクセルで0を除いて昇順に並...
-
ピポットテーブルエラー解決方法
-
Shift押しながら、矢印ボタンで...
-
excelで1行ごとに一気に削除す...
-
エクセルVBAでセル範囲のデータ...
-
Excelで急に動かなくなる
-
エクセルで任意のセルをクリッ...
-
フィルタを解除した後の表示位置
おすすめ情報