数値が１の時は1で、他の数値は2倍にしたいので

質問

VBAで手仕事の計算式を作っているのですが・・・・・・

If dif <> 0 Then
hme1 = Str(ddan * 2) + " " + Str(dif)
Range("_TDIF").Item(i).Value = hme1
ddan = 0
End If
2行目の(ddan * 2)として、偶数ddanにするために2倍にしたのですが、数値が1の場合は1のままで、
その他は2倍にする方法を教えてください。
よろしくお願いします。

回答No.1

keithin · ベストアンサー

hme1 = Str(iif(ddan=1,1,2*ddan)) + " " + Str(dif)
とかでしょうか。

お礼

早速に回答を頂き有難うございました。
お陰さまで思ったように解決致しました。

又の質問の時にはよろしくご指導くださいませ。

回答No.5

imogasi

Sub test03()
For i = 1 To 7
If i = 1 Then
Cells(i, "B") = 1
Else
Cells(i, "B") = i * 2
End If
Next i
End Sub
のような、ＩＦステートメントで場合を分けるのはダメなのですか。質問の意味、わざわざ聞く意味がわからない。
１行で書く既に回答に出ているＩＩＦや
Sub test02()
For i = 1 To 7
Cells(i, "A") = (i = 1) * -1 + (i > 1) * -2 * i
Next i
End Sub
もあるが上記は出来るというだけ。
＞VBAで手仕事の計算式を作っているのですが・
の意味も良くわからない。質問に書く必要あるのかな

回答No.4

kmetu

if ddan=1 then
hme1="1"
else
hme1 = Str(ddan * 2) + " " + Str(dif)
end if

ということでしょうか

回答No.3

Cupper-2

整数…ですよね。

アルゴリズムとしては、
　全部の数字を２倍にする
　２倍にした数字が２ならば１に置き換える
で良いと思いますがどうでしょう。

回答No.2

mshr1962

If dif <> 0 Then
hme1 = Str(ddan * Iif(dif = 1 ,1,2)) + " " + Str(dif)
Range("_TDIF").Item(i).Value = hme1
ddan = 0
End If

または

If dif <> 0 Then
If dif = 1 Then
hme1 = Str(ddan) + " " + Str(dif)
Else
hme1 = Str(ddan * 2) + " " + Str(dif)
End If
Range("_TDIF").Item(i).Value = hme1
ddan = 0
End If