Label Format Ekleme

[AylaMehmet]

Merhaba Arkadaslar,

Aşagıdaki kod nasıl format ekleyebilirim? (0.000 şeklikde görünmesi icin)

Private Sub UserForm_Initialize()
Label50.Caption =WorksheetFunction.SumIf(Sheets("Stock Report").Range("c:c"), "C913127 ", Sheets("Stock Report").Range("S:S"))
End Sub

 

[Emir Hüseyin Çoban]

. . .

Bir kaç tane işlem sonucu örneği veriniz.
Bu şekilde çıkan sonuçlar nedir, bu sonuçların olmasını istediğiniz formatlı hali nedir ?

. . .

 

[ExcelF1]

Private Sub UserForm_Initialize()
Label50.Caption =Format(WorksheetFunction.SumIf(Sheets("Stock Report").Range("c:c"), "C913127 ", Sheets("Stock Report").Range("S:S")),"0.000")
End Sub

gibi olmalı sanırım.