Hücredeki verilerin farklı hizalanması

[1Al2Ver]

İyi akşamlar, hücrelerde kayıtlı veriler, aldıkları değerlere ( +, -, 0) göre farklı hizalanabilirmi? Örneğin ;pozitif değerler sola, negatif değerler sağa ve sıfır değerler ortaya, teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Biçimlendirme yapacağınız hücreleri seçip kodu çalıştırın.

Sub BİÇİMLENDİR()
    Dim HÜCRE As Range
    For Each HÜCRE In Selection
    Select Case HÜCRE.Value
        Case Is = "0"
        With HÜCRE
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        End With
        Case Is < "0"
        With H&#220;CRE
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlCenter
        End With
        Case Is > "0"
        With H&#220;CRE
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlCenter
        End With
    End Select
    Next
End Sub

 

[Necdet]

Merhaba,

Alternatif olarak veri giriş sırasında hizalamanın olmasını isterseniz, aşağıdaki kodları ilgili sayfanın kod bölümüne ekleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B:C]) Is Nothing Then Exit Sub
If Cells(Target.Row, "D") < 0 Then Range("D" & Target.Row).HorizontalAlignment = xlRight
If Cells(Target.Row, "D") > 0 Then Range("D" & Target.Row).HorizontalAlignment = xlLeft
If Cells(Target.Row, "D") = 0 Then Range("D" & Target.Row).HorizontalAlignment = xlCenter
End Sub

 

[1Al2Ver]

Selamlar,

Aşağıdaki kodu denermisiniz. Biçimlendirme yapacağınız hücreleri seçip kodu çalıştırın.

Sub BİÇİMLENDİR()
    Dim HÜCRE As Range
    For Each HÜCRE In Selection
    Select Case HÜCRE.Value
        Case Is = "0"
        With HÜCRE
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        End With
        Case Is < "0"
        With HÜCRE
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlCenter
        End With
        Case Is > "0"
        With HÜCRE
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlCenter
        End With
    End Select
    Next
End Sub

Sayın Cost_Control merhaba, teşekkür ederim, saygılarımla.

 

[1Al2Ver]

Merhaba,

Alternatif olarak veri giriş sırasında hizalamanın olmasını isterseniz, aşağıdaki kodları ilgili sayfanın kod bölümüne ekleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B:C]) Is Nothing Then Exit Sub
If Cells(Target.Row, "D") < 0 Then Range("D" & Target.Row).HorizontalAlignment = xlRight
If Cells(Target.Row, "D") > 0 Then Range("D" & Target.Row).HorizontalAlignment = xlLeft
If Cells(Target.Row, "D") = 0 Then Range("D" & Target.Row).HorizontalAlignment = xlCenter
End Sub

Sayın Yesertener merhaba, alternatif için teşekkür ederim, affınıza sığınarak size soyadınızla hitap ediyorum lütfen yanlış anlamayın, 25 yıllık meslek alışkanlığı, saygılar sunarım.

 

[1Al2Ver]

D24 hücresindeki "fark" hücresinde (-) eksi değerden (+) artı değerin çıkarılmasında ; sonuç eksi çıkacaksa formül nasıl olmalı ? Teşekkür ederim.

 

[Necdet]

Soyadımla hitap edecekseniz eğer Sayın kardeşim Yesertener değil de Yeşertener diyelim

Hitap şekline pek takılmam, saygı sözkonusu ise.

 

[1Al2Ver]

Soyadımla hitap edecekseniz eğer Sayın kardeşim Yesertener değil de Yeşertener diyelim

Hitap şekline pek takılmam, saygı sözkonusu ise.

Sayın Yeşertener, teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

İki değeri toplamayı deneyin.

 

[1Al2Ver]

Selamlar,

İki değeri toplamayı deneyin.

Sayın Cost_Control, iyi akşamlar, teşekkür ederim, tamamdır, saygılarımla.