Label ondalık sayı tanımla kod satırı nasıl tanımlanır?

[bkk]

Merhabalar,

Label1 deki değerimi ondalık olarak tanımlamak istiyorum ancak aşağidaki kod satırlarında başarılı olamadım, yardımcı olabilir misiniz?


Private Sub UserForm_Initialize()
Label1.Caption = Format(Label1.Caption, "#,##")
End Sub

Teşekkür ederim,

 

[Necdet]

Merhaba,

    Label1.Caption = Format(Label1.Caption, "#,##0.00")

 

[bkk]

Merhaba,

    Label1.Caption = Format(Label1.Caption, "#,##0.00")

teşekkür ederim deneyeceğim

 

[bkk]

Merhaba,

    Label1.Caption = Format(Label1.Caption, "#,##0.00")

Denedim ancak sonuç alamadım ek olarak eklesem bakabilir misiniz

 

[Orion1]

Dosya uzantısı uygun değil.
Dosyayı açmıyor.

 

[Necdet]

Merhaba,

Kodlarınızı pek anlamadım, daha format olayına gelmeden hata veriyor.

 

[bkk]

Merhaba,

Kodlarınızı pek anlamadım, daha format olayına gelmeden hata veriyor.

Merhabalar,
Ekte bulunan çalışmamdaki hedefim ;
listboxtan seçilen trim ile textboxa yazılan gauge değerinin keşisimini bulmaktır,
Eğer gauge değeri 5'in katları değilse farklı bir formül kullanıyoruz, 5'in katları ise listeden karşılık gelen değeri veriyor,
Ancak hata veren kısım şu;
ilk önce textbox bilgi girip sonra listboxtan veri seçersem program kırılıyor, bunu halledeceğim ancak öncelikle ondalık problemini düzeltmem gerekiyor,

 

[bkk]

Dosya uzantısı uygun değil.
Dosyayı açmıyor.

tekrar indirdim benim bilgisayarımda açılıyor

 

[Haluk]

Userform'ların her ikisinde de Listbox yok ...

Neyse, siz resimdeki gibi ondalık sayı girerken virgül yerine nokta girin. Kullandığınız Excel VBA yazılımını, özelliklerine göre kullanmanız gerekir.

Ya da, ilave gereksiz kodlar yazmak gerekir.... Örneğin; aşağıdaki kodu UserForm2 modülüne ilave ederseniz, TextBox1'e virgül karakteri girdiğinizde, nokta ile değiştirir.

Private Sub TextBox1_Change()
    TextBox1 = Replace(TextBox1, ",", ".")
End Sub

.

 

[bkk]

Userform'ların her ikisinde de Listbox yok ...

Neyse, siz resimdeki gibi ondalık sayı girerken virgül yerine nokta girin. Kullandığınız Excel VBA yazılımını, özelliklerine göre kullanmanız gerekir.

Ya da, ilave gereksiz kodlar yazmak gerekir.... Örneğin; aşağıdaki kodu UserForm2 modülüne ilave ederseniz, TextBox1'e virgül karakteri girdiğinizde, nokta ile değiştirir.

Private Sub TextBox1_Change()
    TextBox1 = Replace(TextBox1, ",", ".")
End Sub

Ekli dosyayı görüntüle 232195

.

teşekkür ederim, yanlış dosya ve yorumum içinde özür dilerim bir süredir ilgilenemedim farklı dosya üzerinden yorumlama yapmışım,
Verdiğini kodu uyguladım ancak yeni bir sorunum var Auto _open komutu ile çalışma sayfasını gizledim şimdi sadece userformu görüyorum, tekrar kod sayfasına nasıl dönebilrim

 

[bkk]

Dosya uzantısı uygun değil.
Dosyayı açmıyor.

Uzantı xlsm olacak sonunda .xlsx kaldığı için algılamıyor, bunu nasıl yaptığımı anlamadım

 

[Haluk]

Kodların hata yapmasını sağlayan değerler girin TextBox nesnelerine ..... Kod, hata verdiği zaman editör penceresinde Auto-Open prosedüründeki sayfa gizleme işini iptal edin....

Benim tavsiyem; bu tür işleri pek kullanmayın. Emeklemeyi öğrenmeden yürümeye çalışıyorsunuz....

.

 

[bkk]

Kodların hata yapmasını sağlayan değerler girin TextBox nesnelerine ..... Kod, hata verdiği zaman editör penceresinde Auto-Open prosedüründeki sayfa gizleme işini iptal edin....

Benim tavsiyem; bu tür işleri pek kullanmayın. Emeklemeyi öğrenmeden yürümeye çalışıyorsunuz....

.

Teşekkür ederim,
Açık öğretimden yönetim bilişim okuyorum, elimden geldiğince çevremdeki talepleri forumlar aracılığı ile yapıyorum, her yaptığım örnek bir bilgi edinmemi sağlıyor fakat öğrenirken bir yol haritam olmadığı için hangi bilgileri kullanmak erken bilemiyorum