Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


68178 / 76734 ←次へ | 前へ→

【13097】データの変更について
質問  くーさん  - 04/4/23(金) 12:46 -

引用なし
パスワード
   皆さんこんにちは。
自分で考えてみるものの、行き詰まり利用させてもらってます。
いつもご回答してくれる方々、有難う御座います。

まず下記をご覧下さい。
Dim KaiinNo As Long, CellGyo As Variant
KaiinNo = Worksheets("解析").Range("C2")
CellGyo = Application.Match(KaiinNo, Worksheets("データ").Columns(1), 0)

If Worksheets("解析").Cells(KaiinNo, "B").Columns = 0 Then
Worksheets("データ").Cells(CellGyo, "AC").Value = Worksheets("データ").Cells(CellGyo, "AC") + 1
End If

シート『データ』と『解析』があります。
・『解析のC2』のNoを『データ』から探し出します。
・一致するNoがあり、かつ『解析B2』が 0 ならば『データのAC』の数値を +1 します。

しかし、これは1つだけの変更です。(動作は確認済)
これを500個分とかしたいのです。
一括で変更する方法って分かる方がいましたらお教え下さい。
只、500以上あるので、出来れば LOOP とかは避けたいんですけど。
良い方法ってあります…?

いつもいつも質問ばかり繰り返してスイマセンです。m(_ _)m
0 hits

【13097】データの変更について くーさん 04/4/23(金) 12:46 質問
【13099】追記です… くーさん 04/4/23(金) 12:57 質問
【13100】Re:データの変更について Asaki 04/4/23(金) 13:00 回答
【13101】Re:データの変更について Asaki 04/4/23(金) 13:06 回答
【13102】Re:データの変更について くーさん 04/4/23(金) 13:44 質問
【13103】Re:データの変更について Asaki 04/4/23(金) 13:56 回答
【13115】Re:データの変更について くーさん 04/4/23(金) 17:52 質問
【13118】Re:データの変更について Asaki 04/4/23(金) 18:01 回答
【13119】Re:データの変更について Asaki 04/4/23(金) 18:03 回答
【13125】Re:データの変更について くーさん 04/4/23(金) 19:09 質問
【13128】Re:データの変更について Asaki 04/4/23(金) 20:44 回答
【13130】Re:データの変更について くーさん 04/4/23(金) 21:13 質問
【13131】Re:データの変更について Asaki 04/4/23(金) 21:23 回答
【13132】Re:データの変更について くーさん 04/4/23(金) 22:04 質問
【13133】Re:データの変更について Asaki 04/4/23(金) 22:13 回答
【13134】Re:データの変更について Asaki 04/4/23(金) 22:18 回答
【13137】Re:データの変更について くーさん 04/4/23(金) 23:08 質問
【13140】Re:データの変更について くーさん 04/4/23(金) 23:53 お礼

68178 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free