Excel VBA if文の出力値が0のみ

Question

ここでは、私が作業しているコードを示します。それは本当にシンプルですが、期待どおりに動作していません。今

Dim hey As Range 
Set hey = Range("A1:A5") 

For Each i In hey 

If i.Value = "15" Then 
i.Offset(0, 2).Value = "15" And i.Offset(0, 3).Value = "15" 

ElseIf i.Value = 10 Then 
i.Offset(0, 2).Value = "10" And i.Offset(0, 3).Value = "10" 

ElseIf i.Value = 5 Then 
i.Offset(0, 2).Value = "5" And i.Offset(0, 3).Value = "5" 

ElseIf i.Value > 15 And i.Value = "*5" Then 
i.Offset(0, 2).Value = "10" And i.Offset(0, 3).Value = "5" 

Else: i.Offset(0, 2).Value = 10 And i.Offset(0, 3).Value = 10 
End If 
Next i 

、それがどうなるすべては、私は、なぜ区別することはできませんし、私はこれで私の精神的なロープの終わりに午前2列と出力0によって相殺されます。私はそれが何か遅れて簡単に私は見落としていると確信しています。

私はステップスルーを試みましたが、それはサンプルの各値に対して正しく評価されているように見えますが、依然として0の値を示しています。また、引用と一緒に遊んでいたのかどうかを見ていましたが、私は彼らと一緒に仕事をしたいと思っています。

ありがとうございました。

Answer 1

これは私がAndステートメントを除去することによって、何を意味するかです：

Dim hey As range 
Set hey = range("A1:A5") 

For Each i In hey 

If i.Value = "15" Then 
i.Offset(0, 2).Value = "15" 
i.Offset(0, 3).Value = "15" 

ElseIf i.Value = 10 Then 
i.Offset(0, 2).Value = "10" 
i.Offset(0, 3).Value = "10" 

ElseIf i.Value = 5 Then 
i.Offset(0, 2).Value = "5" 
i.Offset(0, 3).Value = "5" 

ElseIf i.Value > 15 And i.Value = "*5" Then 
i.Offset(0, 2).Value = "10" 
i.Offset(0, 3).Value = "5" 

Else 
i.Offset(0, 2).Value = 10 
i.Offset(0, 3).Value = 10 
End If 
Next i 

EDIT：コンピュータプログラムに

、そして比較演算子です。それは人間とまったく同じようにそれを理解していません。別の人間と話し合うときは、「と」でつなげられた一連のタスクを与えることができます。タスク自体が混乱しない限り、何をすべきかに混乱はありません。コンピュータはAndを使用して、複数の条件が同時に満たされているかどうかを確認します。あなたの最後のElseifでは、これを正しく使用してコンピュータに「i.Valueが15かどうかをチェックし、i.Value = "* 5"かどうかを確認してください（Andステートメントのために）条件が真であれば、次のコードを実行してください。

これは違いを説明するのに役立ちます。

EDIT 2：@liteliteの提案から

は、Like演算子を使用します。

ElseIf i.Value > 15 And i.Value Like "*5" Then 
i.Offset(0, 2).Value = "10" 
i.Offset(0, 3).Value = "5" 

Answer 2

@PartyHatPandaの裏側のアンサーにちょうどいいです。 ElseIf i.Value > 15 And Right(i.Value, 1) = 5 Thenを使用できます。これは、i.valueの最後の数字が5に等しいかどうかをチェックします。