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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) エクセルVBAでセルに表示されているとおりの数値を取得したい(時間の計算結果) 1 2022/03/30 17:52
- Visual Basic(VBA) 別シートに順番で貼り付け 2 2023/04/13 19:53
- Excel(エクセル) エクセルで、 A1セルに「A」という値、 B1セルに「B」という値が入っています。 どちらも表示形式 5 2023/02/22 23:05
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Visual Basic(VBA) エクセルVBAで『A列』に新規で数値を入力し『B列』から右方向の空白セルにその値を貼り付ける方法 4 2022/11/05 08:37
- Visual Basic(VBA) vba 15 2023/04/07 12:33
- Excel(エクセル) エクセルでIF関数中にIFERROR関数を使いたいのですが???? 5 2022/04/08 13:24
- Excel(エクセル) IF関数について 5 2023/06/26 00:46
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
EXCEL あるセルに数字が入力されれば既存マクロ実行させたい
Excel(エクセル)
-
VBAで「セルに何か入っている場合」
Windows Me・NT・2000
-
-
4
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
5
【vba】指定範囲の中に任意の文字があるときの条件分岐
Excel(エクセル)
-
6
セルに値が入っていた時の処理
Visual Basic(VBA)
-
7
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
8
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
9
A1セルに入力したら、入力時間をA2セルに自動挿入
Excel(エクセル)
-
10
「選択範囲を解除してアクティブセルを選択」をマクロで行うにはどうすればよいでしょうか
Excel(エクセル)
-
11
VBA データ(特定値)のある最終行を取得したい
Excel(エクセル)
-
12
別シートのマクロを実行する方法
Excel(エクセル)
-
13
ある列のセルに特定の文字が入っていたら他のセルに決まった文字を入れる
Word(ワード)
-
14
VBAの「for i=1 to cells(…」と「i=cells(…」の違いを教えてください。
Visual Basic(VBA)
-
15
VBA 何かしら文字が入っていたら
Visual Basic(VBA)
-
16
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
17
別のシートから値を取得するとき
Visual Basic(VBA)
-
18
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
19
エクセルマクロ 【空白セルを無視する方法を教えてください】
Excel(エクセル)
-
20
VBAで複数の数式セルを最終行までコピーするには?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Sub 要具ライフ() ActiveSheet....
-
VBAを使用した時間管理
-
ExcelVBAを使って、値...
-
i=cells(Rows.Count, 1)とi=cel...
-
特定のセルが空白だったら、そ...
-
Excelで指定した日付から過去の...
-
EXCELで変数をペーストしたい
-
【Excel VBA】指定行以降をクリ...
-
エクセル マクロで セルの範...
-
セル色なしの行一括削除
-
EXCELのVBA-フィルタ抽出後の...
-
DataGridViewの各セル幅を自由...
-
【VBA】シート上の複数のチェッ...
-
連続する複数のセル値がすべて0...
-
【Excel】指定したセルの名前で...
-
DataGridViewのセル編集完了後...
-
クリックされたセルの位置を取...
-
エクセルの複数データーをダブ...
-
特定行の色を変えたい(FlexGrid)
-
【EXCEL VBA】Range("A:A").Fi...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel VBA】指定行以降をクリ...
-
【マクロ】プルダウンが設定し...
-
Excelで指定した日付から過去の...
-
VBA実行後に元のセルに戻りたい
-
【Excel】指定したセルの名前で...
-
Excel vbaで特定の文字以外が入...
-
特定の文字を条件に行挿入とそ...
-
EXCELで変数をペーストしたい
-
【EXCEL VBA】Range("A:A").Fi...
-
エクセルVBAでコピーして順...
-
連続する複数のセル値がすべて0...
-
screenupdatingが機能しなくて...
-
Excel VBA、 別ブックの最終行...
-
任意フォルダから画像をすべて...
-
Excelのプルダウンで2列分の情...
-
【VBA】カーソルのある行の1行...
-
VBAコマンドボタンを押すたびに...
おすすめ情報