Nokta Ve VİrgÜl Formati

[CeNK_aLPeR]

Merhaba Arkadaşlar

Sayıların fortmatlarıyla alakalı bir problemim war. Araştırdım fakat işin içinden çıkamadım. Yardımcı olursanız sevinirim.

Yazdığım Sayı...............Olmasını İstedeğim format
10,1.........................................10.100 (virgül, nokta olacak ve 3 basamağa tamamlanacak
10,01........................................10.010
10,001.......................................10.001

10.1..........................................10.100 (yanına 0 gelerek 3 basamağa tamamlanacak)
10.01........................................10.010
10.001.......................................10.001

hücre formatındaki custom kısmına birkaç birşey yasdım fakat her seferinde başka bir hata oluyor.

böyle bir şey yapabilirmiyim?

 

[MAD_QUEEN]

Tüm tablonu seçtikten sonra sağ tuşla hücreleri biçimlendire gir, ordan sayı sekmesini tıkla orada ondalık basamak sayısı var onu 3 yap.Virgülleri noktaya çevirmek içinde bul ve değiştir seçeneğini kullanabilirsin aranan hanesine "," yeni değer hanesinede "." yazarsan virgüllerinin hepsi noktaya dönüşür.

 

[CeNK_aLPeR]

uyguladım fakat bir sonuç elde edemedim.bu arada bu bul ve değiştir olayını biras daha açabilirmisiniz?

 

[Recep İpek]

Aşağıdaki kullanıcı tanımlı fonksiyon ile 2 haneli kuruşları bu şekilde gösterebilirsiniz.

3 haneli göstermek için biraz uğraşmak gerekiyor.

[color=blue]Function FORMATCELL[/color](Rakam As Variant, Kurus As Boolean, Optional Dijit As Byte) [color=blue]As String[/color]
Dim a, b, c, d, e, f, g, h, i, j, k As Variant
On Error Resume Next
If Rakam = "" Then Exit Function
If Kurus = True Then
a = Len(Rakam)
b = InStr(Rakam, ",")
If b = 0 Then
c = a + 1
Else
c = b
End If
If (a - c) < 1 Then
d = 0
Else
d = a - c
End If
e = Left(Rakam, c - 1)
If d = 0 Then
f = "00"
Else
f = Right(Rakam, d)
End If
If d = 1 Then
g = f & "0"
ElseIf d = 0 Then
g = "00"
Else
g = f
End If
h = e & "." & g
Else
h = Rakam
End If
'********************************
If Dijit > Len(h) Then
k = WorksheetFunction.Rept(0, Dijit - Len(h)) & h
Else
k = h
End If
'********************************
FORMATCELL = k
[color=blue]End Function[/color]

 

[MAD_QUEEN]

Düzen menüsünden değiştir sekmesini tıkla. Dosyayı gönderirsen yardımcı olabilirim.

 

[Necdet]

1. Küsüratları 3 haneye ayarlayın.
2. Tools (Araçlar) - Options(Seçenekler) - Uluslararası(Internatioanal) da
Rakam Tutucu (Number Handling) de Sistem Ayracını Kullan (Use System Separators) daki çentiği kaldırın.

 

[CeNK_aLPeR]

örnek ektedir.

söylediklerinizi uyguladım fakat istediğim şeye ulaşamadım.

istediğim; ekteki örneğin "ürün bilgisi" sayfasında olan "kg/ds" sütunuyla ilgili

bu sütunda (hiç bir ayar yapmadığımda) *"istenilen" kısmındaki sayıların arasındaki boşlukları dikkate almayın.
yazılan...................oluşan................istenilen
10,001...................10,001...............10.001
10,01.....................10,01................10.010
10,1.......................10,1.................10.100
yada
10.001...................10.001...............10.001
10.01.....................10.Oca..............10.010
10.1.......................10.Oca..............10.100

söylediklerinizi uyguladığımda;
yazılan...................oluşan....................istenilen
10,001...................10,001...................10.001
10,01.....................10,01....................10.010
10,1.......................10,1......................10.100
yada
10.001...................10001,000...............10.001
10.01.....................39092,000..............10.010
10.1.......................39092,000..............10.100

virgülle yasdıklarımda istediğim 3 haneye tamamlama işlemi gerçekleşiyor fakat virgüller noktaya dönüşmüyor.

noktayla yasdıklarımdaki olayın neden kaynaklandığını hala çözebilmiş değilim.

 

[CeNK_aLPeR]

merhaba

sadece bir sütun için, içinde gördüğü virgülleri noktaya çevirmem kaldı bunu formülle nasıl yapabilirim...

yardım ederseniz az önce sorduğum sorunun cevabını bulmuş olacağım.

teşekkürler

 

[CeNK_aLPeR]

arkadaşlar merhaba

güncel...

teşekkürler

 

[CeNK_aLPeR]

merhaba

böyle birşey yapmak mümkün değilmi acaba?

teşekkürler

 

[Recep İpek]

Benim gönderdiğim makro kodlarını kullanabilirsiniz.Takıldığınız noktada yardımcı olabilirim.

 

[the_umit]

istediğin formatın uygulanmasını istediğin hücrelerin formatını sağ tuş - hücreleri biçimlendir - isteğe uyarlanmış ve #.###,00 0 formatını gir

 

[CeNK_aLPeR]

merhaba

arkadaşlar teşekkür ederim fakat bir sonuç elde edemiyorum.klavyenin sayı kısmındaki virgülü noktaya çeviriyor fakat harflerin olduğu yerdeki vigülü hiç bir şekilde değiştirmiyor. ayrıca bir yerden kopyalanmış bi verideki virgülleri de değiştirmiyor.

teşekkürler

 

[Ali]

merhaba

arkadaşlar teşekkür ederim fakat bir sonuç elde edemiyorum.klavyenin sayı kısmındaki virgülü noktaya çeviriyor fakat harflerin olduğu yerdeki vigülü hiç bir şekilde değiştirmiyor. ayrıca bir yerden kopyalanmış bi verideki virgülleri de değiştirmiyor.

teşekkürler

Klavyeden virgül girdiğinizde noktaya çeviriyorsa ayarlarınız değişmiş olabilir.Araçlar- Denetim Masası-Bölgesel Seçenekler-Sayılar kısmında Ondalık simgesi virgül,basamak gruplandırma simgesi nokta olarak seçilimidir.

 

[CeNK_aLPeR]

merhaba

ben değiştirmesini istiyorum fakat değiştirmiyor, sorun bu zaten.

bu arada söylediğiniz ayarları bulamadım.bölgesel ayarlarda sayılar kısmını göremedim

teşekkürler

 

[Ali]

merhaba

ben değiştirmesini istiyorum fakat değiştirmiyor, sorun bu zaten.

bu arada söylediğiniz ayarları bulamadım.bölgesel ayarlarda sayılar kısmını göremedim

teşekkürler

 

[CeNK_aLPeR]

merhabalar

yine olmadı.klavyede harfler tarafındaki virgüle("i"nin yanındaki) bastığımda normal yazı olarak görüyor.

teşekkürler

 

[tefenli]

Aynı sorun Bende de Var ? Çözen Var mı ?

xp işletim sisteminde ofis-2000 kurulu. Virgülden sonra yazmaya başlarken nümerrik sistemden metin haline geçiveriyor.
Çözen / çözebilen varsa yazarsa sevinirim.
Teşekkürler

 

[tefenli]

Yazarken VİrgÜl Nokta Oluyordu ÇÖzdÜm !

sorunumu denetim masasını tıkladım
bölge ve dil seçeneklerini tıkladım
diller seçeneğini tıkladım
ayrıntıları tıkladım
varsayılan giriş dillerini hepsini kaldırdım.
ingilizce-türkçe Q seçeneğini ekledim.
Klevyem Q
Bu şekilde problemimi çözdüm.