
No.1ベストアンサー
- 回答日時:
セル系のイベント制御は、標準モジュールではなく、Microsoft Excel Objects の「Sheet1」とかの処理をしたいシート名のところをダブルクリックしてコードを書きます。
試しにコードを書いてみました。おそらくこの動作で期待した動作を実現しているかと思います。
Target には、変更されたセルのRange値が入っているので、そこの列(Column)と行(Row)をみて変更されたセルを判断してます。
値が入ったとき、となっていたので、あえて trim() して値があった場合、という判定にしてます。
※インデントを見やすくするため、全角空白文字を使用していますので、コピー&ペーストする場合は注意してください。
以下ソースコード
'============================================================
' ワークシートのセルが変更された時に発生するイベント
Private Sub Worksheet_Change(ByVal Target As Range)
Static iCount As Integer
Dim i As Integer
' 初期化処理
If iCount = 0 Then
iCount = 1 ' Staticは0に初期化されるので1に初期値を変更
End If
' 変更したセルに値が入った場合条件成立
If Trim(Target.Value) <> "" Then
' 行番号が2000以内のとき条件成立
If Target.Row <= 2000 Then
' B列で、5の倍数の行のとき条件成立
If (Target.Column = 2) And (Target.Row Mod 5) = 0 Then
' A列に値をセット
For i = 0 To 4
' 値のセット
Cells(Target.Row + i, "A") = iCount
' 1件ごとにカウンタを加算
iCount = iCount + 1
Next
End If
End If
End If
End Sub
ありがとうございます!こんなやり方があるんだーと分かりました。
そのため自分でちょっと仕様を変えてしまいました。(結局手詰まりになってしまいましたが・・・)もしよかったらヒントをいただけるとうれしいです。
http://oshiete1.goo.ne.jp/oshiete_new.php3
No.2
- 回答日時:
一つ追記しておきます。
修正範囲の判定をしていないので、複数範囲を指定して値を入れたりするとエラーになってしまうので、Rangeの使用範囲まで見た方がいいかもしれません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
EXCEL あるセルに数字が入力されれば既存マクロ実行させたい
Excel(エクセル)
-
VBAで「セルに何か入っている場合」
Windows Me・NT・2000
-
-
4
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
5
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
6
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
7
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
8
未記入がある場合はマクロを実行させない方法
その他(Microsoft Office)
-
9
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
10
エクセルでセルに文字が入力されたらマクロを実行
Excel(エクセル)
-
11
【VBA】指定した検索条件に一致したら別シートに転記したい
Visual Basic(VBA)
-
12
セルに値が入ったらマクロを実行したい!
Excel(エクセル)
-
13
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
14
同じ作業を複数のシートに実行させるにはどうしたらいいのでしょうか
Visual Basic(VBA)
-
15
エクセルvba (ByVal Target As Range)について
Excel(エクセル)
-
16
値を入力後、自動的にアクティブセルが移動するマクロ
Excel(エクセル)
-
17
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
18
【Excel VBA】セルの値が変更されたらマクロを実行
その他(Microsoft Office)
-
19
数式の結果が空白の時の空白扱い
Excel(エクセル)
-
20
Enterキーでマクロを起動さす。
その他(ソフトウェア)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
【Excel VBA】指定行以降をクリ...
-
5
screenupdatingが機能しなくて...
-
6
Excel VBA、 別ブックの最終行...
-
7
セル色なしの行一括削除
-
8
エクセルvba:自己セルの情報取...
-
9
エクセルの複数データーをダブ...
-
10
EXCELのVBA-フィルタ抽出後の...
-
11
RC表示に変数を入れる
-
12
B列に特定の文字列が入っている...
-
13
Excel vbaで特定の文字以外が入...
-
14
i=cells(Rows.Count, 1)とi=cel...
-
15
Excelのプルダウンで2列分の情...
-
16
ユーザーフォーム内のテキスト...
-
17
【EXCEL VBA】Range("A:A").Fi...
-
18
セルの結果でマクロ実行
-
19
Excelで指定した日付から過去の...
-
20
Excel VBA メール作成について ...
おすすめ情報
公式facebook
公式twitter