textbox sayısal ayraç problemi

[zafer]

Merhaba

Aşağıdaki formatı textboxlarıma uygulamak istiyorum
Fakat bir türlü netice alamadım

Uluslararasındaki değerleride değiştirmeme rağmen de netice alamadım.



For a = 2 To 27 Step 3
Controls("textbox" & a).Value = FormatCurrency(Controls("textbox" & a))
Next

For a = 2 To 27 Step 3
Controls("textbox" & a).Value = Ccur(Controls("textbox" & a))
Next


For a = 2 To 27 Step 3
Controls("textbox" & a) = Format(Controls("textbox" & a), "#.##0,00")
Next



640.346,76 hücrede ki parasal değer
64.034.676,00 textbox daki parasal değer böyle geliyor

binlik ayracını “,” yaptığımda da düz olarak yazıyor


Saygılarımla,

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:3048608af8]For a = 2 To 27 Step 3
Controls("textbox" & a) = Format(Controls("textbox" & a), "#,##0.00")
Next
[/vb:1:3048608af8]

 

[zafer]

Merhaba

Sn. Leventm ilginize teşekkür ederim
Gene değişik bir formatta getiriyor.

Ben kodların hepsini gönderiyorum sanki bir mantık hatası var.

Private Sub MultiPage1_Click(ByVal Index As Long)
On Error Resume Next

If MultiPage1.SelectedItem.Name = "Page3" Then


For a = 1 To 9
Controls("textbox" & a).Value = Sheets("toplam").Cells(a + 1, 2)
Next

For a = 1 To 9
Controls("textbox" & a + 9).Value = Sheets("toplam").Cells(a + 1, 3)

Next


For a = 1 To 9
Controls("textbox" & a + 18).Value = Sheets("toplam").Cells(a + 1, 4)
Next


For a = 1 To 27 Step 3
Controls("textbox" & a) = Format(Controls("textbox" & a), "0")
Next

For a = 2 To 27 Step 3
Controls("textbox" & a) = Format(Controls("textbox" & a), "#,##0.00")
Next


For a = 3 To 27 Step 3
Controls("textbox" & a) = Format(Controls("textbox" & a), "###,##0")
Next

End If

End Sub


Saygılarımla

 

[Levent Menteşoğlu]

Ã?rneğin aşağıdaki gibi deneyin.

Controls("textbox" & a + 9).Value = format(Sheets("toplam").Cells(a + 1, 3) , "#,##0.00")

 

[zafer]

Merhaba

Çok Teşekkür Ederim