IF文を使用すると、出力はすべて同じ番号を返し続けますか？

Question

私は、範囲の各値を2つの列から対応する値に変更するコードを記述しようとしています。たとえば、私の範囲内の値が€29.99の場合。表と列1を見て、その値と等しい値を見つけたら、その範囲のセルを列2の隣の値24.99に変更します。

私が書いたコードは、マクロが影響するすべてのセルに対して常に同じ値を返します。これは、列2の最小値（9.99ポンド）です。したがって、たとえば€59.99、29.99などの値さえも£9.99に変更されています。なぜこれが起こっているのかわからないのですか？またはそれを解決する方法？

€RRPをカラム1であり、£RRPは、カラム2

これは

すべてのヘルプは大きくなるであろう 'デジタル€' であるものの一例です感謝。

Sub EurosToPounds() 

Dim rng As Range 

If Sheets("Pricing Matrix").Range("InPounds") = "TRUE" Then 
Exit Sub 

ElseIf Sheets("Pricing Matrix").Range("InPounds") = "False" Then 

For Each rng In Worksheets("Digital €").Range("Digital") 
    If rng = Range("Euro1") Then 
     rng.Value = Range("Euro1").Offset(0, 2).Value 
    ElseIf rng = Range("Euro2") Then 
     rng.Value = Range("Euro2").Offset(0, 2).Value 
    ElseIf rng = Range("Euro3") Then 
     rng.Value = Range("Euro3").Offset(0, 2).Value 
    ElseIf rng = Range("Euro3") Then 
     rng.Value = Range("Euro3").Offset(0, 2).Value 
    ElseIf rng = Range("Euro4") Then 
     rng.Value = Range("Euro4").Offset(0, 2).Value 
    ElseIf rng = Range("Euro5") Then 
     rng.Value = Range("Euro5").Offset(0, 2).Value 
    ElseIf rng = Range("Euro6") Then 
     rng.Value = Range("Euro6").Offset(0, 2).Value 
    ElseIf rng = Range("Euro7") Then 
     rng.Value = Range("Euro7").Offset(0, 2).Value 
    ElseIf rng = Range("Euro8") Then 
     rng.Value = Range("Euro8").Offset(0, 2).Value 
    ElseIf rng = Range("Euro9") Then 
     rng.Value = Range("Euro9").Offset(0, 2).Value 
    ElseIf rng = Range("Euro10") Then 
     rng.Value = Range("Euro10").Offset(0, 2).Value 
    ElseIf rng = Range("Euro11") Then 
     rng.Value = Range("Euro11").Offset(0, 2).Value 
    ElseIf rng = Range("Euro12") Then 
     rng.Value = Range("Euro12").Offset(0, 2).Value 
    End If 
Next 

Sheets("Digital €").Select 
Sheets("Digital €").Range("Digital").Select 
Selection.NumberFormat = _ 
    "_-[$£-809]* #,##0.00_-;-[$£-809]* #,##0.00_-;_-[$£-809]* ""-""??_-;_-@_-" 

Sheets("Pricing Matrix").Select 
Worksheets("Pricing Matrix").Range("InEuros") = "TRUE" 

Sheets("Pricing Matrix").Select 
Worksheets("Pricing Matrix").Range("InPounds") = "FALSE" 

End If 
End Sub 

このコードは数字がに変化させ、次のように私のコードがある...

次のように提案する別の方法がある...しかし

Sub EurosToPounds() 

Dim rng As Range 

If Sheets("Pricing Matrix").Range("InPounds") = "TRUE" Then 
Exit Sub 

ElseIf Sheets("Pricing Matrix").Range("InPounds") = "False" Then 

For Each rng In Worksheets("Digital €").Range("Digital") 
Dim foundRange As Range 
Set foundRange = Range("EuroRange").Find(rng.Value) ' EuroRange should contain (
'              Euro1, Euro2,.. etc). 
If Not foundRange Is Nothing Then rng.Value = foundRange.Offset(0, 2).Value 
Next 

Sheets("Digital €").Select 
Sheets("Digital €").Range("Digital").Select 
Selection.NumberFormat = _ 
    "_-[$£-809]* #,##0.00_-;-[$£-809]* #,##0.00_-;_-[$£-809]* ""-""??_-;_-@_-" 

Sheets("Pricing Matrix").Select 
Worksheets("Pricing Matrix").Range("InEuros") = "TRUE" 

Sheets("Pricing Matrix").Select 
Worksheets("Pricing Matrix").Range("InPounds") = "FALSE" 

End If 
End Sub 

この中に結果は、 ...

私は、2番目の方法が "Digital€"のセルの一部に数式を含んでいるので、2番目の方法が機能しない可能性があると感じています。数式を含むセルを無視する方法はありますか、それはそれを解決するかもしれません。何度もお世話になりました！

Answer 1

rngが範囲として宣言されています。だからあなたはその価値を比較しなければなりません。

同様：

If rng = Range("Euro1") Then 

しかし、この方法であなたはRNGの値を比較します。

If rng.value = Range("Euro1").value Then ... 

Answer 2

私は、この行でOPが2つの変数が同じ範囲を参照するかどうかを判断したいと思いますとRange（ "Euro1"）、おそらく最初のセルのものだけです。したがって、rngがEuro2を参照するが、Euro1とEuro2の最初のセルに同じ値が含まれている場合、Euro2の代わりにEuro1の2番目のセルが使用されます。

ソリューション：あるか、そのアドレスを使用して範囲を比較：

まあ

If rng Is Range("Euro1") Then ' Version A 
If rng.Address = Range("Euro1").Address Then ' Version B - assuming that all cells in question are on the same sheet 

Answer 3

を、あなたはValueオブジェクトRangeのデフォルトのメンバーで、コメントで言ったように。したがって：

はい、あなたが代わりにRange.ValueのRangeを使用することができますし、あなたが値ををチェックしているとき、それが問題になることはありません。しかし、を範囲の値のに変更するときは、値を設定するために使用する変数のタイプに注意する必要があります。詳細については、this answerを確認してください。

rng = Range("YourRange").Offset(0, 2).Valueを使用すると、変数（rng）が範囲であるため、実際に範囲（セル）の値を変更していないことになります。あなたが使用する必要があり、実際にセル/範囲の値を変更するには、：したがって

rng.Value = Range("YourRange").Offset(0, 2).Value ' The second ".Value" is optional 
'             while the first one is mandatory. 

を、あなたの現在の方法を使用してコードは、次のようになります。

For Each Rng In Worksheets("Digital €").Range("Digital") 
    If Rng = Range("Euro1") Then 
     Rng.Value = Range("Euro1").Offset(0, 2).Value 
    ElseIf Rng = Range("Euro2") Then 
     Rng.Value = Range("Euro2").Offset(0, 2).Value 
    ' Your remaining cases 
    ' 
    End If 
Next 

しかし、If.. Then.. ElseIfにを使用してすべての12の場合を確認するのは良い方法ではありません。代わりに、Range.Findを使用して、指定された範囲内の一致する値を検索する必要があります。以下のような何かはあなたが必要なものすべてです：

For Each Rng In Worksheets("Digital €").Range("Digital") 
    Dim foundRange As Range 
    Set foundRange = Range("EuroRange").Find(Rng.Value) ' EuroRange should contain (
    '              Euro1, Euro2,.. etc). 
    If Not foundRange Is Nothing Then Rng.Value = foundRange.Offset(0, 2).Value 
Next 

希望:)