こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

[ExcelVBA]条件対象セルへの値の設定

添付ファイルのような行列が商品コードのテーブルがございます。
行列は共に1000ぐらいございます。
どのようにVBAすれば良いかを伝授して頂けないでしょうか?
調べましたがExcelでは、セルに値を設定はできないようです。
Rangeで範囲指定後のif文などでの対象セルへの値設定がわかりません。

・同じ商品コードでのマッチングで、金額が1以上だと合致したセルに0をセット
・商品コードのセルは、A1

大変申し訳ございませんが、この投稿に添付された画像や動画などは、「BIGLOBEなんでも相談室」ではご覧いただくことができません。 OKWAVEよりご覧ください。

マルチメディア機能とは?

投稿日時 - 2020-10-21 15:34:54

QNo.9813925

困ってます

質問者が選んだベストアンサー

以下のコードで試してみてください。

Sub Test()
Dim c As Range
Dim FRng As Range

With Sheets("Sheet1")
For Each c In .Range(.Cells(1, "C"), .Cells(1, Columns.Count).End(xlToLeft))
Set FRng = .Range(.Cells(2, "A"), .Cells(Rows.Count, "A").End(xlUp)).Find(What:=c.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not FRng Is Nothing Then
If .Cells(FRng.Row, c.Column).Value >= 1 Then
.Cells(FRng.Row, c.Column).Value = 0
End If
End If
Next
End With
End Sub

投稿日時 - 2020-10-21 15:58:09

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(3)

ANo.3

条件を文章で記述すること。
画像だけ見せて、コメントも添えないのは、心得違い。
前の質問でセルに色を付ける課題だったと思うが、解決したのかな。
関連あるならば、その時の質問番号などのを記述するとかすべきだ。
セルの値の条件をVBAなどでColorIndexで設定しておれば、どこにそのセル(色を付けたセル)があるかを判定はやさしいが、そうでないと、条件そのものを文章で記述してもらえわないと、やりづらい。
色のついてないセルでセルの値が0でないようなセルは、対象になっているようだが、どういう理由か?
>セルに値を設定はできないようです
一般には硬派言えないが、何をみて、何をやってそういっているのか。
範囲指定した全セルを、舐めるのは簡単にForEachーNext
で(1セルずつ、全セルを掴めるが、あとはセルの条件判定と、Cl.Value=0だけでしかない。
沢山の人が見る質問として、実際は#1の回答でOKかもしれないが、補足すべきだ。

投稿日時 - 2020-10-21 18:47:26

ANo.2

No1の追加です。

商品コードと記載されているセルがA1だとした場合のコードです。

投稿日時 - 2020-10-21 15:59:45

お礼

問題なく実行できました。
ありがとうございました。

投稿日時 - 2020-10-21 22:22:26

あなたにオススメの質問