数値が１の時は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 回答日時： 2011/04/22 22:42

hme1 = Str(iif(ddan=1,1,2*ddan)) + " " + Str(dif)

とかでしょうか。

この回答へのお礼

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

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

お礼日時：2011/04/22 23:29

No.5 回答者： imogasi 回答日時： 2011/04/22 23:08

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 回答日時： 2011/04/22 22:47

if ddan=1 then

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


ということでしょうか

No.3 回答者： Cupper-2 回答日時： 2011/04/22 22:45

整数…ですよね。

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

No.2 回答者： mshr1962 回答日時： 2011/04/22 22:44

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