girilen rakamın son iki hanesini kuruş yapma

[amelie]

Arkadaşlar merhaba.Benim ricam bir sayfada hücrelere girilen rakamların son iki hanesini otomatik olarak kuruş olarak nasıl algılatabiliris? örneğin ben 12345678 tuşlayınca enter la birlikte sayının otomatik olarak 123456,78 olarak görünmesi.
Yardımlarınız için şimdiden teşekkür ederim.

 

[birol_mumcu]

merhaba; :hey:

http://www.excel.web.tr/search.php?mode=results
http://www.excel.web.tr/viewtopic.php?t=2236
linkleri inceleyiniz

 

[amelie]

Merhaba ...ilginize teşekkür ederim ancak linkte aradığım cevabı bulamadım yani belki de benim gözümden kaçtı ancak ben hücreye veri(rakam) girişi yaparken son iki basamağı otomatik olarak kuruş olarak algılamasını istiyorum.hücre formatının custom seçeneği ile denemeler yaptım ancak başarılı olamadım.Teşekkür ederim.

 

[veyselemre]

aşağıdaki komutlar işinizi görür fakat hücreye her girdiğinizde aynı işi yapacaktır. Bu yüzden sıkıntılı olur kullanamazsınız. Sanırım nokta kullanmak istemediğiniz için bu şekilde yapmak istiyorsunuz. Bazı excel'lerde Araçlar>Seçenekler>Uluslararası>Sayı işlemeyi Uluslararası işaretlerseniz virgülle noktalamayı kullanabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Static A As Range
If Not A Is Nothing Then
A.Style = "COMMA"
A = A / 100
End If
Set A = Target
End Sub

 

[amelie]

Selam. Belki örneğimde yanlışlık yapmış olabilirim nokta da olabilir...yani 12345678
123.456.,78 şeklinde eğer kastınız buysa tabi verdiğiniz kodu ise çalıştıramadım o sebepten test etme imkanım olmadı...ancak ben istiyorum ki seçeceğim tüm hücreler için bu otomatik işlemi yapsın istiyorum.Sevgilerimle!

 

[veyselemre]

Seçtiğiniz hücreleri düğmeye bastığınızda 100'e bölecek

 

[amelie]

selam.Verdiğiniz örnek aslıında gayet güzel ancak( ki ben burda yine çok oluyor olabilirim) hani benim esas istediğim aktif hücreye rakam girişinin son bulması ile
(enter ya da başkabir hücreye geçiş ) bu işlemin olabilirliği var mıdır?
yani dosya aktif olduğu sürece her veri girişini böyle nasıl yaparız.?

mesela,
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
özelliğine uygulayabilir miyiz?

 

[veyselemre]

Ã?nce yazmış olduğum kodları örneğe yerleştirdim. Ancak aynı hücreye
her girişinizde 100 e bölecektir.
a1' e 1 yazdığınızda komutlar çalışmayacaktır

ayrıca sayfa2 de girdiğiniz rakamların sonuna * girdiğiniz rakamları
100 böler

 

[amelie]

Selam.Çok teşekkür ederim tam istediğim sonucu aldım.sayfa1 deki verileri girerken otomatik kuruş yaratıyor ancak ben sizin kodunuzdaki a1=1 ise sonlandır 'ı iptal ettim.yani böyle yapınca tam sonucu aldım,siz neden yazdınız o satırı pek anlayamadım ama elinize sağlık çok teşekkür ederim.
Sevgilerimle!




Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'If [a1] = 1 Then GoTo son:
On Error Resume Next
Static A As Range
If Not A Is Nothing Then
A = A / 100
End If
Set A = Target
'son:
End Sub