
No.1ベストアンサー
- 回答日時:
Worksheet_Change:シートに変更があったら
For Each R In Target:選択されているセル範囲を順番に
With R:順番に回っている現在のセルに対して
条件判断と処理を実行
End With:Withの終了
Next R:次のセルへ、全て回り終えたら終了
End Sub:終了
No.2
- 回答日時:
こんにちは。
#1様の回答で十分なのですが、「For Each R In Target」は、一種の予防策で、
前回、私が書いた、
If Target.Count >1 Then Exit Sub 'セルをを2個以上選択した時はマクロは不可
の代わりというか、逆の発想をするものです。
普通は、単一のセルを対象にして、イベント・ドリブン型にするのが一般的です。複数のセルを処理するとエラーになることがあります。しかし、このマクロは、複数セルを処理するというものです。主に、複数のセルを貼り付けた時や複数のセルを消去した時に、処理するようにできています。
この回答への補足
WindFallerさん、こんばんは
先日もお世話になりました
だめです、私の脳味噌では理解不可能です
確かに、今のマクロでは、想定外のことをやるとエラーになって
そこで、安易に、On Error Resume Next を変数宣言のすぐ後に書いています
もう一度、On Error Resume Next を外してチェックしてみます
Private Sub Worksheet_Change(ByVal Target As Range)内で
セル範囲(1列50行)が1つ指定してあって、その範囲内なら
For Each R In Target
With R
で処理しているのですが
あと2つセル範囲を指定して処理したいことがあるのですが
For Each R In Target
With R
が分からなかったので質問しました
このマクロは安易に行数を増やすと処理が遅くなりそうです
Target.CountもDebug.Printでチェックしてみます
ありがとうございました
わかりました
'On Error Resume Next として
Target.CountをDebug.Printで見てみると
必ずしも1以上でエラーになるのではなくて
複数のセルをコピーした時
一つのセルを複数コピーした時
に「型が一致しません」のエラーになります
複数のセルをマウスで選んでDeleteした時はエラーになりません
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
エクセルvba (ByVal Target As Range)について
Excel(エクセル)
-
A1セルに入力したら、入力時間をA2セルに自動挿入
Excel(エクセル)
-
特定セルの内容を更新したら、その更新日を自動的に表示する方法について
Excel(エクセル)
-
-
4
Changeイベントでの複数セルのクリアの処理について
Visual Basic(VBA)
-
5
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
6
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
7
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
8
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
9
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
10
vba セルに入力した時間をマクロで受け取るには?
Excel(エクセル)
-
11
Excel VBAでのWorksheet_Changeが動作しない原因
Excel(エクセル)
-
12
vba:特定のセルに入力したと同時に隣のセルの値を特定のセルの下の行に自動入力したい_No.2
Excel(エクセル)
-
13
セルの文字を「印刷時だけ非表示」にしたいです。
Excel(エクセル)
-
14
Worksheets メソッドは失敗しました。のエラー処理のやり方
Visual Basic(VBA)
-
15
Worksheet.Change イベントを他のシートにも反映させる方法?
Visual Basic(VBA)
-
16
エクセルVBA 複数行にまたがっている選択を判定するには
Excel(エクセル)
-
17
データが入力されている隣のセルに当日日付と時刻を入力するExcel VBAプログラム
Visual Basic(VBA)
-
18
エクセルのマクロの使い方
Excel(エクセル)
-
19
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
20
VBAでfunctionを利用しようとしたときに「引数は省略できません」というエラーが出ます
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
数式を残したまま、別のセルに...
-
時間計算、30分以上を切り上...
-
Excelでのコメント表示位置
-
Excelの計算式で、時間を人工に...
-
Excel 例A(1+9) のように番地の...
-
エクセルの一つのセルに複数の...
-
Excelで数式内の文字色を一部だ...
-
Excel2007、修復されたセル...
-
エクセル オートフィルタで絞...
-
【Excel】 セルの色での判断は...
-
セルをクリック⇒そのセルに入力...
-
Excelで教えてください。 バー...
-
Excel2003 の『コメント』の編...
-
エクセルで太字だけの合計を出...
-
エクセルで「コピー領域と貼り...
-
エクセル 足して割る
-
excelの特定のセルの隣のセル指...
-
対象セル内(複数)が埋まった...
-
貼り付けで複数セルに貼り付けたい
-
エクセル セルの中に縦線が入っ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
貼り付けで複数セルに貼り付けたい
-
エクセルで指定したセルのどれ...
-
vba テキストボックスとリフト...
-
セルをクリック⇒そのセルに入力...
-
枠に収まらない文字を非表示に...
-
Excel for Mac使用中ポインタが...
-
数式を残したまま、別のセルに...
-
Excel 例A(1+9) のように番地の...
-
EXCEL VBA セルに既に入...
-
エクセル オートフィルタで絞...
-
エクセルの書式設定の表示形式...
-
(Excel)数字記入セルの数値の後...
-
エクセルのセルの枠を超えて文...
-
Excelで数式内の文字色を一部だ...
-
Excelでのコメント表示位置
-
【エクセル】IF関数 Aまたは...
-
エクセルの一つのセルに複数の...
-
excelの特定のセルの隣のセル指...
-
【Excel】 セルの色での判断は...
-
対象セル内(複数)が埋まった...
おすすめ情報