セル上でループするVBA

数値で空でない場合、セルの値を置き換えるいくつかのコードがあります。値が変更されていない場合（ "2012"、 "2013"、2012、2013）にのみ値を置き換えるようにコードを修正するにはどうすればよいですか？セル上でループするVBA

Set rng = ActiveSheet.UsedRange 
For Each cell In rng 
    If IsNumeric(cell) And Not IsEmpty(cell) Then 
    cell.Value = "max" 
    End If 
Next cell

出典

2017-09-20 Max888

最初にネストされたものを追加します。 'もしそうでなければ（セル= 2012またはセル= 2013または...）' –

同じセルで実際に評価をしているだけなので、簡単に保つことができます。

If IsNumeric(cell) And Not IsEmpty(cell) AND cell <> 2012 AND cell <> 2013 Then

出典

2017-09-20 18:27:17

'2012 <>" 2012 "'しかし、どちらもIsNumericでtrueを返します。そして、セルは、セルのデフォルトの子が 'cell.Value'であるので、確かに数字に等しいことができます –

ありがとう@ScottCraner。私は最近Word vbaで頭を抱えていました。私は自分の答えを更新した、それは私のために働く。 –

答えて

関連する問題