TextBox a tarih

[acolkesen1]

Merhaba,

Private Sub UserForm_Initialize()
TextBox1.Value = CDate(Format((Date), "dd.mm.yyyy"))
End Sub
Yujarıdaki kodla Textbox a tarih yazdırmak istiyprum. Ancak, tarih 17.02.2010 şeklinde yazılması gerekirken (bana göre ), 2/17/2010 şeklinde yazılıyor. Kodda nasıl bir değişiklik gerektiği konusunda yardıma ihtiyacım var. ilgilenen arkadaşlara teşekkür ederim.

 

[Ömer]

Merhaba,

Private Sub UserForm_Initialize()
    TextBox1.Value = Format(Date, "dd.mm.yyyy")
End Sub

Bu şekilde deneyin.

.

 

[security]

Merhaba,

Private Sub UserForm_Initialize()
    TextBox1.Value = Format(Date, "dd.mm.yyyy")
End Sub

Bu şekilde deneyin.

.

tşk iyi çözüm... Ek olarak bu kodu da deneyebilirsiniz...

Private Sub UserForm_Activate()
Label1.Caption = Format(Now, " dd.mm.yyyy ")
End Sub

text kutusu değilde label kullanabilirsiniz...

 

[acolkesen1]

Sayın Ömer ve Sayın security , ilginize teşekkür eder esenlikler dilerim. iyi geceler..

 

[security]

Sayın Ömer ve Sayın security , ilginize teşekkür eder esenlikler dilerim. iyi geceler..

rica ederim sizede iyi geceler...

 

[Ergün Güler]

Merhaba,

Private Sub UserForm_Initialize()
    TextBox1.Value = Format(Date, "dd.mm.yyyy")
End Sub

Bu şekilde deneyin.

.

Sayın Ömer,
Benzer sorunları yaşıyorum. Textbox1'deki tarih değil sayı ise örneğin
135354,5756863 ise 135.354,5 Kilo görünmesini nasıl sağlayabiliriz? bir türlü çözüm bulamadık. Yardımcı olursanız çok sevinirim.

 

[mancubus]

tipo

şöyle bir şey buldum...
belki ilham verir...

Me.TextBox1 =  Format(Me.TextBox1, "#,##0.00")

Text1.Text = Format$(Value, "#,###")

 

[halit3]

Sayın Ömer,
Benzer sorunları yaşıyorum. Textbox1'deki tarih değil sayı ise örneğin
135354,5756863 ise 135.354,5 Kilo görünmesini nasıl sağlayabiliriz? bir türlü çözüm bulamadık. Yardımcı olursanız çok sevinirim.

a1 hücresindeki değer tarihse tarihi gösterecek sayı ise sayı formatında gösterecektir.

Private Sub UserForm_Initialize()
If IsDate(Cells(1, 1).Value) = True Then
TextBox1.Text = CDate(Cells(1, "A").Value)
Else
TextBox1.Text = Format(Round(Cells(1, "A"), 1), "#,##0.00")
End If
End Sub

 

[Ergün Güler]

şöyle bir şey buldum...
belki ilham verir...

Me.TextBox1 =  Format(Me.TextBox1, "#,##0.00")

Text1.Text = Format$(Value, "#,###")

Sayın mancubus,
1. verdiğiniz kodu

Private Sub UserForm_Initialize()
Me.TextBox1 =  Format(Me.TextBox1, "#,##0.00")
End Sub

Şeklinde kullandım. her türlü denedim çalışıyor. çok teşekkür ederim.
2.kodunuzu çalıştıramadım. yazım hatası mı var?

 

[Ergün Güler]

a1 hücresindeki değer tarihse tarihi gösterecek sayı ise sayı formatında gösterecektir.

Private Sub UserForm_Initialize()
If IsDate(Cells(1, 1).Value) = True Then
TextBox1.Text = CDate(Cells(1, "A").Value)
Else
TextBox1.Text = Format(Round(Cells(1, "A"), 1), "#,##0.00")
End If
End Sub

Sayın Halit3,
verdiğiniz kodu

Private Sub UserForm_Initialize()
TextBox1.Text = Format(Round(Cells(1, "A"), 1), "#,##0.00")
End Sub

şeklinde kullandım. bir çoğunda oldu ancak, bazılarını yapamadım.

http://www.excel.web.tr/attachment.php?attachmentid=87446&d=1272201178

linkteki dosyayı size zahmet inceler misiniz?
Sizin çözümünüz de alternatif olur.

 

[halit3]

Sayın Halit3,
verdiğiniz kodu

Private Sub UserForm_Initialize()
TextBox1.Text = Format(Round(Cells(1, "A"), 1), "#,##0.00")
End Sub

şeklinde kullandım. bir çoğunda oldu ancak, bazılarını yapamadım.

http://www.excel.web.tr/attachment.php?attachmentid=87446&d=1272201178

linketi dosyayı size zahmet inceler misiniz?
Sizin çözümünüz de alternati olur.

kırmızı renkli sayı ondalık sayı karekterini belirlemektedir tabi noktadan sonraki formatda (.00") larıda bu doğrultuda azaltıp çoğaltabilirsiniz.

Private Sub UserForm_Initialize()
TextBox1.Text = Format(Round(Cells(1, "A"), [COLOR=#ff0000]2[/COLOR]), "#,##0.00")
End Sub

 

[Ergün Güler]

Sayın Halit3,
Harika bir çözüm. Çok teşekkürler.
Ancak dikkatimi çeken bir problem vardı. Tane'yi Tan diye yazıyordu. Tanee yazınca Tane diye göründü. şu an aşağıdaki gibi kullanıyorum.

TextBox2.Text = Format(Round(Cells(6, "g"), 1), "#,# Tanee")

sonu "e" olan bütün kelimelerin sondaki "e" harfini göstermiyor. Bunun sebebi nedir? "e" harfinin sırrı nedir?
Bence siz de bir deneyiniz göreceksiniz?
İyi çalışmalar,

 

[halit3]

Sayın Halit3,
Harika bir çözüm. Çok teşekkürler.
Ancak dikkatimi çeken bir problem vardı. Tane'yi Tan diye yazıyordu. Tanee yazınca Tane diye göründü. şu an aşağıdaki gibi kullanıyorum.

TextBox2.Text = Format(Round(Cells(6, "g"), 1), "#,# Tanee")

sonu "e" olan bütün kelimelerin sondaki "e" harfini göstermiyor. Bunun sebebi nedir? "e" harfinin sırrı nedir?
Bence siz de bir deneyiniz göreceksiniz?
İyi çalışmalar,

Tane kelimesi ile tırnak simgesinin arasına en sonuna bir adet boşluk karekteri bırak

TextBox2.Text = Format(Round(Cells(6, "g"), 1), "#,# Tane ")

 

[Ergün Güler]

Çok teşekkürler Sayın Halit3,