1 sayfadan 1. sayfa

Label Kuruş formatı

İletiTarih: 14 Haz 2016 16:28
wolky78
Merhaba,

Label'a sayfadan değer almaktayım yalnız kuruşlar 4 hane çıkıyor, iki haneye nasıl düşürebilirim,

Örnek: 120.200,7742 gibi çıkıyor ben 120.200,77 istiyorum

teşekkürler

Cevap: Label Kuruş formatı

İletiTarih: 14 Haz 2016 16:54
Ali ÖZ
Kod: Tümünü seç
label1.caption = format(label1.caption,"#,##0.00")


Kod: Tümünü seç
label1.caption = cdbl(label1.caption)

Cevap: Label Kuruş formatı

İletiTarih: 14 Haz 2016 17:23
wolky78
aşağıdaki şekilde denedim olmadı nerde hata yapıyorum ?

Kod: Tümünü seç
Private Sub Label1_enter()
Label1.Caption = CDbl(Label1.Caption)
End Sub

Cevap: Label Kuruş formatı

İletiTarih: 14 Haz 2016 17:31
Ali ÖZ
1 - Label in enter özelliği yoktur.
2- Önce Labele sayısal bir değer atamalısınız.

Kod: Tümünü seç
Private Sub UserForm_Initialize()
Label1.Caption = "10256,22"
Label1.Caption = CDbl(Label1.Caption)
End Sub

Cevap: Label Kuruş formatı

İletiTarih: 14 Haz 2016 17:50
wolky78
Yalnız sayfadan verileri alıyorum değer atayınca nasıl olacak ?

Cevap: Label Kuruş formatı

İletiTarih: 14 Haz 2016 20:13
Ali ÖZ
Böyle olacak.

Kod: Tümünü seç
Label1.Caption =range("a1").value
Label1.Caption = CDbl(Label1.Caption)

Cevap: Label Kuruş formatı

İletiTarih: 15 Haz 2016 10:09
wolky78
Teşekkürler

Cevap: Label Kuruş formatı

İletiTarih: 15 Haz 2016 10:37
Ali ÖZ
--)(