|
▼ringotyanZ さん:
おはようございます。
>すでにデータの入力されたセルの数値を全て半分(1/2)にしたいのですが、何か良い方法はありませんでしょうか?
>
>例えば、
>
>100 200 300
>120 140 160
>140 200 500
>
>と入力されている複数のセルを、
>
>50 100 150
>60 70 80
>70 100 250
>
>と全て半分の値にしたいのです。
>
>よろしくお願いします。
1/2にしたセル範囲を選択した状態で
'==========================================
Sub main()
Dim rng As Range
Set rng = Selection
With rng
If .Areas.Count = 1 Then
.Value = Evaluate("=if(isnumber(" & .Address & ")," _
& .Address & "/2," & .Address & ")")
Else
MsgBox "複数のエリアは駄目"
End If
End With
End Sub
を実行してみて下さい。
|
|