İsteğe Uyarlama

[deneme038]

İyi günler arkadaşlar... Excel de herhangi bir hücreye Örnekolarak 133 yazdığımda bu hücrede değer 13/3 olsun. bunu isteğe uyarlamada nasıl yazabiliriz.. araştırdım bir örnek göremedim de yardımcı olabilir misiniz..

 

[Jeeday]

makro ile çözülür...

örnekleri çoğaltır mısınız?

 

[deneme038]

kullandığımız kurum bilgisayarında kısıtlama olduğu için makrolar tam çalışmıyor.. a1 hücresine yazılan 133 rakamı 13/3 104 yazılırsa 10/4 dönüşsün gibi sanırım anlatabildim...

 

[Jeeday]

ya peki ali veli 1500 4000 yazarsak?

onlarda al/i ve/li 15/00 40/00 mı olacak )))

 

[Jeeday]

sadece 3 haneli "SAYILAR" için mi geçerli şaka bi yana

 

[deneme038]

evet sadece 3 haneli sayı için geçerli..

 

[carlosfatih]

Bu formülde A1 hücresindeki 3 haneli ise; sayının ilk 2 sini alıp, / ekleyip , son sayıyı yerleştirir. Eğer farklı hanede ise formülde 2 ve 1 kısımlarını değiştirerek işlemi farklılaştırabilirsiniz.

=BİRLEŞTİR(SOLDAN(A1;2);"/";SAĞDAN(A1;1))

 

[Jeeday]

işlem yapmak istediğiniz sayfanın kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:XFD1048576]) Is Nothing Then Exit Sub
If IsNumeric(Cells(Target.Row, Target.Column)) = True And Len(Cells(Target.Row, Target.Column)) = 3 Then
Cells(Target.Row, Target.Column) = Left(Cells(Target.Row, Target.Column), 2) & "/" & Right(Cells(Target.Row, Target.Column), 1)
End If
End Sub


ekleyiniz

 

[deneme038]

çok teşekkür ederim emeğinize iyi çalışmalar..

 

[bzace]

Merhabalar,
Alternatif;
Hücre biçim / isteğe uyarlanmış kısmına;

##"/"#

Saygılar,
Hay marja!