spreadsheet binlik ayıraç

[odin]

Merhabalar;

ekteki örnekte spreadsheet a1 hücresine 1000 -->1.000 olarak yazdıramadım.

Yardımlarınız için şimdiden teşekkürler iyi bayramlar.

 

[Orion1]

Ekli dosyadaki gibi bir şey yaptım.Umarım işinize yarar.

Private Sub Spreadsheet1_SheetChange(ByVal Sh As OWC11.Worksheet, ByVal Target As OWC11.Range)
adr = Spreadsheet1.ActiveCell.Address
Range(adr) = Spreadsheet1.ActiveCell
[COLOR="Red"]Spreadsheet1.Range("A1") = Format(Spreadsheet1.Range("A1"), "#,##0.00")[/COLOR]
End Sub

 

[odin]

arkadaşım evet fakat kuruş hanesini istemiyorum.

 

[captan]

Aşağıdaki Kırmızı Kodu eklersen Sorunsuz çalışacaktır !!

Ekli dosyadaki gibi bir şey yaptım.Umarım işinize yarar.

Private Sub Spreadsheet1_SheetChange(ByVal Sh As OWC11.Worksheet, ByVal Target As OWC11.Range)
adr = Spreadsheet1.ActiveCell.Address
Range(adr) = Spreadsheet1.ActiveCell
[COLOR="Red"]Me.Spreadsheet1.Columns("A:B").NumberFormat = "#,##0"[/COLOR]
End Sub

 

[odin]

eyvallah güzel kardeşim ellerine sağlık