Ondalık Sayı Virgülden Sonra ,00 ise Göstermesin

[sbayyigit]

Merhaba Arkadaşlar Makro ile çalışıyorum. Çalıştığım sayfada yoğun olarak küçük ondalık sayılar, ama bazen de büyük tam sayılar var. Büyük tam sayı olduğu zaman ondalık kısmı da gelince belirlediğim alana sığmıyor.
İstediğim şey eğer sayı tam sayı ise ondalık kısmı göstermesin.
kodlarım şöyle
b = 9
For a = 3 To 29
If S1.Range("d" & a).Value > 0 Then
S1.Range("h" & b).Value = S1.Range("a" & a).Value
S1.Range("ı" & b).Value = S1.Range("d" & a).Value
S1.Range("j" & b).Value = S1.Range("e" & a).Value
S1.Range("k" & b).Value = S1.Range("F" & a).Value / S1.Range("ı" & b).Value
S1.Range("l" & b).Value = S1.Range("F" & a).Value
b = b + 1
End If
Next a
If b = 9 Then

Yardımcı olursanız sevinirim. Teşekkürler.

 

[sbayyigit]

Çok teşekkürler. İşimi gördü
Allah razı olsun