
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も見ています
-
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
セルに値が入っていた時の処理
Visual Basic(VBA)
-
VBA 何かしら文字が入っていたら
Visual Basic(VBA)
-
-
4
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
5
EXCEL VBA で指定した範囲に入力があるかどうか?
Visual Basic(VBA)
-
6
VBAで「セルに何か入っている場合」
Windows Me・NT・2000
-
7
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
8
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
9
VBA 数式を残して値をクリアについて
Excel(エクセル)
-
10
エクセルでセルに文字が入力されたらマクロを実行
Excel(エクセル)
-
11
エクセルマクロで特定の範囲が空白という条件
Excel(エクセル)
-
12
Excel VBA でA列の中に、1か10以外の数字があった場合にB1
Excel(エクセル)
-
13
VBAで特定の文字が入力されたセルを選択
Excel(エクセル)
-
14
入力済み、選択したセルに連動した行のデータをユーザーフォームで呼び出すには
Excel(エクセル)
-
15
任意で選択したセルをテキストボックスに表示
Excel(エクセル)
-
16
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
17
【VBA】【マクロ】 指定の条件で、空白の行を挿入
Excel(エクセル)
-
18
特定の文字を条件に行挿入とそこからセルデータを追加するVBAについて
Visual Basic(VBA)
-
19
vba 隣のセルに値がある行だけ関数をコピー&ペーストしたい A1 100001 A2 100002
Visual Basic(VBA)
-
20
【Excel VBA】 B列に特定の文字列があった場合にA列の値を変更する
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAを使って、値...
-
VBAでセルをクリックする回...
-
i=cells(Rows.Count, 1)とi=cel...
-
エクセルvba:自己セルの情報取...
-
”戻り値”が変化したときに、マ...
-
特定行の色を変えたい(FlexGrid)
-
VBA実行後に元のセルに戻りたい
-
Excle VBA Findメソッドについて
-
DataGridViewで右寄せ左寄せが...
-
Excelで指定した日付から過去の...
-
エクセルvbaで、別シートの最下...
-
EXCELのVBA-フィルタ抽出後の...
-
クリックされたセルの位置を取...
-
screenupdatingが機能しなくて...
-
エクセルVBAでコピーして順...
-
特定のセルが空白だったら、そ...
-
【Excel VBA】指定行以降をクリ...
-
【VBA】Excelに数値を入力した...
-
連続する複数のセル値がすべて0...
-
DataGridViewの各セル幅を自由...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
特定行の色を変えたい(FlexGrid)
-
i=cells(Rows.Count, 1)とi=cel...
-
Excelで指定した日付から過去の...
-
エクセルvbaで、別シートの最下...
-
VBA実行後に元のセルに戻りたい
-
Application.Matchで特定行の検索
-
”戻り値”が変化したときに、マ...
-
VBAでセルをクリックする回...
-
任意フォルダから画像をすべて...
-
Excel VBAで、 ヘッダーへのセ...
-
TODAY()で設定したセルの日付...
-
【Excel VBA】指定行以降をクリ...
-
Excel vbaで特定の文字以外が入...
-
ExcelのVBAで数字と文字列をマ...
-
Excel VBA、 別ブックの最終行...
-
DataGridViewの各セル幅を自由...
-
VBA ユーザーフォーム ボタンク...
-
連続する複数のセル値がすべて0...
おすすめ情報