1,73 değerini 1,7 olarak yuvarlamadan hucreyi nasıl biçimlendiririm?

[levomat]

Herkese Selamlar,

Yapmak istediğim çok sayıda kayıt grişlerinde hücrelere girdiğim değerlerin yuvarlama yapmadan direk virgülden sonraki ilk haneden sonrasını kesip attırarak hucrelere yazdırmak..


Örnek->
hücreye girilen değerler A1--> 1,68 -hucrede gözükecek değerler A1-->1,6
_____________________B1--> 1,53 ________________________B1--> 1,5
____________________C1--> 1,89 ________________________C1--> 1,8


İsteğe Uyarlanmış biçimlendirme ile yapılma olasılığı var mıdır?
Ya da Başka bi yöntem kullanılabilir mi?

Şimdiden Teşekkürler.
kolay Gelsin..

 

[Ömer]

Merhaba,

1,68 olan veri 1,6 olacak mı yoksa 1,68 olarak kalıp görüntüsü 1,6 mı olacak?

.

 

[levomat]

Merhaba,

1,68 olan veri 1,6 olarak veriye dönüşecek.Aynı zamanda kalıp görüntüsü de 1,6 olması gerekiyor.

saygılar..

 

[Ömer]

Module kopyalarak çalıştırınız.

Sub Degistir()
 
    Dim i As Long, iLk As String, sOn As String
 
    On Error GoTo git
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        iLk = Split(Cells(i, "A"), ",")(0)
        sOn = Left(Split(Cells(i, "A"), ",")(1), 1)
        Cells(i, "A") = CDbl(iLk & "," & sOn)
    Next i
git:
 
End Sub

.

 

[levomat]

Çok Teşekkürler Ömer Bey.
Çok işime yaradı.

Saygılar..