Çözüldü Makro sonucu yanlış veriyor

[ptcsite]

D10 hücresi: 80
D11 Hücresi: 30,7
I10 Hücresi = 3 oluyor.

ya da

D10 hücresi: 24,30
D11 Hücresi: 30,7
I10 Hücresi = 1 oluyor.

ya da

D10 hücresi: 8
D11 Hücresi: 30,7
I10 Hücresi = 0 oluyor.

Bu saçmalığı nasıl açıklayabilirsiniz...

Sub AAASILLL()
Dim a As Integer
        a = WorksheetFunction.Round(Sayfa4.Range("D10").Value / Sayfa4.Range("D11").Value, 2)
Sayfa4.Range("I10").Value = a
End Sub

 

[ptcsite]

Dim a AsDouble olacakmış

Benim kafamı bulandıran bundan önceki hesaplarda integer olmasına rağmen double şeklinde işlemleri göstermeleri ama bu hücrede göstermemesi...

Olay çözüldü sağolun

 

[HücrelereFısıldayanAdam]

Saçmalık yok, kod mantıklı çalışmış.
"Dim a As Integer" demişsiniz, kodda da "round" kullanmışsınız, sonuçları en yakın tam sayıya yuvarlamış.
"Dim a As Integer" ı Single veya Double ile değiştirin, sorun çözülür.