「Cell（ n , "A" ）よりも10上のセルに1 or 2 が記入されていなければ、Cell（ n , "A" ）に1を記入する」

質問

「Cell（ n , "A" ）よりも10上のセルに1 or 2 が記入されていなければ、Cell（ n , "A" ）に1を記入する」
というコードを作ってみましたが、メチャクチャな動きになってしまいます（動きが読めません）。
どこが間違っているのか教えてください。
また、もし、よりわかりやすいコードがありましたら教えていただけると嬉しいです。
よろしくお願いいたします。

Sub Cell（ n , "A" ）に1を記入する()

Dim n As Long
Dim m As Long
Dim s As Long

'現在のセル（ n , "A" ）より14行上に数値がないことを確認するために
'14行上のセルを全て足し算しています。
For m = n - 14 To n - 1
s = s + Worksheets("Sheet1").Cells(m, "A").Value
Next

'足し算結果がゼロならば何も記入していないと判断し、
'数字の「1」を記入します。
If s >= 1 Then
Worksheets("Sheet1").Cells(n - 1, "A").Value = 0
ElseIf s = 0 Then
Worksheets("Sheet1").Cells(n - 1, "A").Value = 1
End If
End Sub

回答No.3

gori8063 · ベストアンサー

はいはい了解。

今着目しているセルが (n,1)であるとする。

条件：　今いるところから上に14行サーチして、一度でも１か２の値が見つかったら
　　　　　回答を０とする。14行すべてに１・２の値がひとつも含まれていなければ１とする。

Ans　=　1

for i　=　1 to 14

x　=　cells　(　n　-　i　,　1　).value

if x　=　1 or x　=　2
then
Ans　=　0
endif
next i

cells　(　n　,　1　)　=　Ans

デフォルトの回答値＝1としておき、一回でも条件にヒットしたら回答値＝0にする。
ヒットしたらfor～nextを強制的に閉じてもいいけど、面倒なのでそのまま14回検索する。

お礼

検証してみました。
完璧です。

二日間も悩んでいたので、とても清々しい気持ちです。

大変感謝しております。
ありがとうございました。

回答No.2

gori8063

補足されてもぜんぜんわかりません。
もう少しきちんと順序だてて状況を書いてもらわないと誰でも理解不能ですよ。

まず
(1)
・基準となるセルの14行上のセル「１つ」の判定をしたい
・基準となるセルの１～14行上のセル「すべて」の判定をしたい

のかがわかりません。

(2)
すべてを判定するとした場合
・14個のセルのうちひとつでも「１または２」の数値が検出されたら答えを１とし、それ以外だったら０とするだけでいいのか
・他の条件があるのか

補足お願いします。

補足

説明が上手くなく、申し訳ございません。

（１）
「基準となるセルの１～14行上のセル「すべて」の判定をしたい」です。

（２）
14個のセルのうちひとつでも「１または２」の数値が検出されたら答えを「０」と表示し、
14個のセルのうちひとつも「１または２」の数値が検出されなかったら答えを「１」と表示させたいです。
他の条件はありませんが、セルの中は「０、１、２、何もなし」の4種類の値になります。

何度も申し訳ございませんが、よろしくお願いいたします。

回答No.1

gori8063

「Cell（ n , "A" ）よりも10上のセルに1 or 2 が記入されていなければ、Cell（ n , "A" ）に1を記入する」

の意味が分かりません。
n行Ａ列目のセルより上10行のＡ列のセル「すべて」のことを言っているのか、ただn-10行目の数値を判定したいのかがわかりません。

補足

補足いたします。

現在のセル（ n , "A" ）より14行上に数値がないことを確認します。それより上には数値があっても構いません。

よろしくお願いいたします。